smalltalk.rc
changeset 42 01ad8f1b986b
parent 41 d61cda45c461
child 53 00437bd1cfe7
--- a/smalltalk.rc	Fri Nov 03 17:34:13 1995 +0100
+++ b/smalltalk.rc	Sun Nov 05 17:23:58 1995 +0100
@@ -51,12 +51,17 @@
     missing := '''resources'' '.
 ].
 (Smalltalk getSystemFileName:'source/Object.st') isNil ifTrue:[
-    '***********************************************************************' errorPrintNL.
-    '***** ATTENTION: please check installation of your source files' errorPrintNL.
-    '***** ' errorPrintNL.
-    '***** the browser/debugger may not be able to show sourcecode.' errorPrintNL.
-    anyWrong := true.
-    missing := missing , '''source'' '.
+    "/
+    "/ there may still be a SourceCodeManager ...
+    "/
+    SourceCodeManager isNil ifTrue:[
+	'***********************************************************************' errorPrintNL.
+	'***** ATTENTION: please check installation of your source files' errorPrintNL.
+	'***** ' errorPrintNL.
+	'***** the browser/debugger may not be able to show sourcecode.' errorPrintNL.
+	anyWrong := true.
+	missing := missing , '''source'' '.
+    ]
 ].
 (Smalltalk getSystemFileName:'bitmaps/SBrowser.xbm') isNil ifTrue:[
     '***********************************************************************' errorPrintNL.