[Pharo-project] A small issue with Nautilus and PickListMorph
I'm having some issues with Nautilus (in Pharo 1.4 and Pharo 2.0a) when trying to rename a method, and more recently when generating instance variable accessors. It appears that we may be missing a dependency as the PickListMorph doesn't understand the wrappingBlock: message. Can anyone confirm this problem? All the best, Mark And incase this is useful to anyone â 7 June 2012 1:03:30.005 pm VM: Mac OS - intel - 1073 - CoInterpreter VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 6aa3fd0f1188078d3167dec1a53031a61b97b688 Date: Tue May 1 20:28:14 2012 +0200 By: Esteban Lorenzano <estebanlm@gmail.com> Image: Pharo1.4 [Latest update: #14438] PickListModel(Object)>>doesNotUnderstand: #wrappingBlock: Receiver: a PickListModel Arguments and temporary variables: aMessage: wrappingBlock: [:item | item nameToDisplay] exception: MessageNotUnderstood: PickListModel>>wrappingBlock: resumeValue: nil Receiver's instance variables: dependents: a DependentsArray(a ListComposableModel) bindings: a BindingsHolder focusOrder: nil owner: a ChangesBrowser window: nil widget: nil defaultValueHolder: a NewValueHolder labelClickableHolder: a NewValueHolder listModel: a ListComposableModel pickedItemsHolder: a NewValueHolder wrapHolder: a NewValueHolder associationsItemToWrapper: a DictionaryValueHolder associationsWrapperToItem: a DictionaryValueHolder ChangesBrowser>>initializePickList Receiver: a ChangesBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a ButtonModel a ButtonModel a PickListModel) bindings: a BindingsHolder focusOrder: nil owner: nil window: nil widget: nil acceptButton: a ButtonModel cancelButton: a ButtonModel pickList: a PickListModel textArea: nil ChangesBrowser>>initialize Receiver: a ChangesBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a ButtonModel a ButtonModel a PickListModel) bindings: a BindingsHolder focusOrder: nil owner: nil window: nil widget: nil acceptButton: a ButtonModel cancelButton: a ButtonModel pickList: a PickListModel textArea: nil ChangesBrowser class(Behavior)>>new Receiver: ChangesBrowser Arguments and temporary variables: Receiver's instance variables: superclass: ComposableModel methodDict: a MethodDictionary(#accept->(ChangesBrowser>>#accept "a CompiledMet...etc... format: 150 instanceVariables: #('acceptButton' 'cancelButton' 'pickList' 'textArea') organization: ('private' accept buildDiffFor: cancel change:) ('accessing' acce...etc... subclasses: nil name: #ChangesBrowser classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NautilusRefactoring-Utilities' traitComposition: {} localSelectors: nil ChangesBrowser class>>changes: Receiver: ChangesBrowser Arguments and temporary variables: aCollection: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: superclass: ComposableModel methodDict: a MethodDictionary(#accept->(ChangesBrowser>>#accept "a CompiledMet...etc... format: 150 instanceVariables: #('acceptButton' 'cancelButton' 'pickList' 'textArea') organization: ('private' accept buildDiffFor: cancel change:) ('accessing' acce...etc... subclasses: nil name: #ChangesBrowser classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NautilusRefactoring-Utilities' traitComposition: {} localSelectors: nil NautilusRefactoring>>internalPerformRefactorings: Receiver: a NautilusRefactoring Arguments and temporary variables: aCollectionRefactoring: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: environment: a RBNamespace model: a NautilusUI [self internalPerformRefactorings: aCollectionRefactoring] in [[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning do: [:exception | self handleWarning: exception]] in NautilusRefactoring>>performRefactorings: Receiver: a NautilusRefactoring Arguments and temporary variables: aCollectionRefactoring: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: environment: a RBNamespace model: a NautilusUI BlockClosure>>on:do: Receiver: [self internalPerformRefactorings: aCollectionRefactoring] Arguments and temporary variables: exception: RBRefactoringWarning handlerAction: [:exception | self handleWarning: exception] handlerActive: true Receiver's instance variables: outerContext: [[self internalPerformRefactorings: aCollectionRefactoring] on:...etc... startpc: 47 numArgs: 0 [[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning do: [:exception | self handleWarning: exception]] in NautilusRefactoring>>performRefactorings: Receiver: a NautilusRefactoring Arguments and temporary variables: aCollectionRefactoring: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: environment: a RBNamespace model: a NautilusUI BlockClosure>>on:do: Receiver: [[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning d...etc... Arguments and temporary variables: exception: RBRefactoringError handlerAction: [:exception | self handleError: exception] handlerActive: true Receiver's instance variables: outerContext: NautilusRefactoring>>performRefactorings: startpc: 42 numArgs: 0 NautilusRefactoring>>performRefactorings: Receiver: a NautilusRefactoring Arguments and temporary variables: aCollectionRefactoring: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: environment: a RBNamespace model: a NautilusUI NautilusRefactoring>>performRefactoring: Receiver: a NautilusRefactoring Arguments and temporary variables: aRefactoring: a RBRenameMethodRefactoring Receiver's instance variables: environment: a RBNamespace model: a NautilusUI NautilusRefactoring>>renameMethodFor: Receiver: a NautilusRefactoring Arguments and temporary variables: aMethod: (OmExample>>#exampleMethod "a CompiledMethod(760741888)") refactoring: a RBRenameMethodRefactoring Receiver's instance variables: environment: a RBNamespace model: a NautilusUI [:target | | scroll | scroll := target methodWidget vScrollValue. target refactor renameMethodFor: target selectedMethod. target methodWidget vScrollValue: scroll] in NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: Receiver: NautilusRefactoring Arguments and temporary variables: target: a NautilusUI scroll: 0.0 Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(size 140) format: 134 instanceVariables: #('environment' 'model') organization: ('class var' abstractClassVarFrom: accessorsClassVarFrom: addClas...etc... subclasses: nil name: #NautilusRefactoring classPool: a Dictionary(#PromptOnRefactoring->true ) sharedPools: nil environment: a SystemDictionary(lots of globals) category: #NautilusRefactoring traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:target | | scroll | scroll := target methodWidget vScrollValue. target refactor rename...etc... Arguments and temporary variables: anArg: a NautilusUI Receiver's instance variables: outerContext: NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: startpc: 75 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:target | | scroll | scroll := target methodWidget vScrollValue. target refactor rename...etc... Arguments and temporary variables: firstArg: a NautilusUI secondArg: a PluggableIconListMorph(310902784) Receiver's instance variables: outerContext: NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: startpc: 75 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:target | | scroll | scroll := target methodWidget vScrollValue. target refactor rename...etc... Arguments and temporary variables: firstArg: a NautilusUI secondArg: a PluggableIconListMorph(310902784) thirdArg: [keystroke '<Cmd-r>'] Receiver's instance variables: outerContext: NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: startpc: 75 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #rename on Cmd + R do [:target | | scroll | scroll := target methodWi...etc... aBuffer: an OrderedCollection([keystroke '<Cmd-r>']) Receiver's instance variables: target: a NautilusUI category: a KMCategory morph: a PluggableIconListMorph(310902784) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrollValue. ...etc... Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '<Cmd-r>']) Receiver's instance variables: action: [:target | | scroll | scroll := target methodWidget vScrollValue. tar...etc... name: #rename shortcut: Cmd + R defaultShortcut: Cmd + R description: 'Rename the seleted method' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrollValue. ...etc... Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '<Cmd-r>']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:target | | scroll | scroll := target methodWidget vScrollValue. tar...etc... name: #rename shortcut: Cmd + R defaultShortcut: Cmd + R description: 'Rename the seleted method' KMKeymap>>onMatchWith:notify:andDo: Receiver: #rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrollValue. ...etc... Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '<Cmd-r>']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:target | | scroll | scroll := target methodWidget vScrollValue. tar...etc... name: #rename shortcut: Cmd + R defaultShortcut: Cmd + R description: 'Rename the seleted method' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #rename on Cmd + R do [:target | | scroll | scroll := target me...etc... aMatchListener: an OrderedCollection([keystroke '<Cmd-r>']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #NautilusMethodShortcuts platforms: a Dictionary(#MacOSX->a Dictionary() #all->a Dictionary(#addMethodsI...etc... Array(SequenceableCollection)>>do: Receiver: an Array(#rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrol...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 1 indexLimiT: 15 Receiver's instance variables: an Array(#rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrol...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '<Cmd-r>']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #NautilusMethodShortcuts platforms: a Dictionary(#MacOSX->a Dictionary() #all->a Dictionary(#addMethodsI...etc... KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '<Cmd-r>']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a NautilusUI category: a KMCategory morph: a PluggableIconListMorph(310902784) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '<Cmd-r>']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke '<Cmd-r>'] targets: a Set(a KMCategoryTarget) morph: a PluggableIconListMorph(310902784) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget) Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 1 each: a KMCategoryTarget indexLimiT: 5 Receiver's instance variables: tally: 2 array: an Array(a KMCategoryTarget nil a KMCategoryTarget nil nil) KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '<Cmd-r>']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke '<Cmd-r>'] targets: a Set(a KMCategoryTarget) morph: a PluggableIconListMorph(310902784) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke '<Cmd-r>'] targets: a Set(a KMCategoryTarget) morph: a PluggableIconListMorph(310902784) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke '<Cmd-r>'] targets: a Set(a KMCategoryTarget) morph: a PluggableIconListMorph(310902784) directKeymaps: a KMCategory PluggableIconListMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: evt: [keystroke '<Cmd-r>'] Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor: PluggableIconListMorph(Morph)>>handleKeystroke: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor: KeyboardEvent>>sentTo: Receiver: [keystroke '<Cmd-r>'] Arguments and temporary variables: anObject: a PluggableIconListMorph(310902784) Receiver's instance variables: timeStamp: 44109 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (696@205) handler: nil wasHandled: true keyValue: 114 charCode: 114 scanCode: 15 PluggableIconListMorph(Morph)>>handleEvent: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor: MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] aMorph: a PluggableIconListMorph(310902784) localEvt: [keystroke '<Cmd-r>'] index: 2 child: a TransformMorph(571473920) morphs: an Array(a TransformMorph(571473920)) inside: true Receiver's instance variables: lastType: #keystroke lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] aMorph: a PluggableIconListMorph(310902784) Receiver's instance variables: lastType: #keystroke lastDispatch: #dispatchDefault:with: PluggableIconListMorph(Morph)>>processEvent:using: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor: PluggableIconListMorph(Morph)>>processEvent: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor: --- The full stack --- PickListModel(Object)>>doesNotUnderstand: #wrappingBlock: ChangesBrowser>>initializePickList ChangesBrowser>>initialize ChangesBrowser class(Behavior)>>new ChangesBrowser class>>changes: NautilusRefactoring>>internalPerformRefactorings: [self internalPerformRefactorings: aCollectionRefactoring] in [[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning do: [:exception | self handleWarning: exception]] in NautilusRefactoring>>performRefactorings: BlockClosure>>on:do: [[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning do: [:exception | self handleWarning: exception]] in NautilusRefactoring>>performRefactorings: BlockClosure>>on:do: NautilusRefactoring>>performRefactorings: NautilusRefactoring>>performRefactoring: NautilusRefactoring>>renameMethodFor: [:target | | scroll | scroll := target methodWidget vScrollValue. target refactor renameMethodFor: target selectedMethod. target methodWidget vScrollValue: scroll] in NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Array(SequenceableCollection)>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableIconListMorph(Morph)>>dispatchKeystrokeForEvent: PluggableIconListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: PluggableIconListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableIconListMorph(Morph)>>processEvent:using: PluggableIconListMorph(Morph)>>processEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PluggableIconListMorph(PluggableListMorph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess
I will fix this :) A method forgotten during a refactor :) Thank yoiu, Ben On Jun 7, 2012, at 8:55 AM, Mark Smith wrote:
I'm having some issues with Nautilus (in Pharo 1.4 and Pharo 2.0a) when trying to rename a method, and more recently when generating instance variable accessors.
It appears that we may be missing a dependency as the PickListMorph doesn't understand the wrappingBlock: message.
Can anyone confirm this problem?
All the best,
Mark
And incase this is useful to anyone â
7 June 2012 1:03:30.005 pm
VM: Mac OS - intel - 1073 - CoInterpreter VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 6aa3fd0f1188078d3167dec1a53031a61b97b688 Date: Tue May 1 20:28:14 2012 +0200 By: Esteban Lorenzano <estebanlm@gmail.com> Image: Pharo1.4 [Latest update: #14438]
PickListModel(Object)>>doesNotUnderstand: #wrappingBlock: Receiver: a PickListModel Arguments and temporary variables: aMessage: wrappingBlock: [:item | item nameToDisplay] exception: MessageNotUnderstood: PickListModel>>wrappingBlock: resumeValue: nil Receiver's instance variables: dependents: a DependentsArray(a ListComposableModel) bindings: a BindingsHolder focusOrder: nil owner: a ChangesBrowser window: nil widget: nil defaultValueHolder: a NewValueHolder labelClickableHolder: a NewValueHolder listModel: a ListComposableModel pickedItemsHolder: a NewValueHolder wrapHolder: a NewValueHolder associationsItemToWrapper: a DictionaryValueHolder associationsWrapperToItem: a DictionaryValueHolder
ChangesBrowser>>initializePickList Receiver: a ChangesBrowser Arguments and temporary variables:
Receiver's instance variables: dependents: a DependentsArray(a ButtonModel a ButtonModel a PickListModel) bindings: a BindingsHolder focusOrder: nil owner: nil window: nil widget: nil acceptButton: a ButtonModel cancelButton: a ButtonModel pickList: a PickListModel textArea: nil
ChangesBrowser>>initialize Receiver: a ChangesBrowser Arguments and temporary variables:
Receiver's instance variables: dependents: a DependentsArray(a ButtonModel a ButtonModel a PickListModel) bindings: a BindingsHolder focusOrder: nil owner: nil window: nil widget: nil acceptButton: a ButtonModel cancelButton: a ButtonModel pickList: a PickListModel textArea: nil
ChangesBrowser class(Behavior)>>new Receiver: ChangesBrowser Arguments and temporary variables:
Receiver's instance variables: superclass: ComposableModel methodDict: a MethodDictionary(#accept->(ChangesBrowser>>#accept "a CompiledMet...etc... format: 150 instanceVariables: #('acceptButton' 'cancelButton' 'pickList' 'textArea') organization: ('private' accept buildDiffFor: cancel change:) ('accessing' acce...etc... subclasses: nil name: #ChangesBrowser classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NautilusRefactoring-Utilities' traitComposition: {} localSelectors: nil
ChangesBrowser class>>changes: Receiver: ChangesBrowser Arguments and temporary variables: aCollection: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: superclass: ComposableModel methodDict: a MethodDictionary(#accept->(ChangesBrowser>>#accept "a CompiledMet...etc... format: 150 instanceVariables: #('acceptButton' 'cancelButton' 'pickList' 'textArea') organization: ('private' accept buildDiffFor: cancel change:) ('accessing' acce...etc... subclasses: nil name: #ChangesBrowser classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NautilusRefactoring-Utilities' traitComposition: {} localSelectors: nil
NautilusRefactoring>>internalPerformRefactorings: Receiver: a NautilusRefactoring Arguments and temporary variables: aCollectionRefactoring: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: environment: a RBNamespace model: a NautilusUI
[self internalPerformRefactorings: aCollectionRefactoring] in [[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning do: [:exception | self handleWarning: exception]] in NautilusRefactoring>>performRefactorings: Receiver: a NautilusRefactoring Arguments and temporary variables: aCollectionRefactoring: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: environment: a RBNamespace model: a NautilusUI
BlockClosure>>on:do: Receiver: [self internalPerformRefactorings: aCollectionRefactoring] Arguments and temporary variables: exception: RBRefactoringWarning handlerAction: [:exception | self handleWarning: exception] handlerActive: true Receiver's instance variables: outerContext: [[self internalPerformRefactorings: aCollectionRefactoring] on:...etc... startpc: 47 numArgs: 0
[[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning do: [:exception | self handleWarning: exception]] in NautilusRefactoring>>performRefactorings: Receiver: a NautilusRefactoring Arguments and temporary variables: aCollectionRefactoring: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: environment: a RBNamespace model: a NautilusUI
BlockClosure>>on:do: Receiver: [[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning d...etc... Arguments and temporary variables: exception: RBRefactoringError handlerAction: [:exception | self handleError: exception] handlerActive: true Receiver's instance variables: outerContext: NautilusRefactoring>>performRefactorings: startpc: 42 numArgs: 0
NautilusRefactoring>>performRefactorings: Receiver: a NautilusRefactoring Arguments and temporary variables: aCollectionRefactoring: an Array(a RBRenameMethodRefactoring) Receiver's instance variables: environment: a RBNamespace model: a NautilusUI
NautilusRefactoring>>performRefactoring: Receiver: a NautilusRefactoring Arguments and temporary variables: aRefactoring: a RBRenameMethodRefactoring Receiver's instance variables: environment: a RBNamespace model: a NautilusUI
NautilusRefactoring>>renameMethodFor: Receiver: a NautilusRefactoring Arguments and temporary variables: aMethod: (OmExample>>#exampleMethod "a CompiledMethod(760741888)") refactoring: a RBRenameMethodRefactoring Receiver's instance variables: environment: a RBNamespace model: a NautilusUI
[:target | | scroll | scroll := target methodWidget vScrollValue. target refactor renameMethodFor: target selectedMethod. target methodWidget vScrollValue: scroll] in NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: Receiver: NautilusRefactoring Arguments and temporary variables: target: a NautilusUI scroll: 0.0 Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(size 140) format: 134 instanceVariables: #('environment' 'model') organization: ('class var' abstractClassVarFrom: accessorsClassVarFrom: addClas...etc... subclasses: nil name: #NautilusRefactoring classPool: a Dictionary(#PromptOnRefactoring->true ) sharedPools: nil environment: a SystemDictionary(lots of globals) category: #NautilusRefactoring traitComposition: {} localSelectors: nil
BlockClosure>>cull: Receiver: [:target | | scroll | scroll := target methodWidget vScrollValue. target refactor rename...etc... Arguments and temporary variables: anArg: a NautilusUI Receiver's instance variables: outerContext: NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: startpc: 75 numArgs: 1
BlockClosure>>cull:cull: Receiver: [:target | | scroll | scroll := target methodWidget vScrollValue. target refactor rename...etc... Arguments and temporary variables: firstArg: a NautilusUI secondArg: a PluggableIconListMorph(310902784) Receiver's instance variables: outerContext: NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: startpc: 75 numArgs: 1
BlockClosure>>cull:cull:cull: Receiver: [:target | | scroll | scroll := target methodWidget vScrollValue. target refactor rename...etc... Arguments and temporary variables: firstArg: a NautilusUI secondArg: a PluggableIconListMorph(310902784) thirdArg: [keystroke '<Cmd-r>'] Receiver's instance variables: outerContext: NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: startpc: 75 numArgs: 1
KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #rename on Cmd + R do [:target | | scroll | scroll := target methodWi...etc... aBuffer: an OrderedCollection([keystroke '<Cmd-r>']) Receiver's instance variables: target: a NautilusUI category: a KMCategory morph: a PluggableIconListMorph(310902784)
[:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrollValue. ...etc... Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '<Cmd-r>']) Receiver's instance variables: action: [:target | | scroll | scroll := target methodWidget vScrollValue. tar...etc... name: #rename shortcut: Cmd + R defaultShortcut: Cmd + R description: 'Rename the seleted method'
Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget)
KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrollValue. ...etc... Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '<Cmd-r>']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:target | | scroll | scroll := target methodWidget vScrollValue. tar...etc... name: #rename shortcut: Cmd + R defaultShortcut: Cmd + R description: 'Rename the seleted method'
KMKeymap>>onMatchWith:notify:andDo: Receiver: #rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrollValue. ...etc... Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '<Cmd-r>']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:target | | scroll | scroll := target methodWidget vScrollValue. tar...etc... name: #rename shortcut: Cmd + R defaultShortcut: Cmd + R description: 'Rename the seleted method'
[:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #rename on Cmd + R do [:target | | scroll | scroll := target me...etc... aMatchListener: an OrderedCollection([keystroke '<Cmd-r>']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #NautilusMethodShortcuts platforms: a Dictionary(#MacOSX->a Dictionary() #all->a Dictionary(#addMethodsI...etc...
Array(SequenceableCollection)>>do: Receiver: an Array(#rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrol...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 1 indexLimiT: 15 Receiver's instance variables: an Array(#rename on Cmd + R do [:target | | scroll | scroll := target methodWidget vScrol...etc...
KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '<Cmd-r>']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #NautilusMethodShortcuts platforms: a Dictionary(#MacOSX->a Dictionary() #all->a Dictionary(#addMethodsI...etc...
KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '<Cmd-r>']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a NautilusUI category: a KMCategory morph: a PluggableIconListMorph(310902784)
[:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '<Cmd-r>']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke '<Cmd-r>'] targets: a Set(a KMCategoryTarget) morph: a PluggableIconListMorph(310902784) directKeymaps: a KMCategory
Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget) Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 1 each: a KMCategoryTarget indexLimiT: 5 Receiver's instance variables: tally: 2 array: an Array(a KMCategoryTarget nil a KMCategoryTarget nil nil)
KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '<Cmd-r>']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke '<Cmd-r>'] targets: a Set(a KMCategoryTarget) morph: a PluggableIconListMorph(310902784) directKeymaps: a KMCategory
KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke '<Cmd-r>'] targets: a Set(a KMCategoryTarget) morph: a PluggableIconListMorph(310902784) directKeymaps: a KMCategory
KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke '<Cmd-r>'] targets: a Set(a KMCategoryTarget) morph: a PluggableIconListMorph(310902784) directKeymaps: a KMCategory
PluggableIconListMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: evt: [keystroke '<Cmd-r>'] Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor:
PluggableIconListMorph(Morph)>>handleKeystroke: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor:
KeyboardEvent>>sentTo: Receiver: [keystroke '<Cmd-r>'] Arguments and temporary variables: anObject: a PluggableIconListMorph(310902784) Receiver's instance variables: timeStamp: 44109 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (696@205) handler: nil wasHandled: true keyValue: 114 charCode: 114 scanCode: 15
PluggableIconListMorph(Morph)>>handleEvent: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor:
MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] aMorph: a PluggableIconListMorph(310902784) localEvt: [keystroke '<Cmd-r>'] index: 2 child: a TransformMorph(571473920) morphs: an Array(a TransformMorph(571473920)) inside: true Receiver's instance variables: lastType: #keystroke lastDispatch: #dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] aMorph: a PluggableIconListMorph(310902784) Receiver's instance variables: lastType: #keystroke lastDispatch: #dispatchDefault:with:
PluggableIconListMorph(Morph)>>processEvent:using: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor:
PluggableIconListMorph(Morph)>>processEvent: Receiver: a PluggableIconListMorph(310902784) Arguments and temporary variables: anEvent: [keystroke '<Cmd-r>'] Receiver's instance variables: bounds: (586.0@163.0) corner: (752.0@366.0) owner: a NautilusWindow(494927872) submorphs: an Array(a TransformMorph(571473920)) fullBounds: (586@163) corner: (752@366) color: Color white extension: a MorphExtension (1042546688) [locked] [other: (dragEnabled -> tru...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a MethodWidget open: false accessor: nil scrollBar: a ScrollBar(341835776) scroller: a TransformMorph(571473920) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #elementsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(457703424) list: nil getListSelector: #getMethods getListSizeSelector: #methodListSize getListElementSelector: #getMethodItem: getIndexSelector: #selectedMethodIndex setIndexSelector: #selectedMethodIndex: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyMorphListMorph(491520000) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: #methodWrapper: searchedElement: nil multipleSelection: true dragOnOrOff: nil setSelectionListSelector: #methodSelectionAt:put: getSelectionListSelector: #methodSelectionAt: resetListSelector: #resetMethodsListSelection keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: 1 getIconSelector: #methodIconFor:
--- The full stack --- PickListModel(Object)>>doesNotUnderstand: #wrappingBlock: ChangesBrowser>>initializePickList ChangesBrowser>>initialize ChangesBrowser class(Behavior)>>new ChangesBrowser class>>changes: NautilusRefactoring>>internalPerformRefactorings: [self internalPerformRefactorings: aCollectionRefactoring] in [[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning do: [:exception | self handleWarning: exception]] in NautilusRefactoring>>performRefactorings: BlockClosure>>on:do: [[self internalPerformRefactorings: aCollectionRefactoring] on: RBRefactoringWarning do: [:exception | self handleWarning: exception]] in NautilusRefactoring>>performRefactorings: BlockClosure>>on:do: NautilusRefactoring>>performRefactorings: NautilusRefactoring>>performRefactoring: NautilusRefactoring>>renameMethodFor: [:target | | scroll | scroll := target methodWidget vScrollValue. target refactor renameMethodFor: target selectedMethod. target methodWidget vScrollValue: scroll] in NautilusRefactoring class>>buildRefactoringMethodShortcutsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Array(SequenceableCollection)>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableIconListMorph(Morph)>>dispatchKeystrokeForEvent: PluggableIconListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: PluggableIconListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableIconListMorph(Morph)>>processEvent:using: PluggableIconListMorph(Morph)>>processEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PluggableIconListMorph(PluggableListMorph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess
Mark, Confirmed in a fresh 2.0 image. Opened issue 6044 http://code.google.com/p/pharo/issues/detail?id=6044. It looks like no class implements wrappingBlock:, but it's called from CodeCriticBrowser, KMDescription, and ChangesBrowser (the culprit here). Dan On 06/07/2012 07:55 AM, Mark Smith wrote:
I'm having some issues with Nautilus (in Pharo 1.4 and Pharo 2.0a) when trying to rename a method, and more recently when generating instance variable accessors.
It appears that we may be missing a dependency as the PickListMorph doesn't understand the wrappingBlock: message.
Can anyone confirm this problem?
All the best,
Mark
And incase this is useful to anyone â
7 June 2012 1:03:30.005 pm
VM: Mac OS - intel - 1073 - CoInterpreter VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 6aa3fd0f1188078d3167dec1a53031a61b97b688 Date: Tue May 1 20:28:14 2012 +0200 By: Esteban Lorenzano <estebanlm@gmail.com <mailto:estebanlm@gmail.com>> Image: Pharo1.4 [Latest update: #14438]
PickListModel(Object)>>doesNotUnderstand: #wrappingBlock: Receiver: a PickListModel Arguments and temporary variables: aMessage: wrappingBlock: [:item | item nameToDisplay] exception: MessageNotUnderstood: PickListModel>>wrappingBlock: resumeValue: nil
benjamin is concentrated on a paper right now. Stef On Jun 7, 2012, at 3:19 PM, Daniel Uber wrote:
Mark,
Confirmed in a fresh 2.0 image. Opened issue 6044 http://code.google.com/p/pharo/issues/detail?id=6044.
It looks like no class implements wrappingBlock:, but it's called from CodeCriticBrowser, KMDescription, and ChangesBrowser (the culprit here).
Dan
On 06/07/2012 07:55 AM, Mark Smith wrote:
I'm having some issues with Nautilus (in Pharo 1.4 and Pharo 2.0a) when trying to rename a method, and more recently when generating instance variable accessors.
It appears that we may be missing a dependency as the PickListMorph doesn't understand the wrappingBlock: message.
Can anyone confirm this problem?
All the best,
Mark
And incase this is useful to anyone â
7 June 2012 1:03:30.005 pm
VM: Mac OS - intel - 1073 - CoInterpreter VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 6aa3fd0f1188078d3167dec1a53031a61b97b688 Date: Tue May 1 20:28:14 2012 +0200 By: Esteban Lorenzano <estebanlm@gmail.com> Image: Pharo1.4 [Latest update: #14438]
PickListModel(Object)>>doesNotUnderstand: #wrappingBlock: Receiver: a PickListModel Arguments and temporary variables: aMessage: wrappingBlock: [:item | item nameToDisplay] exception: MessageNotUnderstood: PickListModel>>wrappingBlock: resumeValue: nil
But it's fixed in my image, so it's probably just a set a package not integrated yet :) (I am changing Spec a bit to add nice cool features :) ) Ben On Jun 7, 2012, at 9:44 AM, Stéphane Ducasse wrote:
benjamin is concentrated on a paper right now.
Stef
On Jun 7, 2012, at 3:19 PM, Daniel Uber wrote:
Mark,
Confirmed in a fresh 2.0 image. Opened issue 6044 http://code.google.com/p/pharo/issues/detail?id=6044.
It looks like no class implements wrappingBlock:, but it's called from CodeCriticBrowser, KMDescription, and ChangesBrowser (the culprit here).
Dan
On 06/07/2012 07:55 AM, Mark Smith wrote:
I'm having some issues with Nautilus (in Pharo 1.4 and Pharo 2.0a) when trying to rename a method, and more recently when generating instance variable accessors.
It appears that we may be missing a dependency as the PickListMorph doesn't understand the wrappingBlock: message.
Can anyone confirm this problem?
All the best,
Mark
And incase this is useful to anyone â
7 June 2012 1:03:30.005 pm
VM: Mac OS - intel - 1073 - CoInterpreter VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.158 uuid: 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 6aa3fd0f1188078d3167dec1a53031a61b97b688 Date: Tue May 1 20:28:14 2012 +0200 By: Esteban Lorenzano <estebanlm@gmail.com> Image: Pharo1.4 [Latest update: #14438]
PickListModel(Object)>>doesNotUnderstand: #wrappingBlock: Receiver: a PickListModel Arguments and temporary variables: aMessage: wrappingBlock: [:item | item nameToDisplay] exception: MessageNotUnderstood: PickListModel>>wrappingBlock: resumeValue: nil
participants (4)
-
Benjamin -
Daniel Uber -
Mark Smith -
Stéphane Ducasse