[Openmcl-devel] cursor size & color
R. Matthew Emerson
rme at clozure.com
Tue Sep 27 11:14:53 CDT 2011
On Sep 24, 2011, at 9:34 AM, Janusz Podrazik wrote:
> I wonder were can I change the size and the color of the cursor in CCL.
> In LispWorks we can do:
> ; cursor size
> (setq *cursor-color* :red)
> (setq *cursor-style* :inverse) ; ; :caret = narrow :left-bar = wider :inverse = large :underline = underline
> (setq *cursor-blink* nil) ; nil = blink, 0 = no blink
You have to use Cocoa functions directly.
(#/set (#/openHandCursor ns:ns-cursor)) will change the cursor to an open hand.
So, from a listener, you could type
(gui::execute-in-gui #'(lambda () (#/set (#/openHandCursor ns:ns-cursor)) (sleep 3)))
and see the open hand cursor for a few seconds.
It's typical to set up cursor tracking rectangles so that the cursor is automatically updated whenever the cursor enters the tracking rectangle.
More information about the Openmcl-devel