Re: changing the mouse-glyph

• To: clim@bbn.com
• Subject: Re: changing the mouse-glyph
• From: Fredric M White <fwhite@bbn.com>
• Date: Thu, 29 Oct 92 15:46:25 EST
• Cc: fwhite@bbn.com
• Sender: fwhite@bbn.com

;; Here's how I set the mouse cursor in clim 1.1 under xlib

(in-package 'clim-user)

(defun WATCH-CURSOR ()
  ;; Do  "xfd -fn cursor -center" to see other chars in the cursor font.
  (xlib:create-glyph-cursor :source-font clim::*cursor-font* :source-char #x96
			    :mask-font clim::*cursor-font* :mask-char #x97
			    :foreground (xlib:make-color :red 0 :green 0 :blue 0)
			    :background (xlib:make-color :red 1 :green 1 :blue 1)))

(defun SET-WINDOW-CURSOR (window cursor)
  ;; window is a clim window.
  (setf (xlib:window-cursor (slot-value window 'clim::window)) cursor))

-Fred


0,,

• Prev: Re: changing the mouse-glyph
• Next: Selecting Objects in Clim output menu
• Index: CLIM Mailing list (1-Sep-92 to 31-Dec-92)
• Thread: CLIM Mailing list Index (1-Sep-92 to 31-Dec-92)