- Pharo-dev - lists.pharo.org

[Pharo-project] [update 1.4] #14330
by Marcus Denker Feb. 14, 2012

Feb. 14, 2012

14330 ----- Issue 5291: FSReference(Object)>>doesNotUnderstand: #asLowercase http://code.google.com/p/pharo/issues/detail?id=5291 -- Marcus Denker -- http://marcusdenker.de

1 0

[Pharo-project] a fix to KomServer
by Milan Mimica Feb. 14, 2012

Feb. 14, 2012

oops, looks like I have committed something... I have committed a patch to http://www.squeaksource.com/KomHttpServer I wanted to have it checked by someone first, didn't really think it would let me commit just like that. Sorry for the inconvenience. Anyway, now that it's there someone has to look at it. :) It's not much. The problem was KomServer threw MNO when a request was made with an absolute URL in the HTTP request, which is valid as I read it [1][2]. [1] http://www.w3.org/Protocols/rfc2616/rfc2616-sec3.html#sec3.2.1 [2] http://www.w3.org/Protocols/rfc2616/rfc2616-sec5.html#sec5.2 -- Milan Mimica http://sparklet.sf.net

2 2

[Pharo-project] [BUG]FileDialogWindow(Object)>>doesNotUnderstand: #directoriesFor:
by Alexis Parseghian Feb. 14, 2012

Feb. 14, 2012

