(setq font (font-make "-*-times-bold-r-*-*-*-140-*"))

(: move-grid-style 1)
(: resize-grid-style 1)

(setq deltabutton.delta 2)
(setq pushby 1)
(setq iconpad 5)
(setq borderwidth 0)

(setq white (color-make "white"))
(setq black (color-make "black"))

(load "utils")
(load "placements")
(load "deltabutton")
(load "uwm-utils")
(load "uwm-behavior")
(load "uwm-icon")

;;; It doesn't work to set background 

(meter 'font font 'horizontal-margin iconpad 
	'vertical-margin iconpad 'borderwidth 2
	'borderpixel white)

(setq opening '(progn))
(setq closing '(progn))

(defun describe-window ()
  (list
   (with (opening '(user-positioning t) fsm window-fsm)
	 (window-make () () () () ()))
   (uwm-icon)))

(defun describe-screen ()
  (with (fsm root-fsm opening '(bell))
	(window-make () () () () ())))