--- a/VariablePanel.st	Fri Mar 07 16:24:21 1997 +0100
+++ b/VariablePanel.st	Fri Mar 07 16:33:26 1997 +0100
@@ -852,7 +852,7 @@
                 self displayLineFromX:mar y:y toX:(width - mar) y:y.
                     "uncomment the -1 if you dont like the notch at the right end"
                     "                            VVV"
-                self displayLineFromX:width-1 y:hy" "-1" " toX:width-1 y:(hy + knobHeight - 1).
+                self displayLineFromX:width-1 y:hy" "-1" " toX:width-1 y:(hy + knobHeight - 1 - 1).
             ].
         ] ifFalse:[
             y := hy + barHeightInt - 1.
@@ -953,7 +953,7 @@
         ]
     ].
 
-    "Modified: 4.3.1997 / 18:18:10 / cg"
+    "Modified: 7.3.1997 / 15:40:02 / cg"
 !
 
 drawHandleFormAtX:hx y:hy
@@ -1453,5 +1453,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.24 1997-03-04 17:18:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.25 1997-03-07 15:33:26 cg Exp $'
 ! !