wxPython/wx/tools/XRCed/sawfishrc

   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)