Packages October 2019

packages@lists.squeakfoundation.org

1 participants
132 discussions

The Trunk: Tools-mt.911.mcz
by commits＠source.squeak.org 30 Oct '19

30 Oct '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.911.mcz ==================== Summary ==================== Name: Tools-mt.911 Author: mt Time: 30 October 2019, 9:16:36.005226 am UUID: 14795473-427f-2c4d-81b1-79db8f78296f Ancestors: Tools-mt.910 *at:put: should always return the stored value. =============== Diff against Tools-mt.910 =============== Item was changed: ----- Method: ChangeList>>listSelectionAt:put: (in category 'viewing access') ----- listSelectionAt: index put: value listSelections at: index put: value. + self changed: #listIndex. + ^ value! - self changed: #listIndex.!

1 0

The Trunk: Morphic-mt.1583.mcz
by commits＠source.squeak.org 29 Oct '19

29 Oct '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1583.mcz ==================== Summary ==================== Name: Morphic-mt.1583 Author: mt Time: 29 October 2019, 3:09:10.326172 pm UUID: 2724b1c3-9a13-1c4f-811f-a5bbc8ed76e1 Ancestors: Morphic-mt.1582 Make it possible to recover from (deprecation) warnings in important drawing methods. See http://forum.world.st/The-Trunk-System-mt-1093-mcz-tp5103937p5106420.html =============== Diff against Morphic-mt.1582 =============== Item was changed: ----- Method: WorldState>>displayWorldSafely: (in category 'update cycle') ----- displayWorldSafely: aWorld "Update this world's display and keep track of errors during draw methods." | finished classesWithErrors | finished := false. [finished] whileFalse: [ + [aWorld displayWorld. finished := true] on: Error, Halt, Warning do: [:ex | - [aWorld displayWorld. finished := true] on: Error, Halt do: [:ex | "Handle a drawing error" | err rcvr errCtx errMorph | err := ex description. rcvr := ex receiver. errCtx := thisContext. [ errCtx := errCtx sender. "Search the sender chain to find the morph causing the problem" [errCtx notNil and:[(errCtx receiver isMorph) not]] whileTrue:[errCtx := errCtx sender]. "If we're at the root of the context chain then we have a fatal drawing problem" errCtx ifNil:[^Project current fatalDrawingError: err]. errMorph := errCtx receiver. "If the morph causing the problem has already the #drawError flag set, then search for the next morph above in the caller chain." errMorph hasProperty: #errorOnDraw ] whileTrue. errMorph setProperty: #errorOnDraw toValue: true. "Catch all errors, one for each receiver class." classesWithErrors ifNil: [classesWithErrors := IdentitySet new]. (classesWithErrors includes: rcvr class) ifFalse: [ classesWithErrors add: rcvr class. ToolSet debugException: ex]. "Repaint all to catch all errors now and not if the debugger will appear." aWorld fullRepaintNeeded. ]].!

1 0

The Trunk: Tools-mt.910.mcz
by commits＠source.squeak.org 29 Oct '19

29 Oct '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.910.mcz ==================== Summary ==================== Name: Tools-mt.910 Author: mt Time: 29 October 2019, 12:39:01.998604 pm UUID: 981eb775-0636-d744-b7bf-8f13d72351b1 Ancestors: Tools-mt.909 Fixes (a regression in) list selection in change-list tool. It is not the job of the model to implement toggle in a multi-selection setting. The model only has to react to index selector and selection-list selectors. =============== Diff against Tools-mt.909 =============== Item was changed: ----- Method: ChangeList>>listSelectionAt:put: (in category 'viewing access') ----- listSelectionAt: index put: value + listSelections at: index put: value. + self changed: #listIndex.! - ^ listSelections at: index put: value! Item was changed: ----- Method: ChangeList>>toggleListIndex: (in category 'viewing access') ----- toggleListIndex: newListIndex + listIndex = newListIndex ifTrue: [^ self]. - listIndex ~= 0 ifTrue: [listSelections at: listIndex put: false]. - newListIndex ~= 0 ifTrue: [listSelections at: newListIndex put: true]. listIndex := newListIndex. + self changed: #listIndex. self contentsChanged!

1 0

The Trunk: Morphic-mt.1582.mcz
by commits＠source.squeak.org 23 Oct '19

