class: StandaloneStartup
authorClaus Gittinger <cg@exept.de>
Sun, 29 Mar 2015 03:07:59 +0200
changeset 17708 a8e055505c29
parent 17707 62968cb231d8
child 17709 49856bc146f4
class: StandaloneStartup changed: #verboseInfo:
StandaloneStartup.st
--- a/StandaloneStartup.st	Sat Mar 28 16:57:57 2015 +0100
+++ b/StandaloneStartup.st	Sun Mar 29 03:07:59 2015 +0200
@@ -430,8 +430,9 @@
 !
 
 verboseInfo:msg
-    Verbose == true ifFalse:[^ self].
-    self printInfo:msg
+    Verbose == true ifTrue:[
+        self printInfo:msg
+    ]
 
     "Modified: / 19-09-2006 / 16:30:27 / cg"
 ! !
@@ -1220,11 +1221,11 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.90 2015-03-28 15:57:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.91 2015-03-29 01:07:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.90 2015-03-28 15:57:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.91 2015-03-29 01:07:59 cg Exp $'
 ! !