PopUpBanner.st
changeset 4323 3dc16bb0b7db
parent 1772 cb41f5dbcdf4
--- a/PopUpBanner.st	Wed Jul 31 17:40:08 2019 +0200
+++ b/PopUpBanner.st	Thu Aug 01 01:52:38 2019 +0200
@@ -9,9 +9,9 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
+"{ Package: 'stx:libview2' }"
 
-"{ Package: 'stx:libview2' }"
+"{ NameSpace: Smalltalk }"
 
 PopUpView subclass:#PopUpBanner
 	instanceVariableNames:''
@@ -103,26 +103,6 @@
 
 ! !
 
-!PopUpBanner methodsFor:'deactivation'!
-
-destroy
-    "/ sorry - zooming does not work during early initialization;
-    "/ REASON: at smalltalk.rc reading time, scheduling does not yet take place;
-    "/ 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'!
 
 buttonPress:button x:x y:y
@@ -140,5 +120,6 @@
 !PopUpBanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.10 2003-05-07 15:18:41 cg Exp $'
+    ^ '$Header$'
 ! !
+