[sawfish] Added some funcs to gaol.

[Christopher Bratusek <chrisb src gnome org>]

commit deb70e15ced5863552cab1ac4e67b2aaf1a08389
Author: Teika kazura <teika lavabit com>
Date:   Fri Feb 11 15:50:51 2011 +0900

    Added some funcs to gaol.

 lisp/sawfish/wm/commands.jl      |   14 +++++++++++++-
 lisp/sawfish/wm/state/shading.jl |    6 +++++-
 lisp/sawfish/wm/tabs/tabgroup.jl |    6 +++++-
 lisp/sawfish/wm/windows.jl       |    3 ++-
 4 files changed, 25 insertions(+), 4 deletions(-)
---
diff --git a/lisp/sawfish/wm/commands.jl b/lisp/sawfish/wm/commands.jl
index fd74adb..a6d9194 100644
--- a/lisp/sawfish/wm/commands.jl
+++ b/lisp/sawfish/wm/commands.jl
@@ -48,6 +48,7 @@
 	    for more.
 	  |#
 	  sawfish.wm.misc
+	  sawfish.wm.gaol
 	  sawfish.wm.events
 	  sawfish.wm.windows.subrs
 	  sawfish.wm.util.with-output)
@@ -99,6 +100,15 @@ interactive specification and a custom-type specification respectively)."
     (setter name fun)
     (apply apply-command-keys name keys))
 
+  (define (define-command-gaol name fun . keys)
+    "Version of `define-commnad' which can be used in gaol.
+You can't overriee an existing command."
+    (when (and (not (boundp name))
+	       (functionp fun))
+      (make-variable-special name)
+      (apply define-command name fun keys)))
+  (gaol-add define-command-gaol)
+  
   (define (autoload-command name module . keys)
     "Record that loading the module called MODULE (a symbol) will provde a
 command called NAME (optionally whose arguments have custom-type TYPE)."
@@ -418,4 +428,6 @@ command for the `system' function."
 
   (define (define-command-to-screen name fun #!rest keys)
     (apply define-command name (lambda args (with-output-to-screen
-                                              (apply fun args))) keys)))
+                                              (apply fun args))) keys))
+
+  )
diff --git a/lisp/sawfish/wm/state/shading.jl b/lisp/sawfish/wm/state/shading.jl
index 9053e6a..cd32590 100644
--- a/lisp/sawfish/wm/state/shading.jl
+++ b/lisp/sawfish/wm/state/shading.jl
@@ -31,6 +31,7 @@
 	  sawfish.wm.custom
 	  sawfish.wm.commands
 	  sawfish.wm.frames
+	  sawfish.wm.gaol
 	  sawfish.wm.session.init
 	  sawfish.wm.workspace
 	  sawfish.wm.util.stacking
@@ -109,4 +110,7 @@ state."
   (sm-add-saved-properties 'shaded)
   (add-swapped-properties 'shaded)
 
-  (add-window-menu-toggle (_ "S_haded") 'toggle-window-shaded window-shaded-p))
+  (add-window-menu-toggle (_ "S_haded") 'toggle-window-shaded window-shaded-p)
+
+  (gaol-add unshade-window)
+  )
diff --git a/lisp/sawfish/wm/tabs/tabgroup.jl b/lisp/sawfish/wm/tabs/tabgroup.jl
index 389daa9..4838830 100644
--- a/lisp/sawfish/wm/tabs/tabgroup.jl
+++ b/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -34,6 +34,7 @@
     (open rep
           rep.system
           rep.data.records
+	  sawfish.wm.gaol
           sawfish.wm.misc
           sawfish.wm.custom
           sawfish.wm.commands
@@ -350,4 +351,7 @@ fixed-position."
     (add-hook 'iconify-window-hook (lambda (win) (tab-refresh-group win 'iconify)))
     (add-hook 'uniconify-window-hook (lambda (win) (tab-refresh-group win 'uniconify)))
     (add-hook 'add-to-workspace-hook (lambda (win) (tab-refresh-group win 'frame)))
-    (add-hook 'destroy-notify-hook tab-delete-window-from-tab-groups)))
+    (add-hook 'destroy-notify-hook tab-delete-window-from-tab-groups))
+
+  (gaol-add tab-refresh-group)
+  )
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index 0a1d959..12f9ba4 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -591,4 +591,5 @@ STATES has been changed. STATES may also be a single symbol."
 	    window-transient-p window-urgent-p window-shaped-p window-visible-p
 	    window-framed-p window-id window-group-id window-size-hints
 	    call-window-hook input-focus window-icon-image map-windows
-	    filter-windows))
+	    filter-windows current-event-window window-put
+	    move-window-to resize-window-to))