hg/stx-libbasic: comparison Class.st

equal deleted inserted replaced

-:a4386f928cf0
+:3ae2f700ed6e
 "
 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
 "
 "{ Package: 'stx:libbasic' }"
 ClassDescription subclass:#Class
-	instanceVariableNames:'name category classvars comment subclasses classFilename package
+instanceVariableNames:'name category classvars comment subclasses classFilename package
-		revision primitiveSpec environment signature hook'
+revision primitiveSpec environment signature hook'
-	classVariableNames:''
+classVariableNames:''
-	poolDictionaries:''
+poolDictionaries:''
-	category:'Kernel-Classes'
+category:'Kernel-Classes'
 !
 !Class 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
 "/
 "/ mhmh - ask the default manager
 "/
 (mgr := Smalltalk at:#SourceCodeManager) notNil ifTrue:[
-	info := mgr revisionInfoFromString:aString.
+info := mgr revisionInfoFromString:aString.
-	info notNil ifTrue:[
+info notNil ifTrue:[
-	    ^ info
+^ info
-	]
+]
 ].
 "/
 "/ fallBack - handles some RCS headers only
 "/ is this really needed ?
 "/
 info := IdentityDictionary new.
 words := aString asCollectionOfWords.
 words notEmpty ifTrue:[
-	"/
+"/
-	"/ supported formats:
+"/ supported formats:
-	"/
+"/
-	"/ $-Header: pathName rev date time user state $
+"/ $-Header: pathName rev date time user state $
-	"/ $-Revision: rev $
+"/ $-Revision: rev $
-	"/ $-Id: fileName rev date time user state $
+"/ $-Id: fileName rev date time user state $
-	"/
+"/
-	((words at:1) = '$Header:') ifTrue:[
+((words at:1) = '$Header:') ifTrue:[
-	    nm := words at:2.
+nm := words at:2.
-	    info at:#repositoryPathName put:nm.
+info at:#repositoryPathName put:nm.
-	    (nm endsWith:',v') ifTrue:[
+(nm endsWith:',v') ifTrue:[
-		nm := nm copyWithoutLast:2
+nm := nm copyWithoutLast:2
-	    ].
+].
-	    info at:#fileName put:nm asFilename baseName.
+info at:#fileName put:nm asFilename baseName.
-	    words size > 2 ifTrue:[
+words size > 2 ifTrue:[
-		(words at:3) = '$' ifFalse:[
+(words at:3) = '$' ifFalse:[
-		    info at:#revision put:(words at:3).
+info at:#revision put:(words at:3).
-		    (words at:4) = '$' ifFalse:[
+(words at:4) = '$' ifFalse:[
-			info at:#date put:(words at:4).
+info at:#date put:(words at:4).
-			info at:#time put:(words at:5).
+info at:#time put:(words at:5).
-			info at:#user put:(words at:6).
+info at:#user put:(words at:6).
-			info at:#state put:(words at:7).
+info at:#state put:(words at:7).
-		    ]
+]
-		].
+].
-	    ].
+].
-	    ^ info
+^ info
-	].
+].
-	((words at:1) = '$Revision:') ifTrue:[
+((words at:1) = '$Revision:') ifTrue:[
-	    info at:#revision put:(words at:2).
+info at:#revision put:(words at:2).
-	    ^ info
+^ info
-	].
+].
-	((words at:1) = '$Id:') ifTrue:[
+((words at:1) = '$Id:') ifTrue:[
-	    info at:#fileName put:(words at:2).
+info at:#fileName put:(words at:2).
-	    info at:#revision put:(words at:3).
+info at:#revision put:(words at:3).
-	    info at:#date put:(words at:4).
+info at:#date put:(words at:4).
-	    info at:#time put:(words at:5).
+info at:#time put:(words at:5).
-	    info at:#user put:(words at:6).
+info at:#user put:(words at:6).
-	    info at:#state put:(words at:7).
+info at:#state put:(words at:7).
-	    ^ info
+^ info
-	].
+].
 ].
 ^ nil
 "Created: 15.11.1995 / 14:58:35 / cg"
 |lines line|
 lines := aMethodSourceString asCollectionOfLines.
 lines do:[:l |
-	|i|
+|i|
-	i := l indexOfSubCollection:'$Header: '.
+i := l indexOfSubCollection:'$Header: '.
-	i ~~ 0 ifTrue:[
+i ~~ 0 ifTrue:[
-	    line := l copyFrom:i.
+line := l copyFrom:i.
-	    i := line lastIndexOf:$$.
+i := line lastIndexOf:$$.
-	    i > 1 ifTrue:[
+i > 1 ifTrue:[
-		line := line copyTo:i.
+line := line copyTo:i.
-	    ].
+].
-	    ^ line
+^ line
-	]
+]
 ].
 ^ nil
 "Created: 15.10.1996 / 18:57:57 / cg"
 "Modified: 16.10.1996 / 16:54:40 / cg"
 ^ self == Class class or:[self == Class]
 "Created: 15.4.1996 / 17:17:13 / cg"
 "Modified: 23.4.1996 / 15:56:58 / cg"
 ! !
 !Class methodsFor:'Compatibility - ST80'!
 fileOutSourceOn:aStream
 self fileOutOn:aStream withTimeStamp:false
 "the comment is either a string, or an integer specifying the
 position within the classes sourcefile ...
 "
 comment isNumber ifTrue:[
-	classFilename notNil ifTrue:[
+classFilename notNil ifTrue:[
-	    stream := self sourceStream.
+stream := self sourceStream.
-	    stream notNil ifTrue:[
+stream notNil ifTrue:[
-		stream position:comment.
+stream position:comment.
-		string := String readFrom:stream onError:''.
+string := String readFrom:stream onError:''.
-		stream close.
+stream close.
-		^ string
+^ string
-	    ].
+].
-	    ^ nil
+^ nil
-	]
+]
 ].
 ^ comment
 "
 Object comment
 "/ due to the implementation, extract this from my name
 "/ (physically, all classes are found in Smalltalk)
 idx := name lastIndexOf:$:.
 idx ~~ 0 ifTrue:[
-	(name at:idx-1) == $: ifTrue:[
+(name at:idx-1) == $: ifTrue:[
-	    nsName := name copyTo:(idx - 2).
+nsName := name copyTo:(idx - 2).
-	    environment := Smalltalk at:nsName asSymbol.
+environment := Smalltalk at:nsName asSymbol.
-	]
+]
 ].
 ^ environment
 "Modified: / 20.7.1998 / 14:21:36 / cg"
 !
 |nmSym|
 nmSym := (self name , '::' , aClassNameStringOrSymbol) asSymbolIfInterned.
 nmSym isNil ifTrue:[
-	"/ no such symbol - there cannot be a corresponding private class
+"/ no such symbol - there cannot be a corresponding private class
-	^ nil
+^ nil
 ].
 ^ Smalltalk at:nmSym.
 "Modified: 26.6.1997 / 11:44:04 / cg"
 |cat|
 comment := com.
 categoryStringOrSymbol isNil ifTrue:[
-	cat := ''
+cat := ''
 ] ifFalse:[
-	cat := categoryStringOrSymbol
+cat := categoryStringOrSymbol
 ].
 category := cat asSymbol
 !
 setEnvironment:aNamespace
 aStream := WriteStream on:code.
 self fileOutOn:aStream
 "
 aStream := FileStream newFileNamed:'__temp'.
 aStream isNil ifTrue:[
-	self notify:'cannot create temporary file.'.
+self notify:'cannot create temporary file.'.
-	^ nil
+^ nil
 ].
 FileOutErrorSignal handle:[:ex |
-	aStream nextPutAll:'"no source available"'.
+aStream nextPutAll:'"no source available"'.
 ] do:[
-	self fileOutOn:aStream.
+self fileOutOn:aStream.
 ].
 aStream close.
 aStream := FileStream oldFileNamed:'__temp'.
 aStream isNil ifTrue:[
-	self notify:'oops - cannot reopen temp file'.
+self notify:'oops - cannot reopen temp file'.
-	^ nil
+^ nil
 ].
 code := aStream contents.
 aStream close.
 OperatingSystem removeFile:'__temp'.
 ^ code
 !Class methodsFor:'binary storage'!
 addGlobalsForBinaryStorageTo:globalDictionary
 "
 classPool == nil ifFalse: [
-	classPool associationsDo: [:assoc|
+classPool associationsDo: [:assoc|
-	    globalDictionary at: assoc put: self
+globalDictionary at: assoc put: self
-	]
+]
 ]
 "
 "Created: 21.3.1997 / 15:40:45 / cg"
 !
 output the instance variable name string
 "
 varnames := self allInstVarNames.
 n := varnames size.
 n == 0 ifTrue:[
-	sz := 0
+sz := 0
 ] ifFalse:[
-	sz := varnames inject:0 into:[:sum :nm | sum + nm size].
+sz := varnames inject:0 into:[:sum :nm | sum + nm size].
-	sz := sz + n - 1.
+sz := sz + n - 1.
 ].
 stream nextNumber:2 put:sz.
 varnames keysAndValuesDo:[:i :nm |
-	stream nextPutBytes:(nm size) from:nm startingAt:1.
+stream nextPutBytes:(nm size) from:nm startingAt:1.
 "/        nm do:[:c |
 "/            stream nextPut:c asciiValue
 "/        ].
-	i ~~ n ifTrue:[stream nextPut:(Character space asciiValue)]
+i ~~ n ifTrue:[stream nextPut:(Character space asciiValue)]
 ].
 "
 output my name
 "
 "a helper for fileOutDefinition"
 |isVar s|
 superclass isNil ifTrue:[
-	isVar := self isVariable
+isVar := self isVariable
 ] ifFalse:[
-	"I cant remember what this is for ?"
+"I cant remember what this is for ?"
-	isVar := (self isVariable and:[superclass isVariable not])
+isVar := (self isVariable and:[superclass isVariable not])
 ].
 aStream nextPutAll:(self firstDefinitionSelectorPart).
 "Created: 11.10.1996 / 18:57:29 / cg"
 "
 this test allows a smalltalk to be built without Projects/ChangeSets
 "
 Project notNil ifTrue:[
-	dirName := Project currentProjectDirectory
+dirName := Project currentProjectDirectory
 ] ifFalse:[
-	dirName := Filename currentDirectory
+dirName := Filename currentDirectory
 ].
 fileName := (dirName asFilename construct:nm).
 fileName makeLegalFilename.
 self fileOutAs:fileName name.
 |comment s|
 self printClassNameOn:aStream.
 aStream nextPutAll:' comment:'.
 (comment := self comment) isNil ifTrue:[
-	s := ''''''
+s := ''''''
 ] ifFalse:[
-	s := comment storeString
+s := comment storeString
 ].
 aStream nextPutAllAsChunk:s.
 aStream nextPutChunkSeparator.
 aStream cr
 |aStream fileName|
 fileName := (Smalltalk fileNameForClass:self name), '.st'.
 aStream := (aDirectoryName asFilename construct:fileName) writeStream.
 aStream isNil ifTrue:[
-	^ FileOutErrorSignal
+^ FileOutErrorSignal
-		raiseRequestWith:fileName
+raiseRequestWith:fileName
-		errorString:('cannot create file:', fileName)
+errorString:('cannot create file:', fileName)
 ].
 self fileOutOn:aStream.
 aStream close
 "