At first, trying to load text into a workspace (from its menu). More generally, any attempt at opening the file dialog. UITheme class>>exampleDialogs fails with the same. Still worked in update #14284 (previous images I had). 13 February 2012 8:29:31 pm VM: unix - i686 - linux-gnu - CoInterpreter VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Jan 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Jan 26 2012, https://git.gitorious.org/cogvm/blessed.git Commit: e49a136ea9fe909dd5ba3cdeffac8f61cce27c9f Date: Thu Jan 26 17:38:06 2012 +0100 By: Camillo Bruni <camillobruni(a)gmail.com> Image: Pharo1.4a [Latest update: #14329] FileDialogWindow(Object)>>doesNotUnderstand: #directoriesFor: Receiver: a FileDialogWindow(176685056) Arguments and temporary variables: aMessage: directoriesFor: UnixFileDirectory on '/home' exception: MessageNotUnderstood: FileDialogWindow>>directoriesFor: resumeValue: nil Receiver's instance variables: bounds: (0@0) corner: (300@200) owner: nil submorphs: an Array(a WindowEdgeGripMorph(160432128) a WindowEdgeGripMorph(1067...etc... fullBounds: nil color: (Color r: 0.745 g: 0.745 b: 0.745) extension: a MorphExtension (189530112) [other: (paneColor -> (Color r: 0.745 ...etc... borderWidth: 1 borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498) model: nil open: false accessor: nil labelString: 'File' stripes: an Array(a Morph(716963840) a Morph(721420288)) label: a LabelMorph(256376832)'File' closeBox: nil collapseBox: nil activeOnlyOnTop: true paneMorphs: an Array(a PanelMorph(571473920)) collapsedFrame: nil fullFrame: (0@0) corner: (300@200) isCollapsed: false menuBox: nil mustNotClose: false labelWidgetAllowance: 0 updatablePanes: #() allowReframeHandles: true labelArea: an AlignmentMorph(726663168) expandBox: nil embeddable: nil announcer: nil cancelled: true isResizeable: nil directoryTreeMorph: a TreeListMorph(689176576) fileListMorph: a PluggableMorphListMorph(24641536) directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper a FileDirec...etc... selectedDirectory: nil selectedFileIndex: 0 fileSelectionBlock: [:de | de isDirectory ifTrue: [self showDirectoriesInFile...etc... showDirectoriesInFileList: true fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory ifTrue: [de1 na...etc... fileNameText: '' defaultExtension: nil actionSelector: #selectedPathName answer: nil entryCache: nil entryCacheDirectory: nil previewType: false previewMorph: nil FileDirectoryWrapper>>contents Receiver: a FileDirectoryWrapper Arguments and temporary variables: Receiver's instance variables: item: UnixFileDirectory on '/home' model: a FileDialogWindow(176685056) itemName: 'home' balloonText: nil hasContents: true IndentingListItemMorph>>refreshExpandedState Receiver: an IndentingListItemMorph(452984832)'home' Arguments and temporary variables: newChildren: nil toDelete: an OrderedCollection() c: nil Receiver's instance variables: bounds: (0@396) corner: (67@414) owner: a TransformMorph(961282048) submorphs: #() fullBounds: (-4@396) corner: (67@414) color: Color black extension: nil font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: nil contents: 'home' hasFocus: false indentLevel: 0 isExpanded: true complexContents: a FileDirectoryWrapper firstChild: nil container: a TreeListMorph(689176576) nextSibling: an IndentingListItemMorph(922746880)'usr' icon: Form(16x16x32) IndentingListItemMorph>>toggleExpandedState Receiver: an IndentingListItemMorph(452984832)'home' Arguments and temporary variables: Receiver's instance variables: bounds: (0@396) corner: (67@414) owner: a TransformMorph(961282048) submorphs: #() fullBounds: (-4@396) corner: (67@414) color: Color black extension: nil font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: nil contents: 'home' hasFocus: false indentLevel: 0 isExpanded: true complexContents: a FileDirectoryWrapper firstChild: nil container: a TreeListMorph(689176576) nextSibling: an IndentingListItemMorph(922746880)'usr' icon: Form(16x16x32) IndentingListItemMorph>>openPath: Receiver: an IndentingListItemMorph(839385088)'tmp' Arguments and temporary variables: anArray: #('home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-20120125') found: an IndentingListItemMorph(452984832)'home' Receiver's instance variables: bounds: (0@0) corner: (57@18) owner: a TransformMorph(961282048) submorphs: #() fullBounds: (-4@0) corner: (57@18) color: Color black extension: nil font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: nil contents: 'tmp' hasFocus: false indentLevel: 0 isExpanded: false complexContents: a FileDirectoryWrapper firstChild: nil container: a TreeListMorph(689176576) nextSibling: an IndentingListItemMorph(235405312)'sbin' icon: Form(16x16x32) TreeListMorph(SimpleHierarchicalListMorph)>>update: Receiver: a TreeListMorph(689176576) Arguments and temporary variables: aSymbol: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-201201...etc... Receiver's instance variables: bounds: (5.0(a)22.0) corner: (185.0(a)222.0) owner: a PanelMorph(429391872) submorphs: an Array(a ScrollBar(715653120) a TransformMorph(961282048)) fullBounds: nil color: Color white extension: a MorphExtension (392691712) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.784 g: 0.784 b: 0.784) model: a FileDialogWindow(176685056) open: false accessor: nil scrollBar: a ScrollBar(715653120) scroller: a TransformMorph(961282048) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(847511552) selectedMorph: nil getListSelector: #directories keystrokeActionSelector: nil autoDeselect: false columns: nil sortingSelector: nil getSelectionSelector: #selectedDirectory setSelectionSelector: #selectedDirectory: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... [:aDependent | aDependent update: aParameter] in FileDialogWindow(Object)>>changed: Receiver: a FileDialogWindow(176685056) Arguments and temporary variables: aParameter: a TreeListMorph(689176576) aDependent: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-201...etc... Receiver's instance variables: bounds: (0@0) corner: (300@200) owner: nil submorphs: an Array(a WindowEdgeGripMorph(160432128) a WindowEdgeGripMorph(1067...etc... fullBounds: nil color: (Color r: 0.745 g: 0.745 b: 0.745) extension: a MorphExtension (189530112) [other: (paneColor -> (Color r: 0.745 ...etc... borderWidth: 1 borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498) model: nil open: false accessor: nil labelString: 'File' stripes: an Array(a Morph(716963840) a Morph(721420288)) label: a LabelMorph(256376832)'File' closeBox: nil collapseBox: nil activeOnlyOnTop: true paneMorphs: an Array(a PanelMorph(571473920)) collapsedFrame: nil fullFrame: (0@0) corner: (300@200) isCollapsed: false menuBox: nil mustNotClose: false labelWidgetAllowance: 0 updatablePanes: #() allowReframeHandles: true labelArea: an AlignmentMorph(726663168) expandBox: nil embeddable: nil announcer: nil cancelled: true isResizeable: nil directoryTreeMorph: a TreeListMorph(689176576) fileListMorph: a PluggableMorphListMorph(24641536) directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper a FileDirec...etc... selectedDirectory: nil selectedFileIndex: 0 fileSelectionBlock: [:de | de isDirectory ifTrue: [self showDirectoriesInFile...etc... showDirectoriesInFileList: true fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory ifTrue: [de1 na...etc... fileNameText: '' defaultExtension: nil actionSelector: #selectedPathName answer: nil entryCache: nil entryCacheDirectory: nil previewType: false previewMorph: nil DependentsArray>>do: Receiver: a DependentsArray(a TreeListMorph(689176576) a PluggableMorphListMorph(24641536) a Pluggab...etc... Arguments and temporary variables: aBlock: [:aDependent | aDependent update: aParameter] dep: a TreeListMorph(689176576) i: 1 iLimiT: 8 Receiver's instance variables: a DependentsArray(a TreeListMorph(689176576) a PluggableMorphListMorph(24641536) a Pluggab...etc... FileDialogWindow(Object)>>changed: Receiver: a FileDialogWindow(176685056) Arguments and temporary variables: aParameter: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-201...etc... Receiver's instance variables: bounds: (0@0) corner: (300@200) owner: nil submorphs: an Array(a WindowEdgeGripMorph(160432128) a WindowEdgeGripMorph(1067...etc... fullBounds: nil color: (Color r: 0.745 g: 0.745 b: 0.745) extension: a MorphExtension (189530112) [other: (paneColor -> (Color r: 0.745 ...etc... borderWidth: 1 borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498) model: nil open: false accessor: nil labelString: 'File' stripes: an Array(a Morph(716963840) a Morph(721420288)) label: a LabelMorph(256376832)'File' closeBox: nil collapseBox: nil activeOnlyOnTop: true paneMorphs: an Array(a PanelMorph(571473920)) collapsedFrame: nil fullFrame: (0@0) corner: (300@200) isCollapsed: false menuBox: nil mustNotClose: false labelWidgetAllowance: 0 updatablePanes: #() allowReframeHandles: true labelArea: an AlignmentMorph(726663168) expandBox: nil embeddable: nil announcer: nil cancelled: true isResizeable: nil directoryTreeMorph: a TreeListMorph(689176576) fileListMorph: a PluggableMorphListMorph(24641536) directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper a FileDirec...etc... selectedDirectory: nil selectedFileIndex: 0 fileSelectionBlock: [:de | de isDirectory ifTrue: [self showDirectoriesInFile...etc... showDirectoriesInFileList: true fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory ifTrue: [de1 na...etc... fileNameText: '' defaultExtension: nil actionSelector: #selectedPathName answer: nil entryCache: nil entryCacheDirectory: nil previewType: false previewMorph: nil FileDialogWindow>>selectDirectory: Receiver: a FileDialogWindow(176685056) Arguments and temporary variables: aFileDirectory: UnixFileDirectory on '/home/alexisp/workbench/Smalltalk/Pharo-1...etc... Receiver's instance variables: bounds: (0@0) corner: (300@200) owner: nil submorphs: an Array(a WindowEdgeGripMorph(160432128) a WindowEdgeGripMorph(1067...etc... fullBounds: nil color: (Color r: 0.745 g: 0.745 b: 0.745) extension: a MorphExtension (189530112) [other: (paneColor -> (Color r: 0.745 ...etc... borderWidth: 1 borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498) model: nil open: false accessor: nil labelString: 'File' stripes: an Array(a Morph(716963840) a Morph(721420288)) label: a LabelMorph(256376832)'File' closeBox: nil collapseBox: nil activeOnlyOnTop: true paneMorphs: an Array(a PanelMorph(571473920)) collapsedFrame: nil fullFrame: (0@0) corner: (300@200) isCollapsed: false menuBox: nil mustNotClose: false labelWidgetAllowance: 0 updatablePanes: #() allowReframeHandles: true labelArea: an AlignmentMorph(726663168) expandBox: nil embeddable: nil announcer: nil cancelled: true isResizeable: nil directoryTreeMorph: a TreeListMorph(689176576) fileListMorph: a PluggableMorphListMorph(24641536) directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper a FileDirec...etc... selectedDirectory: nil selectedFileIndex: 0 fileSelectionBlock: [:de | de isDirectory ifTrue: [self showDirectoriesInFile...etc... showDirectoriesInFileList: true fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory ifTrue: [de1 na...etc... fileNameText: '' defaultExtension: nil actionSelector: #selectedPathName answer: nil entryCache: nil entryCacheDirectory: nil previewType: false previewMorph: nil FileDialogWindow>>addInitialPanel Receiver: a FileDialogWindow(176685056) Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (300@200) owner: nil submorphs: an Array(a WindowEdgeGripMorph(160432128) a WindowEdgeGripMorph(1067...etc... fullBounds: nil color: (Color r: 0.745 g: 0.745 b: 0.745) extension: a MorphExtension (189530112) [other: (paneColor -> (Color r: 0.745 ...etc... borderWidth: 1 borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498) model: nil open: false accessor: nil labelString: 'File' stripes: an Array(a Morph(716963840) a Morph(721420288)) label: a LabelMorph(256376832)'File' closeBox: nil collapseBox: nil activeOnlyOnTop: true paneMorphs: an Array(a PanelMorph(571473920)) collapsedFrame: nil fullFrame: (0@0) corner: (300@200) isCollapsed: false menuBox: nil mustNotClose: false labelWidgetAllowance: 0 updatablePanes: #() allowReframeHandles: true labelArea: an AlignmentMorph(726663168) expandBox: nil embeddable: nil announcer: nil cancelled: true isResizeable: nil directoryTreeMorph: a TreeListMorph(689176576) fileListMorph: a PluggableMorphListMorph(24641536) directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper a FileDirec...etc... selectedDirectory: nil selectedFileIndex: 0 fileSelectionBlock: [:de | de isDirectory ifTrue: [self showDirectoriesInFile...etc... showDirectoriesInFileList: true fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory ifTrue: [de1 na...etc... fileNameText: '' defaultExtension: nil actionSelector: #selectedPathName answer: nil entryCache: nil entryCacheDirectory: nil previewType: false previewMorph: nil FileDialogWindow(DialogWindow)>>initialize Receiver: a FileDialogWindow(176685056) Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (300@200) owner: nil submorphs: an Array(a WindowEdgeGripMorph(160432128) a WindowEdgeGripMorph(1067...etc... fullBounds: nil color: (Color r: 0.745 g: 0.745 b: 0.745) extension: a MorphExtension (189530112) [other: (paneColor -> (Color r: 0.745 ...etc... borderWidth: 1 borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498) model: nil open: false accessor: nil labelString: 'File' stripes: an Array(a Morph(716963840) a Morph(721420288)) label: a LabelMorph(256376832)'File' closeBox: nil collapseBox: nil activeOnlyOnTop: true paneMorphs: an Array(a PanelMorph(571473920)) collapsedFrame: nil fullFrame: (0@0) corner: (300@200) isCollapsed: false menuBox: nil mustNotClose: false labelWidgetAllowance: 0 updatablePanes: #() allowReframeHandles: true labelArea: an AlignmentMorph(726663168) expandBox: nil embeddable: nil announcer: nil cancelled: true isResizeable: nil directoryTreeMorph: a TreeListMorph(689176576) fileListMorph: a PluggableMorphListMorph(24641536) directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper a FileDirec...etc... selectedDirectory: nil selectedFileIndex: 0 fileSelectionBlock: [:de | de isDirectory ifTrue: [self showDirectoriesInFile...etc... showDirectoriesInFileList: true fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory ifTrue: [de1 na...etc... fileNameText: '' defaultExtension: nil actionSelector: #selectedPathName answer: nil entryCache: nil entryCacheDirectory: nil previewType: false previewMorph: nil FileDialogWindow>>initialize Receiver: a FileDialogWindow(176685056) Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (300@200) owner: nil submorphs: an Array(a WindowEdgeGripMorph(160432128) a WindowEdgeGripMorph(1067...etc... fullBounds: nil color: (Color r: 0.745 g: 0.745 b: 0.745) extension: a MorphExtension (189530112) [other: (paneColor -> (Color r: 0.745 ...etc... borderWidth: 1 borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498) model: nil open: false accessor: nil labelString: 'File' stripes: an Array(a Morph(716963840) a Morph(721420288)) label: a LabelMorph(256376832)'File' closeBox: nil collapseBox: nil activeOnlyOnTop: true paneMorphs: an Array(a PanelMorph(571473920)) collapsedFrame: nil fullFrame: (0@0) corner: (300@200) isCollapsed: false menuBox: nil mustNotClose: false labelWidgetAllowance: 0 updatablePanes: #() allowReframeHandles: true labelArea: an AlignmentMorph(726663168) expandBox: nil embeddable: nil announcer: nil cancelled: true isResizeable: nil directoryTreeMorph: a TreeListMorph(689176576) fileListMorph: a PluggableMorphListMorph(24641536) directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper a FileDirec...etc... selectedDirectory: nil selectedFileIndex: 0 fileSelectionBlock: [:de | de isDirectory ifTrue: [self showDirectoriesInFile...etc... showDirectoriesInFileList: true fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory ifTrue: [de1 na...etc... fileNameText: '' defaultExtension: nil actionSelector: #selectedPathName answer: nil entryCache: nil entryCacheDirectory: nil previewType: false previewMorph: nil PharoTheme(UITheme)>>chooseFullFileNameIn:title:patterns:path:preview: Receiver: a PharoTheme Arguments and temporary variables: aThemedMorph: a SystemWindow(645136384) title: 'Choose file to open in the workspace' patterns: nil path: nil preview: false fd: nil Receiver's instance variables: settings: a ThemeSettings forms: a Dictionary(#buttonBottomLeft->Form(12x12x32) #buttonBottomMiddle->Form...etc... soundTheme: nil focusIndicator: a PluggableMultiColumnListMorph(1022623744)->a BorderedMorph(15...etc... windowActiveDropShadowStyle: #nodiffuse MorphicUIManager>>chooseFullFileNameMatching:label: Receiver: a MorphicUIManager Arguments and temporary variables: patterns: nil label: 'Choose file to open in the workspace' Receiver's instance variables: interactiveParser: nil Workspace>>askForFileNameToOpen Receiver: a Workspace Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(1038876672) a PluggableTextMorph(4...etc... contents: '' bindings: nil acceptDroppedMorphs: false acceptAction: nil mustDeclareVariables: false fileName: nil lineEnding: #lf encoding: 'utf-8' stylingActive: true Workspace>>openCommand Receiver: a Workspace Arguments and temporary variables: userWarned: true Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(1038876672) a PluggableTextMorph(4...etc... contents: '' bindings: nil acceptDroppedMorphs: false acceptAction: nil mustDeclareVariables: false fileName: nil lineEnding: #lf encoding: 'utf-8' stylingActive: true [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]. self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(430964736)'Open...' Arguments and temporary variables: evt: [(647@560) mouseUp 949878 nil] selArgCount: 0 Receiver's instance variables: bounds: (543.0(a)547.0) corner: (857.0(a)565.0) owner: a MenuMorph(154402816) submorphs: #() fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0) color: Color black extension: a MorphExtension (441188352) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'Open...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a Workspace selector: #openCommand arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil BlockClosure>>ensure: Receiver: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: startpc: 160 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r100000000000000000000...etc... Arguments and temporary variables: aBlock: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [targe...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(430964736)'Open...' Arguments and temporary variables: evt: [(647@560) mouseUp 949878 nil] w: a PasteUpMorph(425197568) [world] Receiver's instance variables: bounds: (543.0(a)547.0) corner: (857.0(a)565.0) owner: a MenuMorph(154402816) submorphs: #() fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0) color: Color black extension: a MorphExtension (441188352) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'Open...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a Workspace selector: #openCommand arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: Receiver: a ToggleMenuItemMorph(430964736)'Open...' Arguments and temporary variables: evt: [(647@560) mouseUp 949878 nil] Receiver's instance variables: bounds: (543.0(a)547.0) corner: (857.0(a)565.0) owner: a MenuMorph(154402816) submorphs: #() fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0) color: Color black extension: a MorphExtension (441188352) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'Open...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a Workspace selector: #openCommand arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: Receiver: a ToggleMenuItemMorph(430964736)'Open...' Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] Receiver's instance variables: bounds: (543.0(a)547.0) corner: (857.0(a)565.0) owner: a MenuMorph(154402816) submorphs: #() fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0) color: Color black extension: a MorphExtension (441188352) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'Open...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a Workspace selector: #openCommand arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil MouseButtonEvent>>sentTo: Receiver: [(647@560) mouseUp 949878 nil] Arguments and temporary variables: anObject: a ToggleMenuItemMorph(430964736)'Open...' Receiver's instance variables: timeStamp: 949878 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (647@560) handler: nil wasHandled: true whichButton: 4 ToggleMenuItemMorph(Morph)>>handleEvent: Receiver: a ToggleMenuItemMorph(430964736)'Open...' Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] Receiver's instance variables: bounds: (543.0(a)547.0) corner: (857.0(a)565.0) owner: a MenuMorph(154402816) submorphs: #() fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0) color: Color black extension: a MorphExtension (441188352) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'Open...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a Workspace selector: #openCommand arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] aMorph: a ToggleMenuItemMorph(430964736)'Open...' localEvt: nil index: 1 child: nil morphs: #() inside: true Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] aMorph: a ToggleMenuItemMorph(430964736)'Open...' Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: ToggleMenuItemMorph(Morph)>>processEvent:using: Receiver: a ToggleMenuItemMorph(430964736)'Open...' Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (543.0(a)547.0) corner: (857.0(a)565.0) owner: a MenuMorph(154402816) submorphs: #() fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0) color: Color black extension: a MorphExtension (441188352) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'Open...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a Workspace selector: #openCommand arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] aMorph: a MenuMorph(154402816) localEvt: [(647@560) mouseUp 949878 nil] index: 16 child: a ToggleMenuItemMorph(430964736)'Open...' morphs: an Array(a ToggleMenuItemMorph(505413632)'Close' a MenuLineMorph(633339...etc... inside: false Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] aMorph: a MenuMorph(154402816) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MenuMorph(Morph)>>processEvent:using: Receiver: a MenuMorph(154402816) Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (538.0(a)377.0) corner: (862.0(a)763.0) owner: nil submorphs: an Array(a ToggleMenuItemMorph(505413632)'Close' a MenuLineMorph(633...etc... fullBounds: (538.0(a)377.0) corner: (862.0(a)763.0) color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (169345024) [other: (basicColor -> (Color r: 0.745...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: a SystemWindow(1038876672) selectedItem: a ToggleMenuItemMorph(430964736)'Open...' stayUp: false popUpOwner: nil activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(505413632)'Close' a Toggl...etc... MenuMorph(Morph)>>processEvent: Receiver: a MenuMorph(154402816) Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] Receiver's instance variables: bounds: (538.0(a)377.0) corner: (862.0(a)763.0) owner: nil submorphs: an Array(a ToggleMenuItemMorph(505413632)'Close' a MenuLineMorph(633...etc... fullBounds: (538.0(a)377.0) corner: (862.0(a)763.0) color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (169345024) [other: (basicColor -> (Color r: 0.745...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: a SystemWindow(1038876672) selectedItem: a ToggleMenuItemMorph(430964736)'Open...' stayUp: false popUpOwner: nil activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(505413632)'Close' a Toggl...etc... MenuMorph>>handleFocusEvent: Receiver: a MenuMorph(154402816) Arguments and temporary variables: evt: [(647@560) mouseUp 949878 nil] Receiver's instance variables: bounds: (538.0(a)377.0) corner: (862.0(a)763.0) owner: nil submorphs: an Array(a ToggleMenuItemMorph(505413632)'Close' a MenuLineMorph(633...etc... fullBounds: (538.0(a)377.0) corner: (862.0(a)763.0) color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (169345024) [other: (basicColor -> (Color r: 0.745...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: a SystemWindow(1038876672) selectedItem: a ToggleMenuItemMorph(430964736)'Open...' stayUp: false popUpOwner: nil activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(505413632)'Close' a Toggl...etc... [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] focusHolder: a MenuMorph(154402816) result: #(nil) Receiver's instance variables: bounds: (463@471) corner: (479@487) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (463@471) corner: (479@487) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(463@471) mouseUp 3570522 nil] targetOffset: (60.0(a)8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 3570522 463 471 0 0 0 1) lastKeyScanCode: 99 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1392@849) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(808189952) a Syste...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: [(647@560) mouseOver red nil nil] Receiver's instance variables: bounds: (0@0) corner: (1392@849) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(808189952) a Syste...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] focusHolder: a MenuMorph(154402816) aBlock: [self mouseFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (463@471) corner: (479@487) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (463@471) corner: (479@487) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(463@471) mouseUp 3570522 nil] targetOffset: (60.0(a)8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 3570522 463 471 0 0 0 1) lastKeyScanCode: 99 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(647@560) mouseUp 949878 nil] focusHolder: a MenuMorph(154402816) aBlock: [self mouseFocus: nil] result: nil Receiver's instance variables: bounds: (463@471) corner: (479@487) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (463@471) corner: (479@487) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(463@471) mouseUp 3570522 nil] targetOffset: (60.0(a)8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 3570522 463 471 0 0 0 1) lastKeyScanCode: 99 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 --- The full stack --- FileDialogWindow(Object)>>doesNotUnderstand: #directoriesFor: FileDirectoryWrapper>>contents IndentingListItemMorph>>refreshExpandedState IndentingListItemMorph>>toggleExpandedState IndentingListItemMorph>>openPath: TreeListMorph(SimpleHierarchicalListMorph)>>update: [:aDependent | aDependent update: aParameter] in FileDialogWindow(Object)>>changed: DependentsArray>>do: FileDialogWindow(Object)>>changed: FileDialogWindow>>selectDirectory: FileDialogWindow>>addInitialPanel FileDialogWindow(DialogWindow)>>initialize FileDialogWindow>>initialize PharoTheme(UITheme)>>chooseFullFileNameIn:title:patterns:path:preview: MorphicUIManager>>chooseFullFileNameMatching:label: Workspace>>askForFileNameToOpen Workspace>>openCommand [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]. self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>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>>sendMouseEvent: 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

