class: StandaloneStartup
authorClaus Gittinger <cg@exept.de>
Sat, 28 Mar 2015 16:57:57 +0100
changeset 18179 8b63ebabc699
parent 18178 26a44bf122c7
child 18180 177321c514a9
class: StandaloneStartup changed: #usage
StandaloneStartup.st
--- a/StandaloneStartup.st	Sat Mar 28 13:27:25 2015 +0100
+++ b/StandaloneStartup.st	Sat Mar 28 16:57:57 2015 +0100
@@ -430,9 +430,8 @@
 !
 
 verboseInfo:msg
-    Verbose == true ifTrue:[
-        self printInfo:msg
-    ]
+    Verbose == true ifFalse:[^ self].
+    self printInfo:msg
 
     "Modified: / 19-09-2006 / 16:30:27 / cg"
 ! !
@@ -1221,11 +1220,11 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.91 2015-03-29 01:07:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.90 2015-03-28 15:57:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.91 2015-03-29 01:07:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.90 2015-03-28 15:57:57 cg Exp $'
 ! !