-	self fileOutIn:'/tmp'
+self fileOutIn:'/tmp'
-	self fileOutIn:'/tmp' asFilename
+self fileOutIn:'/tmp' asFilename
 "
 "Modified: 19.9.1997 / 00:03:53 / stefan"
 !
 "
 primitive definitions - if any
 "
 (s := self primitiveDefinitionsString) notNil ifTrue:[
-	aStream nextPutChunkSeparator.
+aStream nextPutChunkSeparator.
-	self printClassNameOn:aStream.
+self printClassNameOn:aStream.
-	aStream nextPutAll:' primitiveDefinitions';
+aStream nextPutAll:' primitiveDefinitions';
-		nextPutChunkSeparator;
+nextPutChunkSeparator;
-		cr.
+cr.
-	aStream nextPutAll:s.
+aStream nextPutAll:s.
-	aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
+aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
 ].
 (s := self primitiveVariablesString) notNil ifTrue:[
-	aStream nextPutChunkSeparator.
+aStream nextPutChunkSeparator.
-	self printClassNameOn:aStream.
+self printClassNameOn:aStream.
-	aStream nextPutAll:' primitiveVariables';
+aStream nextPutAll:' primitiveVariables';
-		nextPutChunkSeparator;
+nextPutChunkSeparator;
-		cr.
+cr.
-	aStream nextPutAll:s.
+aStream nextPutAll:s.
-	aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
+aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
 ].
 "Modified: 8.1.1997 / 17:45:40 / cg"
 !
 self fileOutPrimitiveDefinitionsOn:aStream.
 "
 primitive functions - if any
 "
 (s := self primitiveFunctionsString) notNil ifTrue:[
-	aStream nextPutChunkSeparator.
+aStream nextPutChunkSeparator.
-	self printClassNameOn:aStream.
+self printClassNameOn:aStream.
-	aStream nextPutAll:' primitiveFunctions';
+aStream nextPutAll:' primitiveFunctions';
-		nextPutChunkSeparator;
+nextPutChunkSeparator;
-		cr.
+cr.
-	aStream nextPutAll:s.
+aStream nextPutAll:s.
-	aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
+aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
 ].
 "Modified: 8.1.1997 / 17:45:51 / cg"
 ! !
 binaryFileOutOn:aStream sourceMode:sourceMode
 "append a binary representation of myself to aStream in
 a portable binary format.
 The argument controls how sources are to be saved:
