Lisp HUG Maillist Archive

(unknown)

Hello,

How can I change the cursor using capi windows (I am using OSX and LW 4.3.6).
I tested the 'balloons.lisp' example which contains the following function:

(defun select-balloon (layout x y)
   (when-let (balloon (capi:pinboard-object-at-position layout x y))
     (setf (capi:capi-object-property layout :grabbed) balloon)
     (setf (capi:capi-object-property layout :grabbed-pos)
           (multiple-value-bind (bx by) (capi:pinboard-pane-position balloon)
                          (cons (- x bx) (- y by)) ))
     (setf (capi:interface-override-cursor (capi:element-interface 
layout)) :hand);; <-
   ))

but the cursor does not change when running the code.

Still another question: Is it possible to define your own cursors?

Mikael Laurson


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