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