Lisp HUG Maillist Archive

capi:text-input-range in toolbar

I have problems using a capi:text-input-range in a window toolbar (LW  
6.0.1 on Mac OS X 10.5).

In the interface definition I use something like:
(my-choice :accessor my-choice
            :initform (make-instance 'capi:text-input-range
                                     :title "My Title"
                                     :start 0
                                     :end 200
                                     :value 100
                                     :callback 'my-callback
                                     :callback-type :interface
                                     :enabled nil)
            :type capi:text-input-range)

Then I have a creation callback for the interface, something like this:
(defun my-interface-create-callback (interface)
   ;; toolbar buttons
   (setf (capi:interface-toolbar-items interface)
         (list (my-choice interface))))

When the creation callback is run, I get an error saying:
No applicable methods for #<STANDARD-GENERIC-FUNCTION CAPI-COCOA- 
LIBRARY::REPRESENTATION-OUTERMOST-VIEW 21095A42 with args (NIL)>

If I instead use a capi:text-input-pane in the interface definition,  
the interface is nicely displayed:
(my-choice :accessor my-choice
               :initform (make-instance 'capi:text-input-pane
                                        :title "My Title"
                                        :text "100"
                                        :callback 'my-callback
                                        :callback-type :interface)
               :type capi:text-input-pane)

Thanks!
Sven



Updated at: 2020-12-10 08:38 UTC