hg/stx-libbasic: comparison Method.st

equal deleted inserted replaced

-:2d4683974fc7
+:7c98583d98c8
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 !Method class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 which is identified as executable (assuming that the first instance variable
 is the machine-code address) - this allows for easy future extension.
 [Instance variables:]
-source          <String>        the source itself (if sourcePosition isNil)
+	source          <String>        the source itself (if sourcePosition isNil)
-or the fileName where the source is found
+					or the fileName where the source is found
-sourcePosition  <Integer>       the position of the methods chunk in the file
+	sourcePosition  <Integer>       the position of the methods chunk in the file
-category        <Symbol>        the methods category
+	category        <Symbol>        the methods category
-package         <Symbol>        the package, in which the methods was defined
+	package         <Symbol>        the package, in which the methods was defined
-mclass          <Class>         the class in which I am defined
+	mclass          <Class>         the class in which I am defined
-indexed slots                   literals
+	indexed slots                   literals
 [Class variables:]
-PrivateMethodSignal             raised on privacy violation (see docu)
+	PrivateMethodSignal             raised on privacy violation (see docu)
-LastFileReference               weak reference to the last sourceFile
+	LastFileReference               weak reference to the last sourceFile
-LastSourceFileName              to speedup source access via NFS
+	LastSourceFileName              to speedup source access via NFS
 WARNING: layout known by compiler and runtime system - dont change
 [author:]
-Claus Gittinger
+	Claus Gittinger
 "
 !
 dynamicMethods
 "
 This interface, the implementation and the rules for when a privacy violation
 may change (in case of some ANSI standard being defined).
 Be warned and send me suggestions & critics (constructive ;-)
 Late note (Feb 2000):
-the privacy feature has new been in ST/X for some years and was NOT heavily
+	the privacy feature has new been in ST/X for some years and was NOT heavily
-used - neither at eXept, nor by customers.
+	used - neither at eXept, nor by customers.
-In Smalltalk, it seems to be a very questionable feature, actually limiting
+	In Smalltalk, it seems to be a very questionable feature, actually limiting
-code reusability.
+	code reusability.
-The privacy features are left in the system to demonstrate that it can be
+	The privacy features are left in the system to demonstrate that it can be
-done in Smalltalk (for religious C++ fans ... to avoid useless discussions)
+	done in Smalltalk (for religious C++ fans ... to avoid useless discussions)
-(the check is not expensive, w.r.t. the VM runtime behavior).
+	(the check is not expensive, w.r.t. the VM runtime behavior).
 "
 ! !
 !Method class methodsFor:'initialization'!
 initialize
 "create signals"
 PrivateMethodSignal isNil ifTrue:[
-"EXPERIMENTAL"
+	"EXPERIMENTAL"
-PrivateMethodSignal := ExecutionError newSignalMayProceed:true.
+	PrivateMethodSignal := ExecutionError newSignalMayProceed:true.
-PrivateMethodSignal nameClass:self message:#privateMethodSignal.
+	PrivateMethodSignal nameClass:self message:#privateMethodSignal.
-PrivateMethodSignal notifierString:'attempt to execute private/protected method'.
+	PrivateMethodSignal notifierString:'attempt to execute private/protected method'.
 ].
 LastFileLock isNil ifTrue:[
-LastFileLock := RecursionLock new name:'Method-LastFile'.
+	LastFileLock := RecursionLock new name:'Method-LastFile'.
-LastMethodSourcesLock := RecursionLock new name:'Method-LastMethodSources'.
+	LastMethodSourcesLock := RecursionLock new name:'Method-LastMethodSources'.
-"LastFileReference used to be a WeakArray. The problem was, that
+	"LastFileReference used to be a WeakArray. The problem was, that
-during some operations (generating project definition methods), lots of
+	 during some operations (generating project definition methods), lots of
-methods and classes are accessed. GC (scavenge) is done heavily,
+	 methods and classes are accessed. GC (scavenge) is done heavily,
-while finalization is a low prio process, so that the file limit
+	 while finalization is a low prio process, so that the file limit
-is reached before finalization did close the old streams."
+	 is reached before finalization did close the old streams."
-LastFileReference := Array new:1.
+	LastFileReference := Array new:1.
-LastFileReference at:1 put:nil.
+	LastFileReference at:1 put:nil.
 ].
 CompilationLock := RecursionLock new name:'MethodCompilation'.
 "Modified: 22.4.1996 / 16:34:38 / cg"
 "Modified: 3.1.1997 / 16:58:16 / stefan"
 !
 lastMethodSourcesLock
 LastMethodSourcesLock isNil ifTrue:[
-self initialize
+	self initialize
 ].
 ^ LastMethodSourcesLock
 ! !
 !Method class methodsFor:'Signal constants'!
 "given a selector, return a prototype definition string"
 |nA argNames|
 (nA := aSelector numArgs) == 1 ifTrue:[
-argNames := #('arg')
+	argNames := #('arg')
 ] ifFalse:[
-argNames := (1 to:nA) collect:[:i | 'arg' , i printString].
+	argNames := (1 to:nA) collect:[:i | 'arg' , i printString].
 ].
 ^ self
-methodDefinitionTemplateForSelector:aSelector
+	methodDefinitionTemplateForSelector:aSelector
-andArgumentNames:argNames.
+	andArgumentNames:argNames.
 "
 Method methodDefinitionTemplateForSelector:#foo
 Method methodDefinitionTemplateForSelector:#+
 Method methodDefinitionTemplateForSelector:#foo:bar:baz:
 methodDefinitionTemplateForSelector:aSelector andArgumentNames:argNames
 "given a selector, return a prototype definition string"
 aSelector numArgs > 0 ifTrue:[
-aSelector isKeyword ifTrue:[
+	aSelector isKeyword ifTrue:[
-^ String streamContents:[:stream |
+	    ^ String streamContents:[:stream |
-aSelector keywords with:argNames do:[:eachKeyword :eachArgName|
+		aSelector keywords with:argNames do:[:eachKeyword :eachArgName|
-stream nextPutAll:eachKeyword; nextPutAll:eachArgName; space.
+		    stream nextPutAll:eachKeyword; nextPutAll:eachArgName; space.
-].
+		].
-stream backStep.   "remove the last space"
+		stream backStep.   "remove the last space"
-].
+	     ].
-].
+	].
-^ aSelector , ' ' , (argNames at:1)
+	^ aSelector , ' ' , (argNames at:1)
 ].
 ^ aSelector
 "
 Method methodDefinitionTemplateForSelector:#foo          andArgumentNames:#()
 !Method class methodsFor:'special'!
 flushSourceStreamCache
 LastFileLock critical:[
-LastSourceFileName := LastMethodSources := nil.
+	LastSourceFileName := LastMethodSources := nil.
-LastFileReference at:1 put:0.
+	LastFileReference at:1 put:0.
 ].
 "
 Method flushSourceStreamCache
 "
 annotateWith: annotation
 | index |
 index := self annotationIndexOf: annotation key.
 index
-ifNil:
+	ifNil:
-[annotations := annotations
+	    [annotations := annotations
-ifNil:[Array with: annotation]
+				ifNil:[Array with: annotation]
-ifNotNil:[annotations copyWith:annotation]]
+				ifNotNil:[annotations copyWith:annotation]]
-ifNotNil:
+	ifNotNil:
-[annotations at: index put: annotation].
+	    [annotations at: index put: annotation].
 "/    annotation annotatesMethod: self.
 "
