# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 822512718 -3600
# Node ID 2b680edcd1159570cd2570958e3124d31205cb0d
# Parent  6807b85764530fee576f0d3c9e81314b42c65d59
optionally allow localSources to override sourceManager files

diff -r 6807b8576453 -r 2b680edcd115 Class.st
--- a/Class.st	Wed Jan 24 19:20:08 1996 +0100
+++ b/Class.st	Wed Jan 24 20:45:18 1996 +0100
@@ -15,7 +15,8 @@
 		history'
 	classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
 		CatchMethodRedefinitions MethodRedefinitionSignal
-		UpdateChangeFileQuerySignal DefaultNamespace'
+		UpdateChangeFileQuerySignal DefaultNamespace
+		TryLocalSourceFirst'
 	poolDictionaries:''
 	category:'Kernel-Classes'
 !
@@ -101,6 +102,17 @@
 					 match).
 					The default is (currently) true.
 
+	DefaultNamespace                Namespace in which classes are to be installed
+					by default. Currently, this must be Smalltalk.
+
+	TryLocalSourceFirst             If true, local source files are tried
+					first BEFORE the sourceCodeManager is
+					consulted. If false, the sourceCodeManager
+					is asked first.
+					Should be turned on, if you run an image from
+					local sources which have not yet been checked in.
+
+                                        
     WARNING: layout known by compiler and runtime system
 "
 ! !
@@ -214,6 +226,18 @@
      decide to return something else."
 
     ^ UpdatingChanges
+!
+
+tryLocalSourceFirst:aBoolean
+    TryLocalSourceFirst := aBoolean
+
+    "Created: 24.1.1996 / 19:55:35 / cg"
+!
+
+tryLocalSourceFirst
+    ^ TryLocalSourceFirst 
+
+    "Created: 24.1.1996 / 19:55:35 / cg"
 ! !
 
 !Class class methodsFor:'enumeration '!
@@ -3315,10 +3339,12 @@
     ].
 
     "/
-    "/ if there is no SourceCodeManager, look in
-    "/ standard places first
+    "/ if there is no SourceCodeManager, 
+    "/ or TryLocalSourceFirst is true,
+    "/ look in standard places first
     "/
-    (mgr := self sourceCodeManager) isNil ifTrue:[
+    ((mgr := self sourceCodeManager) isNil 
+    or:[TryLocalSourceFirst == true]) ifTrue:[
 	fileName := Smalltalk getSourceFileName:source.
 	fileName notNil ifTrue:[
 	    aStream := fileName asFilename readStream.
@@ -3658,6 +3684,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.121 1996-01-22 16:27:23 ah Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.122 1996-01-24 19:45:18 cg Exp $'
 ! !
 Class initialize!