Lines Matching defs:mouse
40 ;; These are from term/sun-mouse.el
41 (defvar *mouse-window*)
42 (defvar *mouse-x*)
43 (defvar *mouse-y*)
85 "Change the Sun mouse cursor to ICON.
107 (local-set-mouse '(text right) 'sc::menu-function)
108 (local-set-mouse '(text left) '(sc::pic-ins-at-mouse 32))
109 (local-set-mouse '(text middle) '(sc::pic-ins-at-mouse 64))
110 (local-set-mouse '(text left middle) 'sc::hotspot)
117 (defun sc::pic-ins-at-mouse (char)
118 "Picture insert char at mouse location"
119 (mouse-move-point *mouse-window* (min 15 *mouse-x*) (min 15 *mouse-y*))