VariablePanelController.st
changeset 6571 1ad83c609698
parent 6520 bfddffa53838
--- 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