diff --git a/wxPython/wxPython/tools/XRCed/sawfishrc b/wxPython/wxPython/tools/XRCed/sawfishrc new file mode 100644 index 0000000000..7e1f6d94bc --- /dev/null +++ b/wxPython/wxPython/tools/XRCed/sawfishrc @@ -0,0 +1,24 @@ +(require 'sawmill-defaults) + +;;; Define two hooks to reset focus behavior while mapping test window + +(define (xrced-match-window-before w) + (setq prop (aref (get-x-text-property w 'WM_CLASS) 0)) + (cond ((equal prop "_XRCED_T_W") + (setq transients-get-focus-b transients-get-focus) + (setq transients-get-focus nil) + (setq focus-windows-when-mapped-b focus-windows-when-mapped) + (setq focus-windows-when-mapped nil) + ) + ) +) +(define (xrced-match-window-after w) + (setq prop (aref (get-x-text-property w 'WM_CLASS) 0)) + (cond ((equal prop "_XRCED_T_W") + (setq transients-get-focus-b transients-get-focus-b) + (setq focus-windows-when-mapped focus-windows-when-mapped-b) + ) + ) +) +(add-hook 'map-notify-hook xrced-match-window-before) +(add-hook 'map-notify-hook xrced-match-window-after 't)