--- a/ClassCategoryReader.st Mon Jul 18 16:22:09 2011 +0100
+++ b/ClassCategoryReader.st Wed Aug 10 15:59:08 2011 +0100
@@ -166,6 +166,12 @@
"Created: 9.2.1996 / 17:23:00 / cg"
! !
+!ClassCategoryReader class methodsFor:'others'!
+
+version_CVS
+ ^ '§Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.53 2011/07/31 07:30:26 cg Exp §'
+! !
+
!ClassCategoryReader methodsFor:'fileIn'!
fileInFrom:aStream
@@ -232,10 +238,10 @@
|aString done method compiler canMakeSourceRef sourceFile pos nm src s silent|
- silent := beSilent.
- silent isNil ifTrue:[
- silent := Smalltalk silentLoading
+ (silent := Object infoPrinting not) ifFalse:[
+ silent := beSilent ? Smalltalk silentLoading
].
+
silent ifFalse:[
myClass isNil ifTrue:[
nm := '** UndefinedClass **'
@@ -371,10 +377,10 @@
]
]
- "Modified: / 9.9.1995 / 15:29:08 / claus"
- "Modified: / 23.1.1998 / 15:25:01 / stefan"
- "Created: / 17.5.1998 / 19:56:32 / cg"
- "Modified: / 29.10.1998 / 21:34:59 / cg"
+ "Modified: / 09-09-1995 / 15:29:08 / claus"
+ "Modified: / 23-01-1998 / 15:25:01 / stefan"
+ "Created: / 17-05-1998 / 19:56:32 / cg"
+ "Modified: / 31-07-2011 / 09:30:07 / cg"
!
fileInFrom:aStream silent:beSilent
@@ -434,11 +440,12 @@
!ClassCategoryReader class methodsFor:'documentation'!
version
- ^ '$Id: ClassCategoryReader.st 10660 2011-07-18 15:22:09Z vranyj1 $'
+ ^ '$Id: ClassCategoryReader.st 10665 2011-08-10 14:59:08Z vranyj1 $'
!
version_SVN
- ^ '$Id: ClassCategoryReader.st 10660 2011-07-18 15:22:09Z vranyj1 $'
+ ^ '$Id: ClassCategoryReader.st 10665 2011-08-10 14:59:08Z vranyj1 $'
! !
ClassCategoryReader initialize!
+