# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 949940445 -3600
# Node ID 6c5fdafe90a5abd146eab407f987671c78ff3c2f
# Parent  9635acd44db9963b9f23b0f9f68f89d1cfef11e1
*** empty log message ***

diff -r 9635acd44db9 -r 6c5fdafe90a5 PopUpBanner.st
--- 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 $'
 ! !