#BUGFIX by cg
class: VariablePanel
comment/format in: #redraw
changed: #redrawHandlesFrom:to:
--- 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