(setq uwm.icon-tile (pixmap-make 2 2))
(with (foreground white)
      (draw-line uwm.icon-tile 0 0 1 1))

(defun uwm-icon ()
  (setq uwm.icon-borderwidth 2)
  (cond ((window-icon-window)
	 (setq uwm.icon-plug (window-icon-window)))
	((window-icon-pixmap)
	 (setq uwm.icon-plug (plug-make (window-icon-pixmap))))
	(t 
	 (setq uwm.icon-plug
	       (with (borderwidth iconpad bordertile uwm.icon-tile)
		     (plug-make (active-label-make (window-icon-name))))))
	)
  (with (fsm icon-fsm
	     borderwidth uwm.icon-borderwidth)
	(window-make () () () () uwm.icon-plug)))