1 1

[Pharo-project] [BUG]FSReference(Object)>>doesNotUnderstand: #asLowercase
by Alexis Parseghian Feb. 14, 2012

Feb. 14, 2012

Attempting to open a file browser from World menu>Tools 13 February 2012 8:31:53 pm VM: unix - i686 - linux-gnu - CoInterpreter VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Jan 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Jan 26 2012, https://git.gitorious.org/cogvm/blessed.git Commit: e49a136ea9fe909dd5ba3cdeffac8f61cce27c9f Date: Thu Jan 26 17:38:06 2012 +0100 By: Camillo Bruni <camillobruni(a)gmail.com> Image: Pharo1.4a [Latest update: #14329] FSReference(Object)>>doesNotUnderstand: #asLowercase Receiver: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 Arguments and temporary variables: aMessage: asLowercase exception: MessageNotUnderstood: FSReference>>asLowercase resumeValue: nil Receiver's instance variables: filesystem: a FSFilesystem path: FSPath / 'home' / 'alexisp' / 'workbench' / 'Smalltalk' / 'Pharo-1.4-2012...etc... ChangeList class>>fileReaderServicesForFile:suffix: Receiver: ChangeList Arguments and temporary variables: fullName: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 suffix: '4-20120125' services: an OrderedCollection() Receiver's instance variables: superclass: CodeHolder methodDict: a MethodDictionary(#addItem:text:->(ChangeList>>#addItem:text: "a C...etc... format: 150 instanceVariables: #('changeList' 'list' 'listIndex' 'listSelections' 'file' 'l...etc... organization: ('*MonticelloGUI' changeTo:) ('accessing' changeList changes:file...etc... subclasses: {VersionsBrowser} name: #ChangeList classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Tools-Changes' traitComposition: nil localSelectors: nil [:reader | reader ifNotNil: [services addAll: (reader fileReaderServicesForFile: file suffix: suffix)]] in FileList class>>itemsForFile: Receiver: FileList Arguments and temporary variables: file: ChangeList services: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 suffix: an OrderedCollection() reader: '4-20120125' Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(size 102) format: 158 instanceVariables: #('reference' 'volumeList' 'volumeListIndex' 'list' 'listInd...etc... organization: ('*Shout-Styling' shoutAboutToStyle:) ('accessing' directory dire...etc... subclasses: nil name: #FileList classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an OrderedCollect...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Tools-FileList' traitComposition: {} localSelectors: nil searchList: an OrderedCollection() OrderedCollection>>do: Receiver: an OrderedCollection(ChangeSet ChangeList ChangeSorter FileContentsBrowser FilePackage Fil...etc... Arguments and temporary variables: aBlock: [:reader | reader ifNotNil: [services addAll: (reader fileReaderS...etc... index: 2 Receiver's instance variables: array: {ChangeSet. ChangeList. ChangeSorter. FileContentsBrowser. FilePackage. ...etc... firstIndex: 1 lastIndex: 20 FileList class>>itemsForFile: Receiver: FileList Arguments and temporary variables: file: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 services: an OrderedCollection() suffix: '4-20120125' Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(size 102) format: 158 instanceVariables: #('reference' 'volumeList' 'volumeListIndex' 'list' 'listInd...etc... organization: ('*Shout-Styling' shoutAboutToStyle:) ('accessing' directory dire...etc... subclasses: nil name: #FileList classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an OrderedCollect...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Tools-FileList' traitComposition: {} localSelectors: nil searchList: an OrderedCollection() FileList>>itemsForFile: Receiver: a FileList Arguments and temporary variables: file: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128...etc... reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 volumeList: #('[]' ' home' ' alexisp' ' workbench' ' Smalltalk' ' Pha...etc... volumeListIndex: 6 list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc... listIndex: 0 pattern: nil sortMode: #date brevityState: #FileList currentDirectorySelected: nil dirSelectionBlock: [:dirName | true] modalView: nil ok: false contents: '' FileList>>dynamicButtonServices Receiver: a FileList Arguments and temporary variables: toReject: #(#removeLineFeeds: #addFileToNewZip: #compressFile:) Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128...etc... reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 volumeList: #('[]' ' home' ' alexisp' ' workbench' ' Smalltalk' ' Pha...etc... volumeListIndex: 6 list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc... listIndex: 0 pattern: nil sortMode: #date brevityState: #FileList currentDirectorySelected: nil dirSelectionBlock: [:dirName | true] modalView: nil ok: false contents: '' FileList>>updateButtonRow Receiver: a FileList Arguments and temporary variables: aWindow: a SystemWindow(639631360) aRow: an AlignmentMorph(54788096) Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128...etc... reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 volumeList: #('[]' ' home' ' alexisp' ' workbench' ' Smalltalk' ' Pha...etc... volumeListIndex: 6 list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc... listIndex: 0 pattern: nil sortMode: #date brevityState: #FileList currentDirectorySelected: nil dirSelectionBlock: [:dirName | true] modalView: nil ok: false contents: '' FileList>>updateFileList Receiver: a FileList Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128...etc... reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 volumeList: #('[]' ' home' ' alexisp' ' workbench' ' Smalltalk' ' Pha...etc... volumeListIndex: 6 list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc... listIndex: 0 pattern: nil sortMode: #date brevityState: #FileList currentDirectorySelected: nil dirSelectionBlock: [:dirName | true] modalView: nil ok: false contents: '' FileList>>directory: Receiver: a FileList Arguments and temporary variables: dir: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128...etc... reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 volumeList: #('[]' ' home' ' alexisp' ' workbench' ' Smalltalk' ' Pha...etc... volumeListIndex: 6 list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc... listIndex: 0 pattern: nil sortMode: #date brevityState: #FileList currentDirectorySelected: nil dirSelectionBlock: [:dirName | true] modalView: nil ok: false contents: '' FileList>>selectedDirectory: Receiver: a FileList Arguments and temporary variables: aFileDirectoryWrapper: a FileDirectoryWrapper Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128...etc... reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 volumeList: #('[]' ' home' ' alexisp' ' workbench' ' Smalltalk' ' Pha...etc... volumeListIndex: 6 list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc... listIndex: 0 pattern: nil sortMode: #date brevityState: #FileList currentDirectorySelected: nil dirSelectionBlock: [:dirName | true] modalView: nil ok: false contents: '' SimpleHierarchicalListMorph>>setSelectedMorph: Receiver: a SimpleHierarchicalListMorph(379584512) Arguments and temporary variables: aMorph: an IndentingListItemMorph(466616320)'Pharo-1.4-20120125' Receiver's instance variables: bounds: (0@0) corner: (150@120) owner: a SystemWindow(639631360) submorphs: an Array(a ScrollBar(529006592) a ScrollBar(405798912) a TransformMo...etc... fullBounds: nil color: Color white extension: a MorphExtension (25165824) [eventHandler = an EventHandler recipien...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a FileList open: false accessor: nil scrollBar: a ScrollBar(405798912) scroller: a TransformMorph(642777088) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #volumeMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(529006592) selectedMorph: nil getListSelector: #initialDirectoryList keystrokeActionSelector: nil autoDeselect: false columns: nil sortingSelector: nil getSelectionSelector: #selectedDirectory setSelectionSelector: #selectedDirectory: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil IndentingListItemMorph>>openPath: Receiver: an IndentingListItemMorph(905445376)'AidaOneClickPharo.app' Arguments and temporary variables: anArray: #('Pharo-1.4-20120125') found: an IndentingListItemMorph(466616320)'Pharo-1.4-20120125' Receiver's instance variables: bounds: (0@2250) corner: (224@2268) owner: a TransformMorph(642777088) submorphs: #() fullBounds: (-3@2250) corner: (224@2268) color: Color black extension: nil font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: nil contents: 'AidaOneClickPharo.app' hasFocus: false indentLevel: 4 isExpanded: false complexContents: a FileDirectoryWrapper firstChild: nil container: a SimpleHierarchicalListMorph(379584512) nextSibling: an IndentingListItemMorph(210501632)'cog-unix-jenkins' icon: Form(16x16x32) IndentingListItemMorph>>openPath: Receiver: an IndentingListItemMorph(464781312)'3d' Arguments and temporary variables: anArray: #('Smalltalk' 'Pharo-1.4-20120125') found: an IndentingListItemMorph(17563648)'Smalltalk' Receiver's instance variables: bounds: (0@1782) corner: (88@1800) owner: a TransformMorph(642777088) submorphs: #() fullBounds: (-3@1782) corner: (88@1800) color: Color black extension: nil font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: nil contents: '3d' hasFocus: false indentLevel: 3 isExpanded: false complexContents: a FileDirectoryWrapper firstChild: nil container: a SimpleHierarchicalListMorph(379584512) nextSibling: an IndentingListItemMorph(843579392)'Articles' icon: Form(16x16x32) IndentingListItemMorph>>openPath: Receiver: an IndentingListItemMorph(173015040)'.adobe' Arguments and temporary variables: anArray: #('workbench' 'Smalltalk' 'Pharo-1.4-20120125') found: an IndentingListItemMorph(273416192)'workbench' Receiver's instance variables: bounds: (0@432) corner: (100@450) owner: a TransformMorph(642777088) submorphs: #() fullBounds: (-3@432) corner: (100@450) color: Color black extension: nil font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: nil contents: '.adobe' hasFocus: false indentLevel: 2 isExpanded: false complexContents: a FileDirectoryWrapper firstChild: nil container: a SimpleHierarchicalListMorph(379584512) nextSibling: an IndentingListItemMorph(652476416)'.aptitude' icon: Form(16x16x32) IndentingListItemMorph>>openPath: Receiver: an IndentingListItemMorph(644349952)'alexisp' Arguments and temporary variables: anArray: #('alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-20120125') found: an IndentingListItemMorph(644349952)'alexisp' Receiver's instance variables: bounds: (0@414) corner: (89@432) owner: a TransformMorph(642777088) submorphs: #() fullBounds: (-3@414) corner: (89@432) color: Color black extension: nil font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: nil contents: 'alexisp' hasFocus: false indentLevel: 1 isExpanded: true complexContents: a FileDirectoryWrapper firstChild: an IndentingListItemMorph(173015040)'.adobe' container: a SimpleHierarchicalListMorph(379584512) nextSibling: an IndentingListItemMorph(50069504)'lost+found' icon: Form(16x16x32) IndentingListItemMorph>>openPath: Receiver: an IndentingListItemMorph(826802176)'tmp' Arguments and temporary variables: anArray: #('home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-20120125') found: an IndentingListItemMorph(440401920)'home' Receiver's instance variables: bounds: (0@0) corner: (57@18) owner: a TransformMorph(642777088) submorphs: #() fullBounds: (-3@0) corner: (57@18) color: Color black extension: nil font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: nil contents: 'tmp' hasFocus: false indentLevel: 0 isExpanded: false complexContents: a FileDirectoryWrapper firstChild: nil container: a SimpleHierarchicalListMorph(379584512) nextSibling: an IndentingListItemMorph(222822400)'sbin' icon: Form(16x16x32) SimpleHierarchicalListMorph>>update: Receiver: a SimpleHierarchicalListMorph(379584512) Arguments and temporary variables: aSymbol: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-201201...etc... Receiver's instance variables: bounds: (0@0) corner: (150@120) owner: a SystemWindow(639631360) submorphs: an Array(a ScrollBar(529006592) a ScrollBar(405798912) a TransformMo...etc... fullBounds: nil color: Color white extension: a MorphExtension (25165824) [eventHandler = an EventHandler recipien...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a FileList open: false accessor: nil scrollBar: a ScrollBar(405798912) scroller: a TransformMorph(642777088) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #volumeMenu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(529006592) selectedMorph: nil getListSelector: #initialDirectoryList keystrokeActionSelector: nil autoDeselect: false columns: nil sortingSelector: nil getSelectionSelector: #selectedDirectory setSelectionSelector: #selectedDirectory: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil [:aDependent | aDependent update: aParameter] in FileList(Object)>>changed: Receiver: a FileList Arguments and temporary variables: aParameter: a SimpleHierarchicalListMorph(379584512) aDependent: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-201...etc... Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128...etc... reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 volumeList: #('[]' ' home' ' alexisp' ' workbench' ' Smalltalk' ' Pha...etc... volumeListIndex: 6 list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc... listIndex: 0 pattern: nil sortMode: #date brevityState: #FileList currentDirectorySelected: nil dirSelectionBlock: [:dirName | true] modalView: nil ok: false contents: '' DependentsArray>>do: Receiver: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128) a SimpleHierarchicalL...etc... Arguments and temporary variables: aBlock: [:aDependent | aDependent update: aParameter] dep: a SimpleHierarchicalListMorph(379584512) i: 3 iLimiT: 5 Receiver's instance variables: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128) a SimpleHierarchicalL...etc... FileList(Object)>>changed: Receiver: a FileList Arguments and temporary variables: aParameter: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-201...etc... Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128...etc... reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 volumeList: #('[]' ' home' ' alexisp' ' workbench' ' Smalltalk' ' Pha...etc... volumeListIndex: 6 list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc... listIndex: 0 pattern: nil sortMode: #date brevityState: #FileList currentDirectorySelected: nil dirSelectionBlock: [:dirName | true] modalView: nil ok: false contents: '' FileList>>postOpen Receiver: a FileList Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128...etc... reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 volumeList: #('[]' ' home' ' alexisp' ' workbench' ' Smalltalk' ' Pha...etc... volumeListIndex: 6 list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc... listIndex: 0 pattern: nil sortMode: #date brevityState: #FileList currentDirectorySelected: nil dirSelectionBlock: [:dirName | true] modalView: nil ok: false contents: '' FileList class>>morphicViewOnDirectory: Receiver: FileList Arguments and temporary variables: aFileDirectory: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125 aFileList: a FileList window: a SystemWindow(639631360) fileListBottom: 0.4 midLine: 0.2 fileListTopOffset: 29 buttonPane: an AlignmentMorph(54788096) Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(size 102) format: 158 instanceVariables: #('reference' 'volumeList' 'volumeListIndex' 'list' 'listInd...etc... organization: ('*Shout-Styling' shoutAboutToStyle:) ('accessing' directory dire...etc... subclasses: nil name: #FileList classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an OrderedCollect...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Tools-FileList' traitComposition: {} localSelectors: nil searchList: an OrderedCollection() FileList class>>morphicView Receiver: FileList Arguments and temporary variables: Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(size 102) format: 158 instanceVariables: #('reference' 'volumeList' 'volumeListIndex' 'list' 'listInd...etc... organization: ('*Shout-Styling' shoutAboutToStyle:) ('accessing' directory dire...etc... subclasses: nil name: #FileList classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an OrderedCollect...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Tools-FileList' traitComposition: {} localSelectors: nil searchList: an OrderedCollection() FileList class>>open Receiver: FileList Arguments and temporary variables: Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(size 102) format: 158 instanceVariables: #('reference' 'volumeList' 'volumeListIndex' 'list' 'listInd...etc... organization: ('*Shout-Styling' shoutAboutToStyle:) ('accessing' directory dire...etc... subclasses: nil name: #FileList classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an OrderedCollect...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Tools-FileList' traitComposition: {} localSelectors: nil searchList: an OrderedCollection() [self open] in FileList class>>menuCommandOn: Receiver: FileList Arguments and temporary variables: Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(size 102) format: 158 instanceVariables: #('reference' 'volumeList' 'volumeListIndex' 'list' 'listInd...etc... organization: ('*Shout-Styling' shoutAboutToStyle:) ('accessing' directory dire...etc... subclasses: nil name: #FileList classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an OrderedCollect...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Tools-FileList' traitComposition: {} localSelectors: nil searchList: an OrderedCollection() [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]. self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(940834816)'File Browser' Arguments and temporary variables: evt: [(481@403) mouseUp 3692468 nil] selArgCount: 0 Receiver's instance variables: bounds: (396.0(a)395.0) corner: (562.0(a)413.0) owner: a MenuMorph(1041498112) submorphs: #() fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0) color: Color black extension: a MorphExtension (951058432) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'File Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [self open] selector: #value arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil BlockClosure>>ensure: Receiver: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: startpc: 160 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r100000000000000000000...etc... Arguments and temporary variables: aBlock: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [targe...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(940834816)'File Browser' Arguments and temporary variables: evt: [(481@403) mouseUp 3692468 nil] w: a PasteUpMorph(425197568) [world] Receiver's instance variables: bounds: (396.0(a)395.0) corner: (562.0(a)413.0) owner: a MenuMorph(1041498112) submorphs: #() fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0) color: Color black extension: a MorphExtension (951058432) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'File Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [self open] selector: #value arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: Receiver: a ToggleMenuItemMorph(940834816)'File Browser' Arguments and temporary variables: evt: [(481@403) mouseUp 3692468 nil] Receiver's instance variables: bounds: (396.0(a)395.0) corner: (562.0(a)413.0) owner: a MenuMorph(1041498112) submorphs: #() fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0) color: Color black extension: a MorphExtension (951058432) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'File Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [self open] selector: #value arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: Receiver: a ToggleMenuItemMorph(940834816)'File Browser' Arguments and temporary variables: anEvent: [(481@403) mouseUp 3692468 nil] Receiver's instance variables: bounds: (396.0(a)395.0) corner: (562.0(a)413.0) owner: a MenuMorph(1041498112) submorphs: #() fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0) color: Color black extension: a MorphExtension (951058432) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'File Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [self open] selector: #value arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil MouseButtonEvent>>sentTo: Receiver: [(481@403) mouseUp 3692468 nil] Arguments and temporary variables: anObject: a ToggleMenuItemMorph(940834816)'File Browser' Receiver's instance variables: timeStamp: 3692468 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (481@403) handler: nil wasHandled: true whichButton: 4 ToggleMenuItemMorph(Morph)>>handleEvent: Receiver: a ToggleMenuItemMorph(940834816)'File Browser' Arguments and temporary variables: anEvent: [(481@403) mouseUp 3692468 nil] Receiver's instance variables: bounds: (396.0(a)395.0) corner: (562.0(a)413.0) owner: a MenuMorph(1041498112) submorphs: #() fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0) color: Color black extension: a MorphExtension (951058432) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'File Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [self open] selector: #value arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(481@403) mouseUp 3692468 nil] aMorph: a ToggleMenuItemMorph(940834816)'File Browser' localEvt: nil index: 1 child: nil morphs: #() inside: true Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(481@403) mouseUp 3692468 nil] aMorph: a ToggleMenuItemMorph(940834816)'File Browser' Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: ToggleMenuItemMorph(Morph)>>processEvent:using: Receiver: a ToggleMenuItemMorph(940834816)'File Browser' Arguments and temporary variables: anEvent: [(481@403) mouseUp 3692468 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (396.0(a)395.0) corner: (562.0(a)413.0) owner: a MenuMorph(1041498112) submorphs: #() fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0) color: Color black extension: a MorphExtension (951058432) font: a LogicalFont familyName: Droid Sans emphasis: nil pointSize: 9 realF...etc... emphasis: 0 contents: 'File Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [self open] selector: #value arguments: #() icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(481@403) mouseUp 3692468 nil] aMorph: a MenuMorph(1041498112) localEvt: [(481@403) mouseUp 3692468 nil] index: 9 child: a ToggleMenuItemMorph(940834816)'File Browser' morphs: an Array(a ToggleMenuItemMorph(344195072)'Finder' a ToggleMenuItemMorph...etc... inside: false Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(481@403) mouseUp 3692468 nil] aMorph: a MenuMorph(1041498112) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: --- The full stack --- FSReference(Object)>>doesNotUnderstand: #asLowercase ChangeList class>>fileReaderServicesForFile:suffix: [:reader | reader ifNotNil: [services addAll: (reader fileReaderServicesForFile: file suffix: suffix)]] in FileList class>>itemsForFile: OrderedCollection>>do: FileList class>>itemsForFile: FileList>>itemsForFile: FileList>>dynamicButtonServices FileList>>updateButtonRow FileList>>updateFileList FileList>>directory: FileList>>selectedDirectory: SimpleHierarchicalListMorph>>setSelectedMorph: IndentingListItemMorph>>openPath: IndentingListItemMorph>>openPath: IndentingListItemMorph>>openPath: IndentingListItemMorph>>openPath: IndentingListItemMorph>>openPath: SimpleHierarchicalListMorph>>update: [:aDependent | aDependent update: aParameter] in FileList(Object)>>changed: DependentsArray>>do: FileList(Object)>>changed: FileList>>postOpen FileList class>>morphicViewOnDirectory: FileList class>>morphicView FileList class>>open [self open] in FileList class>>menuCommandOn: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]. self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>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>>sendMouseEvent: 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

