Packages January 2023

packages@lists.squeakfoundation.org

1 participants
145 discussions

The Trunk: Morphic-mt.2085.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.2085.mcz ==================== Summary ==================== Name: Morphic-mt.2085 Author: mt Time: 30 January 2023, 2:48:44.347867 pm UUID: 97957eba-0eae-4f48-bcbf-094ed735dd4f Ancestors: Morphic-mt.2084 In tree widgets, fix filter indication for that "trailing-tab situation" ... may need another tweak ... those "tab-separated values" can be tricky. Hmm... =============== Diff against Morphic-mt.2084 =============== 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 | 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 | | 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]]. "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: [ (container shouldFilterColumnIndex: column) ifTrue: [filterOffsets addAll: (self getFilterOffsetsFor: columnData column: column)]] ] ]. "Handle trailing TAB issue in string representation." + columnScanner upToEnd ifNotEmpty: [:rest | | fullColumnData | - columnScanner upToEnd ifNotEmpty: [:rest | columnRect := columnLeft + (self fontToUse widthOfString: columnData) @ drawBounds top extent: columnRect extent. + fullColumnData := columnData, String tab, rest. columnData := String tab, rest. aCanvas drawString: columnData in: columnRect font: self fontToUse color: self colorToUse. updateFilter ifTrue: [ (container shouldFilterColumnIndex: container columns size) + ifTrue: [ + self flag: #todo. "mt: Avoid duplicate filter indication." + filterOffsets addAll: (self getFilterOffsetsFor: fullColumnData column: container columns size)]] ].! - ifTrue: [filterOffsets addAll: (self getFilterOffsetsFor: columnData column: container columns size)]] ].!

1 0

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

30 Jan '23

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.242.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.242 Author: mt Time: 30 January 2023, 2:34:53.309867 pm UUID: d36086e1-4ed9-454b-95a2-13407e7a0b8c Ancestors: ReleaseBuilder-mt.241 Complement ToolBuilder-Morphic-mt.333 =============== Diff against ReleaseBuilder-mt.241 =============== 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. "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: Morphic-mt.2084.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.2084.mcz ==================== Summary ==================== Name: Morphic-mt.2084 Author: mt Time: 30 January 2023, 2:34:29.833867 pm UUID: 05b36277-e56f-0146-b5b9-218981302f8b Ancestors: Morphic-mt.2083 Complement ToolBuilder-Morphic-mt.333 =============== Diff against Morphic-mt.2083 =============== Item was added: + ----- Method: IndentingListItemMorph class>>filterBackgroundColor (in category 'defaults') ----- + filterBackgroundColor + + ^ FilterBackgroundColor! Item was changed: ----- Method: IndentingListItemMorph>>applyFilter: (in category 'filtering') ----- applyFilter: filter + (container matchesPattern: filter contents: contents) - (self matches: filter in: complexContents) ifTrue: [backgroundColor := FilterBackgroundColor. ^ true] ifFalse: [self hideByFilter. ^ false].! Item was added: + ----- Method: IndentingListItemMorph>>applyFilter:column: (in category 'filtering') ----- + applyFilter: filter column: index + + index ifNil: [^ self applyFilter: filter]. + + (container matchesPattern: filter contents: contents column: index) + ifTrue: [backgroundColor := FilterBackgroundColor. ^ true] + ifFalse: [self hideByFilter. ^ false].! 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 | 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 | | 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]]. "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: [ + (container shouldFilterColumnIndex: column) - (column = 1 or: [PluggableTreeMorph filterByLabelsOnly not]) ifTrue: [filterOffsets addAll: (self getFilterOffsetsFor: columnData column: column)]] ] ]. "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: [ + (container shouldFilterColumnIndex: container columns size) - "column > 1" PluggableTreeMorph filterByLabelsOnly not ifTrue: [filterOffsets addAll: (self getFilterOffsetsFor: columnData column: container columns size)]] ].! Item was removed: - ----- Method: IndentingListItemMorph>>matches:in: (in category 'filtering') ----- - matches: pattern in: wrapper - ^ ((PluggableTreeMorph filterByLabelsOnly - ifTrue: [ wrapper itemName ] - ifFalse: [ contents ]) - findString: pattern - startingAt: 1 - caseSensitive: false) > 0! Item was added: + ----- Method: SimpleHierarchicalListMorph>>drawBackgroundOn: (in category 'drawing') ----- + drawBackgroundOn: aCanvas ! Item was changed: ----- Method: SimpleHierarchicalListMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas super drawOn: aCanvas. + + self drawBackgroundOn: aCanvas. self drawHoverOn: aCanvas. self drawSelectionOn: aCanvas. self drawLinesOn: aCanvas.!

1 0

