[sawfish/viewport] oh-oh merge of viewport branch was sub-optimal ... re-export setters (edge-flip/display-ws-name/rais



commit be895cef43f6a21ca44a1b69cfae21af66a4b756
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Thu Nov 12 19:28:01 2009 +0100

    oh-oh merge of viewport branch was sub-optimal ... re-export setters (edge-flip/display-ws-name/raise-tabs-on-hover)

 lisp/sawfish/wm/ext/edge-flip.jl |    3 ++-
 lisp/sawfish/wm/tabs/tab.jl      |    3 ++-
 lisp/sawfish/wm/workspace.jl     |    1 +
 3 files changed, 5 insertions(+), 2 deletions(-)
---
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



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]