home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gwm18a.zip / data / fast.gwm < prev    next >
Lisp/Scheme  |  1995-07-03  |  741b  |  34 lines
  1. ;; fast decorations (minimal)
  2. ;; invoke with gwm -f fast
  3. ;; ejb@era.com (Jay Berkenbilt)
  4.  
  5. (setq grabs (list (button any with-alt)))
  6. (setq opening '(progn))
  7. (setq closing '(progn))
  8. (setq borderwidth 0)
  9. (setq fsm 
  10.       (fsm-make
  11.        (state-make
  12.     (on (buttonpress 1 with-alt)
  13.         (lower-window))
  14.     (on (buttonpress 2 with-alt)
  15.         (move-window))
  16.     (on (buttonpress 3 with-alt)
  17.         (raise-window)))))
  18.  
  19. (setq root-fsm
  20.       (fsm-make
  21.        (state-make
  22.     (on (buttonrelease 1 with-alt)
  23.         (end)))))
  24.  
  25. (defun describe-window ()
  26.   (list
  27.     (window-make () () () () ())
  28.     (window-make () () () () (plug-make (label-make window-icon-name)))
  29. ))
  30.  
  31. (defun describe-screen ()
  32.   (with (opening '(bell) fsm root-fsm)
  33.     (window-make () () () () ())))
  34.