equal
deleted
inserted
replaced
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 |
12 |
|
13 "{ Package: 'stx:libwidg' }" |
|
14 |
13 InfoBox subclass:#WarningBox |
15 InfoBox subclass:#WarningBox |
14 instanceVariableNames:'' |
16 instanceVariableNames:'' |
15 classVariableNames:'WarnBitmap' |
17 classVariableNames:'WarnBitmap' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
17 category:'Views-DialogBoxes' |
19 category:'Views-DialogBoxes' |
122 [exBegin] |
124 [exBegin] |
123 |image aBox| |
125 |image aBox| |
124 |
126 |
125 aBox := WarningBox title:'Press ''OK'' to continue'. |
127 aBox := WarningBox title:'Press ''OK'' to continue'. |
126 aBox okText:'yes, continue'. |
128 aBox okText:'yes, continue'. |
127 image := Image fromFile:'bitmaps/SmalltalkX.xbm'. |
129 image := Image fromFile:'bitmaps/SmalltalkX.xbm' inPackage:'stx:libtool'. |
128 aBox form:image. |
130 aBox form:image. |
129 aBox showAtPointer. |
131 aBox showAtPointer. |
130 [exEnd] |
132 [exEnd] |
131 " |
133 " |
132 ! ! |
134 ! ! |
162 box := WarningBox title:'foo bar'. |
164 box := WarningBox title:'foo bar'. |
163 box showAtPointer. |
165 box showAtPointer. |
164 |
166 |
165 |box| |
167 |box| |
166 box := WarningBox title:'foo bar'. |
168 box := WarningBox title:'foo bar'. |
167 box image:(Image fromFile:'bitmaps/QUESTION.xpm'). |
169 box image:(Image fromFile:'QUESTION.xpm' inPackage:'stx:goodies/bitmaps/xpmBitmaps'). |
168 box showAtPointer. |
170 box showAtPointer. |
169 " |
171 " |
170 |
172 |
171 "Created: / 17.11.1995 / 18:16:47 / cg" |
173 "Created: / 17.11.1995 / 18:16:47 / cg" |
172 "Modified: / 25.5.1999 / 15:22:25 / cg" |
174 "Modified: / 25.5.1999 / 15:22:25 / cg" |
206 ! ! |
208 ! ! |
207 |
209 |
208 !WarningBox class methodsFor:'documentation'! |
210 !WarningBox class methodsFor:'documentation'! |
209 |
211 |
210 version |
212 version |
211 ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.27 1999-12-09 11:10:21 cg Exp $' |
213 ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.28 2001-05-17 12:17:46 cg Exp $' |
212 ! ! |
214 ! ! |