23 Oct '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1582.mcz ==================== Summary ==================== Name: Morphic-mt.1582 Author: mt Time: 23 October 2019, 3:31:24.67861 pm UUID: 82af72b9-4198-4bd2-8e7e-e8733d9018c7 Ancestors: Morphic-mt.1581 Adds things for column-specific list filtering: - backgroundColor for LazyListMorph - optional filter-term indication for LazyListMorph - column highlights for multi-column lists - Character tab to cycle between columns Note that I opted to not use the [space] key for column toggling because (a) we have to widget-focus cycling via [tab] at the moment and (b) the space character might be a valuable filter term. =============== Diff against Morphic-mt.1581 =============== Item was changed: Morph subclass: #LazyListMorph + instanceVariableNames: 'listItems listIcons listFilterOffsets font selectedRow selectedRows preSelectedRow listSource maxWidth columnIndex iconExtent backgroundColor showFilter' - instanceVariableNames: 'listItems listIcons listFilterOffsets font selectedRow selectedRows preSelectedRow listSource maxWidth columnIndex iconExtent' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Widgets'! !LazyListMorph commentStamp: 'mt 10/13/2019 19:44' prior: 0! The morph that displays the list in a PluggableListMorph. It is "lazy" because it will only request the list items that it actually needs to display. I will cache the maximum width of my items in maxWidth to avoid this potentially expensive and frequent computation. The following layout properties are supported: - #cellPositioning: #leftCenter [default], #center, #rightCenter - #cellInset: [default: 3@0 corner: 3@0]! Item was added: + ----- Method: LazyListMorph>>backgroundColor (in category 'accessing') ----- + backgroundColor + "Since #color is this morph's default text color, this extra property is used for the actual background color. Supports nil." + + ^ backgroundColor! Item was added: + ----- Method: LazyListMorph>>backgroundColor: (in category 'accessing') ----- + backgroundColor: aColor + + backgroundColor = aColor ifTrue: [^ self]. + backgroundColor := aColor. + + self changed. + "Invalidate owner because we want to fill the vertical axis in the viewport entirely." + self owner ifNotNil: [:o | o changed].! Item was changed: ----- Method: LazyListMorph>>displayFilterOn:for:in:font: (in category 'drawing') ----- displayFilterOn: canvas for: row in: drawBounds font: font "Draw filter matches if any." | fillStyle fillHeight | + self showFilter ifFalse: [^ self]. - listSource filterableList ifFalse: [^ self]. fillHeight := font height. fillStyle := self filterColor isColor ifTrue: [SolidFillStyle color: self filterColor] ifFalse: [self filterColor]. fillStyle isGradientFill ifTrue: [ fillStyle origin: drawBounds topLeft. fillStyle direction: 0@ fillHeight]. (self filterOffsets: row) do: [:offset | | highlightRectangle | highlightRectangle := ((drawBounds left + offset first first) @ drawBounds top corner: (drawBounds left + offset first last) @ (drawBounds top + fillHeight)). canvas frameAndFillRoundRect: (highlightRectangle outsetBy: 1@0) radius: (3 * RealEstateAgent scaleFactor) truncated fillStyle: fillStyle borderWidth: (1 * RealEstateAgent scaleFactor) truncated borderColor: fillStyle asColor twiceDarker. canvas drawString: offset second in: highlightRectangle font: font color: self filterTextColor].! Item was changed: ----- Method: LazyListMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | topRow bottomRow | + self backgroundColor ifNotNil: [:color | + aCanvas fillRectangle: (self topLeft corner: self right @ ((self owner ifNil: [self]) bottom)) color: color]. + self getListSize = 0 ifTrue: [ ^self ]. self drawPreSelectionOn: aCanvas. topRow := self topVisibleRowForCanvas: aCanvas. bottomRow := self bottomVisibleRowForCanvas: aCanvas. "Draw multi-selection." self listSource hasMultiSelection ifTrue: [ topRow to: bottomRow do: [ :row | (self listSource itemSelectedAmongMultiple: row) ifTrue: [ self drawBackgroundForMulti: row on: aCanvas ] ] ]. self drawSelectionOn: aCanvas. "Draw hovered row if preference enabled." PluggableListMorph highlightHoveredRow ifTrue: [ self listSource hoverRow > 0 ifTrue: [ self highlightHoverRow: listSource hoverRow on: aCanvas ] ]. "Draw all visible rows." topRow to: bottomRow do: [ :row | self display: (self item: row) atRow: row on: aCanvas ]. "Finally, highlight drop row for drag/drop operations.." self listSource potentialDropRow > 0 ifTrue: [ self highlightPotentialDropRow: self listSource potentialDropRow on: aCanvas ].! Item was added: + ----- Method: LazyListMorph>>showFilter (in category 'accessing') ----- + showFilter + + ^ (showFilter ~~ false and: [listSource filterableList])! Item was added: + ----- Method: LazyListMorph>>showFilter: (in category 'accessing') ----- + showFilter: aBoolean + + showFilter = aBoolean ifTrue: [^ self]. + showFilter := aBoolean. + self changed.! Item was added: + ----- Method: PluggableMultiColumnListMorph>>filterColumnColor (in category 'filtering') ----- + filterColumnColor + + ^ (Color gray: 0.85) alpha: 0.4! Item was added: + ----- Method: PluggableMultiColumnListMorph>>filterColumnIndex (in category 'filtering') ----- + filterColumnIndex + "Which column to apply the filter to?" + + | i | + i := 0. + self listMorphs + detect: [:m | i := i + 1. m backgroundColor notNil] + ifNone: [i := 0]. + ^ i! Item was added: + ----- Method: PluggableMultiColumnListMorph>>filterList:columnIndex:matching: (in category 'filtering') ----- + filterList: columns columnIndex: index matching: aPattern + "A matching row has a match in at least one column." + + | frontMatching substringMatching rowCount columnCount tmp | + aPattern ifEmpty: [^ columns]. + columns ifEmpty: [^ columns]. + + rowCount := columns first size. + rowCount = 0 ifTrue: [^ columns]. + columnCount := columns size. + + frontMatching := Array new: columnCount. + 1 to: columnCount do: [:c | frontMatching at: c put: OrderedCollection new]. + substringMatching := Array new: columnCount. + 1 to: columnCount do: [:c | substringMatching at: c put: OrderedCollection new]. + + modelToView := Dictionary new. + viewToModel := Dictionary new. + tmp := OrderedCollection new. + + 1 to: rowCount do: [:rowIndex | + | match foundPos | + match := false. + foundPos := self + filterListItem: ((columns at: index) at: rowIndex) + matching: aPattern. + foundPos = 1 + ifTrue: [ + 1 to: columnCount do: [:colIndex | + (frontMatching at: colIndex) add: ((columns at: colIndex) at: rowIndex)]. + modelToView at: rowIndex put: frontMatching first size. + viewToModel at: frontMatching first size put: rowIndex] + ifFalse: [foundPos > 1 ifTrue: [ + 1 to: columnCount do: [:colIndex | + (substringMatching at: colIndex) add: ((columns at: colIndex) at: rowIndex)]. + tmp add: rowIndex; add: substringMatching first size]] + ]. + + tmp pairsDo: [:modelIndex :viewIndex | + modelToView at: modelIndex put: viewIndex + frontMatching first size. + viewToModel at: viewIndex + frontMatching first size put: modelIndex]. + + ^ (1 to: columnCount) collect: [:colIndex | + (frontMatching at: colIndex), (substringMatching at: colIndex)] + + + + + + + + + + + + + + ! Item was changed: ----- Method: PluggableMultiColumnListMorph>>filterList:matching: (in category 'filtering') ----- filterList: columns matching: aPattern "A matching row has a match in at least one column." | frontMatching substringMatching rowCount columnCount tmp | aPattern ifEmpty: [^ columns]. columns ifEmpty: [^ columns]. + "Enable column-specific filtering." + self filterColumnIndex in: [:index | + index > 0 ifTrue: [^ self filterList: columns columnIndex: index matching: aPattern]]. + rowCount := columns first size. rowCount = 0 ifTrue: [^ columns]. columnCount := columns size. frontMatching := Array new: columnCount. 1 to: columnCount do: [:c | frontMatching at: c put: OrderedCollection new]. substringMatching := Array new: columnCount. 1 to: columnCount do: [:c | substringMatching at: c put: OrderedCollection new]. modelToView := Dictionary new. viewToModel := Dictionary new. tmp := OrderedCollection new. 1 to: rowCount do: [:rowIndex | | match foundPos | match := false. foundPos := 0. 1 to: columnCount do: [:colIndex | match := match or: [(foundPos := (self filterListItem: ((columns at: colIndex) at: rowIndex) matching: aPattern)+colIndex) > colIndex]]. match & (foundPos = 2) "means front match in first column" ifTrue: [ 1 to: columnCount do: [:colIndex | (frontMatching at: colIndex) add: ((columns at: colIndex) at: rowIndex)]. modelToView at: rowIndex put: frontMatching first size. viewToModel at: frontMatching first size put: rowIndex] ifFalse: [match ifTrue: [ 1 to: columnCount do: [:colIndex | (substringMatching at: colIndex) add: ((columns at: colIndex) at: rowIndex)]. tmp add: rowIndex; add: substringMatching first size]] ]. tmp pairsDo: [:modelIndex :viewIndex | modelToView at: modelIndex put: viewIndex + frontMatching first size. viewToModel at: viewIndex + frontMatching first size put: modelIndex]. ^ (1 to: columnCount) collect: [:colIndex | (frontMatching at: colIndex), (substringMatching at: colIndex)] ! Item was added: + ----- Method: PluggableMultiColumnListMorph>>highlightNextColumn (in category 'filtering') ----- + highlightNextColumn + + | i currentColumn nextColumn | + i := self filterColumnIndex. + i = 0 ifTrue: [self listMorphs do: [:m | m showFilter: false]]. + + currentColumn := self listMorphs at: (i max: 1). + nextColumn := self listMorphs at: i \\ self listMorphs size + 1. + + currentColumn + showFilter: false; + backgroundColor: nil. + + nextColumn + showFilter: true; + backgroundColor: self filterColumnColor.! Item was added: + ----- Method: PluggableMultiColumnListMorph>>highlightNoColumn (in category 'filtering') ----- + highlightNoColumn + + self listMorphs do: [:m | + m showFilter: true; backgroundColor: nil].! Item was added: + ----- Method: PluggableMultiColumnListMorph>>removeFilter (in category 'filtering') ----- + removeFilter + + self highlightNoColumn. + super removeFilter. + ! Item was added: + ----- Method: PluggableMultiColumnListMorph>>specialKeyPressed: (in category 'filtering') ----- + specialKeyPressed: asciiValue + "Use the [Tab] key to filter specific columns." + + ^ asciiValue = Character tab asciiValue + ifTrue: [self highlightNextColumn] + ifFalse: [super specialKeyPressed: asciiValue].! Item was changed: ----- Method: PluggableMultiColumnListMorph>>updateColumns (in category 'updating') ----- updateColumns "The number of columns must match the number of list morphs." | columnsChanged | columnsChanged := self columnCount ~= listMorphs size. [self columnCount < listMorphs size] whileTrue: [ listMorphs removeLast delete]. [self columnCount > listMorphs size] whileTrue: [ listMorphs addLast: self createListMorph. self scroller addMorphBack: listMorphs last]. listMorphs doWithIndex: [:listMorph :columnIndex | listMorph columnIndex: columnIndex; + color: self textColor; cellPositioning: (self cellPositioningAtColumn: columnIndex); cellInset: (self cellInsetAtColumn: columnIndex); hResizing: (self hResizingAtColumn: columnIndex); spaceFillWeight: (self spaceFillWeightAtColumn: columnIndex)]. columnsChanged ifTrue: [self setListParameters].!

