--- a/Class.st Sat Apr 20 11:38:08 1996 +0200
+++ b/Class.st Sat Apr 20 12:35:30 1996 +0200
@@ -1540,12 +1540,34 @@
The method is classified under category.
Returns the new method or nil (on failure)."
- ^ self compilerClass
- compile:code
- forClass:self
- inCategory:category
+ ^ self compile:code classified:category logged:true
+
+ "Modified: 20.4.1996 / 12:30:51 / cg"
+!
+
+compile:code classified:category logged:logged
+ "compile code, aString for this class;
+ if successful update the method dictionary.
+ The method is classified under category.
+ If logged is true, a changeRecord is written.
+ Returns the new method or nil (on failure)."
+
+ logged ifFalse:[
+ self withoutUpdatingChangesDo:[
+ ^ self compilerClass
+ compile:code
+ forClass:self
+ inCategory:category
+ ]
+ ] ifTrue:[
+ ^ self compilerClass
+ compile:code
+ forClass:self
+ inCategory:category
+ ].
"Modified: 13.12.1995 / 11:02:34 / cg"
+ "Created: 20.4.1996 / 12:30:35 / cg"
!
compile:code notifying:requestor
@@ -3926,6 +3948,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.150 1996-04-16 18:08:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.151 1996-04-20 10:35:30 cg Exp $'
! !
Class initialize!