153 lines
3.6 KiB
Scheme
153 lines
3.6 KiB
Scheme
; Norbert Freudemann
|
|
|
|
; grab-pointer grabs control of a pointer for your client only.
|
|
; It returns on of the symbols:
|
|
; (success not-viewable already-grabbed frozen invlalide-time)
|
|
|
|
(define (grab-pointer window owner? events ptr-sync? kbd-sync?
|
|
confine-to cursor time)
|
|
(%grab-pointer (display-Xdisplay (window-display window))
|
|
(window-Xwindow window)
|
|
owner? events
|
|
ptr-sync? kbd-sync?
|
|
(window-Xwindow confine-to)
|
|
(cursor-Xcursor cursor)
|
|
time))
|
|
|
|
|
|
(import-lambda-definition %grab-pointer (Xdisplay Xwindow owner? events
|
|
ptr-sync? kbd-sync?
|
|
Xconfine-to Xcursor time)
|
|
"scx_Grab_Pointer")
|
|
|
|
|
|
; ungrab-pointer releases the pointer.
|
|
|
|
(define (ungrab-pointer display time)
|
|
(%ungrab-pointer (display-Xdisplay display)
|
|
time))
|
|
|
|
(import-lambda-definition %ungrab-pointer (Xdisplay time)
|
|
"scx_Ungrab_Pointer")
|
|
|
|
|
|
; ---
|
|
|
|
(define (grab-button window button mod owner? events ptr-sync? kbd-sync?
|
|
confine-to cursor)
|
|
(%grab-button (display-Xdisplay (window-display window))
|
|
(window-Xwindow window)
|
|
button mod owner? events ptr-sync? kbd-sync?
|
|
(window-Xwindow confine-to)
|
|
(cursor-Xcursor cursor)))
|
|
|
|
(import-lambda-definition %grab-button (Xdisplay Xwindow button
|
|
mods ownerp events
|
|
ptr-sync? kbd-sync?
|
|
Xconfine-to Xcursor)
|
|
"scx_Grab_Button")
|
|
|
|
|
|
; ---
|
|
|
|
|
|
(define (ungrab-button window button modifiers)
|
|
(%ungrab-button (display-Xdisplay (window-display window))
|
|
(window-Xwindow window)
|
|
button modifiers))
|
|
|
|
(import-lambda-definition %ungrab-button (Xdisplay Xwindow
|
|
button modifiers)
|
|
"scx_Ungrab_Button")
|
|
|
|
|
|
; ---
|
|
|
|
(define (change-active-pointer-grab display events cursor time)
|
|
(%change-active-p-g (display-Xdisplay display)
|
|
events cursor time))
|
|
|
|
(import-lambda-definition %change-active-p-g (Xdislay events
|
|
cursor time)
|
|
"scx_Change_Active_Pointer_Grab")
|
|
|
|
|
|
; ---
|
|
|
|
(define (grab-keyboard window owner? ptr-sync? kbd-sync? time)
|
|
(%grab-keyboard (display-Xdisplay (window-display window))
|
|
(window-Xwindow window)
|
|
owner? ptr-sync? kbd-sync? time))
|
|
|
|
(import-lambda-definition %grab-keyboard (Xdisplay Xwindow
|
|
owner? ptr-sync? kbd-sync?
|
|
time)
|
|
"scx_Grab_Keyboard")
|
|
|
|
|
|
; ---
|
|
|
|
|
|
(define (ungrab-keyboard display time)
|
|
(%ungrab-keyboard (display-Xdisplay display)
|
|
time))
|
|
|
|
|
|
(import-lambda-definition %ungrab-keyboard (Xdisplay time)
|
|
"scx_Ungrab_Keyboard")
|
|
|
|
|
|
; ---
|
|
|
|
(define (grab-key window key mod owner? ptr-sync? kbd-sync?)
|
|
(%grab-key (display-Xdisplay (window-display window))
|
|
(window-Xwindow window)
|
|
key mod owner? ptr-sync? kbd-sync? (symbol? key)))
|
|
|
|
(import-lambda-definition %grab-key (Xdisplay xwindow key mod
|
|
owner ptr-sync? kbd-sync? flag)
|
|
"scx_Grab_Key")
|
|
|
|
; ---
|
|
|
|
|
|
(define (ungrab-key window key mod)
|
|
(%ungrab-key (display-Xdisplay (window-display window))
|
|
(window-Xwindow window)
|
|
key mod (symbol? key)))
|
|
|
|
(import-lambda-definition %ungrag-key (Xdisplay Xwindow key mod
|
|
flag)
|
|
"scx_Ungrab_Key")
|
|
|
|
; ---
|
|
|
|
|
|
(define (allow-events display mode time)
|
|
(%allow-events (display-Xdisplay display)
|
|
mode time))
|
|
|
|
(import-lambda-definition %allow-events (Xdisplay mode time)
|
|
"scx_Allow_Events")
|
|
|
|
; ---
|
|
|
|
(define (grab-server display)
|
|
(%grab-server (display-Xdisplay display)))
|
|
|
|
(import-lambda-definition %grab-server (Xdisplay)
|
|
"scx_Grab_Server")
|
|
|
|
; ---
|
|
|
|
(define (ungrab-server display)
|
|
(%ungrab-server (display-Xdisplay display)))
|
|
|
|
(import-lambda-definition %ungrab-server (Xdisplay)
|
|
"scx_Ungrab_Server")
|
|
|
|
|
|
; Implementation of with-server-grabbed follows...
|
|
|
|
;(define (with-server-grabbed display . body-forms)
|
|
;) |