3 3

[Pharo-project] bug? #setPageSize: called in MorphThreeMorph but not defined
by Esteban Lorenzano Feb. 14, 2012

Feb. 14, 2012

Hi, MorphThreeModel>>#pageSize: and MorphThreeModel>>#chunkSize: both sends #setPageSize:, but that message is not defined there or in parents. Unique definition is on PaginatedMorphThreeModel. is that a bug? best, Esteban

4 6

Re: [Pharo-project] [BUG]UndefinedObject(Object)>>doesNotUnderstand: #asSocketAddress
by Marcus Denker Feb. 14, 2012

Feb. 14, 2012

On Feb 13, 2012, at 8:58 PM, Sven Van Caekenberghe wrote: > Thanks for the bug report, Alexis. > > Part of the solution is to change the last line of NetNameResolver class>>addressForName:timeout: to > > ^ result ifNotNil: [ result asSocketAddress ] > > But I don't like NameLookupFailure>>#defaultAction either. > > Apart from the fact that this is an extremely silly interactive action, it should call super when aborting. Retry feels very old school and ancient, it won't make a difference. > > Furthermore, the contract of NetNameResolver class>>addressForName:timeout: should better not include returning nil, signaling NameLookupFailure is enough, but that might break some older code. > > Comments ? > We should remove the "send bug report by mail" feature. We will later add a way to add bug reports to the bug tracker within pharo. Using email for this is not a good idea these days. Marcus -- Marcus Denker -- http://marcusdenker.de

