--- a/ClassDefinitionChange.st Wed Oct 25 18:09:14 2006 +0200
+++ b/ClassDefinitionChange.st Thu Oct 26 19:37:59 2006 +0200
@@ -373,7 +373,8 @@
source notNil ifTrue:[
parseTree := Parser parseExpression:source.
(parseTree notNil and:[parseTree isMessage]) ifFalse:[
- self error:'bad change source'.
+ self error:'bad change source' mayProceed:true.
+ ^ self
].
definitionSelector := parseTree selector.
@@ -390,11 +391,11 @@
].
"Created: / 11-10-2006 / 14:10:02 / cg"
- "Modified: / 17-10-2006 / 18:49:51 / cg"
+ "Modified: / 26-10-2006 / 19:29:17 / cg"
! !
!ClassDefinitionChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.42 2006-10-18 11:12:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.43 2006-10-26 17:37:59 cg Exp $'
! !