#QUALITY by stefan
authorStefan Vogel <sv@exept.de>
Thu, 04 Apr 2019 14:15:17 +0200
changeset 6571 1ad83c609698
parent 6570 32fbafd67a49
child 6572 9cec05d7dbff
#QUALITY by stefan class: VariablePanelController changed: #doResize thisContext restart -> thisContext methodHome restart
VariablePanelController.st
--- 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