-	#keep - include the source
+#keep - include the source
-	#reference - include a reference to the sourceFile
+#reference - include a reference to the sourceFile
-	#discard - dont save sources.
+#discard - dont save sources.
 With #reference, the sourceFile needs to be present after reload
 in order to be browsable."
 |bos|
 aStream spaces:indent; bold; nextPutAll:nm; normal; nextPutAll:' ('.
 self printInstVarNamesOn:aStream indent:(indent + nm size + 2).
 aStream nextPutLine:')'.
 (self subclasses sort:[:a :b | a name < b name]) do:[:aSubclass |
-	aSubclass printFullHierarchyOn:aStream indent:(indent + 2)
+aSubclass printFullHierarchyOn:aStream indent:(indent + 2)
 ]
 "|printStream|
 printStream := Printer new.
 Object printFullHierarchyOn:printStream indent:0.
 |comment s|
 aPrintStream nextPutAll:'class                '; bold; nextPutLine:self name; normal.
 aPrintStream nextPutAll:'superclass           '.
 superclass isNil ifTrue:[
-	s := 'Object'
+s := 'Object'
 ] ifFalse:[
-	s := superclass name
+s := superclass name
 ].
 aPrintStream nextPutLine:s.
 aPrintStream nextPutAll:'instance Variables   '.
 self printInstVarNamesOn:aPrintStream indent:21.
 aPrintStream nextPutAll:'class Variables      '.
 self printClassVarNamesOn:aPrintStream indent:21.
 aPrintStream cr.
 category notNil ifTrue:[
-	aPrintStream nextPutAll:'category             ';
+aPrintStream nextPutAll:'category             ';
-		     nextPutLine:(category printString).
+nextPutLine:(category printString).
 ].
 (comment := self comment) notNil ifTrue:[
-	aPrintStream cr; nextPutLine:'comment:'; italic; nextPutLine:comment; normal
+aPrintStream cr; nextPutLine:'comment:'; italic; nextPutLine:comment; normal
 ]
 "Created: 10.12.1995 / 16:30:47 / cg"
 "Modified: 9.11.1996 / 00:13:37 / cg"
 "Modified: 1.4.1997 / 16:01:26 / stefan"
 aStream nextPutAll:(' category:' , category storeString).
 aStream nextPutChunkSeparator.
 "this test allows a smalltalk without Projects/ChangeSets"
 Project notNil ifTrue:[
-	Project addClassDefinitionChangeFor:self
+Project addClassDefinitionChangeFor:self
 ]
 "Created: 3.12.1995 / 13:43:33 / cg"
 "Modified: 3.12.1995 / 14:10:34 / cg"
 !
 "{ Pragma: +optSpace }"
 "append a class-definition-record to aStream"
 aClass isLoaded ifTrue:[
-	aClass fileOutDefinitionOn:aStream.
+aClass fileOutDefinitionOn:aStream.
-	aStream nextPutChunkSeparator.
+aStream nextPutChunkSeparator.
-	Project notNil ifTrue:[
+Project notNil ifTrue:[
-	    Project addClassDefinitionChangeFor:aClass
+Project addClassDefinitionChangeFor:aClass
-	]
+]
 ]
 "Created: 3.12.1995 / 13:57:44 / cg"
 "Modified: 3.12.1995 / 14:11:26 / cg"
 !
 "{ Pragma: +optSpace }"
 "append a primitiveDefinitions-record to aStream"
 aStream nextPutAll:aClass name; nextPutLine:' primitiveDefinitions:''';
