--- a/Warning.st Tue May 13 19:54:13 2014 +0200
+++ b/Warning.st Wed May 14 00:09:49 2014 +0200
@@ -130,6 +130,19 @@
defaultAction
"Default action for warnings: open a warn box with description"
+ self showWarnDialog.
+ self proceed.
+
+ "
+ Warning raiseRequestErrorString:' abc'
+ "
+
+ "Modified: / 3.8.1999 / 14:06:41 / stefan"
+!
+
+showWarnDialog
+ "open a warn box with description"
+
|text|
text := self description.
@@ -143,7 +156,6 @@
"
Transcript show:'warning: '; showCR:text.
].
- self proceed.
"
Warning raiseRequestErrorString:' abc'
@@ -155,11 +167,12 @@
!Warning class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.14 2009-10-14 17:34:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.15 2014-05-13 22:09:49 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.14 2009-10-14 17:34:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.15 2014-05-13 22:09:49 cg Exp $'
! !
+
Warning initialize!