June 2012 - Pharo-dev - lists.pharo.org

[Pharo-project] A small issue with Nautilus and PickListMorph

by Mark Smith

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(a)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(a)163.0) corner: (752.0(a)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(a)163.0) corner: (752.0(a)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(a)163.0) corner: (752.0(a)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(a)163.0) corner: (752.0(a)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(a)163.0) corner: (752.0(a)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

June 7, 2012

Re: [Pharo-project] Backporting fixes

by Ben Coman

StÃ©phane Ducasse wrote: > + 1 > Marcus can you add it to the pharo-project web site. > > >>> no new bugs tagged 1.4 are important ones for the incremental release. >>> We will not maintain two versions in parallel. Just **important** = show stopper fixes. >>> >> Especially as one Person's enhancement is the other persons bug... any large change >> will have side effects, so we should really limit us a bit. >> >> -> No new features. >> -> No cleanups >> -> If a bug was there in Pharo 1.1 already and we lived with it for years, fixing it in >> the current dev version is (in many cases) enough. >> (There are exceptions, but is does not happen often). >> -> Community input is important. A ready-to-include fix with a description that it >> was tested and a note that it for sure works will not be ignored. >> For an entry that is nearly finished yet nobody even cares to test it, why bother? >> Just a random idea... that perhaps the issue tracker tags and templates could be updated to advise of this philosophy. * Remove template "Pharo 1.4 Enhancement". * Template "Pharo 1.4 Bug" currently has an empty description. Include Steph's description above - particularly the bit about recording which Pharo version a fix has been tested on.. The template label might be changed from "Milestone-1.4" to "Maintenance-1.4" - since that milestone has already passed. cheers, Ben >> The best thing is to just do it. The list is here: >> >> http://code.google.com/p/pharo/issues/list?can=2&q=milestone%3D1.4 >> >> Marcus >> >> -- >> Marcus Denker -- http://marcusdenker.de >> >> >> > > > >

June 7, 2012

Re: [Pharo-project] Backporting fixes

by Sean P. DeNigris

StÃ©phane Ducasse wrote > > no new bugs tagged 1.4 are important ones for the incremental release. > I'm not talking about bugs /tagged/ 1.4, but bugs /in/ 1.4. I'm seeing bug in the bug tracker that effect 1.4 and 2.0 that are tagged 2.0 by reflex and no one gets a chance to consider whether they should be also fixed in 1.4. -- View this message in context: http://forum.world.st/Backporting-fixes-tp4633625p4633681.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

June 7, 2012

Re: [Pharo-project] Backporting fixes

by StÃ©phane Ducasse

>> The secret is: Things are done because they are done. >> >> Marcus >> > My question (and Seanâs i think) were more of the kind: âexplain us how > things are done", and not "please do this for meâ. Really simple: - we go to the issue list - try to load the code - read the code - check if there is a test - check that all the tests are working (or that new ones are not broken So any input is important. > So if it is of any value > if i load a fix in a fresh 1.4 image and run tests - but as in the FileList > case do not really understand what is going on - is of any help, i will > gladly do it. Stef

June 7, 2012

Re: [Pharo-project] Graphic Framework..

by Diogenes Moreira

Thanks tudor Lic. DiÃ³genes A. Moreira Desde mi celular El jun 7, 2012 8:34 a.m., "Tudor Girba" <tudor(a)tudorgirba.com> escribiÃ³: > This link is for Morphic (the other one was for VisualWorks): > http://www.moosetechnology.org/tools/eyesee > > Doru > > > > On Thu, Jun 7, 2012 at 1:21 PM, Diogenes Moreira > <diogenes.moreira(a)gmail.com> wrote: > > Thaks.. > > http://about.me/diogenes.moreira > > > > > > > > > > 2012/6/7 Esteban Lorenzano <estebanlm(a)gmail.com> > >> > >> http://www.moosetechnology.org/tools/vw/eyesee > >> > >> On Jun 7, 2012, at 1:15 PM, Diogenes Moreira wrote: > >> > >> Hi Folk, > >> > >> Is there a framework for generate graphics chart, like excel.. (I'll > kill > >> one dragon hidden on the excel and access), for morphic to start, but > the > >> idea is using that image in a seaside application. > >> > >> Best > >> D. > >> > >> http://about.me/diogenes.moreira > >> > >> > > > > > > -- > www.tudorgirba.com > > "Every thing has its own flow" > >

June 7, 2012

Re: [Pharo-project] Backporting fixes

by Helene Bilbo

Marcus Denker-4 wrote > > On Jun 7, 2012, at 11:10 AM, Marcus Denker wrote: > >> >> On Jun 7, 2012, at 11:07 AM, Helene Bilbo wrote: >> >>> >>> Sean P. DeNigris wrote >>>> >>>> I want to backport some fixes from 2.0 into 1.4. What's the best way to >>>> do >>>> that? >>>> >>>> Also, it seems to me that, given our new development process, all bugs >>>> should be tagged for both 1.4 and 2.0 unless they specifically don't >>>> apply >>>> to 1.4... > >>> What does it take to do this? I often file in bug-fixes from the >>> issue-tracker, test it for my own projects, run the available tests - >>> but of >>> course i often do not understand why a fix works, or if it is well made. >> >> >> If you do that, can you add a note to the bug tracker that you did it? >> takes 2 seconds. > > In general, I think there is a miss-conception of how things are done. > > The secret is: Things are done because they are done. > > Marcus > > Well, of course. My question (and Seanâs i think) were more of the kind: âexplain us how things are done", and not "please do this for meâ. So if it is of any value if i load a fix in a fresh 1.4 image and run tests - but as in the FileList case do not really understand what is going on - is of any help, i will gladly do it. Helene. -- View this message in context: http://forum.world.st/Backporting-fixes-tp4633625p4633670.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

June 7, 2012

Re: [Pharo-project] Graphic Framework..

by Tudor Girba

This link is for Morphic (the other one was for VisualWorks): http://www.moosetechnology.org/tools/eyesee Doru On Thu, Jun 7, 2012 at 1:21 PM, Diogenes Moreira <diogenes.moreira(a)gmail.com> wrote: > Thaks.. > http://about.me/diogenes.moreira > > > > > 2012/6/7 Esteban Lorenzano <estebanlm(a)gmail.com> >> >> http://www.moosetechnology.org/tools/vw/eyesee >> >> On Jun 7, 2012, at 1:15 PM, Diogenes Moreira wrote: >> >> Hi Folk, >> >> Is there a framework for generate graphics chart, like excel.. (I'll kill >> one dragon hidden on the excel and access), for morphic to start, but the >> idea is using that image in a seaside application. >> >> Best >> D. >> >> http://about.me/diogenes.moreira >> >> > -- www.tudorgirba.com "Every thing has its own flow"

June 7, 2012

[Pharo-project] Pharo 1.3 - Build # 40 - Still Failing!

by jenkins-pharo.ci.inria.fr＠jenkins-server.lille.inria.fr

June 7, 2012

Re: [Pharo-project] Graphic Framework..

by Diogenes Moreira

Thaks.. http://about.me/diogenes.moreira 2012/6/7 Esteban Lorenzano <estebanlm(a)gmail.com> > http://www.moosetechnology.org/tools/vw/eyesee > > On Jun 7, 2012, at 1:15 PM, Diogenes Moreira wrote: > > Hi Folk, > > Is there a framework for generate graphics chart, like excel.. (I'll kill > one dragon hidden on the excel and access), for morphic to start, but the > idea is using that image in a seaside application. > > Best > D. > > http://about.me/diogenes.moreira > > >

June 7, 2012

Re: [Pharo-project] Graphic Framework..

by Esteban Lorenzano

http://www.moosetechnology.org/tools/vw/eyesee On Jun 7, 2012, at 1:15 PM, Diogenes Moreira wrote: > Hi Folk, > > Is there a framework for generate graphics chart, like excel.. (I'll kill one dragon hidden on the excel and access), for morphic to start, but the idea is using that image in a seaside application. > > Best > D. > > http://about.me/diogenes.moreira >

June 7, 2012