--- 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