Squeak-dev October 2019

squeak-dev@lists.squeakfoundation.org

41 participants
284 discussions

MethodFinder.Blocks
by Thiede, Christoph 25 Oct '19

25 Oct '19

Hi all, I just got irritated as I evaluated MethodFinder methodFor: {{#(1 2). #even}. #(1)} and got no hit. This is because the MethodFinder stores an extra list of selector parameters that are assumed to require a block argument (Blocks) -- but nowadays this requirement is not given, as you can pass a Symbol, MessageSend, SortFunction or whatsoever, thanks to polymorphy. So (how) is this block check still relevant? If I remove it, I get the right hit and can do thinks like MethodFinder methodFor: {{#(1 2). #yourself descending}. #(2 1)}. Also, #ifError: will prevent any error thrown if the block does not match the selector. Looking forward to your answers :) Christoph

3 8

Smalltalk>>#platformName
by Chris Muller 25 Oct '19

25 Oct '19

I was trying to find out all possible values of this message. Browsing senders reveals a need to factor this out into a first-class SqueakPlatform -- we have way too many places which employ switch statements to determine what to do: Smalltalk platformName = "Mac OS" ifTrue: [ #('/System/Library/Fonts' '/Library/Fonts') do: [:fontDir | aBlock value: fontDir]. ] Others check for "Win32", I'm not sure what #platformName is answering on 64-bit VM on Windows these days, could someone running Windows please tell me? Still others check for "Risc OS" or "unix". So, the full list I have so far is: unix Win32 Mac OS Risc OS If you know of any others, please let me know. - Chris

10 9

self subStrings:'||'
by gettimothy 24 Oct '19

24 Oct '19

Hi all. ' Middle-left-cell || style="width: 14em;" | Middle-center-cell || Middle-right-cell' self subStrings:'|' ' Middle-left-cell || style="width: 14em;" | Middle-center-cell || Middle-right-cell' self subStrings:'||' inspect both, they are identical. Is this expected behavior? Looking at the method:char := sourceStream next. is the "problem" in that a match is had for the single pipe character. Is there a better way to split that string along double pipes '||' ? thank you in advance.

4 3

Number>>cubed
by Bert Freudenberg 24 Oct '19

24 Oct '19

Me thinks that method needs this example: -80538738812075974 cubed + 80435758145817515 cubed + 12602123297335631 cubed - Bert -

5 7

Give debuggers more space ... :-)
by Marcel Taeumel 23 Oct '19

23 Oct '19

Hi, all! May I add more spaces to Context >> #printOn:? ... and a "#" in front of the selector ... Best, Marcel

12 26

Examples of PluggableMultiColumnListMorph configuration
by Marcel Taeumel 23 Oct '19

23 Oct '19

Hi, all. Update your Trunk image and try this: | model view | model := { SystemNavigation default allClasses collect: #name. SystemNavigation default allClasses collect: #category. }. view := PluggableMultiColumnListMorph on: model list: #yourself selected: nil changeSelected: nil. view extent: 200@300. view listFilterSet: 'Hand'. view openInHand. "Play around with horizontal alignment." view listMorphs first cellPositioning: #rightCenter. view listMorphs second cellPositioning: #center. view listMorphs do: [:col | col cellPositioning: #leftCenter]. "Play around with margins." view listMorphs do: [:col | col cellInset: 0]. view listMorphs do: [:col | col cellInset: 3@0]. view listMorphs do: [:col | col cellInset: 5]. "Funny but not useful." view listMorphs first cellInset: 3. view listMorphs second cellInset: 0. "Fit all contents." view listMorphs do: [:col | col hResizing: #shrinkWrap; vResizing: #shrinkWrap]. "always set anyway" view hResizing: #shrinkWrap; vResizing: #shrinkWrap. "Enable horizontal scrolling" view hResizing: #rigid; hScrollBarPolicy: #whenNeeded; width: 100. "Disable horizontal scrolling" view hScrollBarPolicy: #never. Best, Marcel

6 10

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

← Newer
1
...
4
5
6
7
8
9
10
...
29
Older →

Jump to page: