--- a/ClassCategoryReader.st Fri Jun 12 10:11:09 2009 +0200
+++ b/ClassCategoryReader.st Fri Jun 12 12:00:35 2009 +0200
@@ -13,7 +13,7 @@
Object subclass:#ClassCategoryReader
instanceVariableNames:'myClass myCategory privacy ignore primSpec'
- classVariableNames:'KeepSource SourceMode SkipUnchangedMethods'
+ classVariableNames:'SourceMode SkipUnchangedMethods'
poolDictionaries:''
category:'Kernel-Support'
!
@@ -81,7 +81,6 @@
!ClassCategoryReader class methodsFor:'initialization'!
initialize
- KeepSource := true.
SourceMode := #keep.
SkipUnchangedMethods := true.
@@ -116,13 +115,12 @@
!ClassCategoryReader class methodsFor:'defaults'!
keepSource
- ^ KeepSource
+ ^ SourceMode == #keep
"Created: 9.9.1995 / 15:22:27 / claus"
!
keepSource:aBoolean
- KeepSource := aBoolean.
SourceMode := (aBoolean ifTrue:[#keep] ifFalse:[#reference])
"Created: 9.9.1995 / 15:22:26 / claus"
@@ -436,7 +434,7 @@
!ClassCategoryReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.51 2007-02-20 08:20:26 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.52 2009-06-12 10:00:35 stefan Exp $'
! !
ClassCategoryReader initialize!