--- a/PopUpBanner.st Mon Feb 07 17:15:43 2000 +0100
+++ b/PopUpBanner.st Mon Feb 07 17:20:45 2000 +0100
@@ -81,10 +81,14 @@
|center r1 r2|
- center := self center.
- r1 := (center corner:center) insetBy:-5.
- r2 := self origin corner:self corner.
- self device zoom:r1 to:r2 duration:300.
+ "/ sorry - zooming does not work during early initialization;
+ "/ REASON: at smalltalk.rc reading time, scheduling does not yet take place;
+ "/ therefore, Delaydoes not work.
+ "/ sigh.
+"/ center := self center.
+"/ r1 := (center corner:center) insetBy:-5.
+"/ r2 := self origin corner:self corner.
+"/ self device zoom:r1 to:r2 duration:300.
self realize
@@ -102,13 +106,18 @@
destroy
|screen center r1 r2|
- screen := self device.
- center := self center.
- r1 := (center corner:center) insetBy:-5.
- r2 := self origin corner:self corner.
+ "/ sorry - zooming does not work during early initialization;
+ "/ REASON: at smalltalk.rc reading time, scheduling does not yet take place;
+ "/ therefore, Delaydoes not work.
+ "/ sigh.
+
+"/ screen := self device.
+"/ center := self center.
+"/ r1 := (center corner:center) insetBy:-5.
+"/ r2 := self origin corner:self corner.
super destroy.
- self device zoom:r2 to:r1 duration:300.
+"/ screen zoom:r2 to:r1 duration:300.
! !
@@ -121,5 +130,5 @@
!PopUpBanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.5 2000-02-07 16:15:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.6 2000-02-07 16:20:45 cg Exp $'
! !