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

June 7, 2012

      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

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

Mark Smith