equal
deleted
inserted
replaced
154 WarnBitmap := img |
154 WarnBitmap := img |
155 ]. |
155 ]. |
156 ^ WarnBitmap |
156 ^ WarnBitmap |
157 |
157 |
158 " |
158 " |
159 WarnBitmap := Image fromFile:'bitmaps/WARNING.xpm'. |
|
160 self warn:'foo bar'. |
|
161 |
|
162 WarnBitmap := Image fromFile:'bitmaps/Warning.xbm'. |
|
163 self warn:'foo bar'. |
159 self warn:'foo bar'. |
164 |
160 |
165 |box| |
161 |box| |
166 box := WarningBox title:'foo bar'. |
162 box := WarningBox title:'foo bar'. |
167 box showAtPointer. |
163 box showAtPointer. |
171 box image:(Image fromFile:'bitmaps/QUESTION.xpm'). |
167 box image:(Image fromFile:'bitmaps/QUESTION.xpm'). |
172 box showAtPointer. |
168 box showAtPointer. |
173 " |
169 " |
174 |
170 |
175 "Created: / 17.11.1995 / 18:16:47 / cg" |
171 "Created: / 17.11.1995 / 18:16:47 / cg" |
176 "Modified: / 26.10.1997 / 17:05:55 / cg" |
172 "Modified: / 25.5.1999 / 15:22:25 / cg" |
177 ! ! |
173 ! ! |
178 |
174 |
179 !WarningBox class methodsFor:'styles'! |
175 !WarningBox class methodsFor:'styles'! |
180 |
176 |
181 updateStyleCache |
177 updateStyleCache |
210 ! ! |
206 ! ! |
211 |
207 |
212 !WarningBox class methodsFor:'documentation'! |
208 !WarningBox class methodsFor:'documentation'! |
213 |
209 |
214 version |
210 version |
215 ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.23 1999-02-17 13:11:59 cg Exp $' |
211 ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.24 1999-05-25 14:15:15 cg Exp $' |
216 ! ! |
212 ! ! |