1 0

The Trunk: Morphic-mt.1581.mcz
by commits＠source.squeak.org 23 Oct '19

23 Oct '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1581.mcz ==================== Summary ==================== Name: Morphic-mt.1581 Author: mt Time: 23 October 2019, 1:41:38.794795 pm UUID: 564716d4-ab46-4013-b314-813d9ed8ece0 Ancestors: Morphic-mt.1580 Complements ToolBuilder-Kernel-mt.134. =============== Diff against Morphic-mt.1580 =============== Item was added: + ----- Method: PluggableMultiColumnListMorph>>cellInsetAtColumn: (in category 'layout') ----- + cellInsetAtColumn: columnIndex + + ^ self cellInsetForColumns + at: columnIndex + ifAbsent: [ + "Repeat the inset of the last column or choose the default." + self cellInsetForColumns + ifEmpty: [3@0] + ifNotEmpty: [:paddings | paddings last]]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>cellInsetForColumns (in category 'layout') ----- + cellInsetForColumns + + ^ self valueOfProperty: #cellInsetForColumns ifAbsent: [#()]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>cellInsetForColumns: (in category 'layout') ----- + cellInsetForColumns: someSymbols + "Cache the preferred inset of items per column because column count can vary." + + self setProperty: #cellInsetForColumns toValue: someSymbols.! Item was added: + ----- Method: PluggableMultiColumnListMorph>>cellPositioningAtColumn: (in category 'layout') ----- + cellPositioningAtColumn: columnIndex + + ^ self cellPositioningForColumns + at: columnIndex + ifAbsent: [ + "Repeat the alignment of the last column or choose the default." + self cellPositioningForColumns + ifEmpty: [#leftCenter] + ifNotEmpty: [:alignments | alignments last]]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>cellPositioningForColumns (in category 'layout') ----- + cellPositioningForColumns + + ^ self valueOfProperty: #cellPositioningForColumns ifAbsent: [#()]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>cellPositioningForColumns: (in category 'layout') ----- + cellPositioningForColumns: someSymbols + "Cache the preferred positioning of items per column because column count can vary." + + self setProperty: #cellPositioningForColumns toValue: someSymbols.! Item was added: + ----- Method: PluggableMultiColumnListMorph>>hResizingAtColumn: (in category 'layout') ----- + hResizingAtColumn: columnIndex + + ^ self hResizingForColumns + at: columnIndex + ifAbsent: [ + "Repeat the resizing strategy of the last column or choose the default." + self hResizingForColumns + ifEmpty: [#spaceFill] + ifNotEmpty: [:strategies | strategies last]]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>hResizingForColumns (in category 'layout') ----- + hResizingForColumns + + ^ self valueOfProperty: #hResizingForColumns ifAbsent: [#()]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>hResizingForColumns: (in category 'layout') ----- + hResizingForColumns: someSymbols + "Cache the preferred horizontal resizing for each column because column count can vary." + + self setProperty: #hResizingForColumns toValue: someSymbols.! Item was added: + ----- Method: PluggableMultiColumnListMorph>>spaceFillWeightAtColumn: (in category 'layout') ----- + spaceFillWeightAtColumn: columnIndex + + ^ self spaceFillWeightForColumns + at: columnIndex + ifAbsent: [ + "Repeat the weight of the last column or choose the default." + self spaceFillWeightForColumns + ifEmpty: [1] + ifNotEmpty: [:weights | weights last]]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>spaceFillWeightForColumns (in category 'layout') ----- + spaceFillWeightForColumns + + ^ self valueOfProperty: #spaceFillWeightForColumns ifAbsent: [#()]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>spaceFillWeightForColumns: (in category 'layout') ----- + spaceFillWeightForColumns: someSymbols + "Cache the preferred space-fill weight for each column because column count can vary." + + self setProperty: #spaceFillWeightForColumns toValue: someSymbols.! Item was changed: ----- Method: PluggableMultiColumnListMorph>>updateColumns (in category 'updating') ----- updateColumns "The number of columns must match the number of list morphs." + | columnsChanged | + columnsChanged := self columnCount ~= listMorphs size. - self columnCount = listMorphs size ifTrue: [^ self]. [self columnCount < listMorphs size] whileTrue: [ listMorphs removeLast delete]. [self columnCount > listMorphs size] whileTrue: [ listMorphs addLast: self createListMorph. self scroller addMorphBack: listMorphs last]. + listMorphs doWithIndex: [:listMorph :columnIndex | + listMorph + columnIndex: columnIndex; + cellPositioning: (self cellPositioningAtColumn: columnIndex); + cellInset: (self cellInsetAtColumn: columnIndex); + hResizing: (self hResizingAtColumn: columnIndex); + spaceFillWeight: (self spaceFillWeightAtColumn: columnIndex)]. + + columnsChanged ifTrue: [self setListParameters].! - listMorphs doWithIndex: [:ea :col | ea columnIndex: col]. - self setListParameters.!

