home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gwm18a.zip / data / no-decoration.gwm < prev    next >
Lisp/Scheme  |  1995-07-03  |  642b  |  26 lines
  1. ; NO BARS
  2. ; =======
  3.  
  4. ;;File: no-decoration.gwm -- no bars deco
  5. ;;Author: colas@mirsa.inria.fr (Colas NAHABOO) -- Bull Research FRANCE
  6. ;;Revision: 1.4 -- July 27 1989
  7. ;;State: Exp
  8. ;;GWM Version: 1.4
  9.  
  10. (defname 'no-decoration.data screen.)
  11. (defname 'simple-window-decoration screen.)
  12. (defname 'simple-icon-decoration screen.)
  13.  
  14. (for screen (list-of-screens)
  15.     (: simple-window-decoration 
  16.        (: no-decoration.data
  17.       (with (fsm window-fsm
  18.              borderwidth 0
  19.              inner-borderwidth any
  20.              menu window-pop)
  21.         (window-make () () () () ()))))
  22.     (: simple-icon-decoration (simple-icon))))
  23.  
  24. (defun no-decoration () no-decoration.data)
  25.  
  26.