Squeak-dev April 2023

squeak-dev@lists.squeakfoundation.org

17 participants
87 discussions

Turn on the enableIPv6 preference for trunk
by David T. Lewis 21 Apr '23

21 Apr '23

I just pushed an update to set the preference in trunk. The IPV6 network support by Ian Piumarta was integrated in trunk over a decade ago. At that time there were issues with NetNameResolver on Windows so we kept the preference turned off. The Windows concerns are no longer relevant, and the mandatory 10 year request for comment period has expired, so let's turn in on now. Note that Nebraska and possibly others depend on IPV4 byte array addresses, so just disable the preference it that case. Please speak up if there are any issues. Dave

1 0

The Trunk: Kernel-dtl.1511.mcz
by commits＠source.squeak.org 21 Apr '23

21 Apr '23

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1511.mcz ==================== Summary ==================== Name: Kernel-dtl.1511 Author: dtl Time: 20 April 2023, 8:04:46.463136 pm UUID: a97d7bda-d8ef-4241-a6a6-5b43cec1a1df Ancestors: Kernel-mt.1510 Turn on the enableIPv6 preference for trunk. =============== Diff against Kernel-mt.1510 =============== Item was changed: + (PackageInfo named: 'Kernel') postscript: '"Turn on the enableIPv6 preference for trunk." + + NetNameResolver enableIPv6: true. + '! - (PackageInfo named: 'Kernel') postscript: '"Inform the VM that it should update its image format number for multiple bytecode sets" - [CompiledCode byteCodeSetsKnownToTheVM. - CompiledCode preferredBytecodeSetEncoderClass = EncoderForSistaV1 - ifTrue: [CompiledCode multipleBytecodeSetsActive: true]] - on: Error do: ["missing VM support, do nothing"]'!

1 0

Yoshiki Ohshima - Croquet Microverse - 26 April 2023
by Giovanni Corriga 20 Apr '23

20 Apr '23

For this month's online presentation, Yoshiki Ohshima will demonstrate the Croquet Microverse ( https://croquet.io/ ), which is a 3D collaborative construction environment. It is an incarnation of Smalltalk-based Croquet but instead implemented in JavaScript. Microverse allows a group of users to collaboratively create new objects in a virtual space, and describe their behaviors in the live programming manner that can be used by professional programmers. The object extension mechanism used in the Microverse is heavily influenced by past class and object extension mechanisms, many of which originated from experimentation and implementation in Smalltalk. Likewise, the architecture of the Microverse application framework draws upon other frameworks such as Morphic and AppKit. Yoshiki will explain the connections between those systems and the Microverse. Yoshiki ( https://tinlizzie.org/ohshima/ ) joined Walt Disney Imagineering R&D in 2000 as an intern while attending the graduate school of Tokyo Institute of Technology, and helped develop prototypes of Disney's theme park attractions. He also has been involved in Alan Kay's research group, and participated in the research and development effort of education programming environment Squeak Etoys and later took the leading role. Yoshiki has worked at the Viewpoints Research Institute, SAP Labs CDG, and Y Combinator Research, all of which Dr. Kay founded or helped found. He was awarded his PhD. for designing and implementing a massively parallel particle programming system from Tokyo Institute of Technology. This will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/ukstug/events/292570084/ ) to receive the meeting details.

1 0

The Trunk: ToolBuilder-Morphic-mt.341.mcz
by commits＠source.squeak.org 20 Apr '23

