diff -r 83bda4f64c02 -r 3dc16bb0b7db PopUpBanner.st --- 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$' ! ! +