Squeak-dev January 2023

squeak-dev@lists.squeakfoundation.org

31 participants
224 discussions

GSUG -- German Smalltalk User Group : die deutschsprachige Smalltalk-Anwendergemeinde trifft sich jetzt auf LinkedIn
by Nowak, Helge 30 Jan '23

30 Jan '23

Hallo Smalltalker! Die weltweite deutschsprachige Smalltalk-Anwendergemeinde hat einen neuen Treffpunkt: die GSUG-Gruppe auf LinkedIn: https://www.linkedin.com/groups/12754122/ Hier wollen wir uns zu allen Themen rund um Smalltalk austauschen: Technologien, Produkte und Projekte vorstellen und diskutieren, Stellenangebote und -gesuche bekanntmachen, und was uns sonst noch zu unserer Lieblingsumgebung bewegt. Die Gruppe ist dialektneutral und offen für Erweiterungen im Geiste von Smalltalk, wie Self, Strongtalk oder Newspeak. Wir sind schon gespannt auf die nächsten innovativen Ideen! Wir freuen uns auf Euch! Anmelden und Weitersagen 😉 Smalltalk ist anders - und das ist gut so! Helge Nowak

1 0

The Trunk: ToolBuilder-Morphic-mt.332.mcz
by commits＠source.squeak.org 30 Jan '23

30 Jan '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.332.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.332 Author: mt Time: 30 January 2023, 1:12:59.299867 pm UUID: 029fda2f-65e0-4d4f-b45b-3b7b28f79a32 Ancestors: ToolBuilder-Morphic-mt.331 In tree widgets, fixes drag-and-drop regression. =============== Diff against ToolBuilder-Morphic-mt.331 =============== Item was changed: ----- Method: PluggableTreeMorph>>startDrag: (in category 'drag and drop') ----- startDrag: evt | itemMorph | self dragItemSelector ifNil: [^ self]. evt hand hasSubmorphs ifTrue: [^ self]. self model okToChange ifFalse: [^ self]. + (itemMorph := self itemFromPoint: evt position) + ifNil: [^ self]. - itemMorph := scroller submorphs - detect: [:any | any highlightedForMouseDown] - ifNone: [^ self]. "Prepare visuals." itemMorph highlightedForMouseDown: false. self setSelectedMorph: itemMorph. [ "Initiate drag." (self model perform: self dragItemSelector with: itemMorph withoutListWrapper) ifNotNil: [:passenger | | ddm | ddm := (self valueOfProperty: #dragTransferClass ifAbsent: [TransferMorph]) withPassenger: passenger from: self. ddm dragTransferType: (self dragTypeSelector ifNotNil: [:s | self model perform: s with: itemMorph withoutListWrapper]). ddm updateFromUserInputEvent: evt. self dragStartedSelector ifNotNil: [:s | self model perform: s with: itemMorph with: ddm]. evt hand grabMorph: ddm]. ] ensure: [ Cursor normal show. evt hand releaseMouseFocus: self].!

1 0

The Trunk: Morphic-mt.2083.mcz
by commits＠source.squeak.org 30 Jan '23

