Yep, certainly. As often, I'm really glad we have the diffs sent to the list :)

- Bert -

On 21.03.2012, at 20:53, Nicolas Cellier wrote:

> Any interest to use becomeForward: in such case?
> 
> Nicolas
> 
> Le 21 mars 2012 20:37, <commits at source.squeak.org> a écrit :
> Bert Freudenberg uploaded a new version of Tools to project The Trunk:
> http://source.squeak.org/trunk/Tools-bf.395.mcz
> 
> ==================== Summary ====================
> 
> Name: Tools-bf.395
> Author: bf
> Time: 21 March 2012, 8:37:16.352 pm
> UUID: daf7f77d-d62f-4b59-ab6c-ceeed1058c8a
> Ancestors: Tools-bf.394
> 
> Fix receiverInspector having the wrong class in debugger. To reproduce the problem, evaluate "Dictionary new halt values", step into the "values" method, select "self size" and choose "debug it" from the context menu. This would open a debugger whose receiverInspector was still a ContextInspector, when it should have been a DictionaryInspector.
> 
> =============== Diff against Tools-bf.394 ===============
> 
> Item was changed:
>  ----- Method: Inspector>>inspect: (in category 'initialize-release') -----
>  inspect: anObject
>        "Initialize the receiver so that it is inspecting anObject. There is no current selection.
> 
>        Normally the receiver will be of the correct class (as defined by anObject inspectorClass),
>        because it will have just been created by sedning inspect to anObject.   However, the
>        debugger uses two embedded inspectors, which are re-targetted on the current receiver
>        each time the stack frame changes.  The left-hand inspector in the debugger has its
>        class changed by the code here.  Care should be taken if this method is overridden to
>        ensure that the overriding code calls 'super inspect: anObject', or otherwise ensures that
>        the class of these embedded inspectors are changed back."
> 
>        | c |
>        c := anObject inspectorClass.
> +       self class ~= c ifTrue: [
> +               self class format = c format
> +                       ifTrue: [self primitiveChangeClassTo: c basicNew]
> +                       ifFalse: [self become: c basicNew]].
> -       (self class ~= c and: [self class format = c format]) ifTrue: [
> -               self primitiveChangeClassTo: c basicNew].
> -
>        "Set 'object' before sending the initialize message, because some implementations
>        of initialize (e.g., in DictionaryInspector) require 'object' to be non-nil."
> 
>        object := anObject.
>        self initialize!
> 
> 
> 
> 



-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20120321/24ef7892/attachment.htm