[sawfish] export setters for edge-flip/raise-tabs-on-hover/display-workspace-name + updated OPTIONS accordingl

[Christopher Bratusek <chrisb src gnome org>]

commit c0cf8a84414abef589ef1c4dc5fca801d6b17b6d
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Tue Oct 13 20:50:17 2009 +0200

    export setters for edge-flip/raise-tabs-on-hover/display-workspace-name + updated OPTIONS accordingly

 ChangeLog                        |   10 ++++++++++
 OPTIONS                          |    6 ++++++
 lisp/sawfish/wm/ext/edge-flip.jl |    3 ++-
 lisp/sawfish/wm/tabs/tab.jl      |    3 ++-
 lisp/sawfish/wm/workspace.jl     |    1 +
 5 files changed, 21 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 1343bef..f70bfc2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2009-10-13  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/tabs/tab.jl
+	* lisp/sawfish/wm/ext/edge-flip.jl
+	* lisp/sawfish/wm/workspace.jl: export setter functions
+					- raise-tabs-on-hover-setter
+					- edge-flip-enable
+					- display-ws-name-setter
+
+	* OPTIONS: updated
+
 2009-10-09  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/menus.jl: added "Reload Appsmenu" entry
 
diff --git a/OPTIONS b/OPTIONS
index 222ac37..476e33f 100644
--- a/OPTIONS
+++ b/OPTIONS
@@ -323,6 +323,8 @@
 
 ;;  (define-special-variable edge-flip-enabled nil
 ;;    "Select the next desktop when the pointer hits screen edge.")
+;;  ;; need to call this function to manually enable edge-flip:
+;;  (edge-flip-enable)
 
 ;;  (define-special-variable edge-flip-type 'workspace
 ;;    "Control what hitting the screen edge selects, workspace or viewport.")
@@ -605,6 +607,8 @@
 
 ;; (define-special-variable tab-raise-on-hover nil
 ;;   "Raise Tabs on Hover")    
+;; ;; need to call this function to make tab-raise-on-hover work
+;; (raise-tabs-on-hover-setter)
 
 ;; shrink-yank options (in grow-pack.jl)
 
@@ -661,6 +665,8 @@
 
 ;; (define-special-variable display-ws-name-on-switch nil
 ;;   "Wether to display workspace name upon switch")
+;;  ;; need to call this function to make display-ws-name work
+;; (display-ws-name-setter)
 
 ;; (define-special-variable display-ws-name-timeout 3
 ;;   "How long to display workspace name")
diff --git a/lisp/sawfish/wm/ext/edge-flip.jl b/lisp/sawfish/wm/ext/edge-flip.jl
index 7b973cf..1017eaf 100644
--- a/lisp/sawfish/wm/ext/edge-flip.jl
+++ b/lisp/sawfish/wm/ext/edge-flip.jl
@@ -22,7 +22,8 @@
 
     (export edge-flip-for-edge
 	    edge-flip-synthesize
-	    edge-flip-while-moving)
+	    edge-flip-while-moving
+	    edge-flip-enable)
 
     (open rep
 	  rep.system
diff --git a/lisp/sawfish/wm/tabs/tab.jl b/lisp/sawfish/wm/tabs/tab.jl
index 0fd60a0..5d66a42 100644
--- a/lisp/sawfish/wm/tabs/tab.jl
+++ b/lisp/sawfish/wm/tabs/tab.jl
@@ -20,7 +20,8 @@
 
 (define-structure sawfish.wm.tabs.tab
 
-    (export tab-add-to-group)
+    (export tab-add-to-group
+            raise-tabs-on-hover-setter)
 
     (open rep
           rep.system
diff --git a/lisp/sawfish/wm/workspace.jl b/lisp/sawfish/wm/workspace.jl
index 7604b1a..55f0d46 100644
--- a/lisp/sawfish/wm/workspace.jl
+++ b/lisp/sawfish/wm/workspace.jl
@@ -102,6 +102,7 @@
 	    hide-desktop
 	    showing-desktop-p
 	    display-workspace-name
+	    display-ws-name-setter
 
 	    ;; XXX rename these..?
 	    ws-remove-window