--- a/PopUpBanner.st	Mon Feb 07 17:07:31 2000 +0100
+++ b/PopUpBanner.st	Mon Feb 07 17:15:43 2000 +0100
@@ -79,6 +79,13 @@
 open
     "default for popUpBanners is to come up modeless"
 
+    |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.
+
     self realize
 
 !
@@ -90,6 +97,21 @@
 
 ! !
 
+!PopUpBanner methodsFor:'deactivation'!
+
+destroy
+    |screen center r1 r2|
+
+    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.
+
+! !
+
 !PopUpBanner methodsFor:'queries'!
 
 grabWhenMapped
@@ -99,5 +121,5 @@
 !PopUpBanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.4 2000-02-07 16:07:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.5 2000-02-07 16:15:43 cg Exp $'
 ! !