--- a/VariablePanel.st	Sun Aug 27 16:49:30 2000 +0200
+++ b/VariablePanel.st	Tue Aug 29 11:28:06 2000 +0200
@@ -16,7 +16,7 @@
 	instanceVariableNames:'barHeight barWidth separatingLine shadowForm lightForm showHandle
 		handlePosition handleColor handleStyle handleLevel noColor
 		trackLine redrawLocked orientation handleLabels knobHeight
-		realRelativeSizes snapAdornment snapHandlePosition'
+		realRelativeSizes snapAdornment'
 	classVariableNames:'DefaultShowHandle DefaultHandleStyle DefaultHandlePosition
 		DefaultTrackingLine DefaultSeparatingLine DefaultHandleColor
 		DefaultHandleLevel DefaultVCursor DefaultHCursor
@@ -903,7 +903,10 @@
      Normally, this is defined via styleSheet files, but this entry allows
      individual views to be manipulated."
 
-    handleLevel := aNumber
+    handleLevel := aNumber.
+    realized ifTrue:[
+        self invalidate
+    ]
 !
 
 handlePosition
@@ -917,7 +920,10 @@
      may be one of #left, #right or #center.
      If never set by the program, the position is controlled by the styleSheet."
 
-    handlePosition := aSymbol
+    handlePosition := aSymbol.
+    realized ifTrue:[
+        self invalidate
+    ]
 !
 
 handleShadowImage:shadowImage lightImage:lightImage
@@ -987,13 +993,16 @@
 showHandle:aBoolean
     "enabled/disable the handle-drawing"
 
-    showHandle := aBoolean
+    showHandle := aBoolean.
+    realized ifTrue:[
+        self invalidate
+    ]
 !
 
 snapHandlePosition
     "return the position of the snap-handle"
 
-    ^ snapHandlePosition
+    ^ self handlePosition. "/ ^ snapHandlePosition
 !
 
 snapHandlePosition:aSymbol
@@ -1001,7 +1010,12 @@
      may be one of #left, #right or #center.
      If never set by the program, the position is controlled by the styleSheet."
 
-    snapHandlePosition := aSymbol
+    self handlePosition:aSymbol.
+
+"/    snapHandlePosition := aSymbol.
+"/    realized ifTrue:[
+"/        self invalidate
+"/    ]
 !
 
 snapMode
@@ -1502,6 +1516,7 @@
     "redraw all of the handles"
 
     redrawLocked ~~ true ifTrue:[
+        self clear.
         self redrawHandlesFrom:1 to:(self subViews size)
     ]
 
@@ -1660,7 +1675,7 @@
     handleLevel := DefaultHandleLevel.
     showHandle := DefaultShowHandle.
     handlePosition := DefaultHandlePosition.
-    snapHandlePosition := DefaultSnapHandlePosition.
+    "/ snapHandlePosition := DefaultSnapHandlePosition.
     trackLine := DefaultTrackingLine.
     separatingLine := DefaultSeparatingLine.
 
@@ -2091,10 +2106,10 @@
     v2 := subViews at:anIndex + 1 ifAbsent:[^ nil].
     w  := snapAdornment at:#width ifAbsent:0.
 
-    snapHandlePosition == #left ifTrue:[
+    handlePosition "snapHandlePosition" == #left ifTrue:[
         snapX := snapY := margin. "/ ViewSpacing.
     ] ifFalse:[
-        snapHandlePosition == #right ifTrue:[
+        handlePosition "snapHandlePosition" == #right ifTrue:[
             snapX := width - w.
             snapY := height - w.
         ] ifFalse:[
@@ -2165,5 +2180,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.64 2000-08-27 14:49:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.65 2000-08-29 09:28:06 cg Exp $'
 ! !