--- lisp/sawfish/wm/ext/edge-flip.jl	2002-04-21 23:20:32.000000000 -0700
+++ lisp/sawfish/wm/ext/edge-flip2.jl	2002-07-31 01:07:22.000000000 -0700
@@ -34,7 +34,8 @@
 	  sawfish.wm.events
 	  sawfish.wm.viewport
 	  sawfish.wm.workspace
-	  sawfish.wm.commands.move-resize)
+	  sawfish.wm.commands.move-resize
+	  sawfish.wm.ext.workspace-grid)
 
   (define-structure-alias edge-flip sawfish.wm.ext.edge-flip)
 
@@ -124,16 +125,20 @@
 	    (warp-cursor (car ptr) (cdr ptr)))
 	(let ((orig current-workspace))
 	  (cond ((eq edge 'left)
-		 (previous-workspace 1)
+		 ;(previous-workspace 1)
+		 (view-workspace-left)
 		 (rplaca ptr (- (screen-width) 2)))
 		((eq edge 'right)
-		 (next-workspace 1)
+		 ;(next-workspace 1)
+		 (view-workspace-right)
 		 (rplaca ptr 1))
 		((eq edge 'top)
-		 (previous-workspace 1)
+		 ;(previous-workspace 1)
+		 (view-workspace-up)
 		 (rplacd ptr (- (screen-height) 2)))
 		((eq edge 'bottom)
-		 (next-workspace 1)
+		 ;(next-workspace 1)
+		 (view-workspace-down)
 		 (rplacd ptr 1)))
 	  (unless (= current-workspace orig)
 	    (warp-cursor (car ptr) (cdr ptr)))))
