--- a/VariablePanelController.st	Wed Jan 17 13:12:51 1996 +0100
+++ b/VariablePanelController.st	Thu Jan 18 01:09:26 1996 +0100
@@ -11,7 +11,7 @@
 "
 
 Controller subclass:#VariablePanelController
-	 instanceVariableNames:'movedHandle prevPos startPos isHorizontal'
+	 instanceVariableNames:'movedHandle prevPos startPos'
 	 classVariableNames:''
 	 poolDictionaries:''
 	 category:'Interface-Support-Controllers'
@@ -62,7 +62,7 @@
     subViews := view subViews.
     barHeight := view barHeight.
 
-    isHorizontal ifTrue:[
+    view orientation ~~ #vertical ifTrue:[
 	pos := bx - startPos.
 	"
 	 the two lines below will not allow resizing down to zero
@@ -113,7 +113,7 @@
 	]
     ].
 
-    isHorizontal ifTrue:[
+     view orientation ~~ #vertical ifTrue:[
 	oldHx := prevPos. 
 	newHx := pos.
 	oldHy := newHy := 0.
@@ -143,7 +143,7 @@
 	view handleOriginsDo:[:hPoint |
 	    |hx hy|
 
-	    isHorizontal ifTrue:[
+	    view orientation ~~ #vertical ifTrue:[
 		hx := hPoint x.
 		(bx between:hx and:(hx + barHeight)) ifTrue:[
 		    movedHandle := handle.
@@ -194,7 +194,7 @@
 
 	"undo the last invert"
 
-	isHorizontal ifTrue:[
+	view orientation ~~ #vertical ifTrue:[
 	    view invertHandleBarAtX:prevPos y:0. 
 	] ifFalse:[
 	    view invertHandleBarAtX:0 y:prevPos. 
@@ -211,7 +211,7 @@
 	belowView := subViews at:belowIndex.
 
 	relCornerAbove := aboveView relativeCorner.
-	isHorizontal ifTrue:[
+	view orientation ~~ #vertical ifTrue:[
 	    oldPos := relCornerAbove x.
 	    newPos := (prevPos + startPos / view width) asFloat.
 	    aboveView relativeCorner:newPos @ relCornerAbove y.
@@ -241,5 +241,5 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.8 1995-11-23 17:46:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.9 1996-01-18 00:09:22 cg Exp $'
 ! !