-(Object >> #yourself) annotateWith: (Annotation namespace: 'Fictious').
+	(Object >> #yourself) annotateWith: (Annotation namespace: 'Fictious').
-(Object >> #yourself) annotations.
+	(Object >> #yourself) annotations.
-(Object >> #yourself) annotationAt: #namespace:
+	(Object >> #yourself) annotationAt: #namespace:
 "
 "Created: / 19-05-2010 / 16:20:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 20-05-2010 / 11:22:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 annotationAt: key
 | index |
 index := self annotationIndexOf: key.
 index ifNil:[^nil].
 ^self annotationAtIndex: index.
 "
-(Object >> #yourself) annotationAt: #namespace:
+	(Object >> #yourself) annotationAt: #namespace:
 "
 "Created: / 19-05-2010 / 16:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 02-07-2010 / 22:35:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 annotations
 "Returns annotations"
 annotations ifNil:[^#()].
 "iterate over annotation array to
 trigger lazy-loading"
 self annotationsDo:[:ignored].
 ^ annotations
 "Modified: / 11-07-2010 / 19:25:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 annotationsAt: key
 ^OrderedCollection streamContents:
-[:annotStream|
+	[:annotStream|
-self annotationsAt: key do:
+	self annotationsAt: key do:
-[:annot|annotStream nextPut: annot]]
+	    [:annot|annotStream nextPut: annot]]
 "Created: / 16-07-2010 / 11:41:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 annotationsAt: key do: block
 | annots |
 annots := OrderedCollection new: 1.
 self annotationsDo:
-[:annot|
+	[:annot|
-annot key == key ifTrue:
+	annot key == key ifTrue:
-[block value: annot]]
+	    [block value: annot]]
 "Created: / 16-07-2010 / 11:48:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 annotationsAt: key1 orAt: key2
 ^OrderedCollection streamContents:
-[:annotStream|
+	[:annotStream|
-self annotationsAt: key1 orAt: key2 do:
+	self annotationsAt: key1 orAt: key2 do:
-[:annot|annotStream nextPut: annot]]
+	    [:annot|annotStream nextPut: annot]]
 "Created: / 16-07-2010 / 11:41:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 annotationsAt: key1 orAt: key2 do: block
 | annots |
 annots := OrderedCollection new: 1.
 self annotationsDo:
-[:annot|
+	[:annot|
-(annot key == key1 or:[annot key == key2]) ifTrue:
+	(annot key == key1 or:[annot key == key2]) ifTrue:
-[block value: annot]]
+	    [block value: annot]]
 "Created: / 16-07-2010 / 11:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 annotationsDo: aBlock
 annotations ifNil:[^nil].
 1 to: annotations size do:
-[:i|aBlock value: (self annotationAtIndex: i)].
+	[:i|aBlock value: (self annotationAtIndex: i)].
 "Created: / 02-07-2010 / 22:33:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 11-07-2010 / 19:38:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 "set the methods category"
 |newCategory oldCategory cls|
 aStringOrSymbol notNil ifTrue:[
-newCategory := aStringOrSymbol.
+	newCategory := aStringOrSymbol.
-newCategory ~= (oldCategory := category) ifTrue:[
+	newCategory ~= (oldCategory := category) ifTrue:[
-self setCategory:newCategory.
+	    self setCategory:newCategory.
-cls := self mclass.
+	    cls := self mclass.
-cls notNil ifTrue:[
+	    cls notNil ifTrue:[
-cls addChangeRecordForMethodCategory:self category:newCategory.
+		cls addChangeRecordForMethodCategory:self category:newCategory.
-self changed:#category with:oldCategory.            "/ will vanish
+		self changed:#category with:oldCategory.            "/ will vanish
-cls changed:#organization with:self selector.       "/ will vanish
+		cls changed:#organization with:self selector.       "/ will vanish
-Smalltalk changed:#methodCategory with:(Array with:cls with:self with:oldCategory).
+		Smalltalk changed:#methodCategory with:(Array with:cls with:self with:oldCategory).
-]
+	    ]
-]
+	]
 ]
 "Modified: / 25-09-2007 / 16:15:24 / cg"
 !
 src := self source.
 src isNil ifTrue:[^ nil].
 ^ self programmingLanguage parserClass methodCommentFromSource:src
 "
 (Method compiledMethodAt:#comment) comment
 (Object class compiledMethodAt:#infoPrinting:) comment
 "
 "Modified: / 23-02-1998 / 10:26:08 / stefan"
 "Modified: / 17-07-2010 / 14:23:56 / cg"
 by reading the source code file).
 This is required, when a methods package is changed, to assure that its
 sourceCode is not lost."
 source notNil ifTrue:[
-sourcePosition notNil ifTrue:[
+	sourcePosition notNil ifTrue:[
-"/ this looks wierd - but (self source) will retrieve the external source
+	    "/ this looks wierd - but (self source) will retrieve the external source
-"/ (from the file) and store it. So afterwards, we will have the string and
+	    "/ (from the file) and store it. So afterwards, we will have the string and
-"/ sourcePosition will be nil
+	    "/ sourcePosition will be nil
-self source:(self source)
+	    self source:(self source)
-]
+	]
 ].
 !
 mclass:aClass
 "set the method's class"
 is set, my programmming language is used as default namespace
 (for compatibility reasons, for smalltalk methods nil is returned,
 which means that the method is not namespaced).
 "
 | nsA lang |
 nsA := self annotationAt: #namespace:.
 nsA ifNotNil:[^nsA nameSpace].
 ^(lang := self programmingLanguage) isSmalltalk
-ifTrue:[nil]
+	ifTrue:[nil]
-ifFalse:[lang].
+	ifFalse:[lang].
 "
-(Method >> #nameSpace) nameSpace
+	(Method >> #nameSpace) nameSpace
-(Object >> #yourself) nameSpace
+	(Object >> #yourself) nameSpace
 "
 "Created: / 26-04-2010 / 16:30:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 20-05-2010 / 09:38:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 nameSpaceName
 | ns |
 ^(ns := self nameSpace)
-ifNotNil:[ns name]
+	ifNotNil:[ns name]
-ifNil:['']
+	ifNil:['']
 !
 originalMethodIfWrapped
 "return the method the receiver is wrapping - none here"
 "Answers overridden method or nil."
 Overrides ifNil:[^nil].
 ^(Overrides includesKey: self)
-ifTrue:[Overrides at: self]
+	ifTrue:[Overrides at: self]
 "Created: / 17-06-2009 / 19:09:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 overriddenMethod: aMethod
 |cls|
 package notNil ifTrue:[ ^ package ].
 (cls := self mclass) isNil ifTrue:[
-^ PackageId noProjectID.
+	^ PackageId noProjectID.
 ].
 "/ set it.
 package := cls getPackage.
 package isNil ifTrue:[
-^ PackageId noProjectID.
+	^ PackageId noProjectID.
 ].
 ^ package
 "Modified: / 28-11-2006 / 12:12:43 / cg"
 !
 "set the package-symbol"
 |cls oldPackage newPackage|
 aSymbol == PackageId noProjectID ifTrue:[
-newPackage := nil
+	newPackage := nil
 ] ifFalse:[
-newPackage := aSymbol
+	newPackage := aSymbol
 ].
 package ~~ newPackage ifTrue:[
-oldPackage := package.
+	oldPackage := package.
-"/ this is required, because otherwise I would no longer be able to
+	"/ this is required, because otherwise I would no longer be able to
-"/ reconstruct my sourcecode (as the connection to the source-file is lost).
+	"/ reconstruct my sourcecode (as the connection to the source-file is lost).
-self makeLocalStringSource.
+	self makeLocalStringSource.
-package := newPackage.
+	package := newPackage.
-cls := self mclass.
+	cls := self mclass.
-self changed:#package.                                              "/ will vanish
+	self changed:#package.                                              "/ will vanish
-cls changed:#methodPackage with:self selector.                      "/ will vanish
+	cls changed:#methodPackage with:self selector.                      "/ will vanish
-Smalltalk changed:#projectOrganization with:(Array with:cls with:self with:oldPackage).
+	Smalltalk changed:#projectOrganization with:(Array with:cls with:self with:oldPackage).
-cls addChangeRecordForMethodPackage:self package:newPackage.
+	cls addChangeRecordForMethodPackage:self package:newPackage.
 ]
 "Modified: / 23-11-2006 / 17:01:02 / cg"
 !
 setCategory:aStringOrSymbol
 "set the methods category (without change notification)"
 aStringOrSymbol notNil ifTrue:[
-category := aStringOrSymbol asSymbol
+	category := aStringOrSymbol asSymbol
 ]
 "Modified: / 13.11.1998 / 23:55:05 / cg"
 !
 "
 sourcePosition isNil ifTrue:[^ source].
 source isNil ifTrue:[^ nil].
 self class lastMethodSourcesLock critical:[
-LastMethodSources notNil ifTrue:[
+	LastMethodSources notNil ifTrue:[
-chunk := LastMethodSources at:self ifAbsent:nil.
+	    chunk := LastMethodSources at:self ifAbsent:nil.
-].
+	].
 ].
 chunk notNil ifTrue:[
-^ chunk
+	^ chunk
 ].
 LastFileLock
-critical:[
+	critical:[
-"have to protect sourceStream from being closed as a side effect
+	    "have to protect sourceStream from being closed as a side effect
-of some other process fetching some the source from a different source file"
+	     of some other process fetching some the source from a different source file"
-sourceStream := self sourceStreamUsingCache:true.
+	    sourceStream := self sourceStreamUsingCache:true.
-sourceStream notNil ifTrue:[
+	    sourceStream notNil ifTrue:[
-[
+		[
-chunk := self sourceChunkFromStream:sourceStream.
+		    chunk := self sourceChunkFromStream:sourceStream.
-] on:DecodingError do:[:ex|
+		] on:DecodingError do:[:ex|
-"CharacterEncoder>>#guessEncoding is not fail safe - retry with plain unencoded data"
+		    "CharacterEncoder>>#guessEncoding is not fail safe - retry with plain unencoded data"
-('DecodingError ignored when reading <1p> (<2p>)' expandMacrosWith:self whoString with:ex description) infoPrintCR.
+		    ('DecodingError ignored when reading <1p> (<2p>)' expandMacrosWith:self whoString with:ex description) infoPrintCR.
-sourceStream := self rawSourceStreamUsingCache:true.
+		    sourceStream := self rawSourceStreamUsingCache:true.
-ex restart.
+		    ex restart.
-].
+		].
-].
+	    ].
-]
+	]
-timeoutMs:100
+	timeoutMs:100
-ifBlocking:[
+	ifBlocking:[
-"take care if LastFileLock is not available - maybe we are
+	    "take care if LastFileLock is not available - maybe we are
-called by a debugger while someone holds the lock.
+	     called by a debugger while someone holds the lock.
-Use uncached source streams"
+	     Use uncached source streams"
-sourceStream := self sourceStreamUsingCache:false.
+	    sourceStream := self sourceStreamUsingCache:false.
-sourceStream notNil ifTrue:[
+	    sourceStream notNil ifTrue:[
-[
+		[
-chunk := self sourceChunkFromStream:sourceStream.
+		    chunk := self sourceChunkFromStream:sourceStream.
-sourceStream close.
+		    sourceStream close.
-] on:DecodingError do:[:ex|
+		] on:DecodingError do:[:ex|
-"CharacterEncoder>>#guessEncoding is not fail safe - retry with plain unencoded data"
+		    "CharacterEncoder>>#guessEncoding is not fail safe - retry with plain unencoded data"
-('DecodingError ignored when reading <1p> (<2p>)' expandMacrosWith:self whoString with:ex description) infoPrintCR.
+		    ('DecodingError ignored when reading <1p> (<2p>)' expandMacrosWith:self whoString with:ex description) infoPrintCR.
-sourceStream close.
+		    sourceStream close.
-sourceStream := self rawSourceStreamUsingCache:false.
+		    sourceStream := self rawSourceStreamUsingCache:false.
-ex restart.
+		    ex restart.
-].
+		].
-].
+	    ].
-].
+	].
 "Cache the source of recently used methods"
 chunk notNil ifTrue:[
-UserPreferences current keepMethodSourceCode ifTrue:[
+	UserPreferences current keepMethodSourceCode ifTrue:[
-source := chunk.
+	    source := chunk.
-sourcePosition := nil.
+	    sourcePosition := nil.
-^ source.
+	    ^ source.
-].
+	].
-CacheDictionary notNil ifTrue:[
+	CacheDictionary notNil ifTrue:[
-self class lastMethodSourcesLock critical:[
+	    self class lastMethodSourcesLock critical:[
-LastMethodSources isNil ifTrue:[
+		LastMethodSources isNil ifTrue:[
-LastMethodSources := CacheDictionary new:50.
+		    LastMethodSources := CacheDictionary new:50.
-].
+		].
-LastMethodSources at:self put:chunk.
+		LastMethodSources at:self put:chunk.
-]
+	    ]
-].
+	].
 ].
 ^ chunk
 "Modified: / 07-01-1997 / 16:20:09 / stefan"
 %{  /* NOCONTEXT */
 #ifdef F_RESTRICTED
 INT f = __intVal(__INST(flags));
 if (f & F_RESTRICTED) {
-RETURN (true);
+	RETURN (true);
 }
 #endif
 %}.
 ^ false
 ! !
 #if defined(M_PRIVACY)
 INT f = __intVal(__INST(flags));
 INT p;
 if (aSymbol == @symbol(public))
-p = 0;
+	p = 0;
 else if (aSymbol == @symbol(protected))
-p = F_PRIVATE;
+	p = F_PRIVATE;
 else if (aSymbol == @symbol(private))
-p = F_CLASSPRIVATE;
+	p = F_CLASSPRIVATE;
 else if (aSymbol == @symbol(ignored))
-p = F_IGNORED;
+	p = F_IGNORED;
 else
-RETURN(false);  /* illegal symbol */
+	RETURN(false);  /* illegal symbol */
 f = (f & ~M_PRIVACY) | p;
 __INST(flags) = __mkSmallInteger(f);
 #endif
 INT f = __intVal(__INST(flags));
 switch (f & M_PRIVACY) {
 # ifdef F_PRIVATE
 case F_PRIVATE:
-RETURN (@symbol(protected));
+	RETURN (@symbol(protected));
-break;
+	break;
 # endif
 # ifdef F_CLASSPRIVATE
 case F_CLASSPRIVATE:
-RETURN (@symbol(private));
+	RETURN (@symbol(private));
-break;
+	break;
 # endif
 # ifdef F_IGNORED
 case F_IGNORED:
-RETURN (@symbol(ignored));
+	RETURN (@symbol(ignored));
-break;
+	break;
 # endif
 }
 #endif
 %}.
 |oldPrivacy|
 oldPrivacy := self privacy.
 (self setPrivacy:aSymbol flushCaches:true) ifTrue:[
-|myClass mySelector|
+	|myClass mySelector|
-myClass := self mclass.
+	myClass := self mclass.
-mySelector := self selector.
+	mySelector := self selector.
-self changed:#privacy.                                       "/ will vanish
+	self changed:#privacy.                                       "/ will vanish
-myClass notNil ifTrue:[
+	myClass notNil ifTrue:[
-mySelector notNil ifTrue:[
+	    mySelector notNil ifTrue:[
-myClass changed:#methodPrivacy with:mySelector.      "/ will vanish
+		myClass changed:#methodPrivacy with:mySelector.      "/ will vanish
-Smalltalk changed:#privacyOfMethod with:(Array with:myClass with:self with:oldPrivacy).
+		Smalltalk changed:#privacyOfMethod with:(Array with:myClass with:self with:oldPrivacy).
-myClass addChangeRecordForMethodPrivacy:self.
+		myClass addChangeRecordForMethodPrivacy:self.
-]
+	    ]
-]
+	]
 ]
 "Modified: / 23-11-2006 / 17:03:20 / cg"
 !
 INT f = __intVal(__INST(flags));
 INT old;
 old = f;
 if (aBoolean == true)
-f |= F_RESTRICTED;
+	f |= F_RESTRICTED;
 else
-f &= ~F_RESTRICTED;
+	f &= ~F_RESTRICTED;
 __INST(flags) = __mkSmallInteger(f);
 if (old & F_RESTRICTED)
-RETURN(true);
+	RETURN(true);
 #endif
 %}.
 ^ false
 "
 "/
 "/ no need to flush, if changing from private to public
 "/
 doFlush ifTrue:[
-(aSymbol == #public and:[old ~~ #ignored]) ifFalse:[
+	(aSymbol == #public and:[old ~~ #ignored]) ifFalse:[
-(sel := self selector) notNil ifTrue:[
+	    (sel := self selector) notNil ifTrue:[
-ObjectMemory flushCachesForSelector:sel
+		ObjectMemory flushCachesForSelector:sel
-] ifFalse:[
+	    ] ifFalse:[
-ObjectMemory flushCaches.
+		ObjectMemory flushCaches.
-].
+	    ].
-].
+	].
 ].
 ^ true
 ! !
 !Method methodsFor:'binary storage'!
 or to compile lazy methods down to executable ones."
 |mthd|
 byteCode notNil ifTrue:[
-"
+	"
-is already a bytecoded method
+	 is already a bytecoded method
-"
+	"
-^ self
+	^ self
 ].
 ParserFlags
-withSTCCompilation:#never
+	withSTCCompilation:#never
-do:[
+	do:[
-mthd := self asExecutableMethod.
+	    mthd := self asExecutableMethod.
-].
+	].
 ^ mthd
 "Created: 24.10.1995 / 14:02:32 / cg"
 "Modified: 5.1.1997 / 01:01:53 / cg"
 !
 asByteCodeMethodWithSource:newSource
 |mthd|
 ParserFlags
-withSTCCompilation:#never
+	withSTCCompilation:#never
-do:[
+	do:[
-mthd := self asExecutableMethodWithSource:newSource.
+	    mthd := self asExecutableMethodWithSource:newSource.
-].
+	].
 ^ mthd
 "Created: 24.10.1995 / 14:02:32 / cg"
 "Modified: 5.1.1997 / 01:01:53 / cg"
 !
 Can be used to compile lazy methods down to executable ones."
 |temporaryMethod sourceString|
 byteCode notNil ifTrue:[
-"
+	"
-is already a bytecoded method
+	 is already a bytecoded method
-"
+	"
-^ self
+	^ self
 ].
 sourceString := self source.
 sourceString isNil ifTrue:[
-'Method [warning]: cannot generate bytecode (no source for compilation)' errorPrintCR.
+	'Method [warning]: cannot generate bytecode (no source for compilation)' errorPrintCR.
-^ nil
+	^ nil
 ].
 temporaryMethod := self asExecutableMethodWithSource:sourceString.
 (temporaryMethod isNil or:[temporaryMethod == #Error]) ifTrue:[
-'Method [warning]: cannot generate bytecode (contains primitive code or error)' errorPrintCR.
+	'Method [warning]: cannot generate bytecode (contains primitive code or error)' errorPrintCR.
-^ nil.
+	^ nil.
 ].
 "/
 "/ try to save a bit of memory, by sharing the source (whatever it is)
 "/
 temporaryMethod sourceFilename:source position:sourcePosition.
 asExecutableMethodWithSource:newSource
 |temporaryMethod cls|
 cls := self containingClass.
 cls isNil ifTrue:[
-'Method [warning]: cannot generate bytecode (no class for compilation)' errorPrintCR.
+	'Method [warning]: cannot generate bytecode (no class for compilation)' errorPrintCR.
-^ nil
+	^ nil
 ].
 "we have to sequentialize this using a lock-semaphore,
 to make sure only one method is compiled at a time.
 Otherwise, we might get into trouble, if (due to a timeout)
 another recompile is forced while compiling this one ...
 (happened when autoloading animation demos)
 "
 CompilationLock critical:[
-"
+	"
-dont want this to go into the changes file,
+	 dont want this to go into the changes file,
-dont want output on Transcript and definitely
+	 dont want output on Transcript and definitely
-dont want a lazy method ...
+	 dont want a lazy method ...
-"
+	"
-Class withoutUpdatingChangesDo:[
+	Class withoutUpdatingChangesDo:[
-|silent lazy|
+	    |silent lazy|
-silent := Smalltalk silentLoading:true.
+	    silent := Smalltalk silentLoading:true.
-lazy := Compiler compileLazy:false.
+	    lazy := Compiler compileLazy:false.
-[
+	    [
-|compiler|
+		|compiler|
-Class nameSpaceQuerySignal answer:(cls nameSpace)
+		Class nameSpaceQuerySignal answer:(cls nameSpace)
-do:[
+		do:[
-compiler := cls compilerClass.
+		    compiler := cls compilerClass.
-"/
+		    "/
-"/ kludge - have to make ST/X's compiler protocol
+		    "/ kludge - have to make ST/X's compiler protocol
-"/ be compatible to ST-80's
+		    "/ be compatible to ST-80's
-"/
+		    "/
-(compiler respondsTo:#compile:forClass:inCategory:notifying:install:)
+		    (compiler respondsTo:#compile:forClass:inCategory:notifying:install:)
-ifTrue:[
+		    ifTrue:[
-temporaryMethod := compiler
+			temporaryMethod := compiler
-compile:newSource
+					     compile:newSource
-forClass:cls
+					     forClass:cls
-inCategory:(self category)
+					     inCategory:(self category)
-notifying:nil
+					     notifying:nil
-install:false.
+					     install:false.
-] ifFalse:[
+		    ] ifFalse:[
-temporaryMethod := compiler new
+			temporaryMethod := compiler new
-compile:newSource
+					     compile:newSource
-in:cls
+					     in:cls
-notifying:nil
+					     notifying:nil
-ifFail:nil
+					     ifFail:nil
-].
+		    ].
-].
+		].
-] ensure:[
+	    ] ensure:[
-Compiler compileLazy:lazy.
+		Compiler compileLazy:lazy.
-Smalltalk silentLoading:silent.
+		Smalltalk silentLoading:silent.
-]
+	    ]
-].
+	].
 ].
 (temporaryMethod isNil or:[temporaryMethod == #Error]) ifTrue:[
-'Method [warning]: cannot generate bytecode (contains primitive code or error)' errorPrintCR.
+	'Method [warning]: cannot generate bytecode (contains primitive code or error)' errorPrintCR.
-^ nil.
+	^ nil.
 ].
 "/
 "/ try to save a bit of memory, by sharing the source (whatever it is)
 "/
 temporaryMethod source:newSource.
 |aCopy|
 aCopy := super copy.
 sourcePosition notNil ifTrue:[
-aCopy source:(self source)
+	aCopy source:(self source)
 ].
 aCopy mclass:nil.
 ^ aCopy
 "Modified: 16.1.1997 / 01:27:25 / cg"
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Modified: 4.11.1996 / 22:45:06 / cg"
 !
 invalidCodeObjectWith:arg
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:16:16 / cg"
 "Modified: 4.11.1996 / 22:45:12 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:16:41 / cg"
 "Modified: 4.11.1996 / 22:45:15 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:16:51 / cg"
 "Modified: 4.11.1996 / 22:45:18 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:17:00 / cg"
 "Modified: 4.11.1996 / 22:45:22 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:17:09 / cg"
 "Modified: 4.11.1996 / 22:45:25 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:17:17 / cg"
 "Modified: 4.11.1996 / 22:45:28 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:17:25 / cg"
 "Modified: 4.11.1996 / 22:45:31 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:17:32 / cg"
 "Modified: 4.11.1996 / 22:45:38 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:17:37 / cg"
 "Modified: 4.11.1996 / 22:45:41 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:17:45 / cg"
 "Modified: 4.11.1996 / 22:45:44 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:17:52 / cg"
 "Modified: 4.11.1996 / 22:45:47 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 20:51:28 / cg"
 "Modified: 4.11.1996 / 22:46:01 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:18:09 / cg"
 "Modified: 4.11.1996 / 22:45:57 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:18:17 / cg"
 "Modified: 4.11.1996 / 22:45:55 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseErrorString:'invalid method - not executable'.
+	raiseErrorString:'invalid method - not executable'.
 "Created: 4.11.1996 / 21:18:22 / cg"
 "Modified: 4.11.1996 / 22:45:52 / cg"
 !
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseRequestWith:self
+	raiseRequestWith:self
-errorString:'invalid method - not compiled'.
+	errorString:'invalid method - not compiled'.
 "Modified: 4.11.1996 / 22:58:02 / cg"
 !
 unloadedCodeObject
 * for reasons too far from being explained here,
 * this MUST be a compiled method
 */
 %}.
 ^ InvalidCodeError
-raiseRequestWith:self
+	raiseRequestWith:self
-errorString:'invalid method - unloaded'.
+	errorString:'invalid method - unloaded'.
 "Created: 4.11.1996 / 22:57:54 / cg"
 "Modified: 4.11.1996 / 22:58:28 / cg"
 ! !
 self basicPrintOn:aStream."/ aStream nextPutAll:(self classNameWithArticle).
 aStream nextPut:$(.
 classAndSelector := self who.
 classAndSelector isNil ifTrue:[
-"
+	"
-not anchored in any class.
+	 not anchored in any class.
-check if wrapped (to be more informative in inspectors)
+	 check if wrapped (to be more informative in inspectors)
-"
+	"
-m := self wrapper.
+	m := self wrapper.
-m notNil ifTrue:[
+	m notNil ifTrue:[
-classAndSelector := m who.
+	    classAndSelector := m who.
-wrapped := true.
+	    wrapped := true.
-]
+	]
 ].
 classAndSelector notNil ifTrue:[
-(classAndSelector methodClass) name printOn:aStream.
+	(classAndSelector methodClass) name printOn:aStream.
-aStream nextPutAll:' '.
+	aStream nextPutAll:' '.
-(classAndSelector methodSelector) printOn:aStream.
+	(classAndSelector methodSelector) printOn:aStream.
 ] ifFalse:[
-"
+	"
-sorry, a method which is nowhere anchored
+	 sorry, a method which is nowhere anchored
-"
+	"
-aStream nextPutAll:'unbound'
+	aStream nextPutAll:'unbound'
 ].
 aStream nextPut:$).
 wrapped ifTrue:[
-aStream nextPutAll:'; wrapped'
+	aStream nextPutAll:'; wrapped'
 ].
 "
 (Object compiledMethodAt:#at:) printOn:Transcript. Transcript cr.
 (Object compiledMethodAt:#at:) copy printOn:Transcript. Transcript cr.
 |who|
 who := self who.
 who notNil ifTrue:[
-^ who methodClass name , ' >> ' , (who methodSelector storeString)
+	^ who methodClass name , ' >> ' , (who methodSelector storeString)
 ].
 ^ 'unboundMethod'
 "
 Method new whoString
 initialized"
 | annotation args |
 annotations ifNil:[^nil].
 annotation := annotations at: index.
 annotation isArray ifTrue:[
-args := annotation size == 2
+	args := annotation size == 2
-ifTrue:[annotation second]
+		    ifTrue:[annotation second]
-ifFalse:[#()].
+		    ifFalse:[#()].
-args isArray ifFalse:[args := Array with: args].
+	args isArray ifFalse:[args := Array with: args].
-annotation := Annotation
+	annotation := Annotation
-key: annotation first
+			key: annotation first
-arguments: args.
+			arguments: args.
-annotation isUnknown ifFalse:[
+	annotation isUnknown ifFalse:[
-annotations at: index put: annotation.
+	    annotations at: index put: annotation.
 "/            annotation annotatesMethod: self
-].
+	].
 ].
 ^annotation
 "Created: / 02-07-2010 / 22:30:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 11-07-2010 / 19:39:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Returns index of annotation with given key
 or nil if there is no such annotation"
 annotations ifNil:[^nil].
 annotations keysAndValuesDo:
-[:index :annotationOrArray|
+	[:index :annotationOrArray|
-annotationOrArray isArray
+	annotationOrArray isArray
-ifTrue: [annotationOrArray first == key ifTrue:[^index]]
+	    ifTrue: [annotationOrArray first == key ifTrue:[^index]]
-ifFalse:[annotationOrArray key   == key ifTrue:[^index]]].
+	    ifFalse:[annotationOrArray key   == key ifTrue:[^index]]].
 ^nil.
 "Created: / 19-05-2010 / 16:40:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 11-07-2010 / 19:23:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 "remember a (raw) source stream for later use"
 |lastStream|
 (package notNil and:[package ~= PackageId noProjectID]) ifTrue:[
-LastFileLock critical:[
+	LastFileLock critical:[
-lastStream := LastFileReference at:1.
+	    lastStream := LastFileReference at:1.
-(lastStream notNil and:[lastStream ~= 0 and:[lastStream isOpen]]) ifTrue:[
+	    (lastStream notNil and:[lastStream ~= 0 and:[lastStream isOpen]]) ifTrue:[
-lastStream close.
+		lastStream close.
-].
+	    ].
-LastSourceFileName := package,'/',source.
+	    LastSourceFileName := package,'/',source.
-LastFileReference at:1 put:aStream.
+	    LastFileReference at:1 put:aStream.
-].
+	].
 ].
 !
 getAnnotations
 searching in standard places."
 |dir fileName aStream|
 package notNil ifTrue:[
-"/
+	"/
-"/ old: look in 'source/<filename>'
+	"/ old: look in 'source/<filename>'
-"/ this is still kept in order to find user-private
+	"/ this is still kept in order to find user-private
-"/ classes in her currentDirectory.
+	"/ classes in her currentDirectory.
-"/
+	"/
-fileName := Smalltalk getSourceFileName:(package copyReplaceAll:$: with:$/) , '/' , source.
+	fileName := Smalltalk getSourceFileName:(package copyReplaceAll:$: with:$/) , '/' , source.
-fileName notNil ifTrue:[
+	fileName notNil ifTrue:[
-aStream := fileName asFilename readStreamOrNil.
+	    aStream := fileName asFilename readStreamOrNil.
-aStream notNil ifTrue:[^ aStream].
+	    aStream notNil ifTrue:[^ aStream].
-].
+	].
-"/
+	"/
-"/ new: look in package-dir
+	"/ new: look in package-dir
-"/
+	"/
-dir := Smalltalk getPackageDirectoryForPackage:package.
+	dir := Smalltalk getPackageDirectoryForPackage:package.
-dir notNil ifTrue:[
+	dir notNil ifTrue:[
-fileName := dir construct:source.
+	    fileName := dir construct:source.
-aStream := fileName asFilename readStreamOrNil.
+	    aStream := fileName asFilename readStreamOrNil.
-aStream notNil ifTrue:[^ aStream].
+	    aStream notNil ifTrue:[^ aStream].
-].
+	].
 ].
 fileName := Smalltalk getSourceFileName:source.
 fileName notNil ifTrue:[
-aStream := fileName asFilename readStreamOrNil.
+	aStream := fileName asFilename readStreamOrNil.
 ].
 ^ aStream
 !
 rawSourceStreamUsingCache:usingCacheBoolean
 "
 source isNil ifTrue:[^ nil].
 sourcePosition isNil ifTrue:[^ source readStream].
 usingCacheBoolean ifTrue:[
-(package notNil and:[package ~= PackageId noProjectID]) ifTrue:[
+	(package notNil and:[package ~= PackageId noProjectID]) ifTrue:[
-"/ keep the last source file open, because open/close
+	    "/ keep the last source file open, because open/close
-"/ operations maybe slow on NFS-mounted file systems.
+	    "/ operations maybe slow on NFS-mounted file systems.
-"/ Since the reference to the file is weak, it will be closed
+	    "/ Since the reference to the file is weak, it will be closed
-"/ automatically if the file is not referenced for a while.
+	    "/ automatically if the file is not referenced for a while.
-"/ Neat trick.
+	    "/ Neat trick.
-LastFileLock critical:[
+	    LastFileLock critical:[
-aStream := LastFileReference at:1.
+		aStream := LastFileReference at:1.
-(aStream isNil or:[aStream == 0 or:[aStream isOpen not]]) ifTrue:[
+		(aStream isNil or:[aStream == 0 or:[aStream isOpen not]]) ifTrue:[
-aStream := nil.
+		    aStream := nil.
-LastFileReference at:1 put:nil.
+		    LastFileReference at:1 put:nil.
-].
+		].
-(aStream notNil and:[LastSourceFileName ~= (package,'/',source)]) ifTrue:[
+		(aStream notNil and:[LastSourceFileName ~= (package,'/',source)]) ifTrue:[
-aStream := nil.
+		    aStream := nil.
-].
+		].
-].
+	    ].
-aStream notNil ifTrue:[
+	    aStream notNil ifTrue:[
-^ aStream
+		^ aStream
-].
+	    ].
-].
+	].
 ].
 "/ a negative sourcePosition indicates
 "/ that this is a local file
 "/ (not to be requested via the sourceCodeManager)
 "/ This kludge was added, to allow sourceCode to be
 "/ saved to a local source file (i.e. 'st.src')
 "/ and having a clue for which file is meant later.
 sourcePosition < 0 ifTrue:[
-aStream := source asFilename readStreamOrNil.
+	aStream := source asFilename readStreamOrNil.
-aStream isNil ifTrue:[
+	aStream isNil ifTrue:[
-"/ search in some standard places
+	    "/ search in some standard places
-fileName := Smalltalk getSourceFileName:source.
+	    fileName := Smalltalk getSourceFileName:source.
-fileName notNil ifTrue:[
+	    fileName notNil ifTrue:[
-aStream := fileName asFilename readStreamOrNil.
+		aStream := fileName asFilename readStreamOrNil.
-].
+	    ].
-].
+	].
-aStream notNil ifTrue:[
+	aStream notNil ifTrue:[
-usingCacheBoolean ifTrue:[
+	    usingCacheBoolean ifTrue:[
-self cacheSourceStream:aStream.
+		self cacheSourceStream:aStream.
-].
+	    ].
-^ aStream
+	    ^ aStream
-].
+	].
 ].
 "/
 "/ if there is no SourceManager, look in local standard places first
 "/
 (Class tryLocalSourceFirst or:[(mgr := Smalltalk at:#SourceCodeManager) isNil]) ifTrue:[
-aStream := self localSourceStream.
+	aStream := self localSourceStream.
-aStream notNil ifTrue:[
+	aStream notNil ifTrue:[
-usingCacheBoolean ifTrue:[
+	    usingCacheBoolean ifTrue:[
-self cacheSourceStream:aStream.
+		self cacheSourceStream:aStream.
-].
+	    ].
-^ aStream
+	    ^ aStream
-].
+	].
 ].
 "/
 "/ nope - ask my class for the source (this also invokes the SCMgr)
 "/
 who := self who.
 who notNil ifTrue:[
-myClass := who methodClass.
+	myClass := who methodClass.
-(package notNil and:[package ~= myClass package]) ifTrue:[
+	(package notNil and:[package ~= myClass package]) ifTrue:[
-"/ I am an extension
+	    "/ I am an extension
-mgr notNil ifTrue:[
+	    mgr notNil ifTrue:[
-"/ try to get the source using my package information ...
+		"/ try to get the source using my package information ...
-mod := package asPackageId module.
+		mod := package asPackageId module.
-dir := package asPackageId directory.
+		dir := package asPackageId directory.
-aStream := mgr streamForExtensionFile:source package:package directory:dir module:mod cache:true.
+		aStream := mgr streamForExtensionFile:source package:package directory:dir module:mod cache:true.
-aStream notNil ifTrue:[
+		aStream notNil ifTrue:[
-usingCacheBoolean ifTrue:[
+		    usingCacheBoolean ifTrue:[
-self cacheSourceStream:aStream.
+			self cacheSourceStream:aStream.
-].
+		    ].
-^ aStream
+		    ^ aStream
-].
+		].
-].
+	    ].
-"/ consult the local fileSystem
+	    "/ consult the local fileSystem
-aStream := self localSourceStream.
+	    aStream := self localSourceStream.
-aStream notNil ifTrue:[
+	    aStream notNil ifTrue:[
-usingCacheBoolean ifTrue:[
+		usingCacheBoolean ifTrue:[
-self cacheSourceStream:aStream.
+		    self cacheSourceStream:aStream.
-].
+		].
-^ aStream
+		^ aStream
-]
+	    ]
-].
+	].
-aStream := myClass sourceStreamFor:source.
+	aStream := myClass sourceStreamFor:source.
-aStream notNil ifTrue:[
+	aStream notNil ifTrue:[
-usingCacheBoolean ifTrue:[
+	    usingCacheBoolean ifTrue:[
-self cacheSourceStream:aStream.
+		self cacheSourceStream:aStream.
-].
+	    ].
-^ aStream
+	    ^ aStream
-].
+	].
 ].
 "/
 "/ nope - look in standard places
 "/ (if there is a source-code manager - otherwise, we already did that)
 "/
 (mgr notNil and:[Class tryLocalSourceFirst not]) ifTrue:[
-aStream := self localSourceStream.
+	aStream := self localSourceStream.
-aStream notNil ifTrue:[
+	aStream notNil ifTrue:[
-usingCacheBoolean ifTrue:[
+	    usingCacheBoolean ifTrue:[
-self cacheSourceStream:aStream.
+		self cacheSourceStream:aStream.
-].
+	    ].
-^ aStream
+	    ^ aStream
-].
+	].
 ].
 "/
 "/ final chance: try current directory
 "/
 aStream isNil ifTrue:[
-aStream := source asFilename readStreamOrNil.
+	aStream := source asFilename readStreamOrNil.
-aStream notNil ifTrue:[
+	aStream notNil ifTrue:[
-usingCacheBoolean ifTrue:[
+	    usingCacheBoolean ifTrue:[
-self cacheSourceStream:aStream.
+		self cacheSourceStream:aStream.
-].
+	    ].
-^ aStream
+	    ^ aStream
-].
+	].
 ].
 (who isNil and:[source notNil]) ifTrue:[
-"/
+	"/
-"/ mhmh - seems to be a method which used to be in some
+	"/ mhmh - seems to be a method which used to be in some
-"/ class, but has been overwritten by another or removed.
+	"/ class, but has been overwritten by another or removed.
-"/ (i.e. it has no containing class anyMore)
+	"/ (i.e. it has no containing class anyMore)
-"/ try to guess the class from the sourceFileName.
+	"/ try to guess the class from the sourceFileName.
-"/ and retry.
+	"/ and retry.
-"/
+	"/
-className := Smalltalk classNameForFile:source.
+	className := Smalltalk classNameForFile:source.
-(classNameSymbol := className asSymbolIfInterned) notNil ifTrue:[
+	(classNameSymbol := className asSymbolIfInterned) notNil ifTrue:[
-myClass := Smalltalk at:classNameSymbol ifAbsent:nil.
+	    myClass := Smalltalk at:classNameSymbol ifAbsent:nil.
-myClass notNil ifTrue:[
+	    myClass notNil ifTrue:[
-aStream := myClass sourceStreamFor:source.
+		aStream := myClass sourceStreamFor:source.
-aStream notNil ifTrue:[
+		aStream notNil ifTrue:[
-usingCacheBoolean ifTrue:[
+		    usingCacheBoolean ifTrue:[
-self cacheSourceStream:aStream.
+			self cacheSourceStream:aStream.
-].
+		    ].
-^ aStream
+		    ^ aStream
-].
+		].
-]
+	    ]
-]
+	]
 ].
 ^ nil
 "Modified: / 26-11-2006 / 22:33:38 / cg"
 "Created: / 11-07-2010 / 19:31:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 sourceChunkFromStream:aStream
 PositionError handle:[:ex |
-^ nil
+	^ nil
 ] do:[
-aStream position1Based:(sourcePosition ? 1) abs.
+	aStream position1Based:(sourcePosition ? 1) abs.
 ].
 ^ aStream nextChunk.
 !
 sourceStreamUsingCache:usingCacheBoolean
 |rawStream|
 rawStream := self rawSourceStreamUsingCache:usingCacheBoolean.
 rawStream isNil ifTrue:[
-^ nil.
+	^ nil.
 ].
 "/ see if its utf8 encoded...
 ^ EncodedStream decodedStreamFor:rawStream.
 ! !
 #ifdef F_PRIMITIVE
 INT f = __intVal(__INST(flags));
 OBJ nr = 0;
 if (f & F_PRIMITIVE) {
-nr = __INST(code_);
+	nr = __INST(code_);
 }
 RETURN (nr);
 #endif
 %}.
 self primitiveFailed
 |src parser|
 src := self source.
 src notNil ifTrue:[
-parser := Parser
+	parser := Parser
-parseMethod:src
+			parseMethod:src
-in:self containingClass
+			in:self containingClass
-ignoreErrors:true
+			ignoreErrors:true
-ignoreWarnings:true.
+			ignoreWarnings:true.
-(parser notNil and:[parser ~~ #Error]) ifTrue:[
+	(parser notNil and:[parser ~~ #Error]) ifTrue:[
-^ parser usedInstVars
+	    ^ parser usedInstVars
-].
+	].
 ].
 ^ #() "/ actually: unknown
 "Modified: 19.6.1997 / 17:54:09 / cg"
 !
 "based on who, which has been added for ST-80 compatibility"
 |who|
 mclass notNil ifTrue:[
-"/ check if this (cached) info is still valid ...
+	"/ check if this (cached) info is still valid ...
-(mclass containsMethod:self) ifTrue:[
+	(mclass containsMethod:self) ifTrue:[
-^ mclass
+	    ^ mclass
-].
+	].
-mclass := nil.
+	mclass := nil.
 ].
 who := self who.
 who notNil ifTrue:[^ who methodClass].
 "
 "if this is an externalLibraryFunction call, return the externalLibraryFunction.
 Returns nil otherwise."
 |newMethod function|
 (self
-literalsDetect:[:lit |
+	literalsDetect:[:lit |
-#(
+	    #(
-#'invoke'
+		#'invoke'
-#'invokeWith:'
+		#'invokeWith:'
-#'invokeWith:with:'
+		#'invokeWith:with:'
-#'invokeWith:with:with:'
+		#'invokeWith:with:with:'
-#'invokeWith:with:with:with:'
+		#'invokeWith:with:with:with:'
-#'invokeWithArguments:'
+		#'invokeWithArguments:'
-#'invokeCPPVirtualOn:'
+		#'invokeCPPVirtualOn:'
-#'invokeCPPVirtualOn:with:'
+		#'invokeCPPVirtualOn:with:'
-#'invokeCPPVirtualOn:with:with:'
+		#'invokeCPPVirtualOn:with:with:'
-#'invokeCPPVirtualOn:with:with:with:'
+		#'invokeCPPVirtualOn:with:with:with:'
-#'invokeCPPVirtualOn:with:with:with:with:'
+		#'invokeCPPVirtualOn:with:with:with:with:'
-#'invokeCPPVirtualOn:withArguments:'
+		#'invokeCPPVirtualOn:withArguments:'
-) includes:lit
+	    ) includes:lit
-]
+	]
-ifNone:nil) notNil
+	ifNone:nil) notNil
 ifTrue:[
-"/ sigh - for stc-compiled code, this does not work:
+	"/ sigh - for stc-compiled code, this does not work:
-function := self literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil.
+	function := self literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil.
-function isNil ifTrue:[
+	function isNil ifTrue:[
-"/ parse it and ask the parser
+	    "/ parse it and ask the parser
-newMethod := Compiler compile:self source forClass:self mclass install:false.
+	    newMethod := Compiler compile:self source forClass:self mclass install:false.
-function := newMethod literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil.
+	    function := newMethod literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil.
-].
+	].
-^ function
+	^ function
 ].
 ^ nil
 "
 (IDispatchPointer compiledMethodAt:#'invokeGetTypeInfo:_:_:')
-externalLibraryFunction
+	externalLibraryFunction
 "
 !
 hasAnnotation
 ^ self hasResource and:[ self resources keys includesAny:aCollectionOfSymbols ]
 "
 Method allInstancesDo:[:m |
-(m hasAnyResource:#(image canvas)) ifTrue:[self halt]
+	(m hasAnyResource:#(image canvas)) ifTrue:[self halt]
 ].
 "
 !
 hasCanvasResource
 "/ first a trivial reject, if the source does not
 "/ contain a '% {' sequence
 src := self source.
 src notNil ifTrue:[
-(src includesString:(String with:$% with:${) "<- no constant here - to avoid trouble with stupid scanners" ) ifFalse:[
+	(src includesString:(String with:$% with:${) "<- no constant here - to avoid trouble with stupid scanners" ) ifFalse:[
-"/ cannot contain primitive code.
+	    "/ cannot contain primitive code.
-^ false
+	    ^ false
-]
+	]
 ].
 "/ ok; it may or may not ...
 ^ self parse:#'parseMethodSilent:' return:#hasPrimitiveCode or:false
 ^ self hasResource and:[ (self resources ? #()) includesKey:aSymbol ]
 "
 Method allInstancesDo:[:m |
-(m hasResource:#image) ifTrue:[self halt]
+	(m hasResource:#image) ifTrue:[self halt]
 ].
 "
 "Modified: / 01-12-2010 / 13:59:58 / cg"
 !
 myCode := self code.
 m := self trapMethodForNumArgs:(self numArgs).
 (m notNil and:[self ~~ m]) ifTrue:[
-(myCode notNil and:[myCode = m code]) ifTrue:[^ true].
+	(myCode notNil and:[myCode = m code]) ifTrue:[^ true].
-(byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
+	(byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
 ].
 m := Method compiledMethodAt:#uncompiledCodeObject.
 (m notNil and:[self ~~ m]) ifTrue:[
-(myCode notNil and:[myCode = m code]) ifTrue:[^ true].
+	(myCode notNil and:[myCode = m code]) ifTrue:[^ true].
-(byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
+	(byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
 ].
 m := Method compiledMethodAt:#unloadedCodeObject.
 (m notNil and:[self ~~ m]) ifTrue:[
-(myCode notNil and:[myCode = m code]) ifTrue:[^ true].
+	(myCode notNil and:[myCode = m code]) ifTrue:[^ true].
-(byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
+	(byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
 ].
 ^ false
 "Modified: 4.11.1996 / 23:34:24 / cg"
 |parserClass parser sourceString argNames varNames|
 parserClass := self parserClass.
 sourceString := self source.
 (parserClass notNil and:[sourceString notNil]) ifTrue:[
-parser := parserClass parseMethodArgAndVarSpecificationSilent:sourceString.
+	parser := parserClass parseMethodArgAndVarSpecificationSilent:sourceString.
-(parser isNil or:[parser == #Error]) ifTrue:[^ nil].
+	(parser isNil or:[parser == #Error]) ifTrue:[^ nil].
-argNames := parser methodArgs.
+	argNames := parser methodArgs.
-varNames := parser methodVars.
+	varNames := parser methodVars.
-argNames isNil ifTrue:[^ varNames].
+	argNames isNil ifTrue:[^ varNames].
-varNames isNil ifTrue:[^ argNames].
+	varNames isNil ifTrue:[^ argNames].
-^ (argNames , varNames)
+	^ (argNames , varNames)
 ].
 ^ nil
 "
 (Method compiledMethodAt:#printOn:) methodArgAndVarNames
 (text size < 2) ifTrue:[^nil].
 line := (text at:2).
 nQuote := line occurrencesOf:(Character doubleQuote).
 (nQuote == 2) ifTrue:[
-qIndex := line indexOf:(Character doubleQuote).
+	qIndex := line indexOf:(Character doubleQuote).
-qIndex2 := line indexOf:(Character doubleQuote) startingAt:(qIndex + 1).
+	qIndex2 := line indexOf:(Character doubleQuote) startingAt:(qIndex + 1).
-^ line copyFrom:(qIndex + 1) to:(qIndex2 - 1)
+	^ line copyFrom:(qIndex + 1) to:(qIndex2 - 1)
 ].
 (nQuote == 1) ifTrue:[
-qIndex := line indexOf:(Character doubleQuote).
+	qIndex := line indexOf:(Character doubleQuote).
-comment := line copyFrom:(qIndex + 1).
+	comment := line copyFrom:(qIndex + 1).
-(line indexOf:$/ startingAt:qIndex) == (qIndex+1) ifTrue:[
+	(line indexOf:$/ startingAt:qIndex) == (qIndex+1) ifTrue:[
-"/ an EOL comment
+	    "/ an EOL comment
-^ (comment copyFrom:2) withoutSeparators
+	    ^ (comment copyFrom:2) withoutSeparators
-].
+	].
-"/ not an EOL comment
+	"/ not an EOL comment
-index := 3.
+	index := 3.
-line := text at:index.
+	line := text at:index.
-nQuote := line occurrencesOf:(Character doubleQuote).
+	nQuote := line occurrencesOf:(Character doubleQuote).
-[nQuote ~~ 1] whileTrue:[
+	[nQuote ~~ 1] whileTrue:[
-comment := comment , Character cr asString , line withoutSpaces.
+	    comment := comment , Character cr asString , line withoutSpaces.
-index := index + 1.
+	    index := index + 1.
-line := text at:index.
+	    line := text at:index.
-nQuote := line occurrencesOf:(Character doubleQuote)
+	    nQuote := line occurrencesOf:(Character doubleQuote)
-].
+	].
-qIndex := line indexOf:(Character doubleQuote).
+	qIndex := line indexOf:(Character doubleQuote).
-^ comment , Character cr asString , (line copyTo:(qIndex - 1)) withoutSpaces
+	^ comment , Character cr asString , (line copyTo:(qIndex - 1)) withoutSpaces
 ].
 ^ nil
 "
 (Method compiledMethodAt:#methodComment) methodComment
 methodDefinitionTemplate
 "return the string that defines the method and the arguments"
 ^ Method
-methodDefinitionTemplateForSelector:self selector
+	methodDefinitionTemplateForSelector:self selector
-andArgumentNames:self methodArgNames
+	andArgumentNames:self methodArgNames
 "
 (self compiledMethodAt:#printOn:) methodDefinitionTemplate
 "
 !
 s isNil ifTrue:[^ nil].
 list := HistoryManager getAllHistoriesFrom:s.
 list size == 0 ifTrue:[^ nil].
 histLine := list last.
 ^ Timestamp
-fromDate:histLine date
+	fromDate:histLine date
-andTime:histLine time
+	andTime:histLine time
 "
 (Method compiledMethodAt:#modificationTime) modificationTime
 (Method compiledMethodAt:#isMethod) modificationTime
 "
 overrides: aMethod
 | mth |
 mth := self overriddenMethod.
 [ mth notNil ] whileTrue:
-[mth == aMethod ifTrue:[^true].
+	[mth == aMethod ifTrue:[^true].
-mth := mth overriddenMethod].
+	mth := mth overriddenMethod].
 ^false
 "Modified: / 18-06-2009 / 12:15:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 ^ self parse:parseSelector with:nil return:accessSelector or:valueIfNoSource
 "
 (Method compiledMethodAt:#parse:return:or:)
-parse:#'parseMethodSilent:' return:#sentMessages or:#()
+	parse:#'parseMethodSilent:' return:#sentMessages or:#()
 "
 !
 parse:parseSelector with:arg2 return:accessSelector or:valueIfNoSource
 "helper for methodArgNames, methodVarNames etc.
 |parser parserClass sourceString|
 parserClass := self parserClass.
 sourceString := self source.
 (parserClass notNil and:[sourceString notNil]) ifTrue:[
-parseSelector numArgs == 2 ifTrue:[
+	parseSelector numArgs == 2 ifTrue:[
-parser := parserClass perform:parseSelector with:sourceString with:arg2.
+	    parser := parserClass perform:parseSelector with:sourceString with:arg2.
-] ifFalse:[
+	] ifFalse:[
-parser := parserClass perform:parseSelector with:sourceString.
+	    parser := parserClass perform:parseSelector with:sourceString.
-].
+	].
-(parser isNil or:[parser == #Error]) ifTrue:[^ valueIfNoSource].
+	(parser isNil or:[parser == #Error]) ifTrue:[^ valueIfNoSource].
-^ parser perform:accessSelector
+	^ parser perform:accessSelector
 ].
 ^ valueIfNoSource
 "
 (Method compiledMethodAt:#parse:return:or:)
-parse:#'parseMethodSilent:' return:#sentMessages or:#()
+	parse:#'parseMethodSilent:' return:#sentMessages or:#()
 "
 !
 parseAnnotations
 |src parser|
 src := self source.
 src isNil ifTrue:[
-^ nil "/ actually: dont know
+	^ nil "/ actually: dont know
 ].
 self parserClass isNil ifTrue:[
-^ nil
+	^ nil
 ].
 parser := self parserClass parseMethod: src.
 (parser isNil or: [parser == #Error]) ifTrue:[
-^ nil "/ actually error
+	^ nil "/ actually error
 ].
 ^ annotations := parser annotations.
 "Created: / 10-07-2010 / 21:16:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 |src parser|
 src := self source.
 src isNil ifTrue:[
-^ nil "/ actually: dont know
+	^ nil "/ actually: dont know
 ].
 (src findString:'resource:') == 0 ifTrue:[
-^ nil "/ actually: error
+	^ nil "/ actually: error
 ].
 "/ no need to parse all - only interested in resource-info
 self parserClass isNil ifTrue:[
-^ nil
+	^ nil
 ].
 parser := self parserClass parseMethodArgAndVarSpecificationSilent:src in:nil.
 parser isNil ifTrue:[
-^ nil "/ actually error
+	^ nil "/ actually error
 ].
 ^ parser primitiveResources.
 !
 previousVersion
 cls := self mclass.
 cls isNil ifTrue:[ ^ nil ].
 ChangeSet current reverseDo:[:change |
-(change isMethodChange
+	(change isMethodChange
-and:[ (change selector == sel)
+	and:[ (change selector == sel)
-and:[ change changeClass == cls ]])
+	and:[ change changeClass == cls ]])
-ifTrue:[
+	ifTrue:[
-previous := change previousVersion.
+	    previous := change previousVersion.
-previous notNil ifTrue:[
+	    previous notNil ifTrue:[
-^ previous
+		^ previous
-]
+	    ]
-]
+	]
 ].
 ^ nil.
 "/    history := Class methodHistory.
 "/    history isNil ifTrue:[^ nil].
 cls isNil ifTrue:[^ #()].
 versions := OrderedCollection new.
 ChangeSet current reverseDo:[:change |
-(change isMethodChange
+	 (change isMethodChange
-and:[ (change selector == sel)
+	and:[ (change selector == sel)
-and:[ change changeClass == cls ]])
+	and:[ change changeClass == cls ]])
-ifTrue:[
+	ifTrue:[
-versions addFirst:change.
+	    versions addFirst:change.
-lastChange := change.
+	    lastChange := change.
-]
+	]
 ].
 lastChange notNil ifTrue:[
-last := lastChange previousVersion.
+	last := lastChange previousVersion.
-last notNil ifTrue:[
+	last notNil ifTrue:[
-firstSrc := last source.
+	    firstSrc := last source.
-(firstSrc size > 0
+	    (firstSrc size > 0
-and:[ firstSrc ~= lastChange source]) ifTrue:[
+	    and:[ firstSrc ~= lastChange source]) ifTrue:[
-versions addFirst:(MethodChange
+		versions addFirst:(MethodChange
-className:lastChange className
+				    className:lastChange className
-selector:lastChange selector
+				    selector:lastChange selector
-source:firstSrc
+				    source:firstSrc
-category:lastChange category).
+				    category:lastChange category).
-]
+	    ]
-]
+	]
 ].
 ^ versions
 !
 readsField:instVarIndex
 Returns either nil, or a single symbol."
 |resources|
 (resources := self resources) notNil ifTrue:[
-resources keysAndValuesDo:[:key :val|
+	resources keysAndValuesDo:[:key :val|
-^ key
+	    ^ key
-].
+	].
 ].
 ^ nil
 !
 resources
 self hasResource ifFalse:[^ nil].
 annotations ifNil:[^ self parseResources].
 resources := IdentityDictionary new.
 self annotationsAt: #resource: orAt: #resource:value: do:
-[:annot|
+	[:annot|
-resources at: annot type put: annot value ? true].
+	resources at: annot type put: annot value ? true].
 ^resources
 "Modified: / 16-07-2010 / 11:49:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 sends:aSelectorSymbol
 "return true, if this method contains a message-send
 with aSelectorSymbol as selector."
 (self referencesLiteral:aSelectorSymbol) ifTrue:[
-^ self messagesSent includesIdentical:aSelectorSymbol
+	^ self messagesSent includesIdentical:aSelectorSymbol
 ].
 ^ false
 !
 sends:selectorSymbol1 or:selectorSymbol2
 to either selectorSymbol1 or selectorSymbol2."
 |msgs|
 ((self referencesLiteral:selectorSymbol1) or:[self referencesLiteral:selectorSymbol2]) ifTrue:[
-msgs := self messagesSent.
+	msgs := self messagesSent.
-^ (msgs includesIdentical:selectorSymbol1) or:[msgs includesIdentical:selectorSymbol2]
+	^ (msgs includesIdentical:selectorSymbol1) or:[msgs includesIdentical:selectorSymbol2]
 ].
 ^ false
 !
 shouldBeSkippedInDebuggersWalkBack
 who
 "return the class and selector of where I am defined in;
 nil is returned for unbound methods.
 ST/X special notice:
-returns an instance of MethodWhoInfo, which
+	returns an instance of MethodWhoInfo, which
-responds to #methodClass and #methodSelector query messages.
+	responds to #methodClass and #methodSelector query messages.
-For backward- (& ST-80) compatibility, the returned object also
+	For backward- (& ST-80) compatibility, the returned object also
-responds to #at:1 and #at:2 messages.
+	responds to #at:1 and #at:2 messages.
 Implementation notice:
-Since there is no information of the containing class
+	Since there is no information of the containing class
-in the method, we have to do a search here.
+	in the method, we have to do a search here.
-Normally, this is not a problem, except when a method is
+	Normally, this is not a problem, except when a method is
-accepted in the debugger or redefined from within a method
+	accepted in the debugger or redefined from within a method
-(maybe done indirectly, if #doIt is done recursively)
+	(maybe done indirectly, if #doIt is done recursively)
-- the information about which class the original method was
+	- the information about which class the original method was
-defined in is lost in this case.
+	defined in is lost in this case.
 Problem:
-this is heavily called for in the debugger to create
+	this is heavily called for in the debugger to create
-a readable context walkback. For unbound methods, it is
+	a readable context walkback. For unbound methods, it is
-slow, since the search (over all classes) will always fail.
+	slow, since the search (over all classes) will always fail.
 Q: should we add a backref from the method to the class
-and/or add a subclass of Method for unbound ones ?
+	and/or add a subclass of Method for unbound ones ?
 Q2: if so, what about the bad guy then, who copies methods around to
-other classes ?"
+	 other classes ?"
 |classes cls sel fn clsName checkBlock|
 mclass notNil ifTrue:[
-sel := mclass selectorAtMethod:self.
+	sel := mclass selectorAtMethod:self.
-sel notNil ifTrue:[
+	sel notNil ifTrue:[
-^ MethodWhoInfo class:mclass selector:sel
+	    ^ MethodWhoInfo class:mclass selector:sel
-].
+	].
-"/ flush outdated mclass info
+	"/ flush outdated mclass info
-mclass := nil.
+	mclass := nil.
 ].
 checkBlock := [:cls |
-|sel|
+	|sel|
-sel := cls selectorAtMethod:self.
+	sel := cls selectorAtMethod:self.
-sel notNil ifTrue:[
+	sel notNil ifTrue:[
-LastWhoClass := cls theNonMetaclass name.
+	    LastWhoClass := cls theNonMetaclass name.
-mclass isNil ifTrue:[
+	    mclass isNil ifTrue:[
-mclass := cls
+		mclass := cls
-].
+	    ].
-^ MethodWhoInfo class:cls selector:sel
+	    ^ MethodWhoInfo class:cls selector:sel
-].
+	].
 ].
 "
 speedup kludge: if my sourceFileName is valid,
 extract the className from it and try that class first.
 "
 (fn := self sourceFilename) notNil ifTrue:[
-clsName := fn asFilename nameWithoutSuffix.
+	clsName := fn asFilename nameWithoutSuffix.
-clsName := clsName asSymbolIfInterned.
+	clsName := clsName asSymbolIfInterned.
-clsName notNil ifTrue:[
+	clsName notNil ifTrue:[
-cls := Smalltalk at:clsName ifAbsent:nil.
+	    cls := Smalltalk at:clsName ifAbsent:nil.
-cls notNil ifTrue:[
+	    cls notNil ifTrue:[
-checkBlock value:cls theNonMetaclass.
+		checkBlock value:cls theNonMetaclass.
-checkBlock value:cls theMetaclass.
+		checkBlock value:cls theMetaclass.
-]
+	    ]
-].
+	].
 ].
 "
 then, look in the class we found something the last time
 this may often give a hit, when asking who repeatingly for
 a context chain. (keep last by its name, to not keep classes from
 being garbage collected)
 "
 LastWhoClass notNil ifTrue:[
-cls := Smalltalk at:LastWhoClass ifAbsent:nil.
+	cls := Smalltalk at:LastWhoClass ifAbsent:nil.
-cls notNil ifTrue:[
+	cls notNil ifTrue:[
-checkBlock value:cls theNonMetaclass.
+	    checkBlock value:cls theNonMetaclass.
-checkBlock value:cls theMetaclass.
+	    checkBlock value:cls theMetaclass.
-]
+	]
 ].
 "
 first, limit the search to global classes only -
 since probability is high, that the receiver is found in there ...
 classes := Smalltalk allClasses.
 "
 instance methods are usually more common - search those first
 "
 classes do:[:cls |
-checkBlock value:cls theNonMetaclass.
+	checkBlock value:cls theNonMetaclass.
-checkBlock value:cls theMetaclass.
+	checkBlock value:cls theMetaclass.
 ].
 LastWhoClass := nil.
 "/    "
 "/     mhmh - must be a method of some anonymous class (i.e. one not
 "untypical situation: an anonymous class"
 "
 |m cls|
 Object
-subclass:#FunnyClass
+	subclass:#FunnyClass
-instanceVariableNames:'foo'
+	instanceVariableNames:'foo'
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'testing'.
+	category:'testing'.
 cls := Smalltalk at:#FunnyClass.
 Smalltalk removeClass:cls.
 cls compile:'testMethod1:arg foo:=arg'.
 cls compile:'testMethod2 ^ foo'.
 wrapper
 "only for wrapped methods: return the wrapper.
 Thats the WrapperMethod which contains myself."
 WrappedMethod allInstancesDo:[:m |
-m originalMethod == self ifTrue:[^ m].
+	m originalMethod == self ifTrue:[^ m].
 ].
 ^ nil
 !
 writesField:instVarIndex
 trapMethodForNumArgs:numArgs
 |trapSel|
 trapSel := #(
-#'invalidCodeObject'
+		  #'invalidCodeObject'
-#'invalidCodeObjectWith:'
+		  #'invalidCodeObjectWith:'
-#'invalidCodeObjectWith:with:'
+		  #'invalidCodeObjectWith:with:'
-#'invalidCodeObjectWith:with:with:'
+		  #'invalidCodeObjectWith:with:with:'
-#'invalidCodeObjectWith:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:with:with:with:'
-#'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:with:with:with:with:'
+		  #'invalidCodeObjectWith:with:with:with:with:with:with:with:with:with:with:with:with:with:with:'
-) at:(numArgs + 1).
+		) at:(numArgs + 1).
 ^ Method compiledMethodAt:trapSel.
 "Created: 4.11.1996 / 21:58:58 / cg"
 "Modified: 4.11.1996 / 23:18:05 / cg"
 In earlier times, Method>>who returned an array filled
 with the methods class and selector.
 This was done, since a smalltalk method cannot return multiple
 values, but 2 values had to be returned from that method.
 Thus, the who-interface was used as:
-info := <someMethod> who.
+	info := <someMethod> who.
-class := info at:1.
+	class := info at:1.
-sel := info at:2.
+	sel := info at:2.
 Sure, this is ugly coding style, and the system has been changed to return
 an object (an instance of MethodWhoInfo) which responds to the two
 messages: #methodClass and #methodSelector.
 This allows to write things much more intuitive:
-info := <someMethod> who.
+	info := <someMethod> who.
-class := info methodClass.
+	class := info methodClass.
-sel := info methodSelector.
+	sel := info methodSelector.
 However, to be backward compatible, the returned object still responds to
 the #at: message, but only allows inices of 1 and 2 to be used.
 The MethodWhoInfo class is private to Method - its not visible to other
 classes.
 [author:]
-Claus Gittinger
+	Claus Gittinger
 [see also:]
-Method
+	Method
 "
 ! !
 !Method::MethodWhoInfo class methodsFor:'instance creation'!
 at:index
 "simulate the old behavior (when Method>>who returned an array)"
 index == 1 ifTrue:[
-^ myClass
+	^ myClass
 ].
 index == 2 ifTrue:[
-^ mySelector
+	^ mySelector
 ].
 "/ sigh - full compatibility ?
 ^ self indexNotIntegerOrOutOfBounds:index
 ! !
 ! !
 !Method class methodsFor:'documentation'!
 version_CVS
-^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.358 2011-06-28 18:09:51 vrany Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.359 2011-06-29 19:18:20 cg Exp $'
 !
 version_SVN
-^ ' Id: Method.st 10648 2011-06-23 15:55:10Z vranyj1  '
+^ '� Id: Method.st 10648 2011-06-23 15:55:10Z vranyj1 �'
 ! !
 Method initialize!

changeset 13463	7c98583d98c8
parent 13422	b43a8a47037c
child 13567	fe6564553977