--- a/Warning.st Fri Mar 29 10:55:51 2019 +0100
+++ b/Warning.st Fri Mar 29 10:55:57 2019 +0100
@@ -154,7 +154,7 @@
text := self description.
- self hasDialog ifTrue:[
+ (self suppressDialogIfUnhandled not and:[self hasDialog]) ifTrue:[
optionalTitle notNil ifTrue:[
Dialog warn:text title:optionalTitle
] ifFalse:[
@@ -165,7 +165,7 @@
on systems without GUI, simply show
the message on the Transcript.
"
- Transcript show:'Warning: '; showCR:text.
+ Transcript show:(self class name); show:': '; showCR:text.
].
"
@@ -174,7 +174,7 @@
"
"Modified: / 03-08-1999 / 14:06:41 / stefan"
- "Modified (comment): / 26-02-2019 / 15:41:34 / Claus Gittinger"
+ "Modified: / 29-03-2019 / 10:55:28 / Claus Gittinger"
! !
!Warning class methodsFor:'documentation'!