Re: Initializing checkbox status of a tree-view

I wrote:

> I have a problem with the :CHECKBOX-INITIAL-STATUS initarg for a TREE-VIEW.
> When I create a tree-view with a value for :checkbox-initial-status (see
> the example below), I get an error when I try to expand one of the tree nodes.
>
> The error message is:
> Undefined function CAPI-WIN32-LIB::HCHILD called with arguments (264438 1522192).

Thanks to Jeff Caldwell, I've found a solution to my problem by adding the
following lines:

(defparameter capi-win32-lib::hchild "")

(defun capi-win32-lib::hchild (a b)
  (declare (ignore a b))
  "")

(defun capi-win32-lib::tv-do-item-children (a b)
  (declare (ignore a b)))


This works, but I have no idea what I'm actually doing here and it feels
like a dirty hack.  So I would still appreciate it if someone could give
me a cleaner solution or an explanation of what's going on here.

Regards,

Arthur

 --------------

;; To verify the problem, run (TEST) and try to expand one of the
;; tree nodes by clicking on the '+' in front of it.

(capi:define-interface test ()
  ()
  (:panes
   (simple-tree-view
    capi:tree-view
    :roots '(0 1 2 3 4 5 6 7 8 9)
    :children-function (lambda (item) (and (< item 100)
                                           (loop for i below 10
                                                 collect (+ i (* item 10)))))
    :use-images nil
    :checkbox-status 2
    :checkbox-initial-status (loop for i below 1000 collect (cons i 2))))
  (:default-initargs
   :best-width 300
   :best-height 300))


(defun test ()
  (capi:contain (make-instance 'test)))