108 lines
3.5 KiB
Scheme
108 lines
3.5 KiB
Scheme
;; Copyright (c) 2001-2003 by Norbert Freudemann, David Frese
|
|
|
|
;; *** grab the pointer **********************************************
|
|
|
|
(define-enumerated-type grab-mode :grab-mode
|
|
grab-mode? grab-modes grab-mode-name grab-mode-index
|
|
(sync async))
|
|
|
|
(define-exported-binding "scx-grab-mode" :grab-mode)
|
|
|
|
(define-enumerated-type grab-status :grab-status
|
|
grab-status? grab-states grab-status-name grab-status-index
|
|
(success already-grabbed invalid-time not-viewable frozen))
|
|
|
|
(define-exported-binding "scx-grab-states" grab-states)
|
|
|
|
(import-lambda-definition grab-pointer
|
|
(display grab-window owner-events? events ptr-mode kbd-mode
|
|
confine-to cursor time)
|
|
"scx_Grab_Pointer")
|
|
|
|
(import-lambda-definition ungrab-pointer (display time)
|
|
"scx_Ungrab_Pointer")
|
|
|
|
(import-lambda-definition change-active-pointer-grab
|
|
(display events cursor time)
|
|
"scx_Change_Active_Pointer_Grab")
|
|
|
|
;; *** grab pointer buttons ******************************************
|
|
|
|
(define-enumerated-type state :state
|
|
state? states state-name state-index
|
|
(shift lock control mod1 mod2 mod3 mod4 mod5
|
|
button1 button2 button3 button4 button5
|
|
state-13 state-14
|
|
any-modifier))
|
|
|
|
(define-exported-binding "scx-state" :state)
|
|
(define-exported-binding "scx-states" states)
|
|
|
|
(define-enum-set-type state-set :state-set
|
|
state-set? make-state-set
|
|
state state? states state-index)
|
|
|
|
(define-exported-binding "scx-state-set" :state-set)
|
|
|
|
(define-enumerated-type button :button
|
|
button? buttons button-name button-index
|
|
(any-button button1 button2 button3 button4 button5))
|
|
|
|
(define-exported-binding "scx-button" :button)
|
|
(define-exported-binding "scx-buttons" buttons)
|
|
|
|
(import-lambda-definition grab-button
|
|
(display button modifiers grab-window owner-events? events ptr-mode
|
|
kbd-mode confine-to cursor)
|
|
"scx_Grab_Button")
|
|
|
|
(import-lambda-definition ungrab-button (display button modifiers grab-window)
|
|
"scx_Ungrab_Button")
|
|
|
|
;; *** grab the keyboard *********************************************
|
|
|
|
(import-lambda-definition grab-keyboard
|
|
(display grab-window owner-events? ptr-mode kbd-mode time)
|
|
"scx_Grab_Keyboard")
|
|
|
|
(import-lambda-definition ungrab-keyboard (display time)
|
|
"scx_Ungrab_Keyboard")
|
|
|
|
;; *** grab keyboard keys ********************************************
|
|
|
|
(import-lambda-definition grab-key
|
|
(display keycode modifiers grab-window owner-events? ptr-mode kbd-mode)
|
|
"scx_Grab_Key")
|
|
|
|
(import-lambda-definition ungrab-key (display keycode modifiers grab-window)
|
|
"scx_Ungrab_Key")
|
|
|
|
;; *** release queued events *****************************************
|
|
|
|
(define-enumerated-type event-mode :event-mode
|
|
event-mode? event-modes event-mode-name event-mode-index
|
|
(async-pointer sync-pointer replay-pointer async-keyboard
|
|
sync-keyboard replay-keyboard async-both sync-both))
|
|
|
|
(define-exported-binding "scx-event-mode" :event-mode)
|
|
|
|
(import-lambda-definition allow-events (display event-mode time)
|
|
"scx_Allow_Events")
|
|
|
|
;; *** grab the server ***********************************************
|
|
|
|
;; grab-server disables processing of requests and close downs on all
|
|
;; other connections than the one this request arrived on. You should
|
|
;; not grab the X server any more than is absolutely necessary. See
|
|
;; XGrabServer.
|
|
|
|
(import-lambda-definition grab-server (display)
|
|
"scx_Grab_Server")
|
|
|
|
;; ungrab-server restarts processing of requests and close downs on
|
|
;; other connections. You should avoid grabbing the X server as much
|
|
;; as possible. See XUngrabServer.
|
|
|
|
(import-lambda-definition ungrab-server (display)
|
|
"scx_Ungrab_Server")
|