Re: OS X 10.3 and LW

Hello,

Dave Fox wrote:

LispWorks supports Mac OS X 10.3.

a) original LispWorks for Macintosh 4.3 image does not start.
This is fixed in a rebuild of LispWorks. If you see "build 2"
in the :bug-form output, you've got this rebuild already. If you
don't, ask lisp-support@xanalys.com for the rebuild.

OK, thanks, now LW works fine in Panther.

   Still another question. Will these patches correct some of the known
   problems in LW in 4.3.6 under OS X 10.2? We are interested mainly in
   the following problems:
      - to be able to change the cursors

(SETF CAPI:SIMPLE-PANE-CURSOR) almost works for me on 10.2. The cursor
change occurs, but only after the second time the window gets the
focus. Is that the problem you refer to?

I tried to change the cursor using SETF CAPI:SIMPLE-PANE-CURSOR), but I still

don't see any effect. Maybe a small example would help me to make cursors change.

I tried also the following example found in the LW documentation:

(setf interface
      (capi:element-interface
       (car
        (capi:contain
         (loop for cursor
               in '(:crosshair :hand :v-double-arrow)
               collect
               (make-instance 'capi:editor-pane
                              :cursor cursor
                              :text
                              (format nil "~A CURSOR"

cursor)))))))

but without success, am I missing something?

Can new cursors be defined in LW?

- to be able to use the command/option keys in input gestures.

The way to implement Command key gestures is to put an accelerator on

a menu item, for example:

We are actually mostly interested in mouse click gestures (especially in the :meta gesture),

for instance in the following code:

(capi:define-interface click-test-inerface ()
()
(:panes (click-pane capi:output-pane
                       :input-model '(((:button-1 :press) click)
                                      ((:button-1 :press :shift) shift-click)
                                      ((:button-1 :press :control) control-click)
                                      ((:button-1 :press :meta) option-click)
                                     ; ((:button-1 :press :command) command-click)
                                      ))))

(defun click(&rest args)
(print 'click))

(defun shift-click(&rest args)
(print 'shift-click))

(defun control-click(&rest args)
(print 'control-click))

(defun command-click(&rest args)
(print 'command-click))

(defun option-click(&rest args)
(print 'option-click))

(capi:find-interface 'click-test-inerface)

the normal, :shift and :control gestures work fine, but the :meta gesture is interpreted by LW

as a normal one. We would need to be able to distinguish between normal and :meta gestures.

Furthermore, if we take the comment away from the :command gesture then the normal, :meta and

:command gestures are all interpreted as :command gestures.

Mikael