; random hack window decoration

(: stipple (pixmap-make 2 2))
	  (with (foreground DeepSkyBlue)
		(draw-line stipple 0 0 0 0)
		(draw-line stipple 1 1 1 1))
(: my-win.fsm
   (fsm-make
    (state-make
     (on (user-event 'focus-in)
	 (: bordertile '()))
     (on (user-event 'focus-out)
	 (: bordertile stipple))
     window-behavior
     standard-behavior)))

(de my-win args
    (if (= window root-window)
	(trigger-error "Hey bonehead! (root deco attempted)"))
    (with args
	  (with (borderwidth (- inner-borderwidth)
			     inner-borderwidth 0
			     fsm my-win.fsm
			     bordertile stipple
			     grabs window-grabs)
		(window-make
		 () () () () ()))))