Lines Matching defs:cursor
1 ;;; sun-curs.el --- cursor definitions for Sun windows
62 ;;; The standard default cursor
68 ;;(sc:set-cursor sc:right-arrow)
84 (defun sc:set-cursor (icon)
85 "Change the Sun mouse cursor to ICON.
86 If ICON is nil, switch to the system default cursor,
90 (sun-change-cursor-icon icon))
100 (defun sc:edit-cursor (icon)
103 (if (not icon) (setq icon (sc::menu-choose-cursor (selected-window) 1 1)))
127 ("Pack & Use" sc::pack-buffer-to-cursor)
129 (sc::menu-choose-cursor *menu-window* *menu-x* *menu-y*))
130 ("New Icon" call-interactively 'sc::make-cursor)
131 ("Edit Icon" sc:edit-cursor
132 (sc::menu-choose-cursor *menu-window* *menu-x* *menu-y*))
133 ("Set Cursor" sc:set-cursor
134 (sc::menu-choose-cursor *menu-window* *menu-x* *menu-y*))
135 ("Reset Cursor" sc:set-cursor nil)
148 (defun sc::make-cursor (symbol)
163 (defun sc::pack-buffer-to-cursor ()
165 (sc:set-cursor *edit-icon*))
167 (defun sc::menu-choose-cursor (window x y)
168 "Presents a menu of cursor names, and returns one or nil"
172 (push (sc::menu-item-for-cursor (car curs)) items)
178 (defun sc::menu-item-for-cursor (cursor)
179 "apply function to selected cursor"
180 (list (symbol-name cursor) 'quote cursor))