--- 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$'
! !
+