20 Apr '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.341.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.341 Author: mt Time: 20 April 2023, 4:51:05.321914 pm UUID: 045ae05b-fe2a-e749-b001-a08ffc80a669 Ancestors: ToolBuilder-Morphic-mt.340 Regarding tree widgets and selection update after type-in filters, document the challenge with prioritizing prefix matches. This is a feature we have in list widgets and it would be nice to have it also in tree widgets as it simplifies keyboard navigation. =============== Diff against ToolBuilder-Morphic-mt.340 =============== Item was changed: ----- Method: PluggableTreeMorph>>updateSelectionAfterFilter (in category 'updating') ----- updateSelectionAfterFilter "Filter has changed. The current selection might not be visible anymore. Update it accordingly." | focus currentParent firstMatch | self hoveredMorph: nil. ((focus := self selectedMorph) notNil and: [focus isFilterMatch]) ifTrue: [^ self "no change, keep view stable"]. self filterMode = #siblings ifTrue: [ "Consider parent for local scope" firstMatch := (currentParent := self selectedParentMorph) ifNil: [self firstFilteredItem "i.e., any visible root"] ifNotNil: [:pm | pm firstVisibleChild]] ifFalse: [ "#all, #visible -- any filter match will do" firstMatch := focus ifNil: [self firstFilteredItem] ifNotNil: [:fm | self firstFilteredItemAfterSelection ifNil: [self firstFilteredItem]]]. + + self flag: #todo. "mt: Give priority to matching prefixes. This is tricky at the moment + because (1) #isFilterMatch has no access to the current filterOffsets until the first redraw + and (2) due to tab-split columns, a 'prefix' could as well be a within-match if a tab + character is directly in front of it. For now, leave it without this feature and expect + users to pre-attentively make out matching prefixes quickly while browsing the + filter results." "Select the first match only if current selection does not match anymore." self setSelectedMorph: firstMatch. "New parent for #all or #visible possible" self scrollSelectionAndExtraIntoView. "Keep parent visible to provide context information. Ensure visibility of current selection." self scrollSelectionParentIntoView: (currentParent ifNil: [self selectedParentMorph]).!

1 0

The Trunk: ToolBuilder-Morphic-mt.340.mcz
by commits＠source.squeak.org 18 Apr '23

18 Apr '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.340.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.340 Author: mt Time: 18 April 2023, 2:32:09.744406 pm UUID: c7d228b6-0901-4e4f-9182-90485af5e492 Ancestors: ToolBuilder-Morphic-mt.339 In tree widgets, fixes issue with #isExpanded combined with #all filter mode. Also keep the current selection expanded when clearing an #all filter. =============== Diff against ToolBuilder-Morphic-mt.339 =============== Item was changed: ----- Method: PluggableTreeMorph>>collapseAllButSelection (in category 'filtering') ----- collapseAllButSelection "If the filterMode is set to #all, filtering will expand (and collapse) nodes. Thus, it is can be useful to collapse all nodes again but show the current selection to get an overview again when removing the filter." + | selectedPath wasExpanded | + autoExpand == true ifTrue: [^ self]. - | selectedPath | self fixateSelectionDuring: [ selectedPath := self selectedPath. + wasExpanded := selectedMorph notNil and: [selectedMorph isExpanded]. selectedMorph := selectedMorphIndex := nil. "Avoid selection update via #collapseAll. See #noteRemovalOfAll:." self collapseAll. + self selectedPath: selectedPath. + wasExpanded ifTrue: [self toggleExpandedState: selectedMorph]].! - self selectedPath: selectedPath].!

1 0

The Trunk: ToolBuilder-Morphic-mt.339.mcz
by commits＠source.squeak.org 18 Apr '23