1 0

Re: [Pharo-project] Are Objects really hard?
by Marcus Denker Feb. 14, 2012

Feb. 14, 2012

> > I've got best connections to top 500 enterprise and deciders in germany. Sure. :-) > I would be pleased to present them a Seaside Shop, running on Pharo, PostgreSql or Magma behind, ready to run from within one image. > > > Pharo is far from what we dream about but we are serious about it and we are concerned by business. > > > > Now your trolling is good because we are not an obscure community without a troll but we have one troll > > so this is good. Thanks. > > Ok. If you are not able to get Pharo development managed under consideration of business needs, means: benchmarks and stress tests equiv to sunit tests, please step back as project leader! > Now you are getting serious. My counter offer: We all decide to ban you from this mailinglist. > > If you are positive and provide information that is not just bullshitting then we will consider to reply and consider your request else *plonk* > > I am positive, still, although you cost me much money. You are *not* positive. You are a Troll. Please unsubscribe. Marcus -- Marcus Denker -- http://marcusdenker.de

1 0

Re: [Pharo-project] Are Objects really hard?
by Marcus Denker Feb. 14, 2012

Feb. 14, 2012

On Feb 14, 2012, at 1:57 AM, Guido Stepken wrote: > Amazon Cloud even has widely installed "memcached", hat works also as httpd cache, preventing any Apache webserver and indirect Pharo Webserver from "seeing" any http/get request. > This is wrong. Again. > So, i am NOT surprised, that any of those Pharoers doesn't want me here ... Pharo *is* dogsloooooow, Seaside nearly *unusable*. Unusable for any serious business application, unforseeable memory pumping effects, expecially in vservers with limited or even dynamically assigned memory. > So why don't you just leave? I mean, unsubscribe? Marcus -- Marcus Denker -- http://marcusdenker.de

