--- a/VariablePanel.st	Mon Jul 15 18:43:19 2019 +0200
+++ b/VariablePanel.st	Mon Jul 15 20:00:30 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -1965,29 +1967,28 @@
         self redrawHandlesFrom:1 to:(self subViews size)
     ]
 
-    "Modified: 28.1.1997 / 17:54:15 / cg"
+    "Modified: / 28-01-1997 / 17:54:15 / cg"
+    "Modified: / 15-07-2019 / 19:45:23 / Claus Gittinger"
 !
 
 redrawHandlesFrom:start to:stop
     "redraw some handles and snaps"
 
     subViews size ~~ 0 ifTrue:[
-        self handleOriginsWithIndexFrom:start to:stop do:[:hPoint :hIndex |
-            |hx hy|
-
-            hx := hPoint x.
-            hy := hPoint y.
-            barLevel notNil ifTrue:[
-                self drawEdgesForX:0 y:hy width:width height:barHeight level:barLevel.
-            ].
-
-            "/ do not draw handle, if there is a snapper ...
-            self hasSnapHandle ifTrue:[
-showHandle ifTrue:[
-                self drawSnapAt:hIndex-1
-].
-            ] ifFalse:[
-                showHandle ifTrue:[
+        showHandle ifTrue:[
+            self handleOriginsWithIndexFrom:start to:stop do:[:hPoint :hIndex |
+                |hx hy|
+
+                hx := hPoint x.
+                hy := hPoint y.
+                barLevel notNil ifTrue:[
+                    self drawEdgesForX:0 y:hy width:width height:barHeight level:barLevel.
+                ].
+
+                "/ do not draw handle, if there is a snapper ...
+                self hasSnapHandle ifTrue:[
+                    self drawSnapAt:hIndex-1
+                ] ifFalse:[
                     self drawHandle:hIndex atX:hx y:hy.
                 ].
             ].
@@ -1995,7 +1996,7 @@
     ].
 
     "Modified: / 31-10-2010 / 12:43:33 / cg"
-    "Modified: / 22-10-2018 / 23:49:28 / Claus Gittinger"
+    "Modified: / 15-07-2019 / 19:47:28 / Claus Gittinger"
 !
 
 unlockRedraw