equal
deleted
inserted
replaced
243 initialize |
243 initialize |
244 super initialize. |
244 super initialize. |
245 label := 'Warning' |
245 label := 'Warning' |
246 ! ! |
246 ! ! |
247 |
247 |
248 !WarningBox methodsFor:'realization'! |
248 !WarningBox methodsFor:'queries'! |
249 |
249 |
250 openModal |
250 beepWhenOpening |
251 "added bell to wake up user" |
251 ^ UserPreferences current beepForWarningDialog |
252 |
|
253 self beep. |
|
254 super openModal |
|
255 |
|
256 " |
|
257 self warn:'hello' |
|
258 " |
|
259 |
|
260 "Modified: 28.5.1996 / 16:59:01 / cg" |
|
261 ! ! |
252 ! ! |
262 |
253 |
263 !WarningBox class methodsFor:'documentation'! |
254 !WarningBox class methodsFor:'documentation'! |
264 |
255 |
265 version |
256 version |
266 ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.33 2003-08-18 17:23:10 cg Exp $' |
257 ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.34 2005-01-12 11:05:15 cg Exp $' |
267 ! ! |
258 ! ! |