SimpleView.st
changeset 9027 87ba2fa20daf
parent 9024 a075d9b7face
child 9039 eaf63a6d1168
--- a/SimpleView.st	Fri Mar 27 11:32:12 2020 +0100
+++ b/SimpleView.st	Tue Mar 31 12:41:38 2020 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -10005,10 +10003,11 @@
         Actually, this method is only valid for topViews;
         however, it is defined here to allow things like 'Button new realize'"
 
-    |subs|
+    |subs drawableId|
 
     realized ifFalse:[
-        self drawableId isNil ifTrue:[
+        drawableId := self drawableId.
+        drawableId isNil ifTrue:[
             "
              first time ?
              yes, realize (implies a map)
@@ -10022,18 +10021,18 @@
             aPoint isNil ifTrue:[
                 iconified ifTrue:[
                     device
-                        mapView:self id:self drawableId iconified:iconified
+                        mapView:self id:drawableId iconified:iconified
                         atX:nil y:nil
                         width:width height:height
                         minExtent:(self minExtent) maxExtent:(self maxExtent).
                 ] ifFalse:[
-                    device mapWindow:self drawableId.
+                    device mapWindow:drawableId.
                 ]
             ] ifFalse:[
                 left := aPoint x.
                 top := aPoint y.
                 device
-                    mapView:self id:self drawableId iconified:iconified
+                    mapView:self id:drawableId iconified:iconified
                     atX:left y:top
                     width:width height:height
                     minExtent:(self minExtent) maxExtent:(self maxExtent).
@@ -10061,6 +10060,7 @@
 
     "Created: / 24-07-1997 / 13:43:23 / cg"
     "Modified: / 18-03-2017 / 00:07:24 / stefan"
+    "Modified: / 31-03-2020 / 12:29:13 / Stefan Vogel"
 !
 
 mapIconified