home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gwm18a.zip / data / mwm-typical.gwmMwmrc < prev    next >
Text File  |  1995-07-03  |  3KB  |  85 lines
  1. ;;File: mwm-typical.gwmMwmrc
  2. ;;Author: Glen WHITNEY -- UCLA Math Dept.
  3. ;;Revision: 1.0 -- Jun 30 1992
  4. ;;State: Exp
  5. ;;GWM Version: 1.7l
  6.  
  7. ; RESOURCE DESCRIPTIONS :
  8. ; ---------------------
  9. ; This file gives another example of a .gwmMwmrc that
  10. ; might be used as a starting point for your own,
  11. ; or might be used directly as 
  12. ; system.gwmMwmrc, put somewhere in the standard GWMPATH
  13.  
  14. ; No forward reference yet!
  15. (: ClientMenu
  16.    (mwm-menu.make
  17.     ("Applications" () () (f.title))
  18.     (""             () () (f.separator))
  19.     ("xterm"        () () (f.exec "xterm"))
  20.     ("epoch"        () () (f.exec "epoch"))
  21.     ("calculator"   () () (f.exec "xcalc"))
  22.     ("X ReadNews"   () () (f.exec "xrn"))
  23.    ))
  24.  
  25. (: WindowMenu
  26.    (mwm-menu.make    
  27.     ("Refresh"    "R" () (f.refresh_win))
  28.     ("Lower"    "L" () (f.lower))
  29.     ("Iconify"    "I" () (f.minimize))
  30.     ("Zoom"     "Z" () (f.maximize))
  31.     ("Size"     "S" () (f.resize))
  32.     (""         ()  () (f.separator))
  33.     ("Delete"   "D" () (f.delete))
  34.     ("Close"    "C" () (f.kill))
  35.    ))
  36.  
  37. (: IconMenu
  38.    (mwm-menu.make
  39.     ("Deiconify" "D" () (f.normalize))
  40.     ("Zoom"      "Z" () (f.maximize))
  41.     ("Move"      "M" () (f.move))
  42.     (""          ()  () (f.separator))
  43.     ("Close"     "C" () (f.kill))
  44.    ))
  45.  
  46. (: RootMenu
  47.    (mwm-menu.make
  48.     ("Pseudo WM" () () (f.title))
  49.     (""          () () (f.separator))
  50.     ("Clients"   () () (f.menu ClientMenu))
  51.     ("Pack Icons" () ("F5" with-shift) (f.pack_icons))
  52.     ("Refresh"      () ()    (f.refresh))
  53.     (""           () () (f.separator))
  54.     ("Restart.. " () () (f.restart))
  55.     ("Exit"       () () (f.quit_mwm))
  56.    ))
  57.  
  58.  
  59. ; Buttons
  60. (: DefaultButtonBindings
  61.    (button-bindings-make
  62.     ( (buttonpress 1 alone) (root) (f.menu RootMenu 1) )
  63.     ( (buttonpress 1 alone) (frame) (f.raise) )
  64.     ( (buttonpress 1 alone) (icon) (f.normalize) )
  65.     ( (buttonpress 3 alone) (icon) (f.menu IconMenu 3) )
  66.     ( (buttonpress 3 alone) (root) (f.menu ClientMenu 3) )
  67.     ( (buttonpress 1 with-alt) (icon window) (f.move) )
  68.     ( (buttonpress 2 with-alt) (window) (f.menu WindowMenu 2) )
  69.     ( (buttonpress 3 with-alt) (window) (f.minimize) )
  70.    ))
  71.  
  72. ; Keys
  73. (: DefaultKeyBindings
  74.    (key-bindings-make
  75.     ( ("Escape" with-shift) (window) (f.post_wmenu 1))
  76.     ( ("Escape" with-shift) (icon) (f.menu IconMenu 1))
  77.     ( ("Escape" with-shift) (root) (f.menu RootMenu 1))
  78.     ( ("F1" with-shift) (window) (f.post_wmenu 1))
  79.     ( ("F1" with-shift) (icon) (f.menu IconMenu 1))
  80.     ( ("F1" with-shift) (root) (f.menu RootMenu 1))
  81.     ( ("Tab" with-alt) (root icon window) (f.circle_up) )
  82.     ( ("Tab" with-shift with-alt) (root icon window) (f.circle_down) )
  83.    ))
  84.  
  85.