-	    nextPutAll:(aClass primitiveDefinitionsString storeString copyFrom:2).
+nextPutAll:(aClass primitiveDefinitionsString storeString copyFrom:2).
 aStream nextPutChunkSeparator.
 "Modified: 9.11.1996 / 00:09:54 / cg"
 !
 "{ Pragma: +optSpace }"
 "append a primitiveFunctions-record to aStream"
 aStream nextPutAll:aClass name; nextPutLine:' primitiveFunctions:''';
-	    nextPutAll:(aClass primitiveFunctionsString storeString copyFrom:2).
+nextPutAll:(aClass primitiveFunctionsString storeString copyFrom:2).
 aStream nextPutChunkSeparator.
 "Modified: 9.11.1996 / 00:10:02 / cg"
 !
 "{ Pragma: +optSpace }"
 "append a primitiveVariables-record to aStream"
 aStream nextPutAll:aClass name; nextPutLine:' primitiveVariables:''';
-	    nextPutAll:(aClass primitiveVariablesString storeString copyFrom:2).
+nextPutAll:(aClass primitiveVariablesString storeString copyFrom:2).
 aStream nextPutChunkSeparator.
 "Modified: 9.11.1996 / 00:10:10 / cg"
 ! !
 "the primitiveSpec is either a string, or an integer specifying the
 position within the classes sourcefile ...
 "
 pos isNumber ifTrue:[
-	classFilename notNil ifTrue:[
+classFilename notNil ifTrue:[
-	    stream := self sourceStream.
+stream := self sourceStream.
-	    stream notNil ifTrue:[
+stream notNil ifTrue:[
-		stream position:pos+1.
+stream position:pos+1.
-		string := stream nextChunk.
+string := stream nextChunk.
-		stream close.
+stream close.
-		^ string
+^ string
-	    ]
+]
-	].
+].
-	^ nil
+^ nil
 ].
 ^ pos
 "Modified: 15.1.1997 / 15:29:30 / stefan"
 !
 "{ Pragma: +optSpace }"
 "set a primitiveSpecification component to aString"
 primitiveSpec isNil ifTrue:[
-	primitiveSpec := Array new:3
+primitiveSpec := Array new:3
 ].
 primitiveSpec at:index put:aString
 ! !
 !Class methodsFor:'protocol printOut'!
 |cls|
 cls := self.
 [cls notNil] whileTrue:[
-	(cls classVarNames includes:aVariableName) ifTrue:[ ^ cls].
+(cls classVarNames includes:aVariableName) ifTrue:[ ^ cls].
-	cls := cls superclass
+cls := cls superclass
 ].
 ^ nil
 "
 StandardSystemView whichClassDefinesClassVar:'ErrorSignal'
 value := (value bitShift:3) + ((self class instSize - Class instSize) bitAnd:7).
 value := (value bitShift:7) + (self instSize bitAnd:16r7F).
 nameKey := 0.
 self allInstVarNames do:[:name |
-	nameKey := nameKey bitShift:1.
+nameKey := nameKey bitShift:1.
-	(nameKey bitAnd:16r10000) ~~ 0 ifTrue:[
+(nameKey bitAnd:16r10000) ~~ 0 ifTrue:[
-	    nameKey := nameKey bitXor:1.
+nameKey := nameKey bitXor:1.
-	    nameKey := nameKey bitAnd:16rFFFF.
+nameKey := nameKey bitAnd:16rFFFF.
-	].
+].
-	nameKey := (nameKey + (name at:1) asciiValue) bitAnd:16rFFFF.
+nameKey := (nameKey + (name at:1) asciiValue) bitAnd:16rFFFF.
 ].
 value := value + (nameKey bitShift:14).
 signature := value.
 ^ value
 |owner info c|
 (owner := self owningClass) notNil ifTrue:[^ owner binaryRevision].
 revision notNil ifTrue:[
-	c := revision first.
+c := revision first.
-	c == $$ ifTrue:[
+c == $$ ifTrue:[
-	    info := Class revisionInfoFromString:revision.
+info := Class revisionInfoFromString:revision.
-	    info isNil ifTrue:[^ '0'].
+info isNil ifTrue:[^ '0'].
-	    ^ info at:#revision ifAbsent:'0'.
+^ info at:#revision ifAbsent:'0'.
-	].
+].
-	c isDigit ifFalse:[
+c isDigit ifFalse:[
-	    ^ '0'
+^ '0'
-	].
+].
 ].
 ^ revision
 "
 to find all classes which are not up-to-date:
 |classes|
 classes := Smalltalk allClasses
