diff -r -u -x '*.jlc' -x .cvsignore sawfish-1.3_orig/lisp/sawfish/wm/frames.jl sawfish-1.3/lisp/sawfish/wm/frames.jl
--- sawfish-1.3_orig/lisp/sawfish/wm/frames.jl	2002-10-20 01:07:50.000000000 -0700
+++ sawfish-1.3/lisp/sawfish/wm/frames.jl	2003-10-20 12:46:41.000000000 -0700
@@ -155,8 +155,11 @@
       (icon . shaped-transient)
       (dock . icon)
       (utility . transient)
+      (shaded-utility . shaded-transient)
       (toolbar . utility)
+      (shaded-toolbar . shaded-utility)
       (menu . utility)
+      (shaded-menu . shaded-utility)
       (splash . unframed))
     "Frame type fallbacks.")
 
diff -r -u -x '*.jlc' -x .cvsignore sawfish-1.3_orig/lisp/sawfish/wm/state/shading.jl sawfish-1.3/lisp/sawfish/wm/state/shading.jl
--- sawfish-1.3_orig/lisp/sawfish/wm/state/shading.jl	2003-10-20 04:27:06.000000000 -0700
+++ sawfish-1.3/lisp/sawfish/wm/state/shading.jl	2003-10-20 04:26:28.000000000 -0700
@@ -83,6 +83,9 @@
 	(case type
 	  ((default shaped) 'shaded)
 	  ((transient shaped-transient) 'shaded-transient)
+	  ((utility shaped-utility) 'shaded-utility)
+	  ((menu shaped-menu) 'shaded-menu)
+	  ((toolbar shaped-toolbar) 'shaded-toolbar)
 	  (t type))
       type))