18 Apr '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.339.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.339 Author: mt Time: 18 April 2023, 11:13:06.184406 am UUID: c2f8b605-4a98-b844-817d-b8479c2e6de2 Ancestors: ToolBuilder-Morphic-mt.338 In tree wigets, some code clean-up and a regression fix (subscript out of bounds). =============== Diff against ToolBuilder-Morphic-mt.338 =============== Item was changed: ----- Method: PluggableTreeMorph>>bottomVisibleRowIndex (in category 'geometry') ----- bottomVisibleRowIndex | itemAtBottom | itemAtBottom := self itemFromPoint: self bottomLeft + (3 @ -3). ^ itemAtBottom + ifNil: [ self items size ] - ifNil: [ scroller submorphs size ] ifNotNil: + [ : item | self items indexOf: item ]! - [ : item | scroller submorphs indexOf: item ]! Item was changed: ----- Method: PluggableTreeMorph>>currentSelectionItem: (in category 'selection') ----- currentSelectionItem: itemOrNil "Variation of #selection: to ensure identity check for model data. See #updateSelection." | i | itemOrNil ifNil: [^ self selectionIndex: 0]. + i := self items findFirst: [:m | m complexContents item == itemOrNil]. - i := scroller submorphs findFirst: [:m | m complexContents item == itemOrNil]. self selectionIndex: i! Item was changed: ----- Method: PluggableTreeMorph>>filterTreeNow (in category 'filtering') ----- filterTreeNow self hasFilter ifFalse: [^ self removeFilter]. "Show all current items again before filtering them out." + self items do: [:item | item removeFilter]. - scroller submorphsDo: [:m | m removeFilter]. (self filterMode caseOf: { [#siblings] -> [self filterTreeNowSiblings "default"]. [#visible] -> [self filterTreeNowVisible]. [#all] -> [self filterTreeNowAll] }) ifFalse: [ "Remove the last character and try filtering again." lastKeystrokes := lastKeystrokes allButLast: 1. ^ self filterTreeNow]. self adjustSubmorphPositions.! Item was added: + ----- Method: PluggableTreeMorph>>firstFilteredItem (in category 'filtering') ----- + firstFilteredItem + "Answer the first item that is visible and matches the current filter. That is, visible but not matching items could be a parent of a match." + + ^ self items + detect: [:item | item isFilterMatch] + ifNone: []! Item was added: + ----- Method: PluggableTreeMorph>>firstFilteredItemAfterSelection (in category 'filtering') ----- + firstFilteredItemAfterSelection + + ^ self items + at: (self items + findFirst: [:m | m isFilterMatch] + startingAt: self getSelectionIndex) + ifAbsent: []! Item was changed: ----- Method: PluggableTreeMorph>>removeFilter (in category 'filtering') ----- removeFilter "Remove the current filter. Keep the current selection stable unless it is expanded and needs more space for its children. Note that we must not check for #hasFilter here but in the sender if needed; see #filterTreeNow." lastKeystrokes := String empty. self filterMode = #all ifTrue: [ + self items do: [:item | item removeFilter]. - scroller submorphsDo: [:m | m removeFilter]. self collapseAllButSelection] ifFalse: [ self fixateSelectionDuring: [ + self items do: [:item | item removeFilter]. - scroller submorphsDo: [:m | m removeFilter]. self adjustSubmorphPositions]]. "Try to show all children again for the current selection." self scrollSelectionAndChildrenIntoView. self scrollSelectionAndExtraIntoView.! Item was changed: ----- Method: PluggableTreeMorph>>selectPath: (in category 'selection') ----- selectPath: path "Select the given path. Do not tell the model. Just update the view." | newSelection | path ifNil: [^ self]. path ifEmpty: [^ self selectedMorph: nil]. + self items ifEmpty: [^ self]. - scroller hasSubmorphs ifFalse: [^ self]. + newSelection := self selectPath: path in: self items first. - newSelection := self selectPath: path in: scroller firstSubmorph. self adjustSubmorphPositions. "First adjust, then select to keep selection visible." self selectedMorph: newSelection.! Item was changed: ----- Method: PluggableTreeMorph>>topVisibleRowIndex (in category 'geometry') ----- topVisibleRowIndex + ^ self items indexOf: (self itemFromPoint: self topLeft+(3@3))! - ^ scroller submorphs indexOf: (self itemFromPoint: self topLeft+(3@3))! Item was changed: ----- Method: PluggableTreeMorph>>treeFilterSet: (in category 'filtering') ----- treeFilterSet: aString "Set the filter term and select the first match." self filterTerm: aString. + self setSelectedMorph: self firstFilteredItem.! - self setSelectedMorph: self filteredItems first.! Item was changed: ----- Method: PluggableTreeMorph>>update:with: (in category 'updating') ----- update: what with: anObject super update: what with: anObject. what == #objectChanged ifTrue: [ ^ self updateFromChangedObject: anObject]. what == #expandAllNodesRequested ifTrue: [ "EX: model changed: #expandAllNodesRequested with: #classChildren:." "EX: model changed: #expandAllNodesRequested with: {#classChildren:. Morph}." | scope item | scope := anObject isArray ifTrue: [anObject first] ifFalse: [anObject]. item := anObject isArray ifTrue: [anObject second]. getChildrenSelector == scope ifTrue: [ item ifNil: [self roots do: [:ea | self expandAll: ea]] + ifNotNil: [self expandAll: (self items detect: [:ea | ea complexContents item == item])]. - ifNotNil: [self expandAll: (scroller submorphs detect: [:ea | ea complexContents item == item])]. self adjustSubmorphPositions. ^ self]]. what == #expandNodeRequested ifTrue: [ "EX: model changed: #expandNodeRequested with: {#classChildren:. Morph}." | scope item | scope := anObject first. item := anObject second. getChildrenSelector == scope ifTrue: [ + self items - scroller submorphs detect: [:ea | ea complexContents item == item] ifFound: [:morph | (morph canExpand and: [morph isExpanded not]) ifTrue: [self toggleExpandedState: morph]]. ^ self]].! Item was changed: ----- Method: PluggableTreeMorph>>updateAllLabels (in category 'updating') ----- updateAllLabels + self items do: [:ea | ea contents: ea getLabel]. - scroller submorphs do: [:ea | ea contents: ea getLabel]. "self adjustSubmorphPositions. --- not required"! Item was changed: ----- Method: PluggableTreeMorph>>updateFromChangedObject: (in category 'updating') ----- updateFromChangedObject: anObject + self items - scroller submorphs detect: [:morph | morph complexContents item == anObject] ifFound: [:morph | self updateMorph: morph] ifNone: ["Ignore the request. Object may not be visible anyway."].! Item was changed: ----- Method: PluggableTreeMorph>>updateSelectionAfterFilter (in category 'updating') ----- updateSelectionAfterFilter "Filter has changed. The current selection might not be visible anymore. Update it accordingly." | focus currentParent firstMatch | self hoveredMorph: nil. ((focus := self selectedMorph) notNil and: [focus isFilterMatch]) ifTrue: [^ self "no change, keep view stable"]. self filterMode = #siblings ifTrue: [ "Consider parent for local scope" firstMatch := (currentParent := self selectedParentMorph) + ifNil: [self firstFilteredItem "i.e., any visible root"] - ifNil: [self roots detect: [:ea | ea visible]] ifNotNil: [:pm | pm firstVisibleChild]] ifFalse: [ "#all, #visible -- any filter match will do" firstMatch := focus + ifNil: [self firstFilteredItem] + ifNotNil: [:fm | self firstFilteredItemAfterSelection + ifNil: [self firstFilteredItem]]]. - ifNil: [scroller submorphs detect: [:m | m isFilterMatch]] - ifNotNil: [:fm | - scroller submorphs at: (scroller submorphs - findFirst: [:m | m isFilterMatch] - startingAt: self getSelectionIndex)]]. "Select the first match only if current selection does not match anymore." self setSelectedMorph: firstMatch. "New parent for #all or #visible possible" self scrollSelectionAndExtraIntoView. "Keep parent visible to provide context information. Ensure visibility of current selection." self scrollSelectionParentIntoView: (currentParent ifNil: [self selectedParentMorph]).!