-		    select:[:cls | cls binaryRevision notNil and:[cls binaryRevision ~= cls revision]].
+select:[:cls | cls binaryRevision notNil and:[cls binaryRevision ~= cls revision]].
 SystemBrowser browseClasses:classes title:'classes which are not up-to-date'
 "
 "Created: 7.12.1995 / 10:58:47 / cg"
 "Modified: 1.4.1997 / 23:33:01 / stefan"
 |info|
 info := self revisionInfo.
 info notNil ifTrue:[
-	^ info at:#revision ifAbsent:nil
+^ info at:#revision ifAbsent:nil
 ].
 ^ self binaryRevision
 "
 Object revision
 |info|
 info := self revisionInfo.
 info notNil ifTrue:[
-	^ info at:#date ifAbsent:'??/??/??'
+^ info at:#date ifAbsent:'??/??/??'
 ].
 ^ '??/??/??'
 "
 Object revisionDateString
 revisionInfo
 "return a dictionary filled with revision info.
 This extracts the relevant info from the revisionString.
 The revisionInfo contains all or a subset of:
-	#binaryRevision - the revision upon which the binary of this class is based
+#binaryRevision - the revision upon which the binary of this class is based
-	#revision       - the revision upon which the class is based logically
+#revision       - the revision upon which the class is based logically
-			  (different, if a changed class was checked in, but not yet recompiled)
+(different, if a changed class was checked in, but not yet recompiled)
-	#user           - the user who checked in the logical revision
+#user           - the user who checked in the logical revision
-	#date           - the date when the logical revision was checked in
+#date           - the date when the logical revision was checked in
-	#time           - the time when the logical revision was checked in
+#time           - the time when the logical revision was checked in
-	#fileName       - the classes source file name
+#fileName       - the classes source file name
-	#repositoryPath - the classes source container
+#repositoryPath - the classes source container
 "
 |vsnString info mgr|
 vsnString := self revisionString.
 vsnString notNil ifTrue:[
-	mgr := self sourceCodeManager.
+mgr := self sourceCodeManager.
-	mgr notNil ifTrue:[
+mgr notNil ifTrue:[
-	    info := mgr revisionInfoFromString:vsnString
+info := mgr revisionInfoFromString:vsnString
-	] ifFalse:[
+] ifFalse:[
-	    info := Class revisionInfoFromString:vsnString.
+info := Class revisionInfoFromString:vsnString.
-	].
+].
-	info notNil ifTrue:[
+info notNil ifTrue:[
-	    info at:#binaryRevision put:self binaryRevision.
+info at:#binaryRevision put:self binaryRevision.
-	]
+]
 ].
 ^ info
 "
 Object revisionString
 (owner := self owningClass) notNil ifTrue:[^ owner revisionString].
 thisContext isRecursive ifTrue:[^ nil ].
 self isMeta ifTrue:[
-	meta := self. cls := self soleInstance
+meta := self. cls := self soleInstance
 ] ifFalse:[
-	cls := self. meta := self class
+cls := self. meta := self class
 ].
 m := meta compiledMethodAt:#version.
 m isNil ifTrue:[
-	m := cls compiledMethodAt:#version.
+"/ no - do NEVER care for a version method on the instance side
-	m isNil ifTrue:[^ nil].
+"/ m := cls compiledMethodAt:#version.
+m isNil ifTrue:[^ nil].
 ].
 m isExecutable ifTrue:[
-	"/
+"/
-	"/ if its a method returning the string,
+"/ if its a method returning the string,
-	"/ thats the returned value
+"/ thats the returned value
-	"/
+"/
-	val := cls version.
+val := cls version.
-	val isString ifTrue:[^ val].
+val isString ifTrue:[^ val].
 ].
 "/
 "/ if its a method consisting of a comment only
 "/ extract it - this may lead to a recursive call
 src isNil ifTrue:[^ nil].
 ^ Class revisionStringFromSource:src
 "
 Smalltalk allClassesDo:[:cls |
-	Transcript showCR:cls revisionString
+Transcript showCR:cls revisionString
 ].
 Number revisionString
 FileDirectory revisionString
 Metaclass revisionString
 "
