[sawfish] make Grow Pack Shrink Yank subgroup of Move Resize

[Christopher Bratusek <chrisb src gnome org>]

commit 4da5ab3c335ac8c9e4d0192d8bfe11d646813dd4
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Thu Oct 15 18:32:59 2009 +0200

    make Grow Pack Shrink Yank subgroup of Move Resize

 ChangeLog                             |    4 ++++
 lisp/sawfish/wm/autoload.jl           |    2 +-
 lisp/sawfish/wm/commands/grow-pack.jl |   16 ++++++++--------
 3 files changed, 13 insertions(+), 9 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index f70bfc2..4dc686a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-10-15  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/autoload.jl
+	* lisp/sawfish/wm/commands/grow-pack.jl: make Grow Pack Shrink Yank subgroup of Move Resize
+
 2009-10-13  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/tabs/tab.jl
 	* lisp/sawfish/wm/ext/edge-flip.jl
diff --git a/lisp/sawfish/wm/autoload.jl b/lisp/sawfish/wm/autoload.jl
index b8fe775..2f1131a 100644
--- a/lisp/sawfish/wm/autoload.jl
+++ b/lisp/sawfish/wm/autoload.jl
@@ -125,7 +125,7 @@
 (autoload-command 'slide-group-right 'sawfish.wm.commands.slide-window)
 (autoload-command 'slide-group-up 'sawfish.wm.commands.slide-window)
 (autoload-command 'slide-group-down 'sawfish.wm.commands.slide-window)
-(defgroup gpsy "Grow, Pack, Shrink & Yank" :require sawfish.wm.commands.grow-pack)
+(defgroup gpsy "Grow, Pack, Shrink & Yank" :group move :require sawfish.wm.commands.grow-pack)
 (defgroup cycle "Window Cycling" :group focus :require sawfish.wm.commands.x-cycle)
 (defgroup tabs "Tabs" :require sawfish.wm.tabs.tab)
 (autoload-command 'cycle-windows 'sawfish.wm.commands.x-cycle)
diff --git a/lisp/sawfish/wm/commands/grow-pack.jl b/lisp/sawfish/wm/commands/grow-pack.jl
index 632bd47..8a6b64f 100644
--- a/lisp/sawfish/wm/commands/grow-pack.jl
+++ b/lisp/sawfish/wm/commands/grow-pack.jl
@@ -53,42 +53,42 @@
 
 ;;; Customization options.
 
-  (defgroup gpsy "Grow, Pack, Shrink & Yank")
+  (defgroup gpsy "Grow, Pack, Shrink & Yank" :group move)
 
   (defcustom grow-is-maximize t
     "Whether growing is considered to be maximization."
     :type boolean
-    :group gpsy)
+    :group (move gpsy))
 
   (defcustom pack-warp-pointer 'maybe
     "Whether and how to move the pointer."
     :type (choice always maybe never)
-    :group gpsy)
+    :group (move gpsy))
 
   (defcustom grow-pack-bump-obscured ()
     "Whether to bump into fully obscured windows."
     :type boolean
-    :group gpsy)
+    :group (move gpsy))
 
   (defcustom grow-pack-bump-other-depth 'always
     "Whether to bump into windows on a different depth."
     :type (choice always maybe never)
-    :group gpsy)
+    :group (move gpsy))
 
   (defcustom grow-pack-bump-ignored t
     "Whether to bump into ignored windows."
     :type boolean
-    :group gpsy)
+    :group (move gpsy))
 
   (defcustom shrink-window-minimum-size 10
     "The minimum height or width to which a window may be shrunk."
     :type number
-    :group gpsy)
+    :group (move gpsy))
 
   (defcustom yank-window-minimum-visible 10
     "The minimum amount of window left visible, if yanked over the edge."
     :type number
-    :group gpsy)
+    :group (move gpsy))
 
 ;;; Code: