Packages August 2018

packages@lists.squeakfoundation.org

1 participants
21 discussions

The Trunk: Compiler-bf.390.mcz
by commits＠source.squeak.org 20 Aug '18

20 Aug '18

Bert Freudenberg uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-bf.390.mcz ==================== Summary ==================== Name: Compiler-bf.390 Author: bf Time: 19 August 2018, 11:24:12.350952 pm UUID: d76ef6ae-8303-476d-bb1e-640b2476c276 Ancestors: Compiler-eem.389 Fix source range for caseOf: debugging =============== Diff against Compiler-eem.389 =============== Item was changed: ----- Method: MessageNode>>emitCodeForCase:encoder:value: (in category 'code generation') ----- emitCodeForCase: stack encoder: encoder value: forValue | braceNode sizeStream allReturn | forValue ifFalse: [^super emitCodeForEffect: stack encoder: encoder]. braceNode := arguments first. sizeStream := ReadStream on: sizes. receiver emitCodeForValue: stack encoder: encoder. "There must be at least one branch around the otherwise/caseError so the decompiler can identify the end of the otherwise/caseError." allReturn := true. "assume every case ends with a return" braceNode casesForwardDo: [:keyNode :valueNode :last | | thenSize elseSize | thenSize := sizeStream next. elseSize := sizeStream next. last ifFalse: [encoder genDup. stack push: 1]. keyNode emitCodeForEvaluatedValue: stack encoder: encoder. + keyNode pc: encoder pc. equalNode emitCode: stack args: 1 encoder: encoder. self emitCodeForBranchOn: false dist: thenSize pop: stack encoder: encoder. last ifFalse: [encoder genPop. stack pop: 1]. valueNode emitCodeForEvaluatedValue: stack encoder: encoder. last ifTrue: [stack pop: 1]. valueNode returns ifFalse: [self emitCodeForJump: elseSize encoder: encoder. allReturn := false]. (last and: [allReturn]) ifTrue: [self emitCodeForJump: elseSize encoder: encoder]]. arguments size = 2 ifTrue: [arguments last emitCodeForEvaluatedValue: stack encoder: encoder] "otherwise: [...]" ifFalse: [NodeSelf emitCodeForValue: stack encoder: encoder. caseErrorNode emitCode: stack args: 0 encoder: encoder]!

1 0

The Trunk: Tools-tcj.827.mcz
by commits＠source.squeak.org 19 Aug '18

19 Aug '18

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tcj.827.mcz ==================== Summary ==================== Name: Tools-tcj.827 Author: tcj Time: 3 July 2018, 1:26:17.691671 pm UUID: 1faf6a9f-6246-4b95-a3aa-13b113afd08b Ancestors: Tools-cmm.826 Revert the change to File Contents Browser introduced in Tools-eem.660 which broke version browsing in the File Contents Browser. "Browse versions" now works again to browse versions of a given selector while browsing through a changeset. =============== 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]!

1 0

The Trunk: Tools-cmm.831.mcz
by commits＠source.squeak.org 17 Aug '18