1 0

The Trunk: ToolBuilder-Morphic-mt.338.mcz
by commits＠source.squeak.org 17 Apr '23

17 Apr '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.338.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.338 Author: mt Time: 17 April 2023, 4:07:37.770908 pm UUID: a45f7878-de1c-a74c-b7ff-4e0087df2a19 Ancestors: ToolBuilder-Morphic-mt.337 In tree widgets, make type-in filter keyboard navigation also work for #all and #visible filter-modes, not just #siblings. =============== Diff against ToolBuilder-Morphic-mt.337 =============== Item was changed: ----- Method: PluggableTreeMorph>>collapseAllButSelection (in category 'filtering') ----- collapseAllButSelection "If the filterMode is set to #all, filtering will expand (and collapse) nodes. Thus, it is can be useful to collapse all nodes again but show the current selection to get an overview again when removing the filter." | selectedPath | self fixateSelectionDuring: [ selectedPath := self selectedPath. + selectedMorph := selectedMorphIndex := nil. "Avoid selection update via #collapseAll. See #noteRemovalOfAll:." - selectedMorph := nil. "Avoid selection update via #collapseAll. See #noteRemovalOfAll:." self collapseAll. self selectedPath: selectedPath].! Item was changed: ----- Method: PluggableTreeMorph>>filterTree (in category 'filtering') ----- filterTree - | currentParent firstMatch | self filterMode = #siblings ifTrue: [ "For expanded selections, we assume that the user is already looking at the children. This is beneficial for the ObjectExplorer and a useful heuristic in general." self selectedMorph ifNotNil: [:focus | focus isExpanded ifTrue: [self setSelectedMorph: focus firstChild]]]. "Update the filter, try to keep selection stable." self fixateSelectionDuring: [self filterTreeNow]. "Now update selection and scroll position as needed." + self updateSelectionAfterFilter.! - self hoveredMorph: nil. - currentParent := self selectedParentMorph. - firstMatch := currentParent - ifNil: [self roots detect: [:ea | ea visible]] - ifNotNil: [:pm | pm firstVisibleChild]. - self selectedMorph - ifNil: [self scrollToTop] - ifNotNil: [:focus | - focus visible ifFalse: [ - "Select the first match only if current selection does not match anymore." - self setSelectedMorph: firstMatch. - self scrollSelectionAndExtraIntoView. - "Keep parent visible to provide context information. Ensure visibility of current selection." - self scrollSelectionParentIntoView: currentParent]].! Item was changed: ----- Method: PluggableTreeMorph>>filterTreeButSelection (in category 'filtering') ----- filterTreeButSelection "Similar to #collapseAllButSelection. Apply the filter but make sure the current selection stays unchanged." | selectedPath | self fixateSelectionDuring: [ selectedPath := self selectedPath. + selectedMorph := selectedMorphIndex := nil. "Avoid selection update via #collapseAll. See #noteRemovalOfAll:." - selectedMorph := nil. "Avoid selection update via #collapseAll. See #noteRemovalOfAll:." self filterTree. self selectedPath: selectedPath].! Item was added: + ----- Method: PluggableTreeMorph>>updateSelectionAfterFilter (in category 'updating') ----- + updateSelectionAfterFilter + "Filter has changed. The current selection might not be visible anymore. Update it accordingly." + + | focus currentParent firstMatch | + self hoveredMorph: nil. + ((focus := self selectedMorph) notNil and: [focus isFilterMatch]) + ifTrue: [^ self "no change, keep view stable"]. + + self filterMode = #siblings + ifTrue: [ "Consider parent for local scope" + firstMatch := (currentParent := self selectedParentMorph) + ifNil: [self roots detect: [:ea | ea visible]] + ifNotNil: [:pm | pm firstVisibleChild]] + ifFalse: [ "#all, #visible -- any filter match will do" + firstMatch := focus + ifNil: [scroller submorphs detect: [:m | m isFilterMatch]] + ifNotNil: [:fm | + scroller submorphs at: (scroller submorphs + findFirst: [:m | m isFilterMatch] + startingAt: self getSelectionIndex)]]. + + "Select the first match only if current selection does not match anymore." + self setSelectedMorph: firstMatch. "New parent for #all or #visible possible" + self scrollSelectionAndExtraIntoView. + + "Keep parent visible to provide context information. Ensure visibility of current selection." + self scrollSelectionParentIntoView: (currentParent ifNil: [self selectedParentMorph]).!

