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

Benjamin benjamin.vanryseghem.pharo at gmail.com
Thu Jun 7 09:03:54 EDT 2012


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 at 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 at 163.0) corner: (752.0 at 366.0)
> 		owner: 	a NautilusWindow(494927872)
> 		submorphs: 	an Array(a TransformMorph(571473920))
> 		fullBounds: 	(586 at 163) corner: (752 at 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 at 163.0) corner: (752.0 at 366.0)
> 		owner: 	a NautilusWindow(494927872)
> 		submorphs: 	an Array(a TransformMorph(571473920))
> 		fullBounds: 	(586 at 163) corner: (752 at 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 at 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 at 163.0) corner: (752.0 at 366.0)
> 		owner: 	a NautilusWindow(494927872)
> 		submorphs: 	an Array(a TransformMorph(571473920))
> 		fullBounds: 	(586 at 163) corner: (752 at 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 at 163.0) corner: (752.0 at 366.0)
> 		owner: 	a NautilusWindow(494927872)
> 		submorphs: 	an Array(a TransformMorph(571473920))
> 		fullBounds: 	(586 at 163) corner: (752 at 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 at 163.0) corner: (752.0 at 366.0)
> 		owner: 	a NautilusWindow(494927872)
> 		submorphs: 	an Array(a TransformMorph(571473920))
> 		fullBounds: 	(586 at 163) corner: (752 at 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

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.pharo.org/pipermail/pharo-dev_lists.pharo.org/attachments/20120607/0dd58794/attachment.html>


More information about the Pharo-dev mailing list