equal
deleted
inserted
replaced
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 |
12 |
13 |
13 |
|
14 |
|
15 "{ Package: 'stx:libwidg' }" |
14 |
16 |
15 DialogBox subclass:#InfoBox |
17 DialogBox subclass:#InfoBox |
16 instanceVariableNames:'formLabel textLabel' |
18 instanceVariableNames:'formLabel textLabel' |
17 classVariableNames:'InfoBitmap' |
19 classVariableNames:'InfoBitmap' |
18 poolDictionaries:'' |
20 poolDictionaries:'' |
128 |
130 |
129 |
131 |
130 changing the icon: |
132 changing the icon: |
131 |
133 |
132 [exBegin] |
134 [exBegin] |
133 |box| |
135 |box| |
134 |
136 |
135 box := InfoBox title:'hello world '. |
137 box := InfoBox title:'hello world '. |
136 box image:(Image fromFile:'bitmaps/SBrowser.xbm'). |
138 box image:(Image fromFile:'bitmaps/SBrowser.xbm' inPackage:'stx:libtool'). |
137 box okText:'wow'. |
139 box okText:'wow'. |
138 box open |
140 box open |
139 [exEnd] |
141 [exEnd] |
140 |
142 |
141 or even: |
143 or even: |
142 [exBegin] |
144 [exBegin] |
143 |box| |
145 |box| |
144 |
146 |
145 box := InfoBox title:'hello garfield '. |
147 box := InfoBox title:'hello garfield '. |
146 box image:((Image fromFile:'bitmaps/garfield.gif') magnifiedTo:200@100). |
148 box image:((Image fromFile:'garfield.gif' inPackage:'stx:goodies/bitmaps/gifImages') magnifiedTo:200@100). |
147 box okText:'wow'. |
149 box okText:'wow'. |
148 box open |
150 box open |
149 [exEnd] |
151 [exEnd] |
150 |
152 |
151 |
153 |
153 keep the box around for reuse (since the image magnification takes some time). |
155 keep the box around for reuse (since the image magnification takes some time). |
154 [exBegin] |
156 [exBegin] |
155 |box| |
157 |box| |
156 |
158 |
157 box := InfoBox title:'hello garfield '. |
159 box := InfoBox title:'hello garfield '. |
158 box image:((Image fromFile:'bitmaps/garfield.gif') magnifiedTo:200@100). |
160 box image:((Image fromFile:'garfield.gif' inPackage:'stx:goodies/bitmaps/gifImages') magnifiedTo:200@100). |
159 box okText:'wow'. |
161 box okText:'wow'. |
160 box open. |
162 box open. |
161 |
163 |
162 box title:'hello again'. |
164 box title:'hello again'. |
163 box open |
165 box open |
367 ! ! |
369 ! ! |
368 |
370 |
369 !InfoBox class methodsFor:'documentation'! |
371 !InfoBox class methodsFor:'documentation'! |
370 |
372 |
371 version |
373 version |
372 ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.36 1999-12-09 11:13:43 cg Exp $' |
374 ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.37 2001-05-17 12:17:40 cg Exp $' |
373 ! ! |
375 ! ! |