Packages January 2023

packages@lists.squeakfoundation.org

1 participants
145 discussions

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!

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

The Trunk: HelpSystem-Core-mt.142.mcz
by commits＠source.squeak.org 27 Jan '23

27 Jan '23

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.142.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.142 Author: mt Time: 27 January 2023, 3:30:24.814326 pm UUID: af2b0c63-e7c8-cf4a-bca1-c95e881be31c Ancestors: HelpSystem-Core-tpr.141 Model only. Use a more compact #itemName for help-topic wrappers. =============== Diff against HelpSystem-Core-tpr.141 =============== Item was added: + ----- Method: HelpTopicListItemWrapper>>itemName (in category 'accessing') ----- + itemName + + ^ self asString!

1 0

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

26 Jan '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.328.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.328 Author: mt Time: 26 January 2023, 4:12:17.889707 pm UUID: 1f707e6f-a9bf-c344-874a-5227b5d1f129 Ancestors: ToolBuilder-Morphic-mt.327 Avoid use of (recently) deprecated method. =============== Diff against ToolBuilder-Morphic-mt.327 =============== 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 := scroller submorphs detect: [:any | any highlightedForMouseDown] ifNone: [^ self]. "Prepare visuals." + itemMorph highlightedForMouseDown: false. - itemMorph highlightForMouseDown: 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.2080.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2080.mcz ==================== Summary ==================== Name: Morphic-mt.2080 Author: mt Time: 26 January 2023, 4:04:49.673707 pm UUID: b3d5d82c-7ba6-434e-9683-e00fcc9defb1 Ancestors: Morphic-mt.2079 Reset UI themes as colors for tree widgets have been updated. =============== Diff against Morphic-mt.2079 =============== Item was changed: + (PackageInfo named: 'Morphic') postscript: 'UserInterfaceTheme cleanUpAndReset.'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "Fix ''Tools > Transcript'' to make it late-bound."'!

1 0

