[OB][BUG] renaming + edit => DNU

Hi colin

when I rename a class and I get the list of all the places that I  
would have to change
to reflect the new name, once I edit of of these places I get a DNU  
message.

Stef

Stéphane Ducasse wrote:
> Hi colin
>
> when I rename a class and I get the list of all the places that I would
> have to change
> to reflect the new name, once I edit of of these places I get a DNU
> message.

I don't have a DNU but this instead (3.9g-7054 with new .sources):

OrderedCollection(SequenceableCollection)>>after:ifAbsent:
        Receiver: an OrderedCollection(an OBColumn(TestClass))
        Arguments and temporary variables:
                target: an OBColumn(TestClass)
                exceptionBlock: [] in
OrderedCollection(SequenceableCollection)>>after: {[self ...etc...
                index: 1
        Receiver's instance variables:
                array: an Array(nil nil an OBColumn(TestClass) nil nil nil nil nil
nil nil)
                firstIndex: 3
                lastIndex: 3

OrderedCollection(SequenceableCollection)>>after:
        Receiver: an OrderedCollection(an OBColumn(TestClass))
        Arguments and temporary variables:
                target: an OBColumn(TestClass)
        Receiver's instance variables:
                array: an Array(nil nil an OBColumn(TestClass) nil nil nil nil nil
nil nil)
                firstIndex: 3
                lastIndex: 3

OBColumnPanel>>jumpTo:
        Receiver: an OBColumnPanel
        Arguments and temporary variables:
                aNode: OBMethodNode<TestClass2#test>
                column: an OBColumn(TestClass)
                ancestor: OBClassRefNode<TestClass2#test>
        Receiver's instance variables:
                browser: an OBReferencesBrowser
                root: OBClassNode<TestClass>
                columns: an OrderedCollection(an OBColumn(TestClass))
                minPanes: 1
                maxPanes: 2

[] in OBColumnPanel>>hopTo: {[^ self jumpTo: aNode]}
        Arguments and temporary variables:
                aNode: OBMethodNode<TestClass2#test>
                column: an OBColumn(TestClass)


--- The full stack ---
OrderedCollection(SequenceableCollection)>>after:ifAbsent:
OrderedCollection(SequenceableCollection)>>after:
OBColumnPanel>>jumpTo:
[] in OBColumnPanel>>hopTo: {[^ self jumpTo: aNode]}
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[] in OBColumnPanel>>columnBefore:ifAbsent: {[:err | aBlock value]}
BlockContext>>valueWithPossibleArgs:
[] in MethodContext(ContextPart)>>handleSignal: {[(self tempAt: 2)
valueWithPossibleArgs: {exception}]}
BlockContext>>ensure:
MethodContext(ContextPart)>>handleSignal:
Error(Exception)>>signal
Error(Exception)>>signal:
OrderedCollection(Object)>>error:
OrderedCollection(Collection)>>errorNotFound:
[] in OrderedCollection(SequenceableCollection)>>before: {[self
errorNotFound: target]}
OrderedCollection(SequenceableCollection)>>before:ifAbsent:
OrderedCollection(SequenceableCollection)>>before:
[] in OBColumnPanel>>columnBefore:ifAbsent: {[self columns before: aColumn]}
BlockContext>>on:do:
OBColumnPanel>>columnBefore:ifAbsent:
OBColumnPanel>>hopTo:
OBColumnPanel>>selectNode:
MessageSend>>valueWithArguments:
[] in ActionSequence>>valueWithArguments: {[:each | answer := each
valueWithArguments: anArray]}
ActionSequence(SequenceableCollection)>>do:
ActionSequence>>valueWithArguments:
[] in OBAnnouncer>>announce: {[:class :action | (ann isKindOf: class)
ifTrue: [action valueWithArguments...]}
[] in IdentityDictionary(Dictionary)>>keysAndValuesDo: {[:assoc | aBlock
value: assoc key value: assoc value]}
IdentityDictionary(Set)>>do:
IdentityDictionary(Dictionary)>>associationsDo:
IdentityDictionary(Dictionary)>>keysAndValuesDo:
OBAnnouncer>>announce:
OBMethodNode(OBNode)>>demandSelection
OBMethodDefinition>>accept:notifying:
[] in OBDefinitionPanel>>accept:notifying: {[def accept: aText
notifying: aController]}
BlockContext>>on:do:
[] in OBDefinitionPanel>>accept:notifying: {[:def | [def accept: aText
notifying: aController]   on: OBAnnouncerRequest ...]}
OBDefinitionPanel>>withDefinitionDo:ifNil:
OBDefinitionPanel>>accept:notifying:
OBPluggableTextMorph(PluggableTextMorph)>>acceptTextInModel
OBPluggableTextMorph(PluggableTextMorph)>>accept
OBTextMorph(TextMorphForEditView)>>acceptContents
OBTextMorphEditor(TextMorphEditor)>>accept
[] in OBTextMorphEditor(ParagraphEditor)>>save: {[self accept]}
OBTextMorphEditor(Controller)>>terminateAndInitializeAround:
OBTextMorphEditor(ParagraphEditor)>>save:
OBTextMorphEditor(ParagraphEditor)>>dispatchOnCharacter:with:
OBTextMorphEditor(TextMorphEditor)>>dispatchOnCharacter:with:
OBTextMorphEditor(ParagraphEditor)>>readKeyboard
OBTextMorphEditor(TextMorphEditor)>>readKeyboard
[] in OBTextMorph(TextMorph)>>keyStroke: {[editor readKeyboard]}
...etc...

yes I get the same

Stef

On 16 août 06, at 13:24, Damien Cassou wrote:

On Aug 16, 2006, at 6:30 AM, Stéphane Ducasse wrote:

> Hi colin
>
> when I rename a class and I get the list of all the places that I  
> would have to change
> to reflect the new name, once I edit of of these places I get a DNU  
> message.


Thanks for the heads up. I'll take a look.

Colin

Good move. I'm starting to really hate boxes :) but now there are all  
at their places or empty :)

Stef

On 16 août 06, at 16:41, Colin Putney wrote: