UserPreferences.st
changeset 9055 405198de7653
parent 8965 b3cebce55744
child 9095 fc7e3c1d66be
--- a/UserPreferences.st	Fri Dec 23 17:28:09 2005 +0100
+++ b/UserPreferences.st	Fri Dec 23 17:35:43 2005 +0100
@@ -366,9 +366,9 @@
     s nextPutLine:'"/'.
     s nextPutLine:'"/ Info & Debug Messages:'.
     s nextPutLine:'"/'.
-    s nextPutLine:'ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '.';
+    s nextPutLine:'Smalltalk hasNoConsole ifFalse:[ ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '].';
       nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.';
-      nextPutLine:'Object infoPrinting: ' , (Object infoPrinting storeString) , '.';
+      nextPutLine:'Smalltalk hasNoConsole ifFalse:[ Object infoPrinting: ' , (Object infoPrinting storeString) , '].';
       nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'.
 
 "/    FlyByHelp isActive ifTrue:[
@@ -2407,5 +2407,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.156 2005-10-21 08:51:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.157 2005-12-23 16:35:43 cg Exp $'
 ! !