--- a/Object.st Sun Feb 19 17:14:37 1995 +0100
+++ b/Object.st Mon Feb 20 11:58:22 1995 +0100
@@ -29,7 +29,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.32 1995-02-17 13:04:18 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.33 1995-02-20 10:58:22 claus Exp $
'!
!Object class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.32 1995-02-17 13:04:18 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.33 1995-02-20 10:58:22 claus Exp $
"
!
@@ -1757,7 +1757,7 @@
notify:aString
"launch a Notifier, telling user something"
- (DialogView isNil or:[DialogView isLoaded not]) ifTrue:[
+ DialogView isNil ifTrue:[
"
on systems without GUI, simply show
the message on the Transcript.
@@ -1765,6 +1765,7 @@
Transcript showCr:aString.
^ self
].
+ DialogView autoload. "in case its autoloaded"
DialogView information:aString
"
@@ -1787,7 +1788,7 @@
warn:aString
"launch a WarningBox, telling user something"
- (DialogView isNil or:[DialogView isLoaded not]) ifTrue:[
+ DialogView isNil ifTrue:[
"
on systems without GUI, simply show
the message on the Transcript.
@@ -1795,6 +1796,7 @@
Transcript showCr:aString.
^ self
].
+ DialogView autoload. "in case its autoloaded"
DialogView warn:aString
"
@@ -1807,7 +1809,7 @@
"launch a confirmer, which allows user to enter yes or no.
return true for yes, false for no"
- (DialogView isNil or:[DialogView isLoaded not]) ifTrue:[
+ DialogView isNil ifTrue:[
"
on systems without GUI, output a message
and return true (as if yes was answered)
@@ -1817,6 +1819,7 @@
Transcript showCr:'continue, assuming <yes>'.
^ true
].
+ DialogView autoload. "in case its autoloaded"
^ DialogView confirm:aString
"