1 0

[Pharo-project] Installing Spoon and programming a remote image
by Lawson English Feb. 14, 2012

Feb. 14, 2012

This tutorial only shows how to install Spoon on Mac OS X. Very cumbersome currently, but Craig hopes to have it refined ASAP. I thought people could start playing with it NOW, so that he can get feedback immediately. Installing Spoon (Squeak smalltalk extension) on Mac OS X: http://www.youtube.com/watch?v=9zDxVsruaiU This tutorial shows how to compile a method for an existing class in the remote image and send the message to an already existing object of that class in that remote image. Note that the class in the server image doesn't change, just the remote image's class. programming a remote image with spoon: http://www.youtube.com/watch?v=nqRQpFkErSw&list=PL6601A198DF14788D&index=64… Lawson

1 0

[Pharo-project] here's a curio for compiler mavens...
by Eliot Miranda Feb. 14, 2012

Feb. 14, 2012

Hi All, (whitewash alert) I just had occasion to look at the bytecode generated by the standard compiler for HashedCollection class>>#goodPrimeAtLeast:. Here's the source, with the issue in bold: goodPrimeAtLeast: lowerLimit "Answer the next good prime >= lowerlimit. If lowerLimit is larger than the largest known good prime, just make it odd." | primes low mid high prime | primes := self goodPrimes. low := 1. high := primes size. lowerLimit > (primes at: high) ifTrue: [ ^lowerLimit bitOr: 1 ]. [ high - low <= 1 ] whileFalse: [ mid := high + low // 2. prime := primes at: mid. prime = lowerLimit ifTrue: [ ^prime ]. *prime < lowerLimit* * ifTrue: [ low := mid ]* * ifFalse: [ high := mid ]* ]. (primes at: low) >= lowerLimit ifTrue: [ ^primes at: low ]. ^primes at: high The code for this sequence is 58 <15> pushTemp: 5 59 <10> pushTemp: 0 60 <B2> send: < 61 <9B> jumpFalse: 66 62 <13> pushTemp: 3 *63 <81 42> storeIntoTemp: 2* 65 <92> jumpTo: 69 66 <13> pushTemp: 3 *67 <81 44> storeIntoTemp: 4* *69 <87> pop* where-as the following would be better: 58 <15> pushTemp: 5 59 <10> pushTemp: 0 60 <B2> send: < 61 <9B> jumpFalse: 66 62 <13> pushTemp: 3 63 <82 42> popIntoTemp: 2 65 <92> jumpTo: 69 66 <13> pushTemp: 3 67 <82 44> popIntoTemp: 4 The reason is that the code generator favours using a single pop for both arms of the if: MessageNode>>sizeCodeForIf: encoder value: forValue | thenExpr elseExpr branchSize thenSize elseSize | thenExpr := arguments at: 1. elseExpr := arguments at: 2. (forValue or: [(thenExpr isJust: NodeNil) or: [elseExpr isJust: NodeNil]]) not "(...not ifTrue: avoids using ifFalse: alone during this compile)" ifTrue: *"Two-armed IFs forEffect share a single pop"* [^super sizeCodeForEffect: encoder]. ... MessageNode>>emitCodeForIf: stack encoder: encoder value: forValue | thenExpr thenSize elseExpr elseSize | thenSize := sizes at: 1. elseSize := sizes at: 2. (forValue not and: [elseSize * thenSize > 0]) ifTrue: *"Two-armed IFs forEffect share a single pop"* [^super emitCodeForEffect: stack encoder: encoder]. It would be nice if this only happened if doing so actually reduced the size of the generated code. -- best, Eliot

2 2