1 0

The Trunk: Morphic-mt.2107.mcz
by commits＠source.squeak.org 17 Apr '23

17 Apr '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2107.mcz ==================== Summary ==================== Name: Morphic-mt.2107 Author: mt Time: 17 April 2023, 4:06:28.838908 pm UUID: 478a1971-c2da-7341-badf-ca64163a8c22 Ancestors: Morphic-mt.2106 In tree widgets, have the selected index quickly available to enumerate submorphs around the current selection efficiently. =============== Diff against Morphic-mt.2106 =============== Item was changed: ScrollPane subclass: #SimpleHierarchicalListMorph + instanceVariableNames: 'selectedMorph selectedMorphIndex hoveredMorph getListSelector keystrokeActionSelector autoDeselect autoExpand autoExpandSelector columns columnsCache sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor font textColor' - instanceVariableNames: 'selectedMorph hoveredMorph getListSelector keystrokeActionSelector autoDeselect autoExpand autoExpandSelector columns columnsCache sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor font textColor' classVariableNames: 'ExpandAllLimit ExpandedForm NotExpandedForm WrappedNavigation' poolDictionaries: '' category: 'Morphic-Explorer'! !SimpleHierarchicalListMorph commentStamp: 'ls 3/1/2004 12:15' prior: 0! Display a hierarchical list of items. Each item should be wrapped with a ListItemWrapper. For a simple example, look at submorphsExample. For beefier examples, look at ObjectExplorer or FileList2.! Item was changed: ----- Method: SimpleHierarchicalListMorph>>adjustSubmorphPositions (in category 'private') ----- adjustSubmorphPositions | p | p := 0@0. scroller submorphsDo: [ :each | | h | each visible ifTrue: [ h := each height. each privateBounds: (p extent: self preferredSubmorphWidth@h). p := p + (0@h) ]]. scroller layoutChanged. + selectedMorphIndex := nil. "to catch all collapse/expand events" self clearColumnsCache; changed; layoutChanged; setScrollDeltas. ! Item was changed: ----- Method: SimpleHierarchicalListMorph>>getSelectionIndex (in category 'keyboard navigation') ----- getSelectionIndex + ^ selectedMorphIndex ifNil: [selectedMorphIndex := scroller submorphs indexOf: selectedMorph]! - ^scroller submorphs indexOf: selectedMorph! Item was changed: ----- Method: SimpleHierarchicalListMorph>>selectedMorph: (in category 'selection') ----- selectedMorph: aMorph self unhighlightSelection. selectedMorph := aMorph. + selectedMorphIndex := nil. self highlightSelection. self scrollSelectionIntoView.!

