]> git.saurik.com Git - wxWidgets.git/blame - wxPython/wx/tools/XRCed/sawfishrc
wxCheckListBox doesn't require wxUSE_OWNER_DRAWN when using WXUNIVERSAL
[wxWidgets.git] / wxPython / wx / tools / XRCed / sawfishrc
CommitLineData
1e4a197e
RD
1(require 'sawmill-defaults)
2
3;;; Define two hooks to reset focus behavior while mapping test window
4
5(define (xrced-match-window-before w)
6 (setq prop (aref (get-x-text-property w 'WM_CLASS) 0))
7 (cond ((equal prop "_XRCED_T_W")
8 (setq transients-get-focus-b transients-get-focus)
9 (setq transients-get-focus nil)
10 (setq focus-windows-when-mapped-b focus-windows-when-mapped)
11 (setq focus-windows-when-mapped nil)
12 )
13 )
14)
15(define (xrced-match-window-after w)
16 (setq prop (aref (get-x-text-property w 'WM_CLASS) 0))
17 (cond ((equal prop "_XRCED_T_W")
18 (setq transients-get-focus-b transients-get-focus-b)
19 (setq focus-windows-when-mapped focus-windows-when-mapped-b)
20 )
21 )
22)
23(add-hook 'map-notify-hook xrced-match-window-before)
24(add-hook 'map-notify-hook xrced-match-window-after 't)