equal
deleted
inserted
replaced
141 image := Image fromFile:'bitmaps/SmalltalkX.xbm' inPackage:'stx:libtool'. |
141 image := Image fromFile:'bitmaps/SmalltalkX.xbm' inPackage:'stx:libtool'. |
142 aBox form:image. |
142 aBox form:image. |
143 aBox showAtPointer. |
143 aBox showAtPointer. |
144 [exEnd] |
144 [exEnd] |
145 " |
145 " |
|
146 ! ! |
|
147 |
|
148 !WarningBox class methodsFor:'defaults'! |
|
149 |
|
150 defaultLabel |
|
151 ^ 'Warning' |
|
152 |
|
153 "Created: / 01-03-2018 / 22:44:19 / mawalch" |
146 ! ! |
154 ! ! |
147 |
155 |
148 !WarningBox class methodsFor:'icon bitmap'! |
156 !WarningBox class methodsFor:'icon bitmap'! |
149 |
157 |
150 errorIconBitmap |
158 errorIconBitmap |
240 ErrorBitmap := nil. |
248 ErrorBitmap := nil. |
241 |
249 |
242 "Modified: / 16.11.2001 / 15:00:43 / cg" |
250 "Modified: / 16.11.2001 / 15:00:43 / cg" |
243 ! ! |
251 ! ! |
244 |
252 |
245 !WarningBox methodsFor:'initialization'! |
|
246 |
|
247 initialize |
|
248 super initialize. |
|
249 label := 'Warning' |
|
250 ! ! |
|
251 |
|
252 !WarningBox methodsFor:'queries'! |
253 !WarningBox methodsFor:'queries'! |
253 |
254 |
254 beepWhenOpening |
255 beepWhenOpening |
255 ^ UserPreferences current beepForWarningDialog |
256 ^ UserPreferences current beepForWarningDialog |
256 ! ! |
257 ! ! |
257 |
258 |
258 !WarningBox class methodsFor:'documentation'! |
259 !WarningBox class methodsFor:'documentation'! |
259 |
260 |
260 version |
261 version |
261 ^ '$Header$' |
262 ^ '$Header$' |
262 ! ! |
263 ! |
263 |
264 |
|
265 version_CVS |
|
266 ^ '$Header$' |
|
267 ! ! |
|
268 |