equal
deleted
inserted
replaced
35 |
35 |
36 ! |
36 ! |
37 |
37 |
38 documentation |
38 documentation |
39 " |
39 " |
40 Shows a banner popUp; |
40 Shows a banner popUp (splash window); |
41 can be used at startup to make wait-time a bit more interesting. |
41 can be used at startup to make wait-time a bit more interesting. |
42 See use in smalltalk.rc / showBanner.rc / hideBanner.rc. |
42 See use in smalltalk.rc / showBanner.rc / hideBanner.rc. |
43 |
43 |
44 [author:] |
44 [author:] |
45 Claus Gittinger |
45 Claus Gittinger |
|
46 " |
|
47 |
|
48 ! |
|
49 |
|
50 examples |
|
51 " |
|
52 [exBegin] |
|
53 |img bannerView| |
|
54 |
|
55 img := Image fromFile:'banner1.xpm'. |
|
56 bannerView := PopUpBanner forImage:img. |
|
57 bannerView showCentered. |
|
58 |
|
59 Delay waitForSeconds:2. |
|
60 bannerView destroy |
|
61 [exEnd] |
46 " |
62 " |
47 |
63 |
48 ! ! |
64 ! ! |
49 |
65 |
50 !PopUpBanner class methodsFor:'instance creation'! |
66 !PopUpBanner class methodsFor:'instance creation'! |
52 forImage:anImage |
68 forImage:anImage |
53 |v| |
69 |v| |
54 |
70 |
55 v := self new. |
71 v := self new. |
56 v viewBackground:anImage. |
72 v viewBackground:anImage. |
|
73 v cursor:Cursor wait. |
57 ^ v |
74 ^ v |
58 ! ! |
75 ! ! |
59 |
76 |
60 !PopUpBanner methodsFor:'activation'! |
77 !PopUpBanner methodsFor:'activation'! |
61 |
78 |
80 ! ! |
97 ! ! |
81 |
98 |
82 !PopUpBanner class methodsFor:'documentation'! |
99 !PopUpBanner class methodsFor:'documentation'! |
83 |
100 |
84 version |
101 version |
85 ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.3 2000-01-26 14:50:59 cg Exp $' |
102 ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.4 2000-02-07 16:07:31 cg Exp $' |
86 ! ! |
103 ! ! |