Squeak-dev August 2018

squeak-dev@lists.squeakfoundation.org

41 participants
83 discussions

Git in Squeak
by Sean P. DeNigris 17 Aug '18

17 Aug '18

Is there a way to use git in Squeak? If so, does anyone have real experience doing so? Pharo and its libraries seem to be moving to git "for real" and I wonder about the implications for cross-platform compatibility… ----- Cheers, Sean -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

3 2

squeak source is down
by Edgar De Cleene 16 Aug '18

16 Aug '18

And just now i need it …. must have my own copies of stuff …

1 0

[BUG]Preferences class(Object)>>doesNotUnderstand: #soundsEnabled
by Edgar J. De Cleene 16 Aug '18

16 Aug '18

Moving a Morph to TrashMorph 16 August 2018 8:19:32.233754 am VM: Mac OS - Smalltalk Image: Squeak5.2alpha [latest update: #18136] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Users/edgardecleene/Documents/MagallanesSqueak/5dot2 Trusted Dir /foobar/tooBar/forSqueak/bogus/ Untrusted Dir /Users/edgardecleene/Library/Preferences/Squeak/Internet/Untrusted Preferences class(Object)>>doesNotUnderstand: #soundsEnabled Receiver: Preferences Arguments and temporary variables: aMessage: soundsEnabled exception: MessageNotUnderstood: Preferences class>>soundsEnabled resumeValue: nil Receiver's instance variables: superclass: Object methodDict: [2109647]a MethodDictionary() format: 0 instanceVariables: nil organization: ('as yet unclassified') subclasses: {ServicePreferences . PreferencesTestPreferences} name: #Preferences classPool: [2247793]a Dictionary(#DesktopColor->(Color r: 0.742 g: 1 b: 0.839) ...etc... sharedPools: nil environment: Smalltalk category: #'System-Preferences' preferencesDictionary: [575529]an IdentityDictionary(size 311) [] in Preferences class>>doesNotUnderstand: #soundsEnabled Receiver: Preferences Arguments and temporary variables: aMessage: soundsEnabled Receiver's instance variables: superclass: Object methodDict: [2109647]a MethodDictionary() format: 0 instanceVariables: nil organization: ('as yet unclassified') subclasses: {ServicePreferences . PreferencesTestPreferences} name: #Preferences classPool: [2247793]a Dictionary(#DesktopColor->(Color r: 0.742 g: 1 b: 0.839) ...etc... sharedPools: nil environment: Smalltalk category: #'System-Preferences' preferencesDictionary: [575529]an IdentityDictionary(size 311) [] in Preferences class>>valueOfPreference:ifAbsent: Receiver: Preferences Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Object methodDict: [2109647]a MethodDictionary() format: 0 instanceVariables: nil organization: ('as yet unclassified') subclasses: {ServicePreferences . PreferencesTestPreferences} name: #Preferences classPool: [2247793]a Dictionary(#DesktopColor->(Color r: 0.742 g: 1 b: 0.839) ...etc... sharedPools: nil environment: Smalltalk category: #'System-Preferences' preferencesDictionary: [575529]an IdentityDictionary(size 311) IdentityDictionary(Dictionary)>>at:ifAbsent: Receiver: [575529]an IdentityDictionary(size 311) Arguments and temporary variables: key: #soundsEnabled aBlock: [closure] in Preferences class>>valueOfPreference:ifAbsent: Receiver's instance variables: tally: 311 array: {#'PreferencesTestExample>>textPref'->[2348341]a PragmaPreference#'Textu...etc... Preferences class>>preferenceAt:ifAbsent: Receiver: Preferences Arguments and temporary variables: aSymbol: #soundsEnabled aBlock: [closure] in Preferences class>>valueOfPreference:ifAbsent: Receiver's instance variables: superclass: Object methodDict: [2109647]a MethodDictionary() format: 0 instanceVariables: nil organization: ('as yet unclassified') subclasses: {ServicePreferences . PreferencesTestPreferences} name: #Preferences classPool: [2247793]a Dictionary(#DesktopColor->(Color r: 0.742 g: 1 b: 0.839) ...etc... sharedPools: nil environment: Smalltalk category: #'System-Preferences' preferencesDictionary: [575529]an IdentityDictionary(size 311) Preferences class>>valueOfPreference:ifAbsent: Receiver: Preferences Arguments and temporary variables: aPreferenceSymbol: #soundsEnabled block: [closure] in Preferences class>>doesNotUnderstand: #soundsEnabled Receiver's instance variables: superclass: Object methodDict: [2109647]a MethodDictionary() format: 0 instanceVariables: nil organization: ('as yet unclassified') subclasses: {ServicePreferences . PreferencesTestPreferences} name: #Preferences classPool: [2247793]a Dictionary(#DesktopColor->(Color r: 0.742 g: 1 b: 0.839) ...etc... sharedPools: nil environment: Smalltalk category: #'System-Preferences' preferencesDictionary: [575529]an IdentityDictionary(size 311) Preferences class>>doesNotUnderstand: #soundsEnabled Receiver: Preferences Arguments and temporary variables: aMessage: soundsEnabled Receiver's instance variables: superclass: Object methodDict: [2109647]a MethodDictionary() format: 0 instanceVariables: nil organization: ('as yet unclassified') subclasses: {ServicePreferences . PreferencesTestPreferences} name: #Preferences classPool: [2247793]a Dictionary(#DesktopColor->(Color r: 0.742 g: 1 b: 0.839) ...etc... sharedPools: nil environment: Smalltalk category: #'System-Preferences' preferencesDictionary: [575529]an IdentityDictionary(size 311) SmartTrashCanMorph(TrashCanMorph)>>mouseEnter: Receiver: a TrashCanMorph Arguments and temporary variables: event: [649@508 649@509 mouseEnter red 59004] hand: [3463596]a HandMorph(3463596) firstSub: [3563712]a Planet(3563712) Receiver's instance variables: bounds: 645@461 corner: 720@533 owner: [2434915]a PasteUpMorph(2434915) [world] submorphs: #() fullBounds: 645@461 corner: 720@533 color: Color blue extension: [1392989]a MorphExtension (1392989) [balloonText] [externalName = T...etc... image: Form(72x72x32) offImage: Form(72x72x32) pressedImage: Form(72x72x32) state: #off target: nil actionSelector: #flash arguments: #() actWhen: #buttonUp label: nil font: nil textColor: nil SmartTrashCanMorph(TrashCanMorph)>>mouseEnterDragging: Receiver: a TrashCanMorph Arguments and temporary variables: evt: [649@508 649@509 mouseEnter red 59004] Receiver's instance variables: bounds: 645@461 corner: 720@533 owner: [2434915]a PasteUpMorph(2434915) [world] submorphs: #() fullBounds: 645@461 corner: 720@533 color: Color blue extension: [1392989]a MorphExtension (1392989) [balloonText] [externalName = T...etc... image: Form(72x72x32) offImage: Form(72x72x32) pressedImage: Form(72x72x32) state: #off target: nil actionSelector: #flash arguments: #() actWhen: #buttonUp label: nil font: nil textColor: nil SmartTrashCanMorph(Morph)>>handleMouseEnter: Receiver: a TrashCanMorph Arguments and temporary variables: anEvent: [649@508 649@509 mouseEnter red 59004] Receiver's instance variables: bounds: 645@461 corner: 720@533 owner: [2434915]a PasteUpMorph(2434915) [world] submorphs: #() fullBounds: 645@461 corner: 720@533 color: Color blue extension: [1392989]a MorphExtension (1392989) [balloonText] [externalName = T...etc... image: Form(72x72x32) offImage: Form(72x72x32) pressedImage: Form(72x72x32) state: #off target: nil actionSelector: #flash arguments: #() actWhen: #buttonUp label: nil font: nil textColor: nil MouseMoveEvent(MouseEvent)>>sentTo: Receiver: [649@508 649@509 mouseEnter red 59004] Arguments and temporary variables: anObject: a TrashCanMorph Receiver's instance variables: timeStamp: 59004 source: [3463596]a HandMorph(3463596) type: #mouseEnter buttons: 4 position: 649@509 handler: nil wasHandled: true wasIgnored: false startPoint: 649@508 trail: {649@509} MouseMoveEvent>>sentTo: Receiver: [649@508 649@509 mouseEnter red 59004] Arguments and temporary variables: anObject: a TrashCanMorph Receiver's instance variables: timeStamp: 59004 source: [3463596]a HandMorph(3463596) type: #mouseEnter buttons: 4 position: 649@509 handler: nil wasHandled: true wasIgnored: false startPoint: 649@508 trail: {649@509} SmartTrashCanMorph(Morph)>>handleEvent: Receiver: a TrashCanMorph Arguments and temporary variables: anEvent: [649@508 649@509 mouseEnter red 59004] filteredEvent: [649@508 649@509 mouseEnter red 59004] Receiver's instance variables: bounds: 645@461 corner: 720@533 owner: [2434915]a PasteUpMorph(2434915) [world] submorphs: #() fullBounds: 645@461 corner: 720@533 color: Color blue extension: [1392989]a MorphExtension (1392989) [balloonText] [externalName = T...etc... image: Form(72x72x32) offImage: Form(72x72x32) pressedImage: Form(72x72x32) state: #off target: nil actionSelector: #flash arguments: #() actWhen: #buttonUp label: nil font: nil textColor: nil [] in MouseOverHandler>>processMouseOver: Receiver: [1672941]a MouseOverHandler Arguments and temporary variables: <<error during printing> Receiver's instance variables: mouseOverMorphs: {[81950]a MenuItemMorph(81950)'do it (d)' . [2532074]a MenuMorph...etc... enteredMorphs: [1407157]a WriteStream overMorphs: [2609100]a WriteStream leftMorphs: [3890734]an OrderedCollection() Array(SequenceableCollection)>>reverseDo: Receiver: {a TrashCanMorph} Arguments and temporary variables: aBlock: [closure] in MouseOverHandler>>processMouseOver: index: 1 Receiver's instance variables: {a TrashCanMorph} MouseOverHandler>>processMouseOver: Receiver: [1672941]a MouseOverHandler Arguments and temporary variables: <<error during printing> Receiver's instance variables: mouseOverMorphs: {[81950]a MenuItemMorph(81950)'do it (d)' . [2532074]a MenuMorph...etc... enteredMorphs: [1407157]a WriteStream overMorphs: [2609100]a WriteStream leftMorphs: [3890734]an OrderedCollection() HandMorph>>processEvents Receiver: [3463596]a HandMorph(3463596) Arguments and temporary variables: evt: nil evtBuf: nil type: nil hadAny: false Receiver's instance variables: bounds: 440@448 corner: 456@464 owner: [2434915]a PasteUpMorph(2434915) [world] submorphs: #() fullBounds: 440@448 corner: 456@464 color: Color blue extension: [968354]a MorphExtension (968354) [eventHandler = [1227208]an EventH...etc... mouseFocus: nil keyboardFocus: [3890664]a TextMorphForEditView(3890664) eventListeners: nil mouseListeners: nil keyboardListeners: [773911]a WeakArray([388881]a KeyboardStateWatcher) eventCaptureFilters: nil mouseCaptureFilters: nil keyboardCaptureFilters: [1204688]a WeakArray([3463596]a HandMorph(3463596)) mouseClickState: nil mouseOverHandler: [1672941]a MouseOverHandler mouseWheelState: [1286858]a MouseWheelState lastMouseEvent: [440@448 mouseUp ( red ) 116575] targetOffset: 45@22 damageRecorder: [2398335]a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 116575 440 448 0 0 1 1) genieGestureProcessor: nil keyboardInterpreter: [2155632]a MacUnicodeInputInterpreter [] in WorldState>>doOneCycleNowFor: Receiver: [785163]a WorldState Arguments and temporary variables: <<error during printing> Receiver's instance variables: hands: {[3463596]a HandMorph(3463596)} activeHand: [3463596]a HandMorph(3463596) viewBox: 0@0 corner: 1027@768 canvas: [2517135]a FormCanvas on: DisplayScreen(1027x768x32) damageRecorder: [1738851]a DamageRecorder stepList: [3160142]a Heap(StepMessage(#stepAt: -> [490998]an ImageMorph<dot>(49...etc... lastStepTime: 3711871172205 lastStepMessage: nil lastCycleTime: 3711871172226 commandHistory: [2625821]a CommandHistory alarms: [3902213]a MorphicAlarmQueue lastAlarmTime: 3711871172205 remoteServer: nil multiCanvas: nil interCycleDelay: [2363900]a Delay(20 msecs) Array(SequenceableCollection)>>do: Receiver: {[3463596]a HandMorph(3463596)} Arguments and temporary variables: aBlock: [closure] in WorldState>>doOneCycleNowFor: index: 1 indexLimiT: 1 Receiver's instance variables: {[3463596]a HandMorph(3463596)} --- The full stack --- Preferences class(Object)>>doesNotUnderstand: #soundsEnabled [] in Preferences class>>doesNotUnderstand: #soundsEnabled [] in Preferences class>>valueOfPreference:ifAbsent: IdentityDictionary(Dictionary)>>at:ifAbsent: Preferences class>>preferenceAt:ifAbsent: Preferences class>>valueOfPreference:ifAbsent: Preferences class>>doesNotUnderstand: #soundsEnabled SmartTrashCanMorph(TrashCanMorph)>>mouseEnter: SmartTrashCanMorph(TrashCanMorph)>>mouseEnterDragging: SmartTrashCanMorph(Morph)>>handleMouseEnter: MouseMoveEvent(MouseEvent)>>sentTo: MouseMoveEvent>>sentTo: SmartTrashCanMorph(Morph)>>handleEvent: [] in MouseOverHandler>>processMouseOver: Array(SequenceableCollection)>>reverseDo: MouseOverHandler>>processMouseOver: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in MorphicProject>>spawnNewProcess [] in BlockClosure>>newProcess

2 4

The Trunk: Tools-LM.828.mcz
by commits＠source.squeak.org 16 Aug '18

16 Aug '18

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-LM.828.mcz ==================== Summary ==================== Name: Tools-LM.828 Author: LM Time: 13 August 2018, 1:25:54.504807 pm UUID: 061511ca-729a-ce43-a08c-8057c24f7406 Ancestors: Tools-tcj.827 Added the ability to exclude specific objects from the PointerFinder. Improved the Explorer's "chase pointers" context menu to exclude the Explorer itself from the search (includes some meta-programming, not ideal, but certainly better than previously, ideas for improvement appreciated). Changed the way the PointerExplorer displays references, it now states the associations name on the left, and the Objects hash is moved to the right, together with the objects displayString. These changes make it much easier to understand how the objects are associated with each other and should make it easier to track down memory leaks. =============== Diff against Tools-cmm.826 =============== Item was changed: ----- Method: FileContentsBrowser>>browseVersions (in category 'other') ----- browseVersions + "Create and schedule a message set browser on all versions of the + currently selected message selector." + | class selector | + (selector := self selectedMessageName) ifNotNil: + [class := self selectedClassOrMetaClass. + (class exists and: [class realClass includesSelector: selector]) ifTrue: + [VersionsBrowser + browseVersionsOf: (class realClass compiledMethodAt: selector) + class: class realClass theNonMetaClass + meta: class realClass isMeta + category: self selectedMessageCategoryName + selector: selector]]! - "Create and schedule a message set browser on all versions of the currently selected message selector." - (ToolSet - browseVersionsOf: self selectedClassOrMetaClass - selector: self selectedMessageName) ifNil: [self changed: #flash]! Item was changed: ----- Method: Inspector>>chasePointers (in category 'menu commands') ----- chasePointers | selected saved | self selectionIndex = 0 ifTrue: [^ self changed: #flash]. selected := self selection. saved := self object. [self object: nil. (Smalltalk includesKey: #PointerFinder) ifTrue: [PointerFinder on: selected] ifFalse: [self inspectPointers]] ensure: [self object: saved]! Item was changed: ----- Method: ObjectExplorer>>chasePointersForSelection (in category 'menus - actions') ----- chasePointersForSelection + PointerFinder on: self object except: {self}, ObjectExplorerWrapper allInstances! - self flag: #tooMany. "mt: Note that we might want to ignore references caused by this tool." - self object chasePointers.! Item was changed: ----- Method: PointerExplorer>>rootObject: (in category 'accessing') ----- rootObject: anObject + self root key: 'root'. - self root key: anObject identityHash asString. super rootObject: anObject.! Item was changed: ----- Method: PointerExplorerWrapper>>contents (in category 'accessing') ----- contents "Return the wrappers with the objects holding references to item. Eldest objects come first, weak only referencers are at the end and have parentheses around their identity hash." | objects weakOnlyReferences | objects := self object inboundPointersExcluding: { self. self item. model }. weakOnlyReferences := OrderedCollection new. objects removeAllSuchThat: [ :each | each class == self class or: [ each class == PointerExplorer or: [ (each isContext and: [ (each objectClass: each receiver) == PointerExplorer ] ) or: [ (each pointsOnlyWeaklyTo: self object) ifTrue: [ weakOnlyReferences add: each. true ] ifFalse: [ false ] ] ] ] ]. ^(objects replace: [ :each | + self class with: each name: (self nameForParent: each) model: self object ]) - self class with: each name: each identityHash asString model: self object ]) addAll: (weakOnlyReferences replace: [ :each | + (self class with: each name: '(', (self nameForParent: each), ')' model: self object) - (self class with: each name: '(', each identityHash asString, ')' model: self object) weakOnly: true; yourself ]); yourself! Item was added: + ----- Method: PointerExplorerWrapper>>explorerStringFor: (in category 'converting') ----- + explorerStringFor: anObject + + ^ anObject identityHash asString, ': ', (super explorerStringFor: anObject).! Item was added: + ----- Method: PointerExplorerWrapper>>memberNameFrom:to: (in category 'accessing') ----- + memberNameFrom: aParent to: aChild + + 1 to: aParent class instSize do: [ :instVarIndex | + (aParent instVarAt: instVarIndex) = aChild + ifTrue: [ ^ '#', (aParent class instVarNameForIndex: instVarIndex)]]. + "This also covers arrays" + 1 to: aParent basicSize do: [ :index | + (aParent basicAt: index) = aChild + ifTrue: [^ index asString]]. + ^ '???'! Item was added: + ----- Method: PointerExplorerWrapper>>nameForParent: (in category 'accessing') ----- + nameForParent: anObject + + ^ self memberNameFrom: anObject to: self object! Item was changed: Model subclass: #PointerFinder + instanceVariableNames: 'goal parents toDo toDoNext hasGemStone pointerList objectList parentsSize todoSize depth pointerListIndex excludedObjects' - instanceVariableNames: 'goal parents toDo toDoNext hasGemStone pointerList objectList parentsSize todoSize depth pointerListIndex' classVariableNames: '' poolDictionaries: '' category: 'Tools-Debugger'! !PointerFinder commentStamp: '<historical>' prior: 0! I can search for reasons why a certain object isn't garbage collected. I'm a quick port of a VisualWorks program written by Hans-Martin Mosner. Call me as shown below. I'll search for a path from a global variable to the given object, presenting it in a small morphic UI. Examples: PointerFinder on: self currentHand PointerFinder on: StandardSystemView someInstance Now, let's see why this image contains more HandMorphs as expected... HandMorph allInstancesDo: [:e | PointerFinder on: e]! Item was added: + ----- Method: PointerFinder class>>on:except: (in category 'instance creation') ----- + on: anObject except: aCollection + ^ self new + goal: anObject; + excludedObjects: aCollection; + search; + open! Item was changed: ----- Method: PointerFinder>>buildList (in category 'application') ----- buildList | list obj parent object key | list := OrderedCollection new. obj := goal. [list addFirst: obj. + obj := parents at: obj ifAbsent: [nil]. - obj := parents at: obj ifAbsent: []. obj == nil] whileFalse. list removeFirst. parent := Smalltalk. objectList := OrderedCollection new. pointerList := OrderedCollection new. [list isEmpty] whileFalse: [object := list removeFirst. key := nil. (parent isKindOf: Dictionary) ifTrue: [list size >= 2 ifTrue: [key := parent keyAtValue: list second ifAbsent: []. key == nil ifFalse: [object := list removeFirst; removeFirst. pointerList add: key printString , ' -> ' , object class name]]]. key == nil ifTrue: [parent class == object ifTrue: [key := 'CLASS']. key == nil ifTrue: [1 to: parent class instSize do: [:i | key == nil ifTrue: [(parent instVarAt: i) == object ifTrue: [key := parent class instVarNameForIndex: i]]]]. key == nil ifTrue: [parent isCompiledCode ifTrue: [key := 'literals?']]. key == nil ifTrue: [1 to: parent basicSize do: [:i | key == nil ifTrue: [(parent basicAt: i) == object ifTrue: [key := i printString]]]]. key == nil ifTrue: [(parent isMorph and: [object isKindOf: Array]) ifTrue: [key := 'submorphs?']]. key == nil ifTrue: [key := '???']. pointerList add: key , ': ' , object class name, (object isMorph ifTrue: [' (', object identityHash asString, ')'] ifFalse: [ String empty ]) ]. objectList add: object. parent := object]! Item was added: + ----- Method: PointerFinder>>excludedObjects (in category 'accessing') ----- + excludedObjects + + ^ excludedObjects ifNil: [excludedObjects := OrderedCollection new]! Item was added: + ----- Method: PointerFinder>>excludedObjects: (in category 'accessing') ----- + excludedObjects: aCollection + + excludedObjects := aCollection! Item was changed: ----- Method: PointerFinder>>followObject: (in category 'application') ----- followObject: anObject + + (self excludedObjects includes: anObject) + ifTrue: [^ false]. anObject outboundPointersDo: [:ea | (self follow: ea from: anObject) ifTrue: [^ true]]. ^ false! Item was changed: ----- Method: PointerFinder>>initialize (in category 'application') ----- initialize parents := IdentityDictionary new: 20000. parents at: Smalltalk put: nil. parents at: Processor put: nil. parents at: self put: nil. toDo := OrderedCollection new: 5000. toDo add: Smalltalk. + toDoNext := OrderedCollection new: 5000.! - toDoNext := OrderedCollection new: 5000!

1 0

The Trunk: Tools-LM.829.mcz
by commits＠source.squeak.org 16 Aug '18

16 Aug '18

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-LM.829.mcz ==================== Summary ==================== Name: Tools-LM.829 Author: LM Time: 16 August 2018, 2:01:04.706807 am UUID: 46879fde-2c09-ca4a-9b63-b14a1e21e4c0 Ancestors: Tools-LM.828 In response to the feedback I received to Tools-LM.828 ( http://forum.world.st/The-Inbox-Tools-LM-828-mcz-td5082873.html ). I now made the ObjectExplorer only exclude those ObjectExplorerWrappers from the "chase pointers" search that are a submorph of the ActiveWorld. This is helpful if, for example, one reference to the object in question is held by an ObjectExplorer in another project that you forgot about. The findDeepSubmorphsIn:that: method should probably be moved into the Morph class, because it is a classic case of feature envy and Morph already contains a findDeepSubmorphThat:ifAbsent: method, which is similar. I just didn't want to mess with one of the core Morphic classes. I know that the way I find which ObjectExplorerWrappers are visible is not ideal, because it violates the principle of MVC that the model should not know about the implementation specifics of the view. So any feedback and suggestions in that regard would be appreciated. =============== Diff against Tools-cmm.826 =============== Item was changed: ----- Method: FileContentsBrowser>>browseVersions (in category 'other') ----- browseVersions + "Create and schedule a message set browser on all versions of the + currently selected message selector." + | class selector | + (selector := self selectedMessageName) ifNotNil: + [class := self selectedClassOrMetaClass. + (class exists and: [class realClass includesSelector: selector]) ifTrue: + [VersionsBrowser + browseVersionsOf: (class realClass compiledMethodAt: selector) + class: class realClass theNonMetaClass + meta: class realClass isMeta + category: self selectedMessageCategoryName + selector: selector]]! - "Create and schedule a message set browser on all versions of the currently selected message selector." - (ToolSet - browseVersionsOf: self selectedClassOrMetaClass - selector: self selectedMessageName) ifNil: [self changed: #flash]! Item was changed: ----- Method: Inspector>>chasePointers (in category 'menu commands') ----- chasePointers | selected saved | self selectionIndex = 0 ifTrue: [^ self changed: #flash]. selected := self selection. saved := self object. [self object: nil. (Smalltalk includesKey: #PointerFinder) ifTrue: [PointerFinder on: selected] ifFalse: [self inspectPointers]] ensure: [self object: saved]! Item was changed: ----- Method: ObjectExplorer>>chasePointersForSelection (in category 'menus - actions') ----- chasePointersForSelection + PointerFinder on: self object except: self possibleReferencesToSelection! - self flag: #tooMany. "mt: Note that we might want to ignore references caused by this tool." - self object chasePointers.! Item was added: + ----- Method: ObjectExplorer>>findDeepSubmorphsIn:that: (in category 'accessing - view') ----- + findDeepSubmorphsIn: aMorph that: aBlock + + | selectedSubmorphs | + selectedSubmorphs := aMorph submorphs select: aBlock. + ^ selectedSubmorphs, (aMorph submorphs collect: [:each | + self findDeepSubmorphsIn: each that: aBlock]) flatten! Item was added: + ----- Method: ObjectExplorer>>possibleReferencesToSelection (in category 'accessing - view') ----- + possibleReferencesToSelection + + ^ {self}, self visibleObjectExplorerWrappers! Item was added: + ----- Method: ObjectExplorer>>views (in category 'accessing - view') ----- + views + + ^ self findDeepSubmorphsIn: ActiveWorld that: [:morph | + morph modelOrNil = self]! Item was added: + ----- Method: ObjectExplorer>>visibleListItems (in category 'accessing - view') ----- + visibleListItems + + | lists | + lists := self views select: [:morph | + (morph isKindOf: PluggableTreeMorph)]. + ^ (lists collect: [:each| + each items]) flatten! Item was added: + ----- Method: ObjectExplorer>>visibleObjectExplorerWrappers (in category 'accessing - view') ----- + visibleObjectExplorerWrappers + + | listItems | + listItems := self visibleListItems. + ^ listItems collect: [:each | each complexContents]! Item was changed: ----- Method: PointerExplorer>>rootObject: (in category 'accessing') ----- rootObject: anObject + self root key: 'root'. - self root key: anObject identityHash asString. super rootObject: anObject.! Item was changed: ----- Method: PointerExplorerWrapper>>contents (in category 'accessing') ----- contents "Return the wrappers with the objects holding references to item. Eldest objects come first, weak only referencers are at the end and have parentheses around their identity hash." | objects weakOnlyReferences | objects := self object inboundPointersExcluding: { self. self item. model }. weakOnlyReferences := OrderedCollection new. objects removeAllSuchThat: [ :each | each class == self class or: [ each class == PointerExplorer or: [ (each isContext and: [ (each objectClass: each receiver) == PointerExplorer ] ) or: [ (each pointsOnlyWeaklyTo: self object) ifTrue: [ weakOnlyReferences add: each. true ] ifFalse: [ false ] ] ] ] ]. ^(objects replace: [ :each | + self class with: each name: (self nameForParent: each) model: self object ]) - self class with: each name: each identityHash asString model: self object ]) addAll: (weakOnlyReferences replace: [ :each | + (self class with: each name: '(', (self nameForParent: each), ')' model: self object) - (self class with: each name: '(', each identityHash asString, ')' model: self object) weakOnly: true; yourself ]); yourself! Item was added: + ----- Method: PointerExplorerWrapper>>explorerStringFor: (in category 'converting') ----- + explorerStringFor: anObject + + ^ anObject identityHash asString, ': ', (super explorerStringFor: anObject).! Item was added: + ----- Method: PointerExplorerWrapper>>memberNameFrom:to: (in category 'accessing') ----- + memberNameFrom: aParent to: aChild + + 1 to: aParent class instSize do: [ :instVarIndex | + (aParent instVarAt: instVarIndex) = aChild + ifTrue: [ ^ '#', (aParent class instVarNameForIndex: instVarIndex)]]. + "This also covers arrays" + 1 to: aParent basicSize do: [ :index | + (aParent basicAt: index) = aChild + ifTrue: [^ index asString]]. + ^ '???'! Item was added: + ----- Method: PointerExplorerWrapper>>nameForParent: (in category 'accessing') ----- + nameForParent: anObject + + ^ self memberNameFrom: anObject to: self object! Item was changed: Model subclass: #PointerFinder + instanceVariableNames: 'goal parents toDo toDoNext hasGemStone pointerList objectList parentsSize todoSize depth pointerListIndex excludedObjects' - instanceVariableNames: 'goal parents toDo toDoNext hasGemStone pointerList objectList parentsSize todoSize depth pointerListIndex' classVariableNames: '' poolDictionaries: '' category: 'Tools-Debugger'! !PointerFinder commentStamp: '<historical>' prior: 0! I can search for reasons why a certain object isn't garbage collected. I'm a quick port of a VisualWorks program written by Hans-Martin Mosner. Call me as shown below. I'll search for a path from a global variable to the given object, presenting it in a small morphic UI. Examples: PointerFinder on: self currentHand PointerFinder on: StandardSystemView someInstance Now, let's see why this image contains more HandMorphs as expected... HandMorph allInstancesDo: [:e | PointerFinder on: e]! Item was added: + ----- Method: PointerFinder class>>on:except: (in category 'instance creation') ----- + on: anObject except: aCollection + ^ self new + goal: anObject; + excludedObjects: aCollection; + search; + open! Item was changed: ----- Method: PointerFinder>>buildList (in category 'application') ----- buildList | list obj parent object key | list := OrderedCollection new. obj := goal. - [list addFirst: obj. obj := parents at: obj ifAbsent: []. obj == nil] whileFalse. list removeFirst. parent := Smalltalk. objectList := OrderedCollection new. pointerList := OrderedCollection new. [list isEmpty] whileFalse: [object := list removeFirst. key := nil. (parent isKindOf: Dictionary) ifTrue: [list size >= 2 ifTrue: [key := parent keyAtValue: list second ifAbsent: []. key == nil ifFalse: [object := list removeFirst; removeFirst. pointerList add: key printString , ' -> ' , object class name]]]. key == nil ifTrue: [parent class == object ifTrue: [key := 'CLASS']. key == nil ifTrue: [1 to: parent class instSize do: [:i | key == nil ifTrue: [(parent instVarAt: i) == object ifTrue: [key := parent class instVarNameForIndex: i]]]]. key == nil ifTrue: [parent isCompiledCode ifTrue: [key := 'literals?']]. key == nil ifTrue: [1 to: parent basicSize do: [:i | key == nil ifTrue: [(parent basicAt: i) == object ifTrue: [key := i printString]]]]. key == nil ifTrue: [(parent isMorph and: [object isKindOf: Array]) ifTrue: [key := 'submorphs?']]. key == nil ifTrue: [key := '???']. pointerList add: key , ': ' , object class name, (object isMorph ifTrue: [' (', object identityHash asString, ')'] ifFalse: [ String empty ]) ]. objectList add: object. parent := object]! Item was added: + ----- Method: PointerFinder>>excludedObjects (in category 'accessing') ----- + excludedObjects + + ^ excludedObjects ifNil: [excludedObjects := OrderedCollection new]! Item was added: + ----- Method: PointerFinder>>excludedObjects: (in category 'accessing') ----- + excludedObjects: aCollection + + excludedObjects := aCollection! Item was changed: ----- Method: PointerFinder>>followObject: (in category 'application') ----- followObject: anObject + + (self excludedObjects includes: anObject) + ifTrue: [^ false]. anObject outboundPointersDo: [:ea | (self follow: ea from: anObject) ifTrue: [^ true]]. ^ false! Item was changed: ----- Method: PointerFinder>>initialize (in category 'application') ----- initialize parents := IdentityDictionary new: 20000. parents at: Smalltalk put: nil. parents at: Processor put: nil. parents at: self put: nil. toDo := OrderedCollection new: 5000. toDo add: Smalltalk. + toDoNext := OrderedCollection new: 5000.! - toDoNext := OrderedCollection new: 5000!

1 0

The Trunk: Tools-dtl.830.mcz
by commits＠source.squeak.org 16 Aug '18

16 Aug '18

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-dtl.830.mcz ==================== Summary ==================== Name: Tools-dtl.830 Author: dtl Time: 16 August 2018, 8:32:57.34384 am UUID: fd5c488d-00a8-4739-9dee-aa35b92aaaeb Ancestors: Tools-eem.829, Tools-LM.829 Merge PointerFinder and ObjectExplorer changes =============== Diff against Tools-eem.829 =============== Item was changed: ----- Method: FileContentsBrowser>>browseVersions (in category 'other') ----- browseVersions + "Create and schedule a message set browser on all versions of the + currently selected message selector." + | class selector | + (selector := self selectedMessageName) ifNotNil: + [class := self selectedClassOrMetaClass. + (class exists and: [class realClass includesSelector: selector]) ifTrue: + [VersionsBrowser + browseVersionsOf: (class realClass compiledMethodAt: selector) + class: class realClass theNonMetaClass + meta: class realClass isMeta + category: self selectedMessageCategoryName + selector: selector]]! - "Create and schedule a message set browser on all versions of the currently selected message selector." - (ToolSet - browseVersionsOf: self selectedClassOrMetaClass - selector: self selectedMessageName) ifNil: [self changed: #flash]! Item was changed: ----- Method: Inspector>>chasePointers (in category 'menu commands') ----- chasePointers | selected saved | self selectionIndex = 0 ifTrue: [^ self changed: #flash]. selected := self selection. saved := self object. [self object: nil. (Smalltalk includesKey: #PointerFinder) ifTrue: [PointerFinder on: selected] ifFalse: [self inspectPointers]] ensure: [self object: saved]! Item was changed: ----- Method: ObjectExplorer>>chasePointersForSelection (in category 'menus - actions') ----- chasePointersForSelection + PointerFinder on: self object except: self possibleReferencesToSelection! - self flag: #tooMany. "mt: Note that we might want to ignore references caused by this tool." - self object chasePointers.! Item was added: + ----- Method: ObjectExplorer>>findDeepSubmorphsIn:that: (in category 'accessing - view') ----- + findDeepSubmorphsIn: aMorph that: aBlock + + | selectedSubmorphs | + selectedSubmorphs := aMorph submorphs select: aBlock. + ^ selectedSubmorphs, (aMorph submorphs collect: [:each | + self findDeepSubmorphsIn: each that: aBlock]) flatten! Item was added: + ----- Method: ObjectExplorer>>possibleReferencesToSelection (in category 'accessing - view') ----- + possibleReferencesToSelection + + ^ {self}, self visibleObjectExplorerWrappers! Item was added: + ----- Method: ObjectExplorer>>views (in category 'accessing - view') ----- + views + + ^ self findDeepSubmorphsIn: ActiveWorld that: [:morph | + morph modelOrNil = self]! Item was added: + ----- Method: ObjectExplorer>>visibleListItems (in category 'accessing - view') ----- + visibleListItems + + | lists | + lists := self views select: [:morph | + (morph isKindOf: PluggableTreeMorph)]. + ^ (lists collect: [:each| + each items]) flatten! Item was added: + ----- Method: ObjectExplorer>>visibleObjectExplorerWrappers (in category 'accessing - view') ----- + visibleObjectExplorerWrappers + + | listItems | + listItems := self visibleListItems. + ^ listItems collect: [:each | each complexContents]! Item was changed: ----- Method: PointerExplorer>>rootObject: (in category 'accessing') ----- rootObject: anObject + self root key: 'root'. - self root key: anObject identityHash asString. super rootObject: anObject.! Item was changed: ----- Method: PointerExplorerWrapper>>contents (in category 'accessing') ----- contents "Return the wrappers with the objects holding references to item. Eldest objects come first, weak only referencers are at the end and have parentheses around their identity hash." | objects weakOnlyReferences | objects := self object inboundPointersExcluding: { self. self item. model }. weakOnlyReferences := OrderedCollection new. objects removeAllSuchThat: [ :each | each class == self class or: [ each class == PointerExplorer or: [ (each isContext and: [ (each objectClass: each receiver) == PointerExplorer ] ) or: [ (each pointsOnlyWeaklyTo: self object) ifTrue: [ weakOnlyReferences add: each. true ] ifFalse: [ false ] ] ] ] ]. ^(objects replace: [ :each | + self class with: each name: (self nameForParent: each) model: self object ]) - self class with: each name: each identityHash asString model: self object ]) addAll: (weakOnlyReferences replace: [ :each | + (self class with: each name: '(', (self nameForParent: each), ')' model: self object) - (self class with: each name: '(', each identityHash asString, ')' model: self object) weakOnly: true; yourself ]); yourself! Item was added: + ----- Method: PointerExplorerWrapper>>explorerStringFor: (in category 'converting') ----- + explorerStringFor: anObject + + ^ anObject identityHash asString, ': ', (super explorerStringFor: anObject).! Item was added: + ----- Method: PointerExplorerWrapper>>memberNameFrom:to: (in category 'accessing') ----- + memberNameFrom: aParent to: aChild + + 1 to: aParent class instSize do: [ :instVarIndex | + (aParent instVarAt: instVarIndex) = aChild + ifTrue: [ ^ '#', (aParent class instVarNameForIndex: instVarIndex)]]. + "This also covers arrays" + 1 to: aParent basicSize do: [ :index | + (aParent basicAt: index) = aChild + ifTrue: [^ index asString]]. + ^ '???'! Item was added: + ----- Method: PointerExplorerWrapper>>nameForParent: (in category 'accessing') ----- + nameForParent: anObject + + ^ self memberNameFrom: anObject to: self object! Item was changed: Model subclass: #PointerFinder + instanceVariableNames: 'goal parents toDo toDoNext hasGemStone pointerList objectList parentsSize todoSize depth pointerListIndex excludedObjects' - instanceVariableNames: 'goal parents toDo toDoNext hasGemStone pointerList objectList parentsSize todoSize depth pointerListIndex' classVariableNames: '' poolDictionaries: '' category: 'Tools-Debugger'! !PointerFinder commentStamp: '<historical>' prior: 0! I can search for reasons why a certain object isn't garbage collected. I'm a quick port of a VisualWorks program written by Hans-Martin Mosner. Call me as shown below. I'll search for a path from a global variable to the given object, presenting it in a small morphic UI. Examples: PointerFinder on: self currentHand PointerFinder on: StandardSystemView someInstance Now, let's see why this image contains more HandMorphs as expected... HandMorph allInstancesDo: [:e | PointerFinder on: e]! Item was added: + ----- Method: PointerFinder class>>on:except: (in category 'instance creation') ----- + on: anObject except: aCollection + ^ self new + goal: anObject; + excludedObjects: aCollection; + search; + open! Item was changed: ----- Method: PointerFinder>>buildList (in category 'application') ----- buildList | list obj parent object key | list := OrderedCollection new. obj := goal. - [list addFirst: obj. obj := parents at: obj ifAbsent: []. obj == nil] whileFalse. list removeFirst. parent := Smalltalk. objectList := OrderedCollection new. pointerList := OrderedCollection new. [list isEmpty] whileFalse: [object := list removeFirst. key := nil. (parent isKindOf: Dictionary) ifTrue: [list size >= 2 ifTrue: [key := parent keyAtValue: list second ifAbsent: []. key == nil ifFalse: [object := list removeFirst; removeFirst. pointerList add: key printString , ' -> ' , object class name]]]. key == nil ifTrue: [parent class == object ifTrue: [key := 'CLASS']. key == nil ifTrue: [1 to: parent class instSize do: [:i | key == nil ifTrue: [(parent instVarAt: i) == object ifTrue: [key := parent class instVarNameForIndex: i]]]]. key == nil ifTrue: [parent isCompiledCode ifTrue: [key := 'literals?']]. key == nil ifTrue: [1 to: parent basicSize do: [:i | key == nil ifTrue: [(parent basicAt: i) == object ifTrue: [key := i printString]]]]. key == nil ifTrue: [(parent isMorph and: [object isKindOf: Array]) ifTrue: [key := 'submorphs?']]. key == nil ifTrue: [key := '???']. pointerList add: key , ': ' , object class name, (object isMorph ifTrue: [' (', object identityHash asString, ')'] ifFalse: [ String empty ]) ]. objectList add: object. parent := object]! Item was added: + ----- Method: PointerFinder>>excludedObjects (in category 'accessing') ----- + excludedObjects + + ^ excludedObjects ifNil: [excludedObjects := OrderedCollection new]! Item was added: + ----- Method: PointerFinder>>excludedObjects: (in category 'accessing') ----- + excludedObjects: aCollection + + excludedObjects := aCollection! Item was changed: ----- Method: PointerFinder>>followObject: (in category 'application') ----- followObject: anObject + + (self excludedObjects includes: anObject) + ifTrue: [^ false]. anObject outboundPointersDo: [:ea | (self follow: ea from: anObject) ifTrue: [^ true]]. ^ false! Item was changed: ----- Method: PointerFinder>>initialize (in category 'application') ----- initialize parents := IdentityDictionary new: 20000. parents at: Smalltalk put: nil. parents at: Processor put: nil. parents at: self put: nil. toDo := OrderedCollection new: 5000. toDo add: Smalltalk. + toDoNext := OrderedCollection new: 5000.! - toDoNext := OrderedCollection new: 5000!

1 0

Sending Bug reports here so I put in Mantis
by Edgar J. De Cleene 16 Aug '18

16 Aug '18

Folks Still we have mailOutBugReport inside Squeak, but is not clear (to me) how to easily use inside the Debugger So if someone have insights, wish to know Edgar @morplenauta

1 0

Re: [squeak-dev] [Pharo-users] Dynabook and interest based learning
by H. Hirzel 16 Aug '18

16 Aug '18

Hello Hilaire I think your 7 posts http://blog.drgeo.eu/tag/dynabook about the concept and learning model associated with the Dynabook are very helpful to see the way forward to use Squeak/Pharo/Cuis as an environment/authoring system for dynamic media. I particular as these posts also contain an analysis what could/should be implemented. --Hannes P.S. I included the Cuis list as I assume some people there are also interested in this. This does not imply that a discussion has to be cc-ed to all lists because many are on more than one list. On 8/11/18, Hilaire <hilaire(a)drgeo.eu> wrote: > How can Dynabook and interest based learning can be related? > > http://blog.drgeo.eu/post/2018/Interest-based-learning > > Hilaire > > -- > Dr. Geo > http://drgeo.eu > > > >

1 0

The Trunk: Tools-eem.829.mcz
by commits＠source.squeak.org 16 Aug '18

16 Aug '18

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.829.mcz ==================== Summary ==================== Name: Tools-eem.829 Author: eem Time: 15 August 2018, 7:59:01.758651 pm UUID: a9d8d8b5-5dbd-4838-8c9d-d0ac6c99801e Ancestors: Tools-cmm.828 Fix a typo and an unnecessary complication in cutBackExecutionToSenderContext =============== Diff against Tools-cmm.828 =============== Item was changed: ----- Method: Debugger>>cutBackExecutionToSenderContext (in category 'private') ----- cutBackExecutionToSenderContext "When accepting a new version of a method which can't be simulated (i.e. a quick method) we must cut back to the sender. But this is non-trivial. If the quick method has been reached via + a perform: (as it is when one uses Create to implement a method from an MNU) then the relevant - a perform: (as it is when one uses Create toi implement a method from an MNU) then the relevant arguments won't be on the stack and we can't simply proceed without crashing the VM." | oldContext context sel | oldContext := self selectedContext. self down. context := self selectedContext. + context pc: context previousPc. - context jump: (context previousPc - context pc). sel := context selectorToSendOrSelf. sel numArgs = oldContext method numArgs ifTrue: [context push: oldContext receiver. oldContext arguments do: [:arg| context push: arg]] ifFalse: [context privRefresh; stepToSendOrReturn]!

1 0

The Inbox: Tools-LM.828.mcz
by commits＠source.squeak.org 15 Aug '18

15 Aug '18

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-LM.828.mcz ==================== Summary ==================== Name: Tools-LM.828 Author: LM Time: 13 August 2018, 1:25:54.504807 pm UUID: 061511ca-729a-ce43-a08c-8057c24f7406 Ancestors: Tools-tcj.827 Added the ability to exclude specific objects from the PointerFinder. Improved the Explorer's "chase pointers" context menu to exclude the Explorer itself from the search (includes some meta-programming, not ideal, but certainly better than previously, ideas for improvement appreciated). Changed the way the PointerExplorer displays references, it now states the associations name on the left, and the Objects hash is moved to the right, together with the objects displayString. These changes make it much easier to understand how the objects are associated with each other and should make it easier to track down memory leaks. =============== Diff against Tools-tcj.827 =============== Item was changed: ----- Method: Inspector>>chasePointers (in category 'menu commands') ----- chasePointers | selected saved | self selectionIndex = 0 ifTrue: [^ self changed: #flash]. selected := self selection. saved := self object. [self object: nil. (Smalltalk includesKey: #PointerFinder) ifTrue: [PointerFinder on: selected] ifFalse: [self inspectPointers]] ensure: [self object: saved]! Item was changed: ----- Method: ObjectExplorer>>chasePointersForSelection (in category 'menus - actions') ----- chasePointersForSelection + PointerFinder on: self object except: {self}, ObjectExplorerWrapper allInstances! - self flag: #tooMany. "mt: Note that we might want to ignore references caused by this tool." - self object chasePointers.! Item was changed: ----- Method: PointerExplorer>>rootObject: (in category 'accessing') ----- rootObject: anObject + self root key: 'root'. - self root key: anObject identityHash asString. super rootObject: anObject.! Item was changed: ----- Method: PointerExplorerWrapper>>contents (in category 'accessing') ----- contents "Return the wrappers with the objects holding references to item. Eldest objects come first, weak only referencers are at the end and have parentheses around their identity hash." | objects weakOnlyReferences | objects := self object inboundPointersExcluding: { self. self item. model }. weakOnlyReferences := OrderedCollection new. objects removeAllSuchThat: [ :each | each class == self class or: [ each class == PointerExplorer or: [ (each isContext and: [ (each objectClass: each receiver) == PointerExplorer ] ) or: [ (each pointsOnlyWeaklyTo: self object) ifTrue: [ weakOnlyReferences add: each. true ] ifFalse: [ false ] ] ] ] ]. ^(objects replace: [ :each | + self class with: each name: (self nameForParent: each) model: self object ]) - self class with: each name: each identityHash asString model: self object ]) addAll: (weakOnlyReferences replace: [ :each | + (self class with: each name: '(', (self nameForParent: each), ')' model: self object) - (self class with: each name: '(', each identityHash asString, ')' model: self object) weakOnly: true; yourself ]); yourself! Item was added: + ----- Method: PointerExplorerWrapper>>explorerStringFor: (in category 'converting') ----- + explorerStringFor: anObject + + ^ anObject identityHash asString, ': ', (super explorerStringFor: anObject).! Item was added: + ----- Method: PointerExplorerWrapper>>memberNameFrom:to: (in category 'accessing') ----- + memberNameFrom: aParent to: aChild + + 1 to: aParent class instSize do: [ :instVarIndex | + (aParent instVarAt: instVarIndex) = aChild + ifTrue: [ ^ '#', (aParent class instVarNameForIndex: instVarIndex)]]. + "This also covers arrays" + 1 to: aParent basicSize do: [ :index | + (aParent basicAt: index) = aChild + ifTrue: [^ index asString]]. + ^ '???'! Item was added: + ----- Method: PointerExplorerWrapper>>nameForParent: (in category 'accessing') ----- + nameForParent: anObject + + ^ self memberNameFrom: anObject to: self object! Item was changed: Model subclass: #PointerFinder + instanceVariableNames: 'goal parents toDo toDoNext hasGemStone pointerList objectList parentsSize todoSize depth pointerListIndex excludedObjects' - instanceVariableNames: 'goal parents toDo toDoNext hasGemStone pointerList objectList parentsSize todoSize depth pointerListIndex' classVariableNames: '' poolDictionaries: '' category: 'Tools-Debugger'! !PointerFinder commentStamp: '<historical>' prior: 0! I can search for reasons why a certain object isn't garbage collected. I'm a quick port of a VisualWorks program written by Hans-Martin Mosner. Call me as shown below. I'll search for a path from a global variable to the given object, presenting it in a small morphic UI. Examples: PointerFinder on: self currentHand PointerFinder on: StandardSystemView someInstance Now, let's see why this image contains more HandMorphs as expected... HandMorph allInstancesDo: [:e | PointerFinder on: e]! Item was added: + ----- Method: PointerFinder class>>on:except: (in category 'instance creation') ----- + on: anObject except: aCollection + ^ self new + goal: anObject; + excludedObjects: aCollection; + search; + open! Item was changed: ----- Method: PointerFinder>>buildList (in category 'application') ----- buildList | list obj parent object key | list := OrderedCollection new. obj := goal. [list addFirst: obj. + obj := parents at: obj ifAbsent: [nil]. - obj := parents at: obj ifAbsent: []. obj == nil] whileFalse. list removeFirst. parent := Smalltalk. objectList := OrderedCollection new. pointerList := OrderedCollection new. [list isEmpty] whileFalse: [object := list removeFirst. key := nil. (parent isKindOf: Dictionary) ifTrue: [list size >= 2 ifTrue: [key := parent keyAtValue: list second ifAbsent: []. key == nil ifFalse: [object := list removeFirst; removeFirst. pointerList add: key printString , ' -> ' , object class name]]]. key == nil ifTrue: [parent class == object ifTrue: [key := 'CLASS']. key == nil ifTrue: [1 to: parent class instSize do: [:i | key == nil ifTrue: [(parent instVarAt: i) == object ifTrue: [key := parent class instVarNameForIndex: i]]]]. key == nil ifTrue: [parent isCompiledCode ifTrue: [key := 'literals?']]. key == nil ifTrue: [1 to: parent basicSize do: [:i | key == nil ifTrue: [(parent basicAt: i) == object ifTrue: [key := i printString]]]]. key == nil ifTrue: [(parent isMorph and: [object isKindOf: Array]) ifTrue: [key := 'submorphs?']]. key == nil ifTrue: [key := '???']. pointerList add: key , ': ' , object class name, (object isMorph ifTrue: [' (', object identityHash asString, ')'] ifFalse: [ String empty ]) ]. objectList add: object. parent := object]! Item was added: + ----- Method: PointerFinder>>excludedObjects (in category 'accessing') ----- + excludedObjects + + ^ excludedObjects ifNil: [excludedObjects := OrderedCollection new]! Item was added: + ----- Method: PointerFinder>>excludedObjects: (in category 'accessing') ----- + excludedObjects: aCollection + + excludedObjects := aCollection! Item was changed: ----- Method: PointerFinder>>followObject: (in category 'application') ----- followObject: anObject + + (self excludedObjects includes: anObject) + ifTrue: [^ false]. anObject outboundPointersDo: [:ea | (self follow: ea from: anObject) ifTrue: [^ true]]. ^ false! Item was changed: ----- Method: PointerFinder>>initialize (in category 'application') ----- initialize parents := IdentityDictionary new: 20000. parents at: Smalltalk put: nil. parents at: Processor put: nil. parents at: self put: nil. toDo := OrderedCollection new: 5000. toDo add: Smalltalk. + toDoNext := OrderedCollection new: 5000.! - toDoNext := OrderedCollection new: 5000!

14 23

← Newer
1
2
3
4
5
6
7
8
9
Older →