The Trunk: System-mt.1387.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1387.mcz ==================== Summary ==================== Name: System-mt.1387 Author: mt Time: 26 January 2023, 4:01:44.653707 pm UUID: 2f717336-854b-5044-8cd1-f9f19005b047 Ancestors: System-mt.1386 Revert post-load script. It must be in Morphic because of package load order. =============== Diff against System-mt.1386 =============== Item was removed: - (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUpAndReset.'!

1 0

The Trunk: System-mt.1386.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1386.mcz ==================== Summary ==================== Name: System-mt.1386 Author: mt Time: 26 January 2023, 3:57:50.818707 pm UUID: e7300c66-01f4-8144-aa96-1dec788404a3 Ancestors: System-mt.1385 Complements Morphic-mt.2079. Fixes color issue in Trim theme concerning tree highlights. =============== Diff against System-mt.1385 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') ----- addDarkScrollables: aUserInterfaceTheme "self createDark apply." "Scroll bars" aUserInterfaceTheme set: #thumbColor for: #ScrollBar to: self dbGray; set: #thumbBorderColor for: #ScrollBar to: self dbGray twiceDarker. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." aUserInterfaceTheme set: #borderColor for: #ScrollPane to: (Color transparent) ; "So the search box isn't outlined." set: #color for: #ScrollPane to: self dbBackground. "List widgets" aUserInterfaceTheme set: #textColor for: #PluggableListMorph to: (Color gray: 0.9); set: #selectionColor for: #PluggableListMorph to: self dbSelection; set: #selectionTextColor for: #PluggableListMorph to: Color white ; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c twiceDarker]; set: #filterColor for: #PluggableListMorph to: (self dbYellow alpha: 0.4); derive: #filterTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker alpha: 0.5 ] ]. "Tree widgets" aUserInterfaceTheme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter; + set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray; + set: #toggleColor for: #SimpleHierarchicalListMorph to: (Color gray: 0.9). - set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray. "Text widgets" aUserInterfaceTheme set: #textColor for: #PluggableTextMorph to: (Color gray: 0.9); set: #caretColor for: #PluggableTextMorph to: Color orange darker; set: #selectionColor for: #PluggableTextMorph to: (self dbSelection duller duller); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | c duller] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self dbPurple; set: #adornmentRefuse for: #PluggableTextMorph to: self dbBlue; set: #adornmentConflict for: #PluggableTextMorph to: self dbRed; set: #adornmentDiff for: #PluggableTextMorph to: self dbGreen; set: #adornmentNormalEdit for: #PluggableTextMorph to: self dbOrange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self dbYellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 2. aUserInterfaceTheme set: #balloonTextColor for: #PluggableTextMorphPlus to: self dbComment! Item was changed: ----- Method: MonokaiTheme class>>addDarkScrollables: (in category 'instance creation') ----- addDarkScrollables: theme "self createDark apply." "Scroll bars" theme set: #thumbColor for: #ScrollBar to: self backgroundColor; set: #thumbBorderColor for: #ScrollBar to: self backgroundColor; set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.2] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.2] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderWidth for: #ScrollPane to: 0; " set: #borderColor for: #ScrollPane to: Color transparent;" set: #color for: #ScrollPane to: self backgroundColor. "List widgets" theme set: #textColor for: #PluggableListMorph to: self foregroundColor; set: #selectionColor for: #PluggableListMorph to: self invisibleColor; set: #selectionTextColor for: #PluggableListMorph to: self yellow; set: #filterColor for: #PluggableListMorph to: self yellow; set: #filterTextColor for: #PluggableListMorph to: self backgroundColor; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ]. "Tree widgets" theme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter; + set: #lineColor for: #SimpleHierarchicalListMorph to: self grayLight; + set: #toggleColor for: #SimpleHierarchicalListMorph to: self grayLightest. - set: #lineColor for: #SimpleHierarchicalListMorph to: self grayLight. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self foregroundColor; set: #caretColor for: #PluggableTextMorph to: self yellow; set: #selectionColor for: #PluggableTextMorph to: self invisibleColor; set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | (Color r: 0.285 g: 0.282 b: 0.242) "invisible color"] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta; set: #adornmentRefuse for: #PluggableTextMorph to: self cyan; set: #adornmentConflict for: #PluggableTextMorph to: self red; set: #adornmentDiff for: #PluggableTextMorph to: self green; set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self grayLight.! Item was changed: ----- Method: SolarizedTheme class>>addDarkScrollables: (in category 'instance creation') ----- addDarkScrollables: theme "self createDark apply." "Scroll bars" theme set: #thumbColor for: #ScrollBar to: self darkBackground; set: #thumbBorderColor for: #ScrollBar to: self darkBackground; set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderWidth for: #ScrollPane to: 0; " set: #borderColor for: #ScrollPane to: Color transparent;" set: #color for: #ScrollPane to: self darkBackground. "List widgets" theme set: #textColor for: #PluggableListMorph to: self darkContentEmphasized; set: #selectionColor for: #PluggableListMorph to: self darkSelectionColor; set: #selectionTextColor for: #PluggableListMorph to: self darkSelectionTextColor; set: #filterColor for: #PluggableListMorph to: self yellow; set: #filterTextColor for: #PluggableListMorph to: self base03; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ]. "Tree widgets" theme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter; + set: #lineColor for: #SimpleHierarchicalListMorph to: self darkBackgroundHighlights; + set: #toggleColor for: #SimpleHierarchicalListMorph to: self darkContentSecondary. - set: #lineColor for: #SimpleHierarchicalListMorph to: self darkContentSecondary. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self darkContentPrimary; set: #caretColor for: #PluggableTextMorph to: self darkContentEmphasizedMore; set: #selectionColor for: #PluggableTextMorph to: self darkSelectionColor; set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | c darker ] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta; set: #adornmentRefuse for: #PluggableTextMorph to: self cyan; set: #adornmentConflict for: #PluggableTextMorph to: self red; set: #adornmentDiff for: #PluggableTextMorph to: self green; set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self darkContentSecondary.! Item was changed: ----- Method: SolarizedTheme class>>addLightScrollables: (in category 'instance creation') ----- addLightScrollables: theme "self createLight apply." "Scroll bars" theme set: #thumbColor for: #ScrollBar to: self lightBackground; set: #thumbBorderColor for: #ScrollBar to: self lightBackground; set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderWidth for: #ScrollPane to: 0; " set: #borderColor for: #ScrollPane to: Color transparent;" set: #color for: #ScrollPane to: self lightBackground. "List widgets" theme set: #textColor for: #PluggableListMorph to: self lightContentEmphasized; set: #selectionColor for: #PluggableListMorph to: self lightBackgroundHighlights darker; set: #selectionTextColor for: #PluggableListMorph to: self lightContentEmphasizedMore; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c darker]; set: #filterColor for: #PluggableListMorph to: self yellow; set: #filterTextColor for: #PluggableListMorph to: self lightBackground; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ]. "Tree widgets" theme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter; + set: #lineColor for: #SimpleHierarchicalListMorph to: self lightBackgroundHighlights; + set: #toggleColor for: #SimpleHierarchicalListMorph to: self lightContentSecondary. - set: #lineColor for: #SimpleHierarchicalListMorph to: self lightContentSecondary. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self lightContentPrimary; set: #caretColor for: #PluggableTextMorph to: self lightContentEmphasizedMore; set: #selectionColor for: #PluggableTextMorph to: self lightBackgroundHighlights darker; set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | (Color r: 0.933 g: 0.909 b: 0.835) "light background highlights"] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta; set: #adornmentRefuse for: #PluggableTextMorph to: self cyan; set: #adornmentConflict for: #PluggableTextMorph to: self red; set: #adornmentDiff for: #PluggableTextMorph to: self green; set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self lightContentSecondary.! Item was changed: ----- Method: SqueakTheme class>>addDullerScrollables: (in category 'instance creation') ----- addDullerScrollables: theme "self createDuller apply" theme + set: #filterColor for: #PluggableListMorph to: Color yellow paler duller; + set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryVeryLightGray duller; + set: #toggleColor for: #SimpleHierarchicalListMorph to: Color lightGray duller.! - set: #filterColor for: #PluggableListMorph to: Color yellow paler duller.! Item was changed: ----- Method: SqueakTheme class>>addScrollables: (in category 'instance creation') ----- addScrollables: theme "self create apply" "Sliders" theme set: #borderColor for: #Slider to: Color gray; set: #borderWidth for: #Slider to: 1; set: #color for: #Slider to: Color lightGray; set: #thumbBorderColor for: #Slider to: [Color gray: 0.6]; set: #thumbBorderWidth for: #Slider to: 0; set: #thumbColor for: #Slider to: Color veryVeryLightGray; set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ]. "Scroll bars" theme set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | c darker alpha: 0.35] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.3] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderColor for: #ScrollPane to: (Color gray: 0.6); set: #borderWidth for: #ScrollPane to: 1; set: #borderStyle for: #ScrollPane to: BorderStyle simple; set: #color for: #ScrollPane to: Color white. "List widgets" theme set: #font for: #PluggableListMorph to: [Preferences standardListFont]; set: #textColor for: #PluggableListMorph to: Color black; set: #selectionColor for: #PluggableListMorph to: (Color r: 0.72 g: 0.72 b: 0.9); derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter]; set: #selectionTextColor for: #PluggableListMorph to: Color black; set: #filterColor for: #PluggableListMorph to: Color yellow paler; set: #filterTextColor for: #PluggableListMorph to: Color black; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | Color gray: 0.9] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ]. "Tree widgets" theme derive: #font for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #textColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #selectionColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #selectionTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #filterColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #filterTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #hoverSelectionModifier for: #SimpleHierarchicalListMorph from: #PluggableListMorph; set: #highlightTextColor for: #SimpleHierarchicalListMorph to: Color fern; + set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryVeryLightGray; + set: #toggleColor for: #SimpleHierarchicalListMorph to: Color lightGray. - set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryLightGray. "Text widgets" theme set: #font for: #PluggableTextMorph to: [TextStyle defaultFont]; set: #textStyle for: #PluggableTextMorph to: [TextStyle default]; set: #textStyleFixed for: #PluggableTextMorph to: [TextStyle defaultFixed]; set: #textColor for: #PluggableTextMorph to: Color black; set: #caretColor for: #PluggableTextMorph to: Color red; set: #selectionColor for: #PluggableTextMorph to: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | Color gray: 0.9] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: Color black; set: #adornmentRefuse for: #PluggableTextMorph to: Color tan; set: #adornmentConflict for: #PluggableTextMorph to: Color red; set: #adornmentDiff for: #PluggableTextMorph to: Color green; set: #adornmentNormalEdit for: #PluggableTextMorph to: Color orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: Color yellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 1. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: (Color gray: 0.7); derive: #balloonTextFont for: #PluggableTextMorphPlus from: #PluggableTextMorph at: #font.! Item was changed: ----- Method: TrimTheme class>>addScrollables: (in category 'instance creation') ----- addScrollables: theme "self create apply" "Sliders" theme set: #borderColor for: #Slider to: self gray76; set: #borderWidth for: #Slider to: 1; set: #color for: #Slider to: self gray61; set: #thumbBorderColor for: #Slider to: self gray61; set: #thumbBorderWidth for: #Slider to: 1; set: #thumbColor for: #Slider to: self gray128; set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ]. "Scroll bars" theme set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ]; "set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | self gray51] ];" set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderColor for: #ScrollPane to: self gray76; set: #borderWidth for: #ScrollPane to: 1; set: #borderStyle for: #ScrollPane to: BorderStyle simple; set: #color for: #ScrollPane to: self gray51. "List widgets" theme set: #textColor for: #PluggableListMorph to: self white; set: #selectionColor for: #PluggableListMorph to: self blue; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter]; set: #selectionTextColor for: #PluggableListMorph to: self white; set: #filterColor for: #PluggableListMorph to: self orange; set: #filterTextColor for: #PluggableListMorph to: self white; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c alpha: 0.3] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ]. "Tree widgets" theme + set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self red; + set: #lineColor for: #SimpleHierarchicalListMorph to: self gray102; + set: #toggleColor for: #SimpleHierarchicalListMorph to: self gray168. - set: #higlightTextColor for: #SimpleHierarchicalListMorph to: self red; - set: #lineColor for: #SimpleHierarchicalListMorph to: self gray168. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self white; set: #caretColor for: #PluggableTextMorph to: self white; set: #selectionColor for: #PluggableTextMorph to: (self blue alpha: 0.4); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | self blue alpha: 0.3] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self black; set: #adornmentRefuse for: #PluggableTextMorph to: self blue; set: #adornmentConflict for: #PluggableTextMorph to: self red; set: #adornmentDiff for: #PluggableTextMorph to: self green; set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 1. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self gray102.! Item was changed: + (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUpAndReset.'! - (PackageInfo named: 'System') postscript: '"Update UserInterfaceTheme instances (System-ct.1367)" - UserInterfaceTheme allSubInstancesDo: [:theme | - theme atomicUpdate: [:props | - props copy keysAndValuesDo: [:key :value | - (key isKindOf: Association) ifTrue: [ - props - removeKey: key; - at: {key key. key value} put: value]]]].'!

1 0

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

26 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2079.mcz ==================== Summary ==================== Name: Morphic-mt.2079 Author: mt Time: 26 January 2023, 3:56:10.952707 pm UUID: 8f7b7dc9-421d-0f45-ae47-b6cc89bde14d Ancestors: Morphic-mt.2078 Improves #uiScaleFactor support for tree widgets. =============== Diff against Morphic-mt.2078 =============== Item was changed: ----- Method: IndentingListItemMorph>>drawLineToggleToTextOn:lineColor:hasToggle: (in category 'drawing') ----- drawLineToggleToTextOn: aCanvas lineColor: lineColor hasToggle: hasToggle "If I am not the only item in my container, draw the line between: - my toggle (if any) or my left edge (if no toggle) - and my text left edge" | myBounds myCenter hLineY hLineLeft | self isSoleItem ifTrue: [ ^self ]. + self canExpand ifTrue: [ ^self ]. myBounds := self toggleBounds. myCenter := myBounds center. hLineY := myCenter y. + hLineLeft := myCenter x. - hLineLeft := myCenter x - 1. "Draw line from toggle to text" aCanvas line: hLineLeft @ hLineY + to: myBounds right @ hLineY + width: 1 px - to: myBounds right + 0 @ hLineY - width: 1 color: lineColor! Item was changed: ----- Method: IndentingListItemMorph>>drawLinesToFirstChildOn:lineColor: (in category 'drawing') ----- drawLinesToFirstChildOn: aCanvas lineColor: lineColor "Draw line from me to next sibling" | child vLineX vLineTop vLineBottom childBounds childCenter | child := self firstVisibleChild. childBounds := child toggleBounds. childCenter := childBounds center. + vLineX := childCenter x. - vLineX := childCenter x - 1. vLineTop := bounds bottom. + vLineBottom := childCenter y. - child hasToggle - ifTrue: [vLineBottom := childCenter y - 7] - ifFalse: [vLineBottom := childCenter y]. aCanvas line: vLineX @ vLineTop to: vLineX @ vLineBottom + width: 1 px - width: 1 color: lineColor! Item was changed: ----- Method: IndentingListItemMorph>>drawLinesToNextSiblingOn:lineColor:hasToggle: (in category 'drawing') ----- drawLinesToNextSiblingOn: aCanvas lineColor: lineColor hasToggle: hasToggle | myBounds nextSibBounds vLineX myCenter vLineTop vLineBottom | myBounds := self toggleBounds. nextSibBounds := self nextVisibleSibling toggleBounds. myCenter := myBounds center. + vLineX := myCenter x . - vLineX := myCenter x - 1. vLineTop := myCenter y. vLineBottom := nextSibBounds center y. "Draw line from me to next sibling" aCanvas line: vLineX @ vLineTop to: vLineX @ vLineBottom + width: 1 px - width: 1 color: lineColor! Item was changed: ----- Method: IndentingListItemMorph>>drawToggleOn:in: (in category 'drawing') ----- drawToggleOn: aCanvas in: aRectangle | aForm centeringOffset | + self canExpand ifFalse: [^self]. - complexContents hasContents ifFalse: [^self]. aForm := isExpanded ifTrue: [container expandedForm] ifFalse: [container notExpandedForm]. + centeringOffset := (aRectangle extent - aForm extent) // 2. + isExpanded ifFalse: [centeringOffset := centeringOffset + (1 px @ 0)]. - centeringOffset := ((aRectangle height - aForm extent y) / 2.0) rounded. ^aCanvas paintImage: aForm + at: aRectangle topLeft + centeringOffset. - at: (aRectangle topLeft translateBy: 0 @ centeringOffset). ! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>expandedForm (in category 'instance creation') ----- expandedForm + + ^ ExpandedForm ifNil: [ExpandedForm := + ScrollBar + arrowOfDirection: #bottom + size: 11 px + color: ((self userInterfaceTheme get: #toggleColor for: #SimpleHierarchicalListMorph) ifNil: [Color gray])]! - ExpandedForm - ifNotNil: [ExpandedForm depth ~= Display depth - ifTrue: [ExpandedForm := nil]]. - ^ ExpandedForm - ifNil: [ExpandedForm := ((Form - extent: 10 @ 9 - depth: 8 - fromArray: #(4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 4278255873 16843009 16842752 4294902089 1229539657 33488896 4294967041 1229539585 4294901760 4294967295 21561855 4294901760 4294967295 4278321151 4294901760 4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 ) - offset: 0 @ 0) - asFormOfDepth: Display depth) - replaceColor: Color white withColor: Color transparent; - scaleIconToDisplay]! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>notExpandedForm (in category 'instance creation') ----- notExpandedForm + + ^ NotExpandedForm ifNil: [NotExpandedForm := + ScrollBar + arrowOfDirection: #right + size: 11 px + color: ((self userInterfaceTheme get: #toggleColor for: #SimpleHierarchicalListMorph) ifNil: [Color gray])]! - NotExpandedForm - ifNotNil: [NotExpandedForm depth ~= Display depth - ifTrue: [NotExpandedForm := nil]]. - ^ NotExpandedForm - ifNil: [NotExpandedForm := ((Form - extent: 10 @ 9 - depth: 8 - fromArray: #(4294967041 4294967295 4294901760 4294967041 33554431 4294901760 4294967041 1224867839 4294901760 4294967041 1229521407 4294901760 4294967041 1229539585 4294901760 4294967041 1229521407 4294901760 4294967041 1224867839 4294901760 4294967041 33554431 4294901760 4294967041 4294967295 4294901760 ) - offset: 0 @ 0) - asFormOfDepth: Display depth) - replaceColor: Color white withColor: Color transparent; - scaleIconToDisplay]!

1 0

The Trunk: Tools-mt.1188.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1188.mcz ==================== Summary ==================== Name: Tools-mt.1188 Author: mt Time: 26 January 2023, 2:21:10.241707 pm UUID: 0e1eafb2-0e74-374b-8c3b-b47b0e7ea671 Ancestors: Tools-mt.1187 Fixes "remember window extent" for ObjectExplorer. Note that either #windowTitle or #labelString should be used for window labels at this point. See implementors and senders of #windowTitle. =============== Diff against Tools-mt.1187 =============== Item was changed: ----- Method: ObjectExplorer>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec treeSpec textSpec buttonSpec buttonOffset tool | windowSpec := builder pluggableWindowSpec new. windowSpec model: self; children: OrderedCollection new; + label: #windowTitle. - label: #label; - extent: self initialExtent. treeSpec := builder pluggableTreeSpec new. treeSpec model: self; nodeClass: self class nodeClass; roots: #getList; keyPress: #explorerKey:from:event:; getSelected: #currentSelection; setSelected: #currentSelection:; setSelectedParent: #currentParent:; menu: #genericMenu:; dragItem: #getDragItem:; autoDeselect: false; columns: (ObjectExplorerWrapper showContentsInColumns ifTrue: [{ [:listMorph | (listMorph filteredItems collect: [:item | item preferredWidthOfColumn: 1]) max]. nil "take all the space"}]); frame: (0@0 corner: 1(a)0.71). windowSpec children add: treeSpec. buttonOffset := (Preferences standardButtonFont widthOfString: 'inspect') * 3/2. textSpec := builder pluggableCodePaneSpec new. textSpec model: self; getText: #expression; editText: #expression:; menu: #codePaneMenu:shifted:; help: 'Evaluate expressions for the current tree selection...' translated; frame: (LayoutFrame fractions: (0(a)0.71 corner: 1@1) offsets: (0@0 corner: buttonOffset negated@0)). windowSpec children add: textSpec. buttonSpec := builder pluggableButtonSpec new model: self; label: 'inspect'; action: #inspectObject; help: 'Switch to an inspector tool'; frame: (LayoutFrame fractions: (1(a)0.71 corner: 1@1) offsets: (buttonOffset negated@0 corner: 0 @ 0)). windowSpec children add: buttonSpec. tool := builder build: windowSpec. self changed: #expandRootsRequested. ^ tool! Item was changed: ----- Method: ObjectExplorer>>label (in category 'accessing') ----- label + self flag: #deprecated. + ^ self labelString! - ^ [self rootObject printStringLimitedTo: 40] ifError: ['a ' , self rootObject class]! Item was added: + ----- Method: ObjectExplorer>>labelString (in category 'accessing') ----- + labelString + + ^ [self rootObject printStringLimitedTo: 40] ifError: ['a ' , self rootObject class]!

1 0

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

26 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2078.mcz ==================== Summary ==================== Name: Morphic-mt.2078 Author: mt Time: 26 January 2023, 2:09:30.619707 pm UUID: 02dcfdf2-6b63-4244-8c88-253dd7aa928f Ancestors: Morphic-mt.2077 In tree widgets, fixes redudant selection updates and thus inadvertent node refresh. =============== Diff against Morphic-mt.2077 =============== 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 max oldSelection nextSelection howManyItemsShowing keyHandled | keyHandled := false. keyEvent := asciiValue. max := self maximumSelection. nextSelection := oldSelection := self getSelectionIndex. keyEvent = 31 ifTrue:["down" self currentEvent shiftPressed ifTrue: [ self selectedMorph nextVisibleSibling + ifNil: [^ true] - ifNil: [^ false] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection :=oldSelection + 1. + nextSelection > max ifTrue: [nextSelection := (self class wrappedNavigation ifTrue: [1] ifFalse: [^ true])]]. - nextSelection > max ifTrue: [nextSelection := (self class wrappedNavigation ifTrue: [1] ifFalse: [max])]]. keyEvent = 30 ifTrue:["up" self currentEvent shiftPressed ifTrue: [ self selectedMorph previousVisibleSibling + ifNil: [^ true] - ifNil: [^ false] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection := oldSelection - 1. + nextSelection < 1 ifTrue: [nextSelection := self class wrappedNavigation ifTrue: [max] ifFalse: [^ true]]]. - nextSelection < 1 ifTrue: [nextSelection := self class wrappedNavigation ifTrue: [max] ifFalse: [1]]]. keyEvent = 1 ifTrue: ["home" keyHandled := true. nextSelection := 1]. keyEvent = 4 ifTrue: ["end" keyHandled := true. nextSelection := max]. howManyItemsShowing := self numSelectionsInView. keyEvent = 11 ifTrue: ["page up" keyHandled := true. 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!

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