30 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2083.mcz ==================== Summary ==================== Name: Morphic-mt.2083 Author: mt Time: 30 January 2023, 1:09:02.561867 pm UUID: 6a7a9c44-e657-0442-b88a-25d3c49aa46d Ancestors: Morphic-mt.2082 In tree widgets, when collapsing a node via mouse-click, do update the selection if the current one gets lost. Avoid jumpy view if intermediate selection is nil. Remove some dead code. =============== Diff against Morphic-mt.2082 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt | aMorph selectors | aMorph := self itemFromPoint: evt position. evt yellowButtonPressed "First check for option (menu) click" ifTrue: [ (PluggableListMorph menuRequestUpdatesSelection and: [model okToChange]) ifTrue: [ aMorph == selectedMorph ifFalse: [self setSelectedMorph: aMorph]]. ^ self yellowButtonActivity: evt shiftPressed]. aMorph ifNil: [^ super mouseDown: evt]. (aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)]) + ifTrue: [ + self toggleExpandedState: aMorph event: evt. + self selectedMorph ifNil: [ + self setProperty: #changeSelectionOnMouseUp toValue: true. + self setProperty: #selectedMorph toValue: aMorph]. + ^ self]. - ifTrue: [^ self toggleExpandedState: aMorph event: evt]. PluggableListMorph highlightPreSelection ifTrue: [ aMorph highlightedForMouseDown: true. self setProperty: #highlightedMorph toValue: aMorph]. self setProperty: #changeSelectionOnMouseUp toValue: true. selectors := Array with: #click: with: (self doubleClickEnabled ifTrue: [#doubleClick:] ifFalse: [nil]) with: nil with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".! Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseUp: (in category 'event handling') ----- mouseUp: event | clickedMorph | model okToChange ifFalse: [^ self]. (clickedMorph := self itemFromPoint: event position) ifNil: [^ self]. (self valueOfProperty: #highlightedMorph ifAbsent: []) ifNotNil: [:m | m highlightedForMouseDown: false. self removeProperty: #highlightedMorph]. (self hasProperty: #changeSelectionOnMouseUp) ifFalse: [^ self] ifTrue: [self removeProperty: #changeSelectionOnMouseUp]. + + (self valueOfProperty: #selectedMorph) ifNotNil: [:m | + clickedMorph := m. + self removeProperty: #selectedMorph]. ((autoDeselect isNil or: [autoDeselect]) and: [clickedMorph == selectedMorph]) ifTrue: [self setSelectedMorph: nil] ifFalse: [self setSelectedMorph: clickedMorph]. event hand newKeyboardFocus: self. Cursor normal show.! Item was changed: ----- Method: SimpleHierarchicalListMorph>>scrollSelectionIntoView (in category 'selection') ----- scrollSelectionIntoView + "Ensure that the user can see the current selection. If there is no current selection, keep the view stable." + + self selectedMorph ifNotNil: [:m | self scrollToShow: m bounds].! - - self selectedMorph - ifNil: [self scrollToTop] - ifNotNil: [:m | self scrollToShow: m bounds].! Item was changed: ----- Method: SimpleHierarchicalListMorph>>toggleExpandedState:event: (in category 'events') ----- toggleExpandedState: aMorph event: event + + aMorph toggleExpandedState. - | oldState | - "self setSelectedMorph: aMorph." - event yellowButtonPressed ifTrue: [ - oldState := aMorph isExpanded. - scroller submorphs copy do: [ :each | - (each canExpand and: [each isExpanded = oldState]) ifTrue: [ - each toggleExpandedState. - ]. - ]. - ] ifFalse: [ - aMorph toggleExpandedState. - ]. self adjustSubmorphPositions. !

1 0

The Trunk: ToolBuilder-Morphic-mt.331.mcz
by commits＠source.squeak.org 30 Jan '23

30 Jan '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.331.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.331 Author: mt Time: 30 January 2023, 11:10:52.193867 am UUID: d8f74e62-7359-d048-b6bd-d662ba3ea488 Ancestors: ToolBuilder-Morphic-mt.330 Tree search: fixes issue where view was already outdated and thus a matching path could not be selected. =============== Diff against ToolBuilder-Morphic-mt.330 =============== Item was changed: ----- Method: PluggableTreeMorph>>findAgainNow (in category 'searching') ----- findAgainNow | currentPath | (findQueue isNil or: [findQueue isEmpty]) ifTrue: [^ self flash]. self flag: #todo. "mt: Ask model about breadth-first or depth-first, indicate search progress in UI, allow find-again-backwards, ..." Cursor wait showWhile: [ [findQueue notEmpty] whileTrue: [ | currentItem | currentPath := findQueue removeFirst. currentItem := currentPath last. currentItem hasContents ifTrue: [ findQueue addAll: (currentItem contents collect: [:nextItem | currentPath copyWith: nextItem])]. (self matches: findText in: currentItem) ifTrue: [ + "Search used model data. View might already be outdated. + Collapse parent now to get up-to-date children." + self selectedMorph isExpanded ifTrue: [ + self toggleExpandedState: self selectedMorph]. + "Match!! Stop search for now. Select the match." - "Match!! Stop search for now." self selectPath: (currentPath collect: [:ea | ea item]). "Revert a side-effect from #selectPath:." self selectedMorph isExpanded ifTrue: [ self toggleExpandedState: self selectedMorph]. "Mimic filter function to highlight (and filter) search results." lastKeystrokes := findText. self filterTree. self scrollSelectionAndExtraIntoView. ^ self]]]. self inform: 'Nothing found.' translated.!

1 0

Example of Hexagonal Architecture in Smalltalk
by Edwin Ancaer 29 Jan '23

29 Jan '23

Hello, I am looking for documentation on or an example implementation of Hexagonal Architecture in Smalltalk. I find hundreds of examples in Java, and they all use interface classes, but I do not find anything about interface classes in smalltalk. Maybe, due to the superiority of Smalltalk, they are not necessary, but I would like to know why. Thanks a lot , Edwin Ancaer

2 1

Text editor menu simplified
by Stephen Travis Pope 28 Jan '23

28 Jan '23

Hello Squeakers, At part 3 of my system simplification, here’s a version of the text editor (StringHolder) editing menu with fewer than 27 top-level items. Here are before and after shots: Before After The code is, The items from the old “more…” menu are in the “browse” and “other” sub-menus. All of the usual keyboard accelerators and menu search keys work as before. stp -------- Stephen Travis Pope Ojai, California, USA http://HeavenEverywhere.com http://FASTLabInc.com https://vimeo.com/user19434036/videos http://heaveneverywhere.com/Reflections

8 17

The Trunk: Morphic-mt.2081.mcz
by commits＠source.squeak.org 27 Jan '23

27 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2081.mcz ==================== Summary ==================== Name: Morphic-mt.2081 Author: mt Time: 27 January 2023, 3:55:35.675326 pm UUID: 7b7a2680-c376-1245-bd89-7105ab3e8c51 Ancestors: Morphic-mt.2080 Next iteration on text filters in tree widgets. They do now look and feel more similar to filters in list widgets. Here are the features: - Everything revolves around the current selection. If that selection is expanded, you are already looking at the children, not your current siblings. - TYPE something to reduce the current list of siblings (or children). Use preferences to change the #clearFilterDelay from its default 500 ms if needed. - Hit [Backspace] to reset the filter. Selection should mostly remain stable on screen. - Hit [CMD]+[F] to start a tree search. [CMD]+[G] to "find again" like in text fields. - Hit [CMD]+[Dot] if the tree search takes forever... - Hit [Arrow-left] repeatedly to collapse items and jump to parent nodes. - Hit [SHIFT]+[Arrow-up/down] to navigate siblings only =============== Diff against Morphic-mt.2080 =============== Item was changed: StringMorph subclass: #IndentingListItemMorph + instanceVariableNames: 'indentLevel canExpand isExpanded complexContents firstChild container nextSibling icon backgroundColor filterOffsets' + classVariableNames: 'FilterBackgroundColor' - instanceVariableNames: 'indentLevel isExpanded complexContents firstChild container nextSibling icon backgroundColor' - classVariableNames: '' poolDictionaries: '' category: 'Morphic-Explorer'! !IndentingListItemMorph commentStamp: '<historical>' prior: 0! An IndentingListItemMorph is a StringMorph that draws itself with an optional toggle at its left, as part of the display of the SimpleHierarchicalListMorph. It will also display lines around the toggle if the #showLinesInHierarchyViews Preference is set. Instance variables: indentLevel <SmallInteger> the indent level, from 0 at the root and increasing by 1 at each level of the hierarchy. isExpanded <Boolean> true if this item is expanded (showing its children) complexContents <ListItemWrapper> an adapter wrapping my represented item that can answer its children, etc. firstChild <IndentingListItemMorph|nil> my first child, or nil if none container <SimpleHierarchicalListMorph> my container nextSibling <IndentingListItemMorph|nil> the next item in the linked list of siblings, or nil if none. Contributed by Bob Arning as part of the ObjectExplorer package. Don't blame him if it's not perfect. We wanted to get it out for people to play with.! Item was added: + ----- Method: IndentingListItemMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- + applyUserInterfaceTheme + + FilterBackgroundColor := (UserInterfaceTheme current get: #hoverSelectionModifier for: #PluggableListMorph) + ifNil: [ Color white darker alpha: 0.3 ] + ifNotNil: [:modifier | modifier value: ((UserInterfaceTheme current get: #color for: #ScrollPane) + ifNil: [ Color white ]) ].! Item was added: + ----- Method: IndentingListItemMorph class>>initialize (in category 'class initialization') ----- + initialize + + FilterBackgroundColor := (Color gray: 0.85) alpha: 0.5.! Item was added: + ----- Method: IndentingListItemMorph class>>themePriority (in category 'preferences') ----- + themePriority + + ^ 65! Item was added: + ----- Method: IndentingListItemMorph class>>themeProperties (in category 'preferences') ----- + themeProperties + + ^ { + { #backgroundFilterColor. 'Styling'. 'Background color for filter matches.' }. + }! Item was changed: ----- Method: IndentingListItemMorph>>applyFilter: (in category 'filtering') ----- applyFilter: filter + (self matches: filter in: complexContents) + ifTrue: [backgroundColor := FilterBackgroundColor. ^ true] + ifFalse: [self hideByFilter. ^ false].! - self - applyFilter: filter - depthOffset: self indentLevel.! Item was removed: - ----- Method: IndentingListItemMorph>>applyFilter:depthOffset: (in category 'filtering') ----- - applyFilter: filter depthOffset: offset - - | selfMatch childMatch | - self isExpanded ifTrue: [self toggleExpandedState]. - - selfMatch := self matches: filter. - childMatch := self matchesAnyChild: filter depthOffset: offset. - - selfMatch | childMatch ifFalse: [^ self hide]. - - selfMatch ifTrue: [ - self backgroundColor: ((Color gray: 0.85) alpha: 0.5)]. - childMatch ifTrue: [ - self toggleExpandedState. - self childrenDo: [:child | child applyFilter: filter depthOffset: offset]].! Item was added: + ----- Method: IndentingListItemMorph>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + + filterOffsets := nil.! Item was changed: ----- Method: IndentingListItemMorph>>canExpand (in category 'testing') ----- canExpand + ^ canExpand ifNil: [canExpand := complexContents hasContents]! - ^complexContents hasContents! Item was changed: ----- Method: IndentingListItemMorph>>children (in category 'accessing') ----- children + + ^ Array streamContents: [:stream | + self childrenDo: [:each | stream add: each]]! - | children | - children := OrderedCollection new. - self childrenDo: [:each | children add: each]. - ^children! Item was added: + ----- Method: IndentingListItemMorph>>drawFilterOn:in: (in category 'drawing') ----- + drawFilterOn: aCanvas in: drawBounds + "Draw filter matches if any. Based on LazyListMorph >> #displayFilterOn:for:in:font:." + + | fillStyle fillHeight leading columnOffsets o cw | + filterOffsets ifEmpty: [^ self]. + + fillHeight := font lineGridForMorphs. + fillStyle := container filterColor isColor + ifTrue: [SolidFillStyle color: container filterColor] + ifFalse: [container filterColor]. + fillStyle isGradientFill ifTrue: [ + fillStyle origin: drawBounds topLeft. + fillStyle direction: 0@ fillHeight]. + + leading := font lineGapSliceForMorphs. + + columnOffsets := (container columns isNil or: [container columns size = 1]) + ifTrue: [ + o := drawBounds left. + icon ifNotNil: [o := o + icon width + 2 px]. + { o }] + ifFalse: [ + (0 to: container columns size - 1) collect: [ :column | + column = 0 + ifTrue: [o := drawBounds left] + ifFalse: [ + cw := self widthOfColumn: column. + column = 1 + ifTrue: [ "Reduce width by indentation present in first column only" + cw := cw - (drawBounds left - self left) + self hMargin]. + column + 1 = self class iconColumnIndex ifTrue: [ + icon ifNotNil: [o := o + icon width + 2 px]]. + o := o + cw + 5 px]] ]. + + filterOffsets do: [:offset | + | highlightRectangle | + highlightRectangle := (((columnOffsets at: offset third) + offset first first) @ drawBounds top + corner: ((columnOffsets at: offset third) + offset first last) @ (drawBounds top + fillHeight)). + aCanvas + frameAndFillRoundRect: (highlightRectangle outsetBy: 1@0) + radius: 3 px + fillStyle: fillStyle + borderWidth: 1 px + borderColor: fillStyle asColor twiceDarker. + aCanvas + drawString: offset second + in: (highlightRectangle origin + (0 @ leading) corner: highlightRectangle corner) + font: font + color: container filterTextColor].! Item was changed: ----- Method: IndentingListItemMorph>>drawLabelInColumnsOn:in: (in category 'drawing') ----- drawLabelInColumnsOn: aCanvas in: drawBounds "Draw the receiver appearing in multiple columns. Use TAB character to move between columns." + | columnScanner columnLeft columnRect columnData updateFilter | - | columnScanner columnLeft columnRect columnData | self assert: [container columns size > 1]. + columnScanner := ReadStream on: contents asString. + + "Update filter matches" + updateFilter := backgroundColor notNil and: [filterOffsets isNil]. + filterOffsets ifNil: [filterOffsets := OrderedCollection new]. + + 1 to: container columns size do: [ :column | - container columns withIndexDo: [ :widthSpec :column | | columnWidth | "Compute first/next column offset." column = 1 ifTrue: [columnLeft := drawBounds left] ifFalse: [columnLeft := columnRect right + 5 px]. "Draw icon." column = self class iconColumnIndex ifTrue: [ icon ifNotNil: [ aCanvas translucentImage: icon at: columnLeft @ (self top + (self height - icon height // 2)). + columnLeft := columnLeft + icon width + 2 px]]. - columnLeft := columnLeft + icon width + 2]]. "Compute drawing bounds for label portion." columnWidth := self widthOfColumn: column. column = 1 ifTrue: [ "Reduce width by indentation present in first column only" columnWidth := columnWidth - (drawBounds left - self left) + self hMargin]. columnRect := columnLeft @ drawBounds top extent: columnWidth @ drawBounds height. columnData := columnScanner upTo: Character tab. "Draw label portion." columnData ifNotEmpty: [ + aCanvas drawString: columnData in: columnRect font: self fontToUse color: self colorToUse. + updateFilter ifTrue: [ + (column = 1 or: [PluggableTreeMorph filterByLabelsOnly not]) + ifTrue: [filterOffsets addAll: (self getFilterOffsetsFor: columnData column: column)]] ] ]. - aCanvas drawString: columnData in: columnRect font: self fontToUse color: self colorToUse] ]. "Handle trailing TAB issue in string representation." columnScanner upToEnd ifNotEmpty: [:rest | columnRect := columnLeft + (self fontToUse widthOfString: columnData) @ drawBounds top extent: columnRect extent. + columnData := String tab, rest. + aCanvas drawString: columnData in: columnRect font: self fontToUse color: self colorToUse. + updateFilter ifTrue: [ + "column > 1" PluggableTreeMorph filterByLabelsOnly not + ifTrue: [filterOffsets addAll: (self getFilterOffsetsFor: columnData column: container columns size)]] ].! - aCanvas drawString: String tab, rest in: columnRect font: self fontToUse color: self colorToUse].! Item was changed: ----- Method: IndentingListItemMorph>>drawLabelOn:in: (in category 'drawing') ----- drawLabelOn: aCanvas in: drawBounds | labelBounds | icon ifNil: [labelBounds := drawBounds] ifNotNil: [ aCanvas translucentImage: icon at: drawBounds left @ (self top + (self height - icon height // 2)). + labelBounds := drawBounds left: drawBounds left + icon width + 2 px]. - labelBounds := drawBounds left: drawBounds left + icon width + 2]. aCanvas drawString: contents asString "i.e., the label" in: labelBounds font: self fontToUse + color: self colorToUse. + + "Update filter matches" + (backgroundColor notNil and: [filterOffsets isNil]) + ifTrue: [filterOffsets := self getFilterOffsetsFor: contents asString]. + filterOffsets ifNil: [filterOffsets := #()]. + ! - color: self colorToUse.! Item was changed: ----- Method: IndentingListItemMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | tRect sRect | self backgroundColor ifNotNil: [:c | aCanvas fillRectangle: self innerBounds color: c]. tRect := self toggleRectangle. self drawToggleOn: aCanvas in: tRect. sRect := bounds withLeft: tRect right + self hMargin. sRect := sRect top: sRect top + sRect bottom - self fontToUse height // 2. (container columns isNil or: [(contents asString indexOf: Character tab) = 0]) ifTrue: [self drawLabelOn: aCanvas in: sRect] + ifFalse: [self drawLabelInColumnsOn: aCanvas in: sRect]. + + self drawFilterOn: aCanvas in: (bounds withLeft: tRect right + self hMargin).! - ifFalse: [self drawLabelInColumnsOn: aCanvas in: sRect].! Item was added: + ----- Method: IndentingListItemMorph>>expandFiltered (in category 'container protocol') ----- + expandFiltered + + | filter any | + self expand. + + filter := container filterTerm. + any := false. + self childrenDo: [:each | (each applyFilter: filter) ifTrue: [any := true]]. + any ifFalse: [self childrenDo: [:each | each removeFilter]].! Item was added: + ----- Method: IndentingListItemMorph>>getFilterOffsetsFor: (in category 'filtering') ----- + getFilterOffsetsFor: item + + ^ self getFilterOffsetsFor: item column: 1! Item was added: + ----- Method: IndentingListItemMorph>>getFilterOffsetsFor:column: (in category 'filtering') ----- + getFilterOffsetsFor: item column: column + "Calculate matching character indexes for the current filter term." + + | filter offsets currentIndex sub | + filter := container filterTerm. + filter ifEmpty: [^ Array empty]. + + offsets := OrderedCollection new. + + currentIndex := 1. + [currentIndex > 0] whileTrue: [ + currentIndex := item findString: filter startingAt: currentIndex caseSensitive: false. + currentIndex > 0 ifTrue: [ | left width | + left := font widthOfString: item from: 1 to: currentIndex-1. + sub := item copyFrom: currentIndex to: currentIndex + filter size - 1. + width := font widthOfString: sub. + offsets addLast: {(left to: left + width). sub. column}. + currentIndex := currentIndex + 1] ]. + ^ offsets! Item was added: + ----- Method: IndentingListItemMorph>>hideByFilter (in category 'filtering') ----- + hideByFilter + + self extension visible: false. + backgroundColor := nil. + self childrenDo: [:ea | ea hideByFilter].! Item was added: + ----- Method: IndentingListItemMorph>>isFilterMatch (in category 'testing') ----- + isFilterMatch + + ^ self visible and: [self backgroundColor notNil]! Item was added: + ----- Method: IndentingListItemMorph>>lastChild (in category 'accessing') ----- + lastChild + + | item | + self childrenDo: [:child | item := child]. + ^ item! Item was added: + ----- Method: IndentingListItemMorph>>lastVisibleChild (in category 'accessing') ----- + lastVisibleChild + + | item | + self childrenDo: [:child | child visible ifTrue: [item := child]]. + ^ item! Item was removed: - ----- Method: IndentingListItemMorph>>matches: (in category 'filtering') ----- - matches: pattern - - ^ self matches: pattern in: complexContents! Item was changed: ----- Method: IndentingListItemMorph>>matches:in: (in category 'filtering') ----- + matches: pattern in: wrapper - matches: pattern in: model ^ ((PluggableTreeMorph filterByLabelsOnly + ifTrue: [ wrapper itemName ] + ifFalse: [ contents ]) - ifTrue: [ model itemName ] - ifFalse: [ self getLabelFor: model ]) findString: pattern startingAt: 1 caseSensitive: false) > 0! Item was removed: - ----- Method: IndentingListItemMorph>>matchesAnyChild:depthOffset: (in category 'filtering') ----- - matchesAnyChild: pattern depthOffset: offset - - | maxDepth next current | - maxDepth := PluggableTreeMorph maximumSearchDepth - self indentLevel + offset. - maxDepth <= 0 ifTrue: [^ false]. - - next := (self getChildren collect: [:obj | 1 -> obj]) asOrderedCollection. - [next notEmpty] whileTrue: [ - current := next removeFirst. - - (self matches: pattern in: current value) - ifTrue: [^ true]. - - current key < maxDepth ifTrue: [ - next addAll: ((self getChildrenFor: current value) collect: [:obj | (current key + 1) -> obj])]. - ]. - - ^ false! Item was added: + ----- Method: IndentingListItemMorph>>removeFilter (in category 'filtering') ----- + removeFilter + + self extension visible: true. + + backgroundColor := nil. + filterOffsets := nil.! Item was changed: ----- Method: IndentingListItemMorph>>toggleRectangle (in category 'private') ----- toggleRectangle | h indent | h := bounds height. + indent := 12 px. - indent := (12 * RealEstateAgent scaleFactor) rounded. ^(bounds left + self hMargin + (indent * indentLevel)) @ bounds top extent: indent@h! Item was changed: ----- Method: IndentingListItemMorph>>update: (in category 'updating') ----- update: aspect "See ListItemWrapper and subclasses for possible change aspects." aspect = #contents ifTrue: [ + canExpand := nil. self isExpanded ifTrue: [self toggleExpandedState]. self canExpand ifTrue: [self toggleExpandedState]. container adjustSubmorphPositions]. super update: aspect.! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>wrappedNavigation (in category 'preferences') ----- wrappedNavigation <preference: 'Wrapped Tree Navigation' category: 'Morphic' description: 'When enabled, use of the arrow keys at the top or bottom of a hierarchical list will wrap to the opposite side of the list.' type: #Boolean> + ^ WrappedNavigation ifNil: [ true ]! - ^ WrappedNavigation ifNil: [ false ]! Item was changed: ----- Method: SimpleHierarchicalListMorph>>arrowKey: (in category 'keyboard navigation') ----- arrowKey: asciiValue "Handle a keyboard navigation character. Answer true if handled, false if not." + | keyEvent min max oldSelection nextSelection howManyItemsShowing keyHandled | - | keyEvent max oldSelection nextSelection howManyItemsShowing keyHandled | keyHandled := false. keyEvent := asciiValue. max := self maximumSelection. + min := self minimumSelection. nextSelection := oldSelection := self getSelectionIndex. keyEvent = 31 ifTrue:["down" self currentEvent shiftPressed ifTrue: [ self selectedMorph nextVisibleSibling + ifNil: ["TODO: wrappedNavigation" ^ true] - ifNil: [^ true] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection :=oldSelection + 1. + nextSelection > max ifTrue: [nextSelection := (self class wrappedNavigation ifTrue: [min] ifFalse: [^ true])]]. - nextSelection > max ifTrue: [nextSelection := (self class wrappedNavigation ifTrue: [1] ifFalse: [^ true])]]. keyEvent = 30 ifTrue:["up" self currentEvent shiftPressed ifTrue: [ self selectedMorph previousVisibleSibling + ifNil: ["TODO: wrappedNaviagtion" ^ true] - ifNil: [^ true] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection := oldSelection - 1. + nextSelection < min ifTrue: [nextSelection := self class wrappedNavigation ifTrue: [max] ifFalse: [^ true]]]. - nextSelection < 1 ifTrue: [nextSelection := self class wrappedNavigation ifTrue: [max] ifFalse: [^ true]]]. keyEvent = 1 ifTrue: ["home" keyHandled := true. + nextSelection := min]. - nextSelection := 1]. keyEvent = 4 ifTrue: ["end" keyHandled := true. nextSelection := max]. howManyItemsShowing := self numSelectionsInView. keyEvent = 11 ifTrue: ["page up" keyHandled := true. + nextSelection := min max: oldSelection - howManyItemsShowing]. - nextSelection := 1 max: oldSelection - howManyItemsShowing]. keyEvent = 12 ifTrue: ["page down" keyHandled := true. nextSelection := oldSelection + howManyItemsShowing min: max]. (nextSelection ~= oldSelection or: [ keyHandled and: [ self class wrappedNavigation not ]]) ifTrue: [ self setSelectionIndex: nextSelection. ^ true]. keyEvent = 29 ifTrue:["right" selectedMorph ifNotNil:[ (selectedMorph canExpand and:[selectedMorph isExpanded not]) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[self setSelectionIndex: self getSelectionIndex+1]. ]. ^true]. keyEvent = 28 ifTrue:["left" selectedMorph ifNotNil:[ (selectedMorph isExpanded) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[ self selectedParentMorph ifNil: [self setSelectionIndex: (self getSelectionIndex-1 max: 1)] ifNotNil: [:pm | self setSelectedMorph: pm]] ]. ^true]. ^false! Item was changed: ----- Method: SimpleHierarchicalListMorph>>maximumSelection (in category 'selection') ----- maximumSelection + scroller submorphs size to: 1 by: -1 do: [:index | + (scroller submorphs at: index) visible ifTrue: [^ index]]. + ^ 1! - ^ scroller submorphs size - ! Item was changed: ----- Method: SimpleHierarchicalListMorph>>minimumSelection (in category 'selection') ----- minimumSelection + + 1 to: scroller submorphs size do: [:index | + (scroller submorphs at: index) visible ifTrue: [^ index]]. ^ 1! Item was added: + ----- Method: SimpleHierarchicalListMorph>>scrollSelectionAndChildrenIntoView (in category 'selection') ----- + scrollSelectionAndChildrenIntoView + "Make sure to show the current selection and as many children as possible." + + self selectedMorph + ifNil: [self scrollToTop] + ifNotNil: [:m | + m isExpanded ifTrue: [self scrollToShow: m lastVisibleChild bounds]. + self scrollSelectionIntoView].! Item was added: + ----- Method: SimpleHierarchicalListMorph>>scrollSelectionAndExtraIntoView (in category 'selection') ----- + scrollSelectionAndExtraIntoView + "Make sure to show the current selection and some of the previous and next items." + + | numExtraItemsToShow | + numExtraItemsToShow := 2. + self selectedMorph + ifNil: [self scrollToTop] + ifNotNil: [:m | + self scrollToShow: (m bounds outsetBy: (0@ (m height * numExtraItemsToShow))). + self scrollSelectionIntoView].! Item was added: + ----- Method: SimpleHierarchicalListMorph>>scrollSelectionIntoView (in category 'selection') ----- + scrollSelectionIntoView + + self selectedMorph + ifNil: [self scrollToTop] + ifNotNil: [:m | self scrollToShow: m bounds].! Item was added: + ----- Method: SimpleHierarchicalListMorph>>scrollSelectionParentIntoView (in category 'selection') ----- + scrollSelectionParentIntoView + "Try to make current selection's parent visible. Yet, ensure that the selection stays visible." + + self scrollSelectionParentIntoView: self selectedParentMorph.! Item was added: + ----- Method: SimpleHierarchicalListMorph>>scrollSelectionParentIntoView: (in category 'selection') ----- + scrollSelectionParentIntoView: parentOrNil + "Try to make current selection's parent visible. Yet, ensure that the selection stays visible." + + parentOrNil ifNotNil: [:pm | self scrollToShow: pm bounds]. + self scrollSelectionIntoView.! Item was changed: ----- Method: SimpleHierarchicalListMorph>>selectedMorph: (in category 'selection') ----- selectedMorph: aMorph self unhighlightSelection. selectedMorph := aMorph. + self highlightSelection. + + self scrollSelectionIntoView.! - self highlightSelection! Item was changed: ----- Method: SimpleHierarchicalListMorph>>selectionIndex: (in category 'selection') ----- selectionIndex: idx "Called internally to select the index-th item." + + | index | - | theMorph index | idx ifNil: [^ self]. index := idx min: scroller submorphs size max: 0. + self selectedMorph: (index = 0 ifFalse: [scroller submorphs at: index]).! - (theMorph := index = 0 ifTrue: [nil] ifFalse: [scroller submorphs at: index]) - ifNotNil: [self scrollToShow: theMorph bounds]. - self selectedMorph: theMorph!

2 1

The Trunk: ReleaseBuilder-mt.241.mcz
by commits＠source.squeak.org 27 Jan '23

27 Jan '23

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.241.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.241 Author: mt Time: 27 January 2023, 3:56:28.818326 pm UUID: 7cf8ce19-317d-0846-85d4-d0a758674af2 Ancestors: ReleaseBuilder-tpr.240 Complement Morphic-mt.2081 =============== Diff against ReleaseBuilder-tpr.240 =============== Item was changed: ----- Method: ReleaseBuilder class>>setPreferences (in category 'scripts') ----- setPreferences "Preferences class defaultValueTableForCurrentRelease" " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." "General User interaction" Preferences enable: #generalizedYellowButtonMenu ; enable: #swapMouseButtons; disable: #mouseOverForKeyboardFocus. Morph indicateKeyboardFocus: true. Project uiManager openToolsAttachedToMouseCursor: false. SearchBar useScratchPad: false. HandMorph sendMouseWheelToKeyboardFocus: false. HandMorph synthesizeMouseWheelEvents: true. "Text input." TextEditor autoEnclose: true ; autoIndent: true ; encloseSelection: true ; destructiveBackWord: false ; blinkingCursor: true ; dumbbellCursor: false. PluggableTextMorph simpleFrameAdornments: false. TextMorphForEditView draggableTextSelection: true. "Windows" SystemWindow reuseWindows: false. SystemWindow windowsRaiseOnClick: true. SystemWindow windowTitleActiveOnFirstClick: true. Model windowActiveOnFirstClick: false. "Not good for little screen real estate." Model useColorfulWindows: false. Preferences disable: #fastDragWindowForMorphic. AbstractResizerMorph gripThickness: 4; handleLength: 16. CornerGripMorph drawCornerResizeHandles: false; drawEdgeResizeHandles: false. ProportionalSplitterMorph showSplitterHandles: false; smartHorizontalSplitters: false; smartVerticalSplitters: false. "Scroll bars." Preferences enable: #scrollBarsNarrow; enable: #scrollBarsOnRight; enable: #alwaysHideHScrollbar; disable: #alwaysShowHScrollbar; disable: #alwaysShowVScrollbar. ScrollBar scrollBarsWithoutArrowButtons: true; scrollBarsWithoutMenuButton: true. ScrollPane useRetractableScrollBars: false. "Rounded corners." Morph preferredCornerRadius: 8. SystemWindow roundedWindowCorners: false. DialogWindow roundedDialogCorners: false. MenuMorph roundedMenuCorners: false. PluggableButtonMorph roundedButtonCorners: false. ScrollBar roundedScrollBarLook: false. "Gradients." SystemWindow gradientWindow: false. DialogWindow gradientDialog: false. MenuMorph gradientMenu: false. PluggableButtonMorph gradientButton: false. ScrollBar gradientScrollBar: false. "Shadows" Preferences enable: #menuAppearance3d. Morph useSoftDropShadow: true. "Lists and Trees" PluggableListMorph filterableLists: true; clearFilterAutomatically: false; clearFilterDelay: 500; highlightHoveredRow: true; highlightPreSelection: false; menuRequestUpdatesSelection: true. PluggableTreeMorph + filterByLabelsOnly: false. - filterByLabelsOnly: false; - maximumSearchDepth: 1. "Standard Tools" TheWorldMainDockingBar showWorldMainDockingBar: true; showSecondsInClock: true; twentyFourHourClock: true. SearchBar useSmartSearch: true. Workspace shouldStyle: false. TranscriptStream forceUpdate: true; redirectToStdOut: false; characterLimit: 20000. Browser listClassesHierarchically: true; showClassIcons: true; showMessageIcons: true; sortMessageCategoriesAlphabetically: true. SystemBrowser browseWithDragNDrop: true. MessageSet useUnifiedMessageLabels: true. Preferences enable: #annotationPanes; defaultAnnotationRequests: #(timeStamp author messageCategory implementorsCount allChangeSets); enable: #optionalButtons; disable: #diffsWithPrettyPrint; enable: #traceMessages; enable: #alternativeBrowseIt; enable: #menuWithIcons; enable: #visualExplorer; disable: #showSharedFlaps; maxBalloonHelpLineLength: 45. Preferences disable: #debugLogTimestamp. "Halo" Preferences enable: #showBoundsInHalo ; disable: #alternateHandlesLook; disable: #showDirectionHandles; enable: #biggerHandles. Morph haloForAll: true; metaMenuForAll: true. "System" NetNameResolver enableIPv6: false. Scanner allowUnderscoreAsAssignment: true; prefAllowUnderscoreSelectors: true. Deprecation showDeprecationWarnings: true "that's all, folks"!

1 0

The Trunk: ToolBuilder-Morphic-mt.330.mcz
by commits＠source.squeak.org 27 Jan '23

27 Jan '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.330.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.330 Author: mt Time: 27 January 2023, 3:56:04.931326 pm UUID: cec84c71-a0f0-5c49-907b-e40e3d2d0ba6 Ancestors: ToolBuilder-Morphic-mt.329 Complement Morphic-mt.2081 =============== Diff against ToolBuilder-Morphic-mt.329 =============== Item was changed: SimpleHierarchicalListMorph subclass: #PluggableTreeMorph + instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes dragStartedSelector doubleClickSelector findText findQueue' - instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes dragStartedSelector doubleClickSelector' classVariableNames: 'FilterByLabelsOnly MaximumSearchDepth' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !PluggableTreeMorph commentStamp: 'ar 2/12/2005 04:38' prior: 0! A pluggable tree morph.! Item was added: + ----- Method: PluggableTreeMorph class>>clearFilterDelay (in category 'preferences') ----- + clearFilterDelay + + ^ PluggableListMorph clearFilterDelay! Item was removed: - ----- Method: PluggableTreeMorph class>>maximumSearchDepth (in category 'preferences') ----- - maximumSearchDepth - <preference: 'Maximum tree search depth' - category: 'scrolling' - description: 'When using the Filterable Lists option, this specifies the maximum depth that will be searched below the current selection in of the hierarchy.' - type: #Number> - ^ MaximumSearchDepth ifNil: [ 1 ]! Item was removed: - ----- Method: PluggableTreeMorph class>>maximumSearchDepth: (in category 'preferences') ----- - maximumSearchDepth: anInteger - MaximumSearchDepth := anInteger.! Item was changed: ----- Method: PluggableTreeMorph>>basicKeyPressed: (in category 'event handling') ----- basicKeyPressed: aChar + self currentEvent commandKeyPressed ifTrue: [ + aChar = $f ifTrue: [^ self find]. + aChar = $g ifTrue: [^ self findAgain]]. + + aChar asciiValue >= 32 ifTrue: [ + self treeFilterAppend: aChar].! - aChar asciiValue >= 32 ifFalse: [^ false]. - self updateLastKeystrokes: aChar. - - model okToChange ifFalse: [^ false]. - - PluggableListMorph filterableLists - ifTrue: [self triggerFilterTree] - ifFalse: [self selectNextMorphByFilter]. - - ^ true! Item was added: + ----- Method: PluggableTreeMorph>>filterTerm (in category 'filtering') ----- + filterTerm + ^ lastKeystrokes ifNil: ['']! Item was added: + ----- Method: PluggableTreeMorph>>filterTerm: (in category 'filtering') ----- + filterTerm: aString + + lastKeystrokes = aString ifTrue: [^ self]. + lastKeystrokes := aString. + + self filterTreeNow.! Item was changed: ----- Method: PluggableTreeMorph>>filterTree (in category 'filtering') ----- filterTree + + | currentParent firstMatch | + "Update the filter, try to keep selection stable." + self fixateSelectionDuring: [self filterTreeNow]. + "Now update selection and scroll position as needed." + self hoveredMorph: nil. + currentParent := self selectedParentMorph. + firstMatch := currentParent + ifNil: [self roots detect: [:ea | ea visible]] + ifNotNil: [:pm | pm firstVisibleChild]. + self selectedMorph 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].! - self hasFilter ifFalse: - [ self removeFilter. - ^ self ]. - self indicateFiltered. - "Clean up the tree." - (self selectedMorph - ifNil: [ self roots ] - ifNotNil: - [ : m | {m} ]) do: - [ : item | | filteredItems | - item applyFilter: lastKeystrokes. - item visible ifFalse: - [ "Do not hide the item where the filter is based on." - item show. - item isExpanded ifFalse: [ item toggleExpandedState ] ]. - filteredItems := self filteredItems. - "If configured as a navigation tool, advance the selection." - (PluggableTreeMorph maximumSearchDepth = 1 and: [ PluggableTreeMorph filterByLabelsOnly not ]) ifTrue: - [ |toBeExpanded| - (filteredItems notEmpty and: [ selectedMorph ~= filteredItems last ]) ifTrue: - [ self setSelectedMorph: - (toBeExpanded := selectedMorph - ifNil: [ filteredItems first ] - ifNotNil: [ filteredItems after: selectedMorph ]). - toBeExpanded isExpanded ifFalse: [ toBeExpanded toggleExpandedState ] ] ] ]. - self adjustSubmorphPositions! Item was added: + ----- Method: PluggableTreeMorph>>filterTreeNow (in category 'filtering') ----- + filterTreeNow + + | any | + self hasFilter ifFalse: [^ self removeFilter]. + + "Show all current items again before filtering them out." + scroller submorphsDo: [:m | m removeFilter]. + + "Filter the children of the current parent. Do not filter the parent." + any := false. + self selectedParentMorph + ifNil: [self roots do: [:each | + (each applyFilter: lastKeystrokes) ifTrue: [any := true]]] + ifNotNil: [:pm | pm childrenDo: [:each | + (each applyFilter: lastKeystrokes) ifTrue: [any := true]]]. + + any ifFalse: [ + "Remove the last character and try filtering again." + lastKeystrokes := lastKeystrokes allButLast: 1. + ^ self filterTreeNow]. + + self adjustSubmorphPositions! Item was added: + ----- Method: PluggableTreeMorph>>filterableTree (in category 'filtering') ----- + filterableTree + + ^ (self valueOfProperty: #filterableTree ifAbsent: [false]) or: [PluggableListMorph filterableLists]! Item was added: + ----- Method: PluggableTreeMorph>>filterableTree: (in category 'filtering') ----- + filterableTree: aBoolean + + ^ self setProperty: #filterableTree toValue: aBoolean! Item was added: + ----- Method: PluggableTreeMorph>>find (in category 'searching') ----- + find + "Prompt the user for a string to search for breadth first in the tree." + + | path | + self setSearchFromSelection. + + path := self selectedPath. + + (Project uiManager request: ('{1} -> ...\\Find what to select in subtree?' translated withCRs format: {(path collect: [:ea | ea itemName]) joinSeparatedBy: ' -> '}) initialAnswer: findText) + ifEmpty: [^ self] + ifNotEmpty: [:reply | + findText := reply. + findQueue := OrderedCollection withAll: (path last contents collect: [:nextItem | path copyWith: nextItem]). + self findAgainNow].! Item was added: + ----- Method: PluggableTreeMorph>>findAgain (in category 'searching') ----- + findAgain + "Jump to next result. Breadth-first search." + + self setSearchFromSelection. + self findAgainNow.! Item was added: + ----- Method: PluggableTreeMorph>>findAgainNow (in category 'searching') ----- + findAgainNow + + | currentPath | + (findQueue isNil or: [findQueue isEmpty]) ifTrue: [^ self flash]. + + self flag: #todo. "mt: Ask model about breadth-first or depth-first, indicate search progress in UI, allow find-again-backwards, ..." + + Cursor wait showWhile: [ + [findQueue notEmpty] whileTrue: [ + | currentItem | + currentPath := findQueue removeFirst. + currentItem := currentPath last. + currentItem hasContents ifTrue: [ + findQueue addAll: (currentItem contents collect: [:nextItem | currentPath copyWith: nextItem])]. + + (self matches: findText in: currentItem) ifTrue: [ + "Match!! Stop search for now." + self selectPath: (currentPath collect: [:ea | ea item]). + "Revert a side-effect from #selectPath:." + self selectedMorph isExpanded ifTrue: [ + self toggleExpandedState: self selectedMorph]. + "Mimic filter function to highlight (and filter) search results." + lastKeystrokes := findText. + self filterTree. + self scrollSelectionAndExtraIntoView. + ^ self]]]. + + self inform: 'Nothing found.' translated.! Item was added: + ----- Method: PluggableTreeMorph>>fixateSelectionDuring: (in category 'selection') ----- + fixateSelectionDuring: aBlock + + | vDelta | + selectedMorph ifNil: [aBlock value. ^ self]. + + vDelta := ((selectedMorph localPointToGlobal: selectedMorph topLeft) + - (scroller localPointToGlobal: scroller topLeft)) y. + + aBlock value. + + selectedMorph visible ifTrue: [ + self scrollToBottom. + self scrollToShow: (selectedMorph bounds outsetBy: (0@vDelta corner: 0@0))].! Item was changed: ----- Method: PluggableTreeMorph>>hasFilter (in category 'filtering') ----- hasFilter + ^ self filterTerm notEmpty! - ^ lastKeystrokes isEmptyOrNil not! Item was changed: ----- Method: PluggableTreeMorph>>indicateUnfiltered (in category 'filtering') ----- + indicateUnfiltered! - indicateUnfiltered - self color: (self userInterfaceTheme color ifNil: [Color white]). - scroller submorphsDo: [:m | - m visible: true; backgroundColor: nil]. - self adjustSubmorphPositions.! Item was changed: ----- Method: PluggableTreeMorph>>keyStroke: (in category 'event handling') ----- keyStroke: event + (super keyStroke: event) ifFalse: [ + "Assume that super did not handle the event." + self basicKeyPressed: event keyCharacter].! - ^ (super keyStroke: event) - ifTrue: [true] - ifFalse: [self basicKeyPressed: event keyCharacter].! Item was added: + ----- Method: PluggableTreeMorph>>matches:in: (in category 'searching') ----- + matches: pattern in: wrapper + + ^ ((PluggableTreeMorph filterByLabelsOnly + ifTrue: [ wrapper itemName ] + ifFalse: [ wrapper asStringOrText ]) + findString: findText + startingAt: 1 + caseSensitive: false) > 0! 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." + + self fixateSelectionDuring: [ + self filterTerm: String empty. + scroller submorphsDo: [:m | m removeFilter]. + self adjustSubmorphPositions]. + + "Try to show all children again for the current selection." + self scrollSelectionAndChildrenIntoView. + self scrollSelectionAndExtraIntoView.! - lastKeystrokes := String empty. - self indicateUnfiltered.! Item was changed: ----- Method: PluggableTreeMorph>>selectNextMorphByFilter (in category 'filtering') ----- + selectNextMorphByFilter + + self flag: #todo. "mt: Like simple navigation for lists when filterable-lists is disabled."! - selectNextMorphByFilter! Item was added: + ----- Method: PluggableTreeMorph>>selectedPath (in category 'selection') ----- + selectedPath + "Answers the current path without asking the model." + + | current path | + current := self selectedMorph. + path := OrderedCollection new. + [current notNil] whileTrue: [ + path add: current. + current := self parentMorphOf: current]. + ^ (path size to: 1 by: -1) collect: [:ea | + (path at: ea) complexContents]! Item was added: + ----- Method: PluggableTreeMorph>>setSearchFromSelection (in category 'searching') ----- + setSearchFromSelection + + self hasFilter + ifTrue: [findText := lastKeystrokes] + ifFalse: [self selectedMorph + ifNil: [findText := ''] + ifNotNil: [:m | findText := m complexContents itemName]].! Item was added: + ----- Method: PluggableTreeMorph>>toggleExpandedState: (in category 'keyboard navigation') ----- + toggleExpandedState: aMorph + + aMorph toggleExpandedState. + " (self hasFilter and: [aMorph isExpanded not and: [aMorph canExpand]]) + ifTrue: [aMorph expandFiltered -- useful at all?] + ifFalse: [aMorph toggleExpandedState]. + " self adjustSubmorphPositions. + + aMorph isExpanded + ifTrue: [self scrollSelectionAndChildrenIntoView] + ifFalse: [self scrollSelectionAndExtraIntoView].! Item was added: + ----- Method: PluggableTreeMorph>>treeFilterAppend: (in category 'filtering') ----- + treeFilterAppend: aChar + + | milliseconds slowKeyStroke | + model okToChange ifFalse: [^ self]. + + milliseconds := Time millisecondClockValue. + slowKeyStroke := (Time + milliseconds: milliseconds + since: lastKeystrokeTime) > self class clearFilterDelay. + lastKeystrokeTime := milliseconds. + + slowKeyStroke + ifTrue: [lastKeystrokes := aChar asLowercase asString] + ifFalse: [lastKeystrokes := lastKeystrokes , aChar asLowercase asString.]. + + self filterableTree + ifTrue: [ + "For expanded selections, we assume that the user is already looking at the children." + self selectedMorph isExpanded + ifTrue: [self setSelectedMorph: self selectedMorph firstChild]. + self filterTree] + ifFalse: [self selectNextMorphByFilter].! Item was added: + ----- Method: PluggableTreeMorph>>treeFilterSet: (in category 'filtering') ----- + treeFilterSet: aString + "Set the filter term and select the first match." + + self filterTerm: aString. + self setSelectedMorph: self filteredItems first.! Item was removed: - ----- Method: PluggableTreeMorph>>triggerFilterTree (in category 'filtering') ----- - triggerFilterTree - - self removeAlarm: #filterTree. - self addAlarm: #filterTree after: 300.!

1 0

The Trunk: ToolBuilder-Morphic-mt.329.mcz
by commits＠source.squeak.org 27 Jan '23

27 Jan '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.329.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.329 Author: mt Time: 27 January 2023, 3:33:01.576326 pm UUID: e4c332a4-3350-904b-a516-c77d9ed7f468 Ancestors: ToolBuilder-Morphic-mt.328 Model only. Use a more descriptive #itemName for generic tree-item nodes/wrappers. =============== Diff against ToolBuilder-Morphic-mt.328 =============== Item was added: + ----- Method: PluggableTreeItemNode>>itemName (in category 'accessing') ----- + itemName + + ^ self asString!

1 0

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

Jump to page: