From 6747a451f4e7a63d3491b7d348c69acaf753441e Mon Sep 17 00:00:00 2001
From: Dana Jansens <danakj@orodu.net>
Date: Tue, 23 Jul 2002 04:29:57 +0000
Subject: [PATCH] add configmenu option for workspace warping

---
 nls/C/Configmenu.m |  2 ++
 src/Configmenu.cc  | 16 ++++++++++++----
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/nls/C/Configmenu.m b/nls/C/Configmenu.m
index e5d24d4e..97a8fa27 100644
--- a/nls/C/Configmenu.m
+++ b/nls/C/Configmenu.m
@@ -22,6 +22,8 @@ $ #WindowToWindowSnap
 # Window-To-Window Snapping
 $ #WindowCornerSnap
 # Window Corner Snapping
+$ #WorkspaceWarping
+# Workspace Warping
 $ #DisableBindings
 # Disable Mouse with Scroll Lock
 $ #HideToolbar
diff --git a/src/Configmenu.cc b/src/Configmenu.cc
index 13266d36..37967092 100644
--- a/src/Configmenu.cc
+++ b/src/Configmenu.cc
@@ -64,10 +64,12 @@ Configmenu::Configmenu(BScreen *scr) : Basemenu(scr) {
               "Window-To-Window Snapping"), 6);
   insert(i18n(ConfigmenuSet, ConfigmenuWindowCornerSnap,
               "Window Corner Snapping"), 7);
+  insert(i18n(ConfigmenuSet, ConfigmenuWorkspaceWarping,
+              "Workspace Warping"), 8);
   insert(i18n(ConfigmenuSet, ConfigmenuDisableBindings,
-              "Disable Mouse with Scroll Lock"), 8);
+              "Disable Mouse with Scroll Lock"), 9);
   insert(i18n(ConfigmenuSet, ConfigmenuHideToolbar,
-              "Hide Toolbar"), 9);
+              "Hide Toolbar"), 10);
   update();
   setValues();
 }
@@ -88,6 +90,7 @@ void Configmenu::setValues(void) {
   setItemSelected(index, getScreen()->getWindowCornerSnap());
   setItemEnabled(index++, getScreen()->getWindowToWindowSnap());
   
+  setItemSelected(index++, getScreen()->doWorkspaceWarping());
   setItemSelected(index++, getScreen()->allowScrollLock());
   setItemSelected(index++, getScreen()->doHideToolbar());
 }
@@ -148,13 +151,18 @@ void Configmenu::itemSelected(int button, unsigned int index) {
     setItemSelected(index, getScreen()->getWindowCornerSnap());
     break;
 
-  case 8: // disable mouse bindings with Scroll Lock
+  case 8: // workspace wrapping
+    getScreen()->saveWorkspaceWarping(! getScreen()->doWorkspaceWarping());
+    setItemSelected(index, getScreen()->doWorkspaceWarping());
+    break;
+
+  case 9: // disable mouse bindings with Scroll Lock
     getScreen()->saveAllowScrollLock(! getScreen()->allowScrollLock());
     setItemSelected(index, getScreen()->allowScrollLock());
     getScreen()->reconfigure();
     break;
 
-  case 9: // hide toolbar
+  case 10: // hide toolbar
     getScreen()->saveHideToolbar(! getScreen()->doHideToolbar());
     setItemSelected(index, getScreen()->doHideToolbar());
     break;
-- 
2.45.2