1 0

The Trunk: Collections-mt.1032.mcz
by commits＠source.squeak.org 17 Apr '23

17 Apr '23

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1032.mcz ==================== Summary ==================== Name: Collections-mt.1032 Author: mt Time: 17 April 2023, 4:03:53.258908 pm UUID: 6768fb68-7c07-f64d-9349-7f4a00879ded Ancestors: Collections-mt.1031 Adds missing #findFirst:startingAt: to complement existing #findLast:startingAt:. =============== Diff against Collections-mt.1031 =============== Item was added: + ----- Method: SequenceableCollection>>findFirst:startingAt: (in category 'enumerating') ----- + findFirst: aBlock startingAt: i + "Return the index of my first element with index >= i for which aBlock evaluates as true." + + | index | + index := i - 1. + [(index := index + 1) <= self size] whileTrue: + [(aBlock value: (self at: index)) ifTrue: [^index]]. + ^ 0!

1 0

The Trunk: Tools-mt.1200.mcz
by commits＠source.squeak.org 17 Apr '23

17 Apr '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1200.mcz ==================== Summary ==================== Name: Tools-mt.1200 Author: mt Time: 17 April 2023, 11:37:04.576908 am UUID: 8844637f-3bde-a64e-92d2-c61d61cf42dd Ancestors: Tools-mt.1199 In tree browsers, fixes issue where a new hierarchy browser did always open whenever users create a new class. =============== Diff against Tools-mt.1199 =============== Item was changed: ----- Method: TreeBrowser>>spawnOrNavigateTo: (in category 'extras - hierarchy browser') ----- spawnOrNavigateTo: aClass + (self isHierarchy not or: [aClass inheritsFrom: classForHierarchy]) - (aClass inheritsFrom: classForHierarchy) ifTrue: [ super spawnOrNavigateTo: aClass ] ifFalse: [ self systemNavigation browseHierarchy: aClass ].!

1 0

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