17 Aug '18

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.831.mcz ==================== Summary ==================== Name: Tools-cmm.831 Author: cmm Time: 17 August 2018, 2:47:24.570535 pm UUID: 4eb798e4-2a62-41b1-b0bb-2910f80e1273 Ancestors: Tools-dtl.830 - The hierarchy is inverted in a PointerExplorer such that the top line represents a (presumed) 'leaf' of the model (to be consistent with the language of 'root'), not to be confused with the opposite direction of the hierarchy presented in regular Explorers. Render the key names in 'instVar' syntax. - Pointer exploring and finding tools must be concerned with the identity of objects. They must find (and, exclude) references to *this* object, not just any other object of equal value. =============== Diff against Tools-dtl.830 =============== 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: PointerExplorer>>rootObject: (in category 'accessing') ----- rootObject: anObject + self root key: 'leaf'. + super rootObject: anObject! - - self root key: 'root'. - super rootObject: anObject.! Item was changed: ----- 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), '''' ]]. - (aParent instVarAt: instVarIndex) = aChild - ifTrue: [ ^ '#', (aParent class instVarNameForIndex: instVarIndex)]]. "This also covers arrays" 1 to: aParent basicSize do: [ :index | + (aParent basicAt: index) == aChild - (aParent basicAt: index) = aChild ifTrue: [^ index asString]]. ^ '???'! Item was changed: ----- Method: PointerFinder class>>on: (in category 'instance creation') ----- + on: anObject + ^ self + on: anObject + except: Array empty! - on: anObject - ^ self new goal: anObject; search; open! Item was changed: + ----- Method: PointerFinder>>buildList (in category 'initialize-release') ----- - ----- 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 changed: ----- Method: PointerFinder>>excludedObjects (in category 'accessing') ----- excludedObjects + ^ excludedObjects! - - ^ excludedObjects ifNil: [excludedObjects := OrderedCollection new]! Item was changed: + ----- Method: PointerFinder>>excludedObjects: (in category 'initialize-release') ----- + excludedObjects: aCollection + excludedObjects := aCollection asIdentitySet! - ----- Method: PointerFinder>>excludedObjects: (in category 'accessing') ----- - excludedObjects: aCollection - - excludedObjects := aCollection! Item was changed: + ----- Method: PointerFinder>>follow:from: (in category 'private') ----- - ----- Method: PointerFinder>>follow:from: (in category 'application') ----- follow: anObject from: parentObject anObject == goal ifTrue: [ parents at: anObject put: parentObject. ^ true ]. anObject shouldFollowOutboundPointers ifFalse: [ ^ false ]. ((parents includesKey: anObject) or: [ anObject class = self class ]) ifTrue: [ ^ false ]. parents at: anObject put: parentObject. toDoNext add: anObject. ^ false! Item was changed: + ----- Method: PointerFinder>>followObject: (in category 'private') ----- - ----- 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>>goal: (in category 'initialize-release') ----- - ----- Method: PointerFinder>>goal: (in category 'application') ----- goal: anObject goal := anObject! Item was changed: + ----- Method: PointerFinder>>initialize (in category 'initialize-release') ----- - ----- 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. + + excludedObjects := IdentitySet new! - toDoNext := OrderedCollection new: 5000.!

1 0

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

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 Trunk: MorphicExtras-kfr.245.mcz
by commits＠source.squeak.org 09 Aug '18

09 Aug '18

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.245.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.245 Author: kfr Time: 9 August 2018, 11:12:32.522421 am UUID: 3e41fb75-0b24-f74d-b50f-c0c87ab6c9e5 Ancestors: MorphicExtras-kfr.244 PianoRollNoteMorph need to send owner changed to redraw the PianoRollScoreMorph a couple of places =============== Diff against MorphicExtras-kfr.244 =============== Item was changed: ----- Method: PianoRollNoteMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt hitLoc := evt cursorPoint. editMode := nil. owner submorphsDo: [:m | (m isKindOf: PianoRollNoteMorph) ifTrue: [m deselect]]. selected := true. + self changed. + owner changed. - self changed. owner selection: (Array with: trackIndex with: indexInTrack with: indexInTrack). self playSound! Item was changed: ----- Method: PianoRollNoteMorph>>selectNotes: (in category 'selecting') ----- selectNotes: evt | lastMorph oldEnd saveOwner | + saveOwner := owner. (owner autoScrollForX: evt cursorPoint x) ifTrue: ["If scroll talkes place I will be deleted and my x-pos will become invalid." owner := saveOwner. bounds := bounds withLeft: (owner xForTime: self noteInScore time)]. oldEnd := owner selection last. (owner notesInRect: (evt cursorPoint x @ owner top corner: owner bottomRight)) do: [:m | m trackIndex = trackIndex ifTrue: [m deselect]]. + self select. + lastMorph := self. - self select. lastMorph := self. (owner notesInRect: (self left @ owner top corner: evt cursorPoint x @ owner bottom)) do: [:m | m trackIndex = trackIndex ifTrue: [m select. lastMorph := m]]. owner selection: (Array with: trackIndex with: indexInTrack with: lastMorph indexInTrack). lastMorph indexInTrack ~= oldEnd ifTrue: ["Play last note as selection grows or shrinks" + owner ifNotNil: [lastMorph playSound]]. + owner changed. - owner ifNotNil: [lastMorph playSound]] !

1 0

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

07 Aug '18

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.828.mcz ==================== Summary ==================== Name: Tools-cmm.828 Author: cmm Time: 7 August 2018, 2:56:45.632855 pm UUID: 1d4afbdd-781f-42dc-a648-b5e3211eba78 Ancestors: Tools-eem.827 MessageTrace fixes: - preserve indentation after using "filter message list..." when #useUnifiedMessageLabels is set. - fixed a window title bug on implementors to keep the original output of that trace command. - fixed the "lost anchor" bug of the senders command. =============== Diff against Tools-eem.827 =============== Item was added: + ----- Method: MessageSet>>indentionPrefixOfSize: (in category 'indenting') ----- + indentionPrefixOfSize: levelInteger + + | answer | + answer := String new: levelInteger * self indentionSize. + answer atAllPut: $ . "space" + ^answer + ! Item was added: + ----- Method: MessageSet>>indentionSize (in category 'indenting') ----- + indentionSize + + ^2 "that is, 2 spaces.." + ! Item was added: + ----- Method: MessageSet>>indentionsIn: (in category 'indenting') ----- + indentionsIn: aString + + aString + withIndexDo: + [ :eachChar :index | + eachChar = $ "space" ifFalse: [ ^(index-1) / self indentionSize ] ]. + ^0 + ! Item was changed: ----- Method: MessageSet>>initializeMessageList: (in category 'private') ----- initializeMessageList: anArray "Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses. Do /not/ replace the elements of anArray if they are already MethodReferences, so as to allow users to construct richer systems, such as differencers between existing and edited versions of code." messageList := OrderedCollection new. + anArray do: + [:each | each isMethodReference - anArray do: [:each | - each isMethodReference ifTrue: [messageList addLast: each] + ifFalse: + [ MessageSet + parse: each + toClassAndSelector: + [ : class : sel | class ifNotNil: [ messageList addLast: (MethodReference class: class selector: sel) ] ] ] ]. - ifFalse: [MessageSet parse: each toClassAndSelector: [ :class :sel | - class ifNotNil: [ - messageList addLast: ( - MethodReference - class: class - selector: sel)] ]]]. "Unify labels if wanted." + self class useUnifiedMessageLabels ifTrue: + [ messageList withIndexDo: + [ : each : index | | cls | - self class useUnifiedMessageLabels ifTrue: [ - messageList do: [:each | | cls | cls := each actualClass. each stringVersion: + (self indentionPrefixOfSize: (self indentionsIn: each stringVersion)) + , (cls - (cls ifNil: [each asString] ifNotNil: [cls isUniClass ifTrue: [cls typicalInstanceName, ' ', each selector] + ifFalse: + [ cls name , ' ' , each selector , ' {' + , ((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' + , ' {', cls category, '}' ] ]) ] ]. - ifFalse: [cls name , ' ' , each selector , ' {' , - ((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' , - ' {', cls category, '}']])]]. messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. + contents := String empty! - contents := ''! Item was changed: ----- Method: MessageTrace>>addChildMessages:autoSelectString: (in category 'building') ----- addChildMessages: methodReferences autoSelectString: aString | currentIndentionLevel addables selectables selectableString newAnchor | selectableString := aString keywords ifEmpty: [ String empty ] ifNotEmptyDo: [ : keywords | keywords first ]. [ (messageListIndex between: 1 and: autoSelectStrings size) ] + whileFalse: [ autoSelectStrings add: selectableString ]. - whileFalse: - [ autoSelectStrings add: selectableString ]. - autoSelectStrings - at: messageListIndex - put: selectableString. currentIndentionLevel := self currentIndentionLevel. "Don't add mulitple copies of the same method, if a method is already in the list we will merely select it." addables := methodReferences reject: [ : each | messageList includes: each ]. addables do: [ : each | each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel + 1) , each asStringOrText. messageList add: each afterIndex: self messageListIndex. autoSelectStrings add: nil afterIndex: self messageListIndex. messageSelections add: false afterIndex: self messageListIndex ]. selectables := addables copy addAll: (methodReferences select: [ : each | messageList includes: each ]) ; yourself. self deselectAll. anchorIndex := nil. selectables do: [ : each | self messageAt: (newAnchor := messageList indexOf: each) beSelected: true. anchorIndex ifNil: [ anchorIndex := newAnchor ] ]. self changed: #messageList. "Select the first child method." self messageListIndex: (selectables size > 0 ifTrue: [ messageList indexOf: selectables last ] ifFalse: [ messageList ifEmpty: [ 0 ] ifNotEmpty: [ 1 ] ])! Item was changed: ----- Method: MessageTrace>>addParentMessages:autoSelectString: (in category 'building') ----- addParentMessages: methodReferences autoSelectString: aString | currentIndentionLevel addables selectables | addables := methodReferences reject: [ : each | messageList includes: each ]. selectables := addables copy addAll: (methodReferences select: [ : each | messageList includes: each ]) ; yourself. currentIndentionLevel := self currentIndentionLevel. (currentIndentionLevel = 0 and: [ addables notEmpty ]) ifTrue: [ self indentEverything. currentIndentionLevel := 1 ]. addables do: [ : each | each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel - 1) , each asStringOrText. messageList add: each afterIndex: self messageListIndex - 1. autoSelectStrings add: aString afterIndex: self messageListIndex - 1. messageSelections add: false afterIndex: self messageListIndex - 1 ]. self deselectAll. selectables do: [ : each | | messageIndex | messageIndex := messageList indexOf: each. self messageAt: messageIndex beSelected: true. autoSelectStrings at: messageIndex put: aString ]. self changed: #messageList. + anchorIndex := messageListIndex. selectables size > 0 ifTrue: [ self messageListIndex: (messageList indexOf: selectables first) ]! Item was removed: - ----- Method: MessageTrace>>indentionPrefixOfSize: (in category 'indenting') ----- - indentionPrefixOfSize: levelInteger - - | answer | - answer := String new: levelInteger * self indentionSize. - answer atAllPut: $ . "space" - ^answer - ! Item was removed: - ----- Method: MessageTrace>>indentionSize (in category 'indenting') ----- - indentionSize - - ^2 "that is, 2 spaces.." - ! Item was removed: - ----- Method: MessageTrace>>indentionsIn: (in category 'indenting') ----- - indentionsIn: aString - - aString - withIndexDo: - [ :eachChar :index | - eachChar = $ "space" ifFalse: [ ^(index-1) / self indentionSize ] ]. - ^0 - !

1 0

The Trunk: System-fn.1039.mcz
by commits＠source.squeak.org 04 Aug '18

04 Aug '18

Fabio Niephaus uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fn.1039.mcz ==================== Summary ==================== Name: System-fn.1039 Author: fn Time: 4 August 2018, 3:59:47.821233 pm UUID: 7a41ec0c-4fbd-4caa-ab2e-4001e53478e7 Ancestors: System-pre.1038 Correctly detect headless mode when '-nodisplay' is used. According to [1], '-nodisplay' "is equivalent to '-vm display=none'". [1] https://github.com/OpenSmalltalk/opensmalltalk-vm/blob/e17db79411cfec767e04… =============== Diff against System-pre.1038 =============== Item was changed: ----- Method: SmalltalkImage>>isHeadless (in category 'vm parameters') ----- isHeadless "Answer whether the command-line specified to launch the VM headless." self optionsDo: + [ : each | (#('display=none' '-headless' '-nodisplay' '-vm-display-null' ) includes: each) ifTrue: [ ^ true ] ]. - [ : each | (#('display=none' '-headless' '-vm-display-null' ) includes: each) ifTrue: [ ^ true ] ]. ^ false!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2018