# HG changeset patch # User Stefan Vogel # Date 1113326239 -7200 # Node ID 81ee56a49ac32efa961baf058c192f66241afff2 # Parent d8be7c9b7ca5119ae14108c130c5891cfca2e2a4 Rename #xxxRedefinitionSignal to #xxxRedefinitionNotification. diff -r d8be7c9b7ca5 -r 81ee56a49ac3 Behavior.st --- a/Behavior.st Tue Apr 12 19:15:40 2005 +0200 +++ b/Behavior.st Tue Apr 12 19:17:19 2005 +0200 @@ -1183,7 +1183,7 @@ name := self name ]. - Class classRedefinitionSignal answer:#keep do:[ + Class classRedefinitionNotification answer:#keep do:[ Class nameSpaceQuerySignal answer:ns do:[ aClass @@ -4397,5 +4397,5 @@ !Behavior class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.242 2005-02-01 15:34:51 james Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.243 2005-04-12 17:17:19 stefan Exp $' ! ! diff -r d8be7c9b7ca5 -r 81ee56a49ac3 Class.st --- a/Class.st Tue Apr 12 19:15:40 2005 +0200 +++ b/Class.st Tue Apr 12 19:17:19 2005 +0200 @@ -4633,7 +4633,7 @@ "/ newString := mgr updatedRevisionStringOf:cls forRevision:newRevision with:vs. "/ newString isNil ifTrue:[^ false]. - Class methodRedefinitionSignal answer:#keep do:[ + Class methodRedefinitionNotification answer:#keep do:[ Class withoutUpdatingChangesDo:[ mthd := Compiler compile:(self nameOfVersionMethod) , ' ^ ''' , newRevisionString , ''' @@ -4925,5 +4925,5 @@ !Class class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.484 2005-03-04 10:13:20 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.485 2005-04-12 17:16:22 stefan Exp $' ! ! diff -r d8be7c9b7ca5 -r 81ee56a49ac3 ClassBuilder.st --- a/ClassBuilder.st Tue Apr 12 19:15:40 2005 +0200 +++ b/ClassBuilder.st Tue Apr 12 19:17:19 2005 +0200 @@ -1091,7 +1091,7 @@ "/ this forces recompilation (recursively) if needed "/ (dont update change file for the subclass changes) - Class classRedefinitionSignal answer:#keep do:[ + Class classRedefinitionNotification answer:#keep do:[ Class withoutUpdatingChangesDo:[ oldClass subclasses copy do:[:aClass | aClass superclass:newClass @@ -1713,7 +1713,7 @@ pkg := Class packageQuerySignal query. oldPkg ~= pkg ifTrue:[ newClass package:pkg. - answer := Class classRedefinitionSignal + answer := Class classRedefinitionNotification raiseRequestWith:(oldClass -> newClass) errorString:('redefinition of class: ' , oldClass name). answer == #keep ifTrue:[ @@ -2040,5 +2040,5 @@ !ClassBuilder class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.44 2005-03-01 17:12:03 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.45 2005-04-12 17:16:24 stefan Exp $' ! !