-"Created: 29.10.1995 / 19:28:03 / cg"
+"Created: / 29.10.1995 / 19:28:03 / cg"
-"Modified: 23.10.1996 / 18:23:56 / cg"
+"Modified: / 23.10.1996 / 18:23:56 / cg"
-"Modified: 1.4.1997 / 23:37:25 / stefan"
+"Modified: / 1.4.1997 / 23:37:25 / stefan"
+"Modified: / 7.2.2001 / 18:03:39 / ps"
 !
 setBinaryRevision:aString
 "set the revision-ID.
 This should normally not be done in the running system, as the source-manager
 |owner source|
 (owner := self owningClass) notNil ifTrue:[^ owner sourceStream].
 classFilename notNil ifTrue:[
-	source := classFilename
+source := classFilename
 ] ifFalse:[
-	source := (Smalltalk fileNameForClass:self) , '.st'
+source := (Smalltalk fileNameForClass:self) , '.st'
 ].
 ^ self sourceStreamFor:source
 "Modified: 15.10.1996 / 18:59:40 / cg"
 "Modified: 1.4.1997 / 14:33:12 / stefan"
 ! !
 !Class class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.393 2001-02-06 14:54:13 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.394 2001-02-07 17:23:29 ps Exp $'
 ! !

changeset 5801	3ae2f700ed6e
parent 5800	a4386f928cf0
child 5849	4cc89ecfbbda