26 lines
642 B
Plaintext
26 lines
642 B
Plaintext
|
; NO BARS
|
||
|
; =======
|
||
|
|
||
|
;;File: no-decoration.gwm -- no bars deco
|
||
|
;;Author: colas@mirsa.inria.fr (Colas NAHABOO) -- Bull Research FRANCE
|
||
|
;;Revision: 1.4 -- July 27 1989
|
||
|
;;State: Exp
|
||
|
;;GWM Version: 1.4
|
||
|
|
||
|
(defname 'no-decoration.data screen.)
|
||
|
(defname 'simple-window-decoration screen.)
|
||
|
(defname 'simple-icon-decoration screen.)
|
||
|
|
||
|
(for screen (list-of-screens)
|
||
|
(: simple-window-decoration
|
||
|
(: no-decoration.data
|
||
|
(with (fsm window-fsm
|
||
|
borderwidth 0
|
||
|
inner-borderwidth any
|
||
|
menu window-pop)
|
||
|
(window-make () () () () ()))))
|
||
|
(: simple-icon-decoration (simple-icon))))
|
||
|
|
||
|
(defun no-decoration () no-decoration.data)
|
||
|
|