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

[Pharo-project] Pharo 1.3 - Build # 35 - Failure!
by jenkins-pharo.ci.inria.fr＠jenkins-server.lille.inria.fr June 9, 2012

June 9, 2012

1 10

[Pharo-project] [update 2.0] #20116
by StÃ©phane Ducasse June 9, 2012

June 9, 2012

20116 ----- - Issue 5993: Change in Scrollbar behavior. Thanks Thierry Goubier and Sean De Nigris http://code.google.com/p/pharo/issues/detail?id=5993 - Issue 3423: Debugger little usability enh http://code.google.com/p/pharo/issues/detail?id=3423 - Issue 6019: Collection>>#difference: behaviour change between 1.3 and 1.4 http://code.google.com/p/pharo/issues/detail?id=6019

1 0

[Pharo-project] Using github & Travis CI for a Smalltalk project
by Serge Stinckwich June 8, 2012

June 8, 2012

Hi all, I have done some experiments in order to use travis CI for Smalltalk project hosted on github. Travis is a free continuous integration service: http://travis-ci.org/ that is deeply integrated with github. I'm using FileTree repository (thanks to Dale !) to store the code on github. Look at this example project here: https://github.com/SergeStinckwich/PlayerST I configure Travis continuous integration service to run the tests everytime i commit on github. This is quite easy, you just have to add a .travis.yml script like this one: https://github.com/SergeStinckwich/PlayerST/blob/master/.travis.yml This script use Builder tools (thanks to Lukas !): https://github.com/renggli/builder This is the result of running the tests: http://travis-ci.org/#!/SergeStinckwich/PlayerST/builds/1565363 At the moment, this is quite rough, because i just print all the result on the console. There is room for improvements, but the idea is that every Smalltalk project could use a continuous integration process like the one used by Pharo. What is really nice is that travis runs also the script for all the branches and pull request. So you can imagine, take into account the results of the script before doing the integration in the main branch of your dev. Cheers, -- Serge Stinckwich UMI UMMISCO 209 (IRD/UPMC), Hanoi, Vietnam Every DSL ends up being Smalltalk http://doesnotunderstand.org/

3 2

[Pharo-project] [update 2.0] #20115
by Marcus Denker June 8, 2012

June 8, 2012

20115 ----- Issue 6031: Spec upgrade http://code.google.com/p/pharo/issues/detail?id=6031 Issue 5988: Windows default commands http://code.google.com/p/pharo/issues/detail?id=5988 Issue 6045: RelativeInstructionPrinter: do not print offsets in pushClosureCopyNumCopiedValues: http://code.google.com/p/pharo/issues/detail?id=6045 Issue 6037: Lets remove ReferenceStream http://code.google.com/p/pharo/issues/detail?id=6037 -- Marcus Denker -- http://marcusdenker.de

1 0

[Pharo-project] Monticello and webdav
by Olivier Auverlot June 8, 2012

June 8, 2012

At work, I'm trying to create a personal repository for Monticello. For this, I installed a Linux server with Apache and I want use webdav. My webdav configuration is : DAVMinTimeout 600 DAVDepthInfinity On <Directory /var/www/pharo> Options Indexes MultiViews DAV on AuthName "Depot Pharo" AuthType Basic AuthUserFile /etc/apache2/htpasswd-webdav <Limit PUT POST DELETE PROPFIND PROPPATCH MKCOL COPY MOVE LOCK UNLOCK> Require valid-user </Limit> </Directory> My webdav repository works fine. I can put and get files from my computer. In Monticello, I added my repository like this: MCHttpRepository location: 'http://drwho.priv.lifl.fr/pharo/' user: 'login' password: 'password' I can open the repository and I can save a package. With Pharo 1.3, all works fine but with Pharo 1.4, I can open the repository, I see the packages but when I click on a package, Monticello returns the following error: MessageNotUnderstood: receiver of "readStream" is nil. someone have an idea ? Thanks for your help Best regards Olivier :-)

2 2

[Pharo-project] Pharo-1.4-Tests Â» 32,win - Build # 61 - Failure!
by jenkins-pharo.ci.inria.fr＠jenkins-server.lille.inria.fr June 7, 2012

June 7, 2012

1 1

[Pharo-project] Jenkins downloads broken?
by Schwab,Wilhelm K June 7, 2012

June 7, 2012

I have been trying to grab 2.0 from Jenkins - no luck. There are long connection delays and then incomplete downloads (512 bytes per file) if it does finally connect. Anybody else seeing this? Bill ________________________________________ From: pharo-project-bounces(a)lists.gforge.inria.fr [pharo-project-bounces(a)lists.gforge.inria.fr] on behalf of Sean P. DeNigris [sean(a)clipperadams.com] Sent: Thursday, June 07, 2012 12:11 AM To: pharo-project(a)lists.gforge.inria.fr Subject: [Pharo-project] Backporting fixes 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... Thanks, Sean -- View this message in context: http://forum.world.st/Backporting-fixes-tp4633625.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

2 2

[Pharo-project] [update 2.0] #20114
by Esteban Lorenzano June 7, 2012

June 7, 2012

20114 ----- Issue 5938: Package browser red rectangle on save http://code.google.com/p/pharo/issues/detail?id=5938 Issue 5871: FileReference>>renameTo: should assume same folder http://code.google.com/p/pharo/issues/detail?id=5871

1 0

[Pharo-project] Latest ConfigurationOfGlamour don't works
by garduino June 7, 2012

June 7, 2012

Using Gofer it url: 'http://www.squeaksource.com/Glamour'; package: 'ConfigurationOfGlamour'; load. ConfigurationOfGlamour project stableVersion load. in an updated 1.4 image don't finalize the installation. I get an UndefinedObject(Object)>>doesNotUnderstand: #asSymbol Any help will be greatly appreciated. -- View this message in context: http://forum.world.st/Latest-ConfigurationOfGlamour-don-t-works-tp4633721.h… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

2 2

[Pharo-project] A small issue with Nautilus and PickListMorph
by Mark Smith June 7, 2012

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(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

4 4