The Trunk: ToolBuilder-Morphic-mt.333.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.333.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.333 Author: mt Time: 30 January 2023, 2:33:48.497867 pm UUID: 9219e0aa-4436-2c44-8dba-a4d8a5b176e9 Ancestors: ToolBuilder-Morphic-mt.332 In tree widgets, narrow down filter column via [TAB] just like in multi-column list widgets. Also affects tree search via [CMD]+[F] (and [CMD]+[G]). Remove the now obsolete preference #filterByLabelsOnly. You can hit [TAB] for that now. =============== Diff against ToolBuilder-Morphic-mt.332 =============== 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 filterColumnIndex' - instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes dragStartedSelector doubleClickSelector findText findQueue' classVariableNames: 'FilterByLabelsOnly MaximumSearchDepth' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !PluggableTreeMorph commentStamp: 'ar 2/12/2005 04:38' prior: 0! A pluggable tree morph.! Item was removed: - ----- Method: PluggableTreeMorph class>>filterByLabelsOnly (in category 'preferences') ----- - filterByLabelsOnly - <preference: 'Filterable Trees by labels only' - category: 'scrolling' - description: 'When using the Filterable Lists option, set this to only match the labels, not the contents, of hierarchical lists. Otherwise, search both labels and contents will be matched.' - type: #Boolean> - ^ FilterByLabelsOnly ifNil: [ false ]! Item was removed: - ----- Method: PluggableTreeMorph class>>filterByLabelsOnly: (in category 'preferences') ----- - filterByLabelsOnly: aBoolean - FilterByLabelsOnly := aBoolean! Item was added: + ----- Method: PluggableTreeMorph>>drawBackgroundOn: (in category 'drawing') ----- + drawBackgroundOn: aCanvas + "Overwritten to indicate current filter column." + + | leftOffset colWidth | + filterColumnIndex ifNil: [^ self]. + columns ifNil: [^ self]. + + leftOffset := scroller left. + 1 to: filterColumnIndex - 1 do: [:col | + leftOffset := leftOffset + (self widthOfColumn: col)]. + + "For #spaceFill columns, just use the remaining space to the right for the highlight." + colWidth := (self widthOfColumn: filterColumnIndex) ifNil: [scroller right - leftOffset]. + aCanvas + fillRectangle: (leftOffset @ scroller top extent: colWidth @ scroller height) + color: IndentingListItemMorph filterBackgroundColor.! Item was added: + ----- Method: PluggableTreeMorph>>filterColumnIndex (in category 'filtering') ----- + filterColumnIndex! Item was changed: ----- 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 column: filterColumnIndex) ifTrue: [any := true]]] - (each applyFilter: lastKeystrokes) ifTrue: [any := true]]] ifNotNil: [:pm | pm childrenDo: [:each | + (each applyFilter: lastKeystrokes column: filterColumnIndex) ifTrue: [any := true]]]. - (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 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." self selectPath: (currentPath collect: [:ea | ea item]). + self selectedMorph ifNil: [ + ^ self inform: 'Could not find path. View up to date?' translated]. "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>>highlightNextColumn (in category 'filtering') ----- + highlightNextColumn + + columns ifNil: [^ self]. + columns size = 1 ifTrue: [^ self]. + + filterColumnIndex + ifNil: [filterColumnIndex := 1] + ifNotNil: [:i | filterColumnIndex := filterColumnIndex \\ columns size + 1]. + + self filterTree.! Item was added: + ----- Method: PluggableTreeMorph>>highlightNoColumn (in category 'filtering') ----- + highlightNoColumn + + filterColumnIndex := nil. + self removeFilter.! Item was changed: ----- Method: PluggableTreeMorph>>matches:in: (in category 'searching') ----- matches: pattern in: wrapper + ^ filterColumnIndex + ifNil: [self matchesPattern: pattern contents: wrapper asStringOrText] + ifNotNil: [self matchesPattern: pattern contents: wrapper asStringOrText column: filterColumnIndex]! - ^ ((PluggableTreeMorph filterByLabelsOnly - ifTrue: [ wrapper itemName ] - ifFalse: [ wrapper asStringOrText ]) - findString: findText - startingAt: 1 - caseSensitive: false) > 0! Item was added: + ----- Method: PluggableTreeMorph>>matchesPattern:contents: (in category 'searching') ----- + matchesPattern: pattern contents: contents + + ^ (contents + findString: pattern + startingAt: 1 + caseSensitive: false) > 0! Item was added: + ----- Method: PluggableTreeMorph>>matchesPattern:contents:column: (in category 'searching') ----- + matchesPattern: pattern contents: contents column: index + + | columnScanner data | + "self assert: [columns notNil]." + columnScanner := ReadStream on: contents asString. + + index - 1 timesRepeat: [columnScanner upTo: Character tab]. + data := index = columns size + ifTrue: [columnScanner upToEnd "Fix trailing tab issue"] + ifFalse: [columnScanner upTo: Character tab]. + ^ (data + findString: pattern + startingAt: 1 + caseSensitive: false) > 0! Item was added: + ----- Method: PluggableTreeMorph>>shouldFilterColumnIndex: (in category 'filtering') ----- + shouldFilterColumnIndex: anIndex + + ^ filterColumnIndex isNil or: [filterColumnIndex = anIndex]! Item was changed: ----- Method: PluggableTreeMorph>>specialKeyPressed: (in category 'event handling') ----- specialKeyPressed: asciiValue (super specialKeyPressed: asciiValue) ifTrue: [^ true]. + + asciiValue = Character tab asciiValue ifTrue: [ + self highlightNextColumn. + ^ true]. + - (#(8 13) includes: asciiValue) ifTrue: [ "backspace key" + self highlightNoColumn. "i.e., remove filter" - self removeFilter. ^ true]. ^ false!

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

The Trunk: Morphic-mt.2082.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.2082.mcz ==================== Summary ==================== Name: Morphic-mt.2082 Author: mt Time: 30 January 2023, 10:47:12.840518 am UUID: 6d4a75d3-9931-2b42-bb00-b3ec6b5942e2 Ancestors: Morphic-mt.2081 In tree widgets, fixes regression that mouse-clicks on toggle nodes should not update the current selection but only expand/collapse that node. =============== Diff against Morphic-mt.2081 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt + + | aMorph selectors | - | 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]. - ifTrue:[^self toggleExpandedState: aMorph event: evt]. - aMorph ifNil:[^super mouseDown: 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]. + ((autoDeselect isNil or: [autoDeselect]) and: [clickedMorph == selectedMorph]) ifTrue: [self setSelectedMorph: nil] ifFalse: [self setSelectedMorph: clickedMorph]. event hand newKeyboardFocus: self. Cursor normal show.!

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2023