x11-wm/sawfish/files/sawfish-1.3-shading.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

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))