--- a/PopUpBanner.st	Fri Mar 21 17:55:03 2003 +0100
+++ b/PopUpBanner.st	Fri Mar 21 18:07:42 2003 +0100
@@ -106,21 +106,21 @@
 !PopUpBanner methodsFor:'deactivation'!
 
 destroy
-    |screen center r1 r2|
-
     "/ 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.
+    "/ therefore, Delay does not work, therefore zoom:to:duratio: does not work. 
+    "/ - sigh.
    
+"/    |screen center r1 r2|
+"/
 "/    screen := self device.
 "/    center := self center.
 "/    r1 := (center corner:center) insetBy:-5.
 "/    r2 := self origin corner:self corner.
+
     super destroy.
 
 "/    screen zoom:r2 to:r1 duration:300.
-
 ! !
 
 !PopUpBanner methodsFor:'event handling'!
@@ -140,5 +140,5 @@
 !PopUpBanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.8 2001-06-25 07:44:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.9 2003-03-21 17:07:42 cg Exp $'
 ! !