home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gwm18a.zip / data / suntools-keys.gwm < prev    next >
Lisp/Scheme  |  1995-07-03  |  2KB  |  68 lines
  1. ;; some code for emulating the Suntools F5 and F7 keys
  2. ;; (F5 raises or lowers a window and F7 iconifies or de-iconifies)
  3. ;; to use, just include (load 'suntools-keys) in your .profile.gwm
  4. ;;
  5. ;; rwhitby@adl.austek.oz.au (Rod Whitby)
  6. ;; Rod Whitby
  7. ;; Austek Microsystems Pty. Ltd.
  8. ;; Technology Park 
  9. ;; Adelaide, SA 5095 Australia
  10. ;; 
  11. ;; ACSnet:    rwhitby@austek.oz    ARPA:    rwhitby@austek.oz.au
  12. ;; UUCP:    uunet.uu.net!munnari!austek.oz.au!rwhitby
  13. ;; 
  14.  
  15. ; Add Suntools L5 and L7 functionality
  16. ; and duplicate it on F5 and F7 for X Terminals
  17.  
  18. (setq visibility-behavior
  19.       (state-make
  20.        (on (keypress "L5" alone) (if (window-is-topmost (window-window))
  21.                      (lower-window)
  22.                    (raise-window)))
  23.        (on (keypress "F5" alone) (if (window-is-topmost (window-window))
  24.                      (lower-window)
  25.                    (raise-window)))
  26.        (on (keypress "L7" alone) (progn (iconify-window)(raise-window)))
  27.        (on (keypress "F7" alone) (progn (iconify-window)(raise-window)))
  28.        )
  29.       )
  30.  
  31. (setq visibility-grabs
  32.       (list (key "L5" alone)
  33.         (key "L7" alone)
  34.         (key "F5" alone)
  35.         (key "F7" alone)
  36.         ))
  37.  
  38. (: standard-title-behavior
  39.    (state-make
  40.     visibility-behavior
  41.     standard-title-behavior
  42.     standard-behavior
  43.     ))
  44.  
  45. (setq window-behavior
  46.       (state-make
  47.        visibility-behavior
  48.        window-behavior
  49.        ))
  50.  
  51. (setq icon-behavior
  52.       (state-make
  53.        visibility-behavior
  54.        icon-behavior
  55.        ))
  56.  
  57. (reparse-standard-behaviors)
  58.  
  59. (: grabs
  60.    (: root-grabs
  61.       (: window-grabs
  62.      (: icon-grabs
  63.         (+ 
  64.          visibility-grabs
  65.          grabs
  66.          )))))
  67.  
  68.