#QUALITY by stefan
class: VariablePanelController
changed: #doResize
thisContext restart -> thisContext methodHome restart
--- a/VariablePanelController.st Wed Mar 27 22:59:10 2019 +0100
+++ b/VariablePanelController.st Thu Apr 04 14:15:17 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
@@ -432,8 +434,8 @@
!
doResize
- "perform the resize
- "
+ "perform the resize"
+
|aboveView belowView aboveIndex belowIndex newRelPos subViews isVertical
newCorner newOrigin halfBarHg aboveInvisible belowInvisible|
@@ -465,7 +467,7 @@
newRelPos := (prevPos / view height) asFloat.
aboveView relativeCorner isNil ifTrue:[
view setupSubviewOrigins.
- thisContext restart.
+ thisContext methodHome restart.
].
newCorner := aboveView relativeCorner x @ newRelPos.
newOrigin := belowView relativeOrigin x @ newRelPos.
@@ -502,6 +504,7 @@
prevPos := prevPos + halfBarHg.
"Modified: / 01-02-2019 / 20:51:56 / Claus Gittinger"
+ "Modified: / 04-04-2019 / 14:13:39 / Stefan Vogel"
!
doSnapPressedX:x y:y