equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 "{ Package: 'stx:libview2' }" |
12 |
13 |
13 |
14 "{ NameSpace: Smalltalk }" |
14 "{ Package: 'stx:libview2' }" |
|
15 |
15 |
16 PopUpView subclass:#PopUpBanner |
16 PopUpView subclass:#PopUpBanner |
17 instanceVariableNames:'' |
17 instanceVariableNames:'' |
18 classVariableNames:'' |
18 classVariableNames:'' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
101 self showAt:((self device extent // 2) - (viewBackground extent // 2)) |
101 self showAt:((self device extent // 2) - (viewBackground extent // 2)) |
102 |
102 |
103 |
103 |
104 ! ! |
104 ! ! |
105 |
105 |
106 !PopUpBanner methodsFor:'deactivation'! |
|
107 |
|
108 destroy |
|
109 "/ sorry - zooming does not work during early initialization; |
|
110 "/ REASON: at smalltalk.rc reading time, scheduling does not yet take place; |
|
111 "/ therefore, Delay does not work, therefore zoom:to:duratio: does not work. |
|
112 "/ - sigh. |
|
113 |
|
114 "/ |screen center r1 r2| |
|
115 "/ |
|
116 "/ screen := self device. |
|
117 "/ center := self center. |
|
118 "/ r1 := (center corner:center) insetBy:-5. |
|
119 "/ r2 := self origin corner:self corner. |
|
120 |
|
121 super destroy. |
|
122 |
|
123 "/ screen zoom:r2 to:r1 duration:300. |
|
124 ! ! |
|
125 |
|
126 !PopUpBanner methodsFor:'event handling'! |
106 !PopUpBanner methodsFor:'event handling'! |
127 |
107 |
128 buttonPress:button x:x y:y |
108 buttonPress:button x:x y:y |
129 "destroy view when user clicks into" |
109 "destroy view when user clicks into" |
130 |
110 |
138 ! ! |
118 ! ! |
139 |
119 |
140 !PopUpBanner class methodsFor:'documentation'! |
120 !PopUpBanner class methodsFor:'documentation'! |
141 |
121 |
142 version |
122 version |
143 ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.10 2003-05-07 15:18:41 cg Exp $' |
123 ^ '$Header$' |
144 ! ! |
124 ! ! |
|
125 |