12 lines
404 B
Scheme
12 lines
404 B
Scheme
(define (enter-notify-hook params)
|
|
"Function called each time the mouse focus changes window.
|
|
Param is a list with: the name of the window.
|
|
Return #f to prevent changing focus."
|
|
(not (string=? (car params) "no-focus")))
|
|
|
|
(define (click-hook params)
|
|
;; (format #t "Clicked ~A" (car params))
|
|
;; (let ((root-x root-y event-x event-y state same-screen)))
|
|
|
|
(not (string=? (car params) "no-focus")))
|