home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gwm18a.zip / data / mwmprofile.gwm < prev    next >
Text File  |  1995-07-03  |  2KB  |  68 lines
  1.  
  2. ;;File: mwmprofile.gwm -- descendent in MWM emulation of
  3. ;;                        user-settable part of standard profile;
  4. ;;                        this should not be modified for MWM emulation;
  5. ;;                        instead, use the mwm X resources and the file
  6. ;;                        .mwmrc, which will automatically
  7. ;;                        be transformed into an appropriate .gwmmwmrc.gwm
  8. ;;Author: colas@mirsa.inria.fr (Colas NAHABOO) -- Bull Research FRANCE
  9. ;;Author: Frederic CHARTON
  10. ;;Author: Glen WHITNEY
  11. ;;Revision: 1.1 -- Apr 6 1989
  12. ;;State: Exp
  13. ;;GWM Version: 1.5e
  14.  
  15.  
  16. (if (= 0 gwm-quiet) (? screen))
  17.  
  18.  
  19. (df set-focus-kFL ()
  20.  (with (index 0 l (length keyFocusList))
  21.   (while (< index l)
  22.    (with (window (# index keyFocusList)) 
  23.     (if window-is-mapped (progn (set-focus) (: index l))
  24.              (: index (+ index 1))
  25.     )
  26.    )
  27.   )
  28.  )
  29. )
  30.  
  31.  
  32. (: opening
  33.    '(progn (if (= window-status 'icon)
  34.            (mwm-icon-placement t)
  35.          (mwm-window-placement t))
  36.        (with (while-opening t) (send-user-event 'name-change))
  37.        (if (and (= keyboardFocusPolicy 'explicit) startUpKeyFocus)
  38.            (set-focus))
  39.        ))
  40. (: closing
  41.    '(progn (if (= window-status 'icon)
  42.            (mwm-icon-placement ())
  43.          (mwm-window-placement ()))
  44.        (if (and (= keyboardFocusPolicy 'explicit) autoKeyFocus)
  45.            (progn
  46.          (remove-kFL window)
  47.          (set-focus-kFL)
  48.          ))))
  49.  
  50. (: root-fsm (fsm-make (state-make
  51.                 (do-bindings-state '(root))
  52.                 (# 0 (# 'root keyBindings))
  53.                 root-std-behavior
  54. )))
  55.  
  56. (: root-grabs (+ (# 1 (# 'root keyBindings)) root-grabs))
  57.  
  58.  
  59. ;(load "icon-groups-old")    ; iconify groups as a whole
  60.                                 ; might be nice, but not MWM behavior.   
  61. (load "mwm-zoom-win")        ; zoom on window
  62.  
  63.  
  64. (: resize-flag ())
  65.  
  66. (load "mwm-buttons")
  67.  
  68.