--- a/Class.st Fri Oct 06 15:50:47 2006 +0200
+++ b/Class.st Fri Oct 06 15:51:04 2006 +0200
@@ -527,12 +527,15 @@
!
classFilename
- "return the name of the file from which the class was compiled."
+ "return the name of the file from which the class was compiled.
+ If the class was loaded via an explicit load (i.e. from the fileBrowser),
+ this will be an absolute path. Oherwise, it will be a basename only."
|owner info|
(owner := self owningClass) notNil ifTrue:[^ owner classFilename].
classFilename notNil ifTrue:[ ^ classFilename ].
+
(info := self revisionInfo) notNil ifTrue:[
(info includesKey:#fileName) ifTrue:[
^ info at:#fileName
@@ -544,7 +547,7 @@
Math::ClosedInterval classFilename
"
- "Modified: / 04-10-2006 / 15:40:36 / cg"
+ "Modified: / 06-10-2006 / 13:31:54 / cg"
!
classPool
@@ -735,12 +738,16 @@
!
getClassFilename
- "return the name of the file from which the class was compiled."
+ "return the name of the file from which the class was compiled.
+ If the class was loaded via an explicit load (i.e. from the fileBrowser),
+ this will be an absolute path. Oherwise, it will be a basename only."
|owner|
- (owner := self owningClass) notNil ifTrue:[^ owner classFilename].
+ (owner := self owningClass) notNil ifTrue:[^ owner getClassFilename].
^ classFilename
+
+ "Modified: / 06-10-2006 / 13:32:01 / cg"
!
getPackage
@@ -1211,13 +1218,14 @@
setClassFilename:aFilename
"set the classes filename.
- This is a dangerous (low level) operation, since the
- comment and primitiveSpecs may no longer be accessable, if a wrong filename
- is set here."
+ This is a dangerous (low level) operation,
+ since the comment and primitiveSpecs may no longer be accessable,
+ if a wrong filename is set here."
classFilename := aFilename
- "Modified: 8.9.1995 / 14:16:48 / claus"
+ "Modified: / 08-09-1995 / 14:16:48 / claus"
+ "Modified: / 06-10-2006 / 13:32:52 / cg"
!
setClassVariableString:aString
@@ -1286,6 +1294,8 @@
self setSharedPools:aStringOrCollection.
self addChangeRecordForClass:self.
+
+ "Modified: / 06-10-2006 / 13:35:14 / cg"
!
source
@@ -1293,7 +1303,7 @@
|code aStream tmpFilename|
-" this is too slow for big classes ...
+" this is too slow for big classes (due to the emphasis stored)...
code := String new:1000.
aStream := WriteStream on:code.
self fileOutOn:aStream
@@ -1321,6 +1331,8 @@
aStream close.
].
^ code
+
+ "Modified: / 06-10-2006 / 13:34:18 / cg"
!
sourceCodeManager
@@ -4654,5 +4666,5 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.512 2006-10-06 09:49:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.513 2006-10-06 13:51:04 cg Exp $'
! !