1 0

The Trunk: ToolBuilder-Morphic-mt.248.mcz
by commits＠source.squeak.org 23 Oct '19

23 Oct '19

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.248.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.248 Author: mt Time: 23 October 2019, 1:41:18.462795 pm UUID: 8da50782-91ea-4363-8722-dabc49fae662 Ancestors: ToolBuilder-Morphic-mt.247 Complements ToolBuilder-Kernel-mt.134. =============== Diff against ToolBuilder-Morphic-mt.247 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableMultiColumnList: (in category 'widgets required') ----- buildPluggableMultiColumnList: aSpec | widget listClass getIndex setIndex | aSpec getSelected ifNil:[ listClass := self multiColumnListClass. getIndex := aSpec getIndex. setIndex := aSpec setIndex. ] ifNotNil: [ listClass := self multiColumnListByItemClass. getIndex := aSpec getSelected. setIndex := aSpec setSelected. ]. widget := listClass on: aSpec model list: aSpec list selected: getIndex changeSelected: setIndex menu: aSpec menu keystroke: aSpec keyPress. self register: widget id: aSpec name. " widget dragItemSelector: aSpec dragItem; dropItemSelector: aSpec dropItem; wantsDropSelector: aSpec dropAccept; dragStartedSelector: aSpec dragStarted." self setListPropertiesFor: widget spec: aSpec. + + "Be sure to enable the horizontal scrollbar if not all columns are #spaceFill." + (aSpec columnResizings anySatisfy: [:sym | sym ~= #spaceFill]) + ifTrue: [widget hScrollBarPolicy: #whenNeeded]. + + widget + cellPositioningForColumns: aSpec itemAlignments; + cellInsetForColumns: aSpec itemPaddings; + hResizingForColumns: aSpec columnResizings; + spaceFillWeightForColumns: aSpec columnSpaceFillWeights. + ^widget! Item was changed: ----- Method: MorphicToolBuilder>>setListPropertiesFor:spec: (in category 'private') ----- setListPropertiesFor: widget spec: aSpec "Override default scroll bar policies if needed. Widget will use preference values otherwise." aSpec hScrollBarPolicy ifNotNil: [:policy | policy caseOf: { [#always] -> [widget alwaysShowHScrollBar]. [#never] -> [widget hideHScrollBarIndefinitely]. [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded]. } ]. aSpec vScrollBarPolicy ifNotNil: [:policy | policy caseOf: { [#always] -> [widget alwaysShowVScrollBar]. [#never] -> [widget hideVScrollBarIndefinitely]. [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded]. } ]. widget getListElementSelector: aSpec listItem; getListSizeSelector: aSpec listSize; getIconSelector: aSpec icon; getHelpSelector: aSpec helpItem; doubleClickSelector: aSpec doubleClick. widget autoDeselect: aSpec autoDeselect; keystrokePreviewSelector: aSpec keystrokePreview. aSpec filterableList ifNotNil: [:b | widget filterableList: b]. aSpec clearFilterAutomatically ifNotNil: [:b | widget clearFilterAutomatically: b]. aSpec color ifNotNil: [:c | widget color: c]. self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. + aSpec itemAlignment ifNotNil: [:alignment | widget listMorph cellPositioning: alignment]. + aSpec itemPadding ifNotNil: [:padding | widget listMorph cellInset: padding]. parent ifNotNil:[self add: widget to: parent]. (panes notNil and: [aSpec list notNil]) ifTrue: [panes add: aSpec list]. !

1 0

The Trunk: ToolBuilder-Kernel-mt.134.mcz
by commits＠source.squeak.org 23 Oct '19

23 Oct '19

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.134.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.134 Author: mt Time: 23 October 2019, 1:40:47.348795 pm UUID: 66bc16c6-9595-4c55-a506-a374d1f642a4 Ancestors: ToolBuilder-Kernel-ct.133 Support the functional layout properties for LazyListMorph in tool-builder specs. Chose "alignment" instead of "positioning" because specs are not Morphic-specific. The terms "item" and "column" reflect item- or column-specifc settings, which can be confusing because our current lists do only support uniform (item) rows. =============== Diff against ToolBuilder-Kernel-ct.133 =============== Item was changed: PluggableWidgetSpec subclass: #PluggableListSpec + instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted helpItem filterableList clearFilterAutomatically itemAlignment itemPadding' - instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted helpItem filterableList clearFilterAutomatically' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !PluggableListSpec commentStamp: 'ar 7/15/2005 11:54' prior: 0! A single selection list element. Instance variables: list <Symbol> The selector to retrieve the list elements. getIndex <Symbol> The selector to retrieve the list selection index. setIndex <Symbol> The selector to set the list selection index. getSelected <Symbol> The selector to retrieve the list selection. setSelected <Symbol> The selector to set the list selection. menu <Symbol> The selector to offer (to retrieve?) the context menu. keyPress <Symbol> The selector to invoke for handling keyboard shortcuts. autoDeselect <Boolean> Whether the list should allow automatic deselection or not. dragItem <Symbol> Selector to initiate a drag action on an item dropItem <Symbol> Selector to initiate a drop action of an item dropAccept <Symbol> Selector to determine whether a drop would be accepted! Item was added: + ----- Method: PluggableListSpec>>itemAlignment (in category 'accessing') ----- + itemAlignment + "Define the alignment of each list item in its layout cell. The value can encode both horizontal and vertical dimensions." + + ^ itemAlignment! Item was added: + ----- Method: PluggableListSpec>>itemAlignment: (in category 'accessing') ----- + itemAlignment: aSymbol + "For convenience, map #left and #right to their correct values. At least for Morphic." + + aSymbol == #left ifTrue: [^ itemAlignment := #leftCenter]. + aSymbol == #right ifTrue: [^ itemAlignment := #rightCenter]. + + itemAlignment := aSymbol.! Item was added: + ----- Method: PluggableListSpec>>itemPadding (in category 'accessing') ----- + itemPadding + + ^ itemPadding! Item was added: + ----- Method: PluggableListSpec>>itemPadding: (in category 'accessing') ----- + itemPadding: numberOrPointOrRectangle + + itemPadding := numberOrPointOrRectangle.! Item was changed: PluggableListSpec subclass: #PluggableMultiColumnListSpec + instanceVariableNames: 'itemAlignments itemPaddings columnResizings columnSpaceFillWeights' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! Item was added: + ----- Method: PluggableMultiColumnListSpec>>columnResizings (in category 'accessing') ----- + columnResizings + "For each column, define the horizontal resizing (or #hResizing) behavior. Choose from #rigid, #shrinkWrap, and #spaceFill." + + ^ columnResizings ifNil: [#(spaceFill)]! Item was added: + ----- Method: PluggableMultiColumnListSpec>>columnResizings: (in category 'accessing') ----- + columnResizings: someSymbols + + columnResizings := someSymbols.! Item was added: + ----- Method: PluggableMultiColumnListSpec>>columnSpaceFillWeights (in category 'accessing') ----- + columnSpaceFillWeights + "For each column, define the relative space-fill weight, which will be used if the resizing strategy is set to #spaceFill." + + ^ columnSpaceFillWeights ifNil: [#(1)]! Item was added: + ----- Method: PluggableMultiColumnListSpec>>columnSpaceFillWeights: (in category 'accessing') ----- + columnSpaceFillWeights: someNumbers + + columnSpaceFillWeights := someNumbers.! Item was added: + ----- Method: PluggableMultiColumnListSpec>>itemAlignments (in category 'accessing') ----- + itemAlignments + "For each column, define the alignment of each list item in its layout cell. The value can encode both horizontal and vertical dimensions." + + ^ itemAlignments ifNil: [self itemAlignment ifNil: [#()] ifNotNil: [:alignment | {alignment}]]! Item was added: + ----- Method: PluggableMultiColumnListSpec>>itemAlignments: (in category 'accessing') ----- + itemAlignments: someSymbols + "For convenience, map #left and #right to their correct values. At least for Morphic." + + itemAlignments := someSymbols collect: [:alignment | + alignment == #left ifTrue: [#leftCenter] ifFalse: [ + alignment == #right ifTrue: [#rightCenter] ifFalse: [ + alignment]]].! Item was added: + ----- Method: PluggableMultiColumnListSpec>>itemPaddings (in category 'accessing') ----- + itemPaddings + + ^ itemPaddings ifNil: [self itemPadding ifNil: [#()] ifNotNil: [:padding | {padding}]]! Item was added: + ----- Method: PluggableMultiColumnListSpec>>itemPaddings: (in category 'accessing') ----- + itemPaddings: someNumbersOrPointsOrRectangles + + itemPaddings := someNumbersOrPointsOrRectangles.!

1 0

The Trunk: 60Deprecated-mt.59.mcz
by commits＠source.squeak.org 23 Oct '19

23 Oct '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.59.mcz ==================== Summary ==================== Name: 60Deprecated-mt.59 Author: mt Time: 23 October 2019, 10:50:56.455796 am UUID: 1cc93b6a-5a6c-4e7b-b950-31513495da77 Ancestors: 60Deprecated-mt.58 Complements Morphic-mt.1580. =============== Diff against 60Deprecated-mt.58 =============== Item was changed: SystemOrganization addCategory: #'60Deprecated-Collections-Streams'! SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'! SystemOrganization addCategory: #'60Deprecated-Morphic-Pluggable Widgets'! + SystemOrganization addCategory: #'60Deprecated-Morphic-Widgets'! SystemOrganization addCategory: #'60Deprecated-NSPlugin-System-Support'! SystemOrganization addCategory: #'60Deprecated-System-Support'! SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'! SystemOrganization addCategory: #'60Deprecated-Tools-Menus'! Item was added: + LazyListMorph subclass: #MulticolumnLazyListMorph + instanceVariableNames: 'columnWidths' + classVariableNames: '' + poolDictionaries: '' + category: '60Deprecated-Morphic-Widgets'! + + !MulticolumnLazyListMorph commentStamp: '<historical>' prior: 0! + A variant of LazyListMorph that can display multi-column lists.! Item was added: + ----- Method: MulticolumnLazyListMorph>>display:atRow:on: (in category 'drawing') ----- + display: items atRow: row on: canvas + "display the specified item, which is on the specified row; for Multicolumn + lists, items will be a list of strings" + | drawBounds | + drawBounds := (self drawBoundsForRow: row) translateBy: (self hMargin @ 0). + drawBounds := drawBounds intersect: self bounds. + items + with: (1 to: items size) + do: [:item :index | + "move the bounds to the right at each step" + index > 1 + ifTrue: [drawBounds := drawBounds left: drawBounds left + 6 + + (columnWidths at: index - 1)]. + item isText + ifTrue: [canvas + drawString: item + in: drawBounds + font: (font + emphasized: (item emphasisAt: 1)) + color: (self colorForRow: row)] + ifFalse: [canvas + drawString: item + in: drawBounds + font: font + color: (self colorForRow: row)]]! Item was added: + ----- Method: MulticolumnLazyListMorph>>drawOn: (in category 'drawing') ----- + drawOn: aCanvas + self getListSize = 0 ifTrue:[ ^self ]. + + self setColumnWidthsFor: aCanvas. + + super drawOn: aCanvas! Item was added: + ----- Method: MulticolumnLazyListMorph>>getListItem: (in category 'list access') ----- + getListItem: index + ^listSource getListItem: index! Item was added: + ----- Method: MulticolumnLazyListMorph>>listChanged (in category 'list management') ----- + listChanged + columnWidths := nil. + super listChanged! Item was added: + ----- Method: MulticolumnLazyListMorph>>setColumnWidthsFor: (in category 'drawing') ----- + setColumnWidthsFor: aCanvas + | row topRow bottomRow | + "set columnWidths for drawing on the specified canvas" + columnWidths ifNil: [ + columnWidths := (self item: 1) collect: [ :ignored | 0 ]. ]. + topRow := (self topVisibleRowForCanvas: aCanvas) max: 1. + bottomRow := (self bottomVisibleRowForCanvas: aCanvas) max: 1. + topRow > bottomRow ifTrue: [ ^ self ]. + topRow to: bottomRow do: [ :rowIndex | + row := self item: rowIndex. + columnWidths := columnWidths with: row collect: [ :currentWidth :item | + | widthOfItem | + widthOfItem := (font widthOfStringOrText: item). + widthOfItem > currentWidth + ifTrue: [ self changed. widthOfItem ] + ifFalse: [ currentWidth ] ] ]! Item was added: + ----- Method: MulticolumnLazyListMorph>>widthToDisplayItem: (in category 'scroll range') ----- + widthToDisplayItem: item + | widths | + widths := item collect: [ :each | super widthToDisplayItem: each ]. + ^widths sum + (10 * (widths size - 1)) "add in space between the columns" + !

1 0

The Trunk: Morphic-mt.1580.mcz
by commits＠source.squeak.org 23 Oct '19

23 Oct '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1580.mcz ==================== Summary ==================== Name: Morphic-mt.1580 Author: mt Time: 23 October 2019, 10:50:24.634796 am UUID: a8ef9dad-6359-47b0-84c7-fc316b7374dd Ancestors: Morphic-mt.1579 Deprecates MulticolumnLazyListMorph because PluggableMultiColumnListMorph uses the regular LazyListMorph by now. =============== Diff against Morphic-mt.1579 =============== Item was removed: - LazyListMorph subclass: #MulticolumnLazyListMorph - instanceVariableNames: 'columnWidths' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Widgets'! - - !MulticolumnLazyListMorph commentStamp: '<historical>' prior: 0! - A variant of LazyListMorph that can display multi-column lists.! Item was removed: - ----- Method: MulticolumnLazyListMorph>>display:atRow:on: (in category 'drawing') ----- - display: items atRow: row on: canvas - "display the specified item, which is on the specified row; for Multicolumn - lists, items will be a list of strings" - | drawBounds | - drawBounds := (self drawBoundsForRow: row) translateBy: (self hMargin @ 0). - drawBounds := drawBounds intersect: self bounds. - items - with: (1 to: items size) - do: [:item :index | - "move the bounds to the right at each step" - index > 1 - ifTrue: [drawBounds := drawBounds left: drawBounds left + 6 - + (columnWidths at: index - 1)]. - item isText - ifTrue: [canvas - drawString: item - in: drawBounds - font: (font - emphasized: (item emphasisAt: 1)) - color: (self colorForRow: row)] - ifFalse: [canvas - drawString: item - in: drawBounds - font: font - color: (self colorForRow: row)]]! Item was removed: - ----- Method: MulticolumnLazyListMorph>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - self getListSize = 0 ifTrue:[ ^self ]. - - self setColumnWidthsFor: aCanvas. - - super drawOn: aCanvas! Item was removed: - ----- Method: MulticolumnLazyListMorph>>getListItem: (in category 'list access') ----- - getListItem: index - ^listSource getListItem: index! Item was removed: - ----- Method: MulticolumnLazyListMorph>>listChanged (in category 'list management') ----- - listChanged - columnWidths := nil. - super listChanged! Item was removed: - ----- Method: MulticolumnLazyListMorph>>setColumnWidthsFor: (in category 'drawing') ----- - setColumnWidthsFor: aCanvas - | row topRow bottomRow | - "set columnWidths for drawing on the specified canvas" - columnWidths ifNil: [ - columnWidths := (self item: 1) collect: [ :ignored | 0 ]. ]. - topRow := (self topVisibleRowForCanvas: aCanvas) max: 1. - bottomRow := (self bottomVisibleRowForCanvas: aCanvas) max: 1. - topRow > bottomRow ifTrue: [ ^ self ]. - topRow to: bottomRow do: [ :rowIndex | - row := self item: rowIndex. - columnWidths := columnWidths with: row collect: [ :currentWidth :item | - | widthOfItem | - widthOfItem := (font widthOfStringOrText: item). - widthOfItem > currentWidth - ifTrue: [ self changed. widthOfItem ] - ifFalse: [ currentWidth ] ] ]! Item was removed: - ----- Method: MulticolumnLazyListMorph>>widthToDisplayItem: (in category 'scroll range') ----- - widthToDisplayItem: item - | widths | - widths := item collect: [ :each | super widthToDisplayItem: each ]. - ^widths sum + (10 * (widths size - 1)) "add in space between the columns" - !

1 0

The Trunk: EToys-kfr.363.mcz
by commits＠source.squeak.org 18 Oct '19

18 Oct '19

Karl Ramberg uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kfr.363.mcz ==================== Summary ==================== Name: EToys-kfr.363 Author: kfr Time: 18 October 2019, 9:59:23.452765 pm UUID: b1411ef5-32ec-1f4b-b9bb-7d139d7facb2 Ancestors: EToys-mt.362 Utilities>>setterSelectorfor: was deprecated =============== Diff against EToys-mt.362 =============== Item was changed: ----- Method: AssignmentTileMorph>>assignmentRootForParseNode (in category '*Etoys-Squeakland-player viewer') ----- assignmentRootForParseNode "Answer the assignment root" + ^ assignmentRoot asSetterSelector! - ^ Utilities setterSelectorFor: assignmentRoot!

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 October 2019