sawfish r4279 - in branches/sawfish-experimental: . lisp/sawfish/wm lisp/sawfish/wm/util

[jkozicki svn gnome org]

Author: jkozicki
Date: Wed Sep 17 15:54:37 2008
New Revision: 4279
URL: http://svn.gnome.org/viewvc/sawfish?rev=4279&view=rev

Log:
re-expose viewport-dimensions by Christopher Bratusek. Options for
viewport-dimensions and the uniconify-to-current-viewport are now in sawfish-ui
configurator.



Modified:
   branches/sawfish-experimental/ChangeLog
   branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl
   branches/sawfish-experimental/lisp/sawfish/wm/viewport.jl

Modified: branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl	Wed Sep 17 15:54:37 2008
@@ -96,7 +96,7 @@
 
   (mapc (lambda (x)
 	  (put x 'custom-obsolete t))
-	'(viewport-columns viewport-rows viewport-dimensions
+	'(viewport-columns viewport-rows
 	  preallocated-workspaces iconify-whole-group
 	  uniconify-whole-group always-update-frames
 	  cycle-disable-auto-raise cycle-show-window-icons

Modified: branches/sawfish-experimental/lisp/sawfish/wm/viewport.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/viewport.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/viewport.jl	Wed Sep 17 15:54:37 2008
@@ -50,11 +50,16 @@
   ;; the screen dimensions. E.g. moving to the left moves all windows one
   ;; screen-width to the right. 
 
-  (defvar viewport-dimensions '(1 . 1)
-    "Size of each virtual workspace.")
-
-  (defvar uniconify-to-current-viewport t
-    "Windows uniconify to the current viewport.")
+(defcustom viewport-dimensions '(1 . 1)
+  "Number of columns and rows in each virtual workspace: \\w"
+  :group workspace
+  :type (pair (number 1) (number 1))
+  :after-set (lambda () (viewport-size-changed)))
+
+  (defcustom uniconify-to-current-viewport t
+    "Windows uniconify to the current viewport."
+    :type boolean
+    :group min-max)                     ; iconify)
   
   (defcustom scroll-viewport-steps 5
     "Number of steps in which to scroll between viewports (less steps = faster scrolling)."