*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 05 Jul 2000 18:46:53 +0200
changeset 441 4602f96301f3
parent 440 d0d6753a8f3f
child 442 d581ec53058f
*** empty log message ***
smalltalk.rc
--- a/smalltalk.rc	Thu Jun 15 17:18:35 2000 +0200
+++ b/smalltalk.rc	Wed Jul 05 18:46:53 2000 +0200
@@ -429,15 +429,17 @@
 'smalltalk.rc [info]: reading ''private.rc'' ...' infoPrintCR.
 Smalltalk fileIn:'private.rc'.
 
-"/
-"/ read saved configuration settings (if any)
-"/
-"/ 'smalltalk.rc [info]: reading ''settings.stx'' ...' infoPrintCR.
-Object abortSignal handle:[:ex |
-    ex return
-] do:[
-    (Smalltalk fileIn:'settings.stx') ifTrue:[
-	'smalltalk.rc [info]: loaded preferences from ''settings.stx''' infoPrintCR.
+DeviceWorkstation notNil ifTrue:[
+    "/
+    "/ read saved configuration settings (if any)
+    "/
+    "/ 'smalltalk.rc [info]: reading ''settings.stx'' ...' infoPrintCR.
+    Object abortSignal handle:[:ex |
+        ex return
+    ] do:[
+        (Smalltalk fileIn:'settings.stx') ifTrue:[
+	    'smalltalk.rc [info]: loaded preferences from ''settings.stx''' infoPrintCR.
+        ]
     ]
 ]
 !