Packages January 2021

packages@lists.squeakfoundation.org

1 participants
42 discussions

The Trunk: EToys-mt.416.mcz
by commits＠source.squeak.org 13 Jan '21

13 Jan '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.416.mcz ==================== Summary ==================== Name: EToys-mt.416 Author: mt Time: 13 January 2021, 4:38:11.621847 pm UUID: 27def810-ffb2-7b47-8af1-c264f29c9bd3 Ancestors: EToys-pre.415 Fixes minor layout issue. =============== Diff against EToys-pre.415 =============== Item was added: + ----- Method: NumericReadoutTile>>minWidth (in category 'misc') ----- + minWidth + ^ 40! Item was removed: - ----- Method: NumericReadoutTile>>minimumWidth (in category 'misc') ----- - minimumWidth - ^ 40! Item was added: + ----- Method: TileMorph>>minWidth (in category 'misc') ----- + minWidth + | aWidth | + aWidth := self basicWidth. + upArrow ifNotNil: [aWidth := aWidth + UpArrowAllowance]. + suffixArrow ifNotNil: [aWidth := aWidth + SuffixArrowAllowance]. + ^ aWidth + ! Item was removed: - ----- Method: TileMorph>>minimumWidth (in category 'misc') ----- - minimumWidth - | aWidth | - aWidth := self basicWidth. - upArrow ifNotNil: [aWidth := aWidth + UpArrowAllowance]. - suffixArrow ifNotNil: [aWidth := aWidth + SuffixArrowAllowance]. - ^ aWidth - !

1 0

The Trunk: HelpSystem-Core-mt.134.mcz
by commits＠source.squeak.org 13 Jan '21

13 Jan '21

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.134.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.134 Author: mt Time: 13 January 2021, 2:32:57.075665 pm UUID: 3680a1e7-e6e0-4144-a673-66b470bd5235 Ancestors: HelpSystem-Core-mt.133 In a help browser's search results, fixes the issue with title-only matches not showing up. Also show the path to the matched topic. =============== Diff against HelpSystem-Core-mt.133 =============== Item was changed: ----- Method: SearchTopic>>find:in:results: (in category 'searching') ----- find: term in: path results: results + | resultTemplate topic contents index | - | resultTemplate c topic | topic := path last. + resultTemplate := Array new: 6. + resultTemplate at: 1 put: path. + + contents := topic title asString. + (index := contents findString: term startingAt: 1 caseSensitive: false) > 0 ifTrue: [ + resultTemplate at: 2 put: (index to: index + term size) ]. + + contents := topic contents asString withSqueakLineEndings. + (index := contents findString: term startingAt: 1 caseSensitive: false) > 0 ifTrue: [ + | leadingContext trailingContext i | + leadingContext := 0. + trailingContext := 0. + i := index. + [i notNil] whileTrue: [ + (leadingContext = 2 or: [i = 1]) + ifTrue: [ + leadingContext := i = 1 ifTrue: [i] ifFalse: [i+1]. + i := nil] + ifFalse: [ + ((contents at: i) = Character cr) ifTrue: [ + leadingContext := leadingContext + 1]. + i := i - 1] ]. + i := index + term size. + [i notNil] whileTrue: [ + (trailingContext = 2 or: [i >= contents size]) + ifTrue: [ + trailingContext := i = contents size ifTrue: [i] ifFalse: [i-1]. + i := nil] + ifFalse: [ + ((contents at: i) = Character cr) ifTrue: [ + trailingContext := trailingContext + 1]. + i := i + 1] ]. - resultTemplate := Array new: 6. - (topic title asString findString: term startingAt: 1 caseSensitive: false) in: [:index | - index > 0 ifTrue: [resultTemplate at: 2 put: (index to: index + term size)]]. + resultTemplate + at: 3 put: (index - leadingContext + 1 to: index - leadingContext + term size); + at: 4 put: (contents copyFrom: leadingContext to: trailingContext); + at: 5 put: leadingContext; + at: 6 put: (index to: index + term size - 1) ]. - ((c := topic contents asString withSqueakLineEndings) findString: term startingAt: 1 caseSensitive: false) in: [:index | - index > 0 ifTrue: [ - | leadingContext trailingContext i | - leadingContext := 0. - trailingContext := 0. - i := index. - [i notNil] whileTrue: [ - (leadingContext = 2 or: [i = 1]) - ifTrue: [ - leadingContext := i = 1 ifTrue: [i] ifFalse: [i+1]. - i := nil] - ifFalse: [ - ((c at: i) = Character cr) ifTrue: [ - leadingContext := leadingContext + 1]. - i := i - 1] ]. - i := index + term size. - [i notNil] whileTrue: [ - (trailingContext = 2 or: [i >= c size]) - ifTrue: [ - trailingContext := i = c size ifTrue: [i] ifFalse: [i-1]. - i := nil] - ifFalse: [ - ((c at: i) = Character cr) ifTrue: [ - trailingContext := trailingContext + 1]. - i := i + 1] ]. - - resultTemplate - at: 1 put: path; - at: 3 put: (index - leadingContext + 1 to: index - leadingContext + term size); - at: 4 put: (c copyFrom: leadingContext to: trailingContext); - at: 5 put: leadingContext; - at: 6 put: (index to: index + term size - 1). - - self mutex critical: [ results add: resultTemplate ]. - self triggerUpdateContents. - - ] ]. + (resultTemplate second notNil "match in title" or: [resultTemplate third notNil "match in contents"]) ifTrue: [ + self mutex critical: [ results add: resultTemplate ]. + self triggerUpdateContents]. + topic isSearchable ifTrue: [ topic subtopics do: [:t | self find: term in: path, {t} results: results]].! Item was changed: ----- Method: SearchTopic>>printResultEntry: (in category 'private') ----- printResultEntry: entry | resultEntry topic | resultEntry := '' asText. topic := entry first last. entry second notNil ifFalse: [resultEntry append: ( (topic title) asText addAttribute: TextEmphasis bold)] ifTrue: [resultEntry append: ( (topic title) asText addAttribute: TextEmphasis bold; addAttribute: (TextColor color: Color green muchDarker) from: entry second first to: entry second last)]. resultEntry append: (' (open topic)' asText addAttribute: (PluggableTextAttribute evalBlock: [ self changed: #searchResultSelected with: entry first. self changed: #searchResultContentsSelected with: entry sixth])). resultEntry append: String cr. + resultEntry append: ( + ('> ', ((entry first allButLast collect: [:t | t title]) joinSeparatedBy: ' > ')) asText + addAttribute: (TextColor color: (Color gray: 0.7))). + + resultEntry append: String cr. + + entry fourth ifNil: [resultEntry append: '\\' withCRs] ifNotNil: [:contents | - entry fourth in: [:contents | | text | text := contents asText. text addAttribute: (TextColor color: Color green muchDarker) from: entry third first to: entry third last; addAttribute: TextEmphasis bold from: entry third first to: entry third last. resultEntry append: text withBlanksTrimmed; append: '\\' withCRs. ]. ^ resultEntry!

1 0

The Trunk: SystemReporter-eem.47.mcz
by commits＠source.squeak.org 13 Jan '21

13 Jan '21

Eliot Miranda uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-eem.47.mcz ==================== Summary ==================== Name: SystemReporter-eem.47 Author: eem Time: 12 January 2021, 3:42:22.819678 pm UUID: 440e979a-59dd-4593-8ada-75bc330a6583 Ancestors: SystemReporter-eem.46 Add event tracing mask, VM ticker stats, mixed arithmetic flag, and separate marking time. =============== Diff against SystemReporter-eem.46 =============== Item was changed: ----- Method: SystemReporter>>reportVMParameters: (in category 'reporting') ----- reportVMParameters: aStream | vmParameters isStack isCog isSpur | self header: 'Virtual Machine Parameters' on: aStream. vmParameters := Smalltalk vm getVMParameters. isStack := (vmParameters at: 42 ifAbsent: [0]) ~= 0. "42 = number of stack pages available" isCog := isStack and: [(vmParameters at: 46) ~= 0]. "46 is machine code zone size" isSpur := isStack and: [(vmParameters at: 41) anyMask: 2r10000]. "41 is imageFormatVersion for the VM; bit 16 is the Spur bit" (isSpur ifFalse: [#( 1 'size of old space' 2 'size of young+old space' 3 'size of memory' 4 'allocationCount' 5 'allocations between GCs' 6 'survivor count tenuring threshold')] ifTrue: [#( 1 'size of old space' 2 'used bytes in new space (used eden + used past space)' 3 'size of heap')]), #( 7 'full GCs since startup' 8 'total milliseconds in full GCs since startup'), (isSpur ifFalse: [#( 9 'incremental GCs since startup' 10 'total milliseconds in incremental GCs since startup' 11 'tenures of surving objects since startup'), {12 to: 19. 'specific to the translating VM'}] ifTrue: [#( 9 'scavenging GCs since startup' 10 'total milliseconds in scavenging GCs since startup' + 11 'tenures of surving objects since startup' + 12 'event trace mask (for debugging input events)' + 13 'VM ticker start microseconds (Croquet/QwaqVM)' + 14 'VM ticker count (Croquet/QwaqVM)' + 15 'VM ticker call count (Croquet/QwaqVM)' + 16 'total microseconds in idle since startup' - 11 'tenures of surving objects since startup'), - {12 to: 15. 'reserved for future use'}, - #( 16 'total microseconds in idle since startup' 17 'proportion of code zone available for use (Sista VMs only; read-write)' 18 'total milliseconds in full GC compaction since startup (a portion of parameter 8)' 19 'scavenge threshold; the effective size of eden')]), #( 20 'utc microseconds at startup (if non-zero)' 21 'root/remembered table size (occupancy)' 22 'root/remembered table overflows since startup' 23 'bytes of extra memory to reserve for VM buffers, plugins, etc.' 24 'free memory threshold above which object memory will be shrunk' 25 'memory headroom when growing object memory'), (isStack ifFalse: [#( 26 'interruptChecksEveryNms - force an ioProcessEvents every N milliseconds, in case the image is not calling getNextEvent often')] ifTrue: [#( 26 'heartbeat period (ms; see #58)')]), (isSpur ifFalse: [#( 27 'number of times mark loop iterated for current IGC/FGC includes ALL marking' 28 'number of times sweep loop iterated for current IGC/FGC' 29 'number of times make forward loop iterated for current IGC/FGC' 30 'number of times compact move loop iterated for current IGC/FGC')] ifTrue: [#()]), #( 31 'number of grow memory requests' 32 'number of shrink memory requests'), (isSpur ifFalse: [#( 33 'number of root table entries used for current IGC/FGC' 34 'number of allocations done before current IGC/FGC' 35 'number of survivor objects after current IGC/FGC' 36 'millisecond clock when current IGC/FGC completed' 37 'number of marked objects for Roots of the world, not including Root Table entries for current IGC/FGC' 38 'milliseconds taken by current IGC' 39 'Number of finalization signals for Weak Objects pending when current IGC/FGC completed')] ifTrue: [#( 33 'number of root table entries at last scavenge' 35 'number of survivor objects at last scavenge (if non-zero)' 36 'millisecond clock when current scavenge completed' 38 'milliseconds taken by current scavenge' 39 'Number of finalization signals for Weak Objects pending when current SGC/FGC completed')]), #( 40 'VM word size - 4 or 8'), (isStack ifTrue: [#( 41 'imageFormatVersion for the VM' 42 'number of stack pages available' 43 'desired number of stack pages (stored in image file header, max 65535)' 44 'size of eden, in bytes' 45 'desired size of eden, in bytes (stored in image file header)' 46 'machine code zone size, in bytes (0 in Stack VM)' 47 'desired machine code zone size (0 => default 1Mb to 2Mb depending on processor)'), { 48. 'Persistent image header flags\ bit 0: implies Process has threadId as its 4th inst var\ bit 1: if set, methods that are interpreted will have the flag bit set in their header\ bit 2: if set, implies preempting a process does not put it to the back of its run queue\ bit 3: if set, implies the GUI should run on the first thread and event queues should not be accessed from other threads\ bit 4: if set, implies the new finalization scheme where WeakArrays are queued\ bit 5: if set, implies wheel events will be delivered as such and not mapped to arrow key events\ bit 6: if set, implies arithmetic primitives will fail if given arguments of different types (float vs int)\ bit 7: if set, causes times delivered from file primitives to be in UTC rather than local time.' withCRs }, #( 49 'max size the image promises to grow the external semaphore table to'), (isSpur ifFalse: [{ 50 to: 51. 'reserved for VM parameters that persist in the image (such as size of eden above)'. 52 to: 56. 'specific to Spur' }] ifTrue: [{ 50 to: 51. 'reserved for VM parameters that persist in the image (such as size of eden above)' }, #( 52 'root/remembered table capacity' 53 'number of old space segments' 54 'total free old space' 55 'ratio of growth and image size at or above which a GC will be performed post scavenge')]), #( 56 'number of process switches since startup' 57 'number of ioProcessEvents calls since startup' 58 'number of forceInterruptCheck calls since startup' 59 'number of check event calls since startup' 60 'number of stack page overflows since startup' 61 'number of stack page divorces since startup' 62 'compiled code compactions since startup'), (isCog ifFalse: [#()] ifTrue: [#( 63 'total milliseconds in compiled code compactions since startup' 64 'the number of methods that currently have jitted machine-code')]), { 65. 'Cog feature flags\ bit 0: set if the VM supports MULTIPLE_BYTECODE_SETS.\ bit 1: set if the VM supports read-only objects (IMMUTABILITY).\ bit 2: set if the VM has an ITIMER_HEARTBEAT\ bit 3: set if the VM supports cross-platform BIT_IDENTICAL_FLOATING_POINT arithmetic' withCRs. 66. 'the byte size of a stack page'.}, (isSpur ifFalse: [{ 67 to: 69. 'reserved for more Cog-related info' }] ifTrue: [#( 67 'the maximum allowed size of old space (if zero there is no limit)' 68 'the average number of live stack pages when scanned by scavenge/gc/become' 69 'the maximum number of live stack pages when scanned by scavenge/gc/become')]), #( 70 'the vmProxyMajorVersion (the interpreterProxy VM_MAJOR_VERSION)' + 71 'the vmProxyMinorVersion (the interpreterProxy VM_MINOR_VERSION)'), + (isSpur + ifFalse: [#()] + ifTrue: + [#( 72 'milliseconds spent marking since startup' + 73 'reserved for more Spur-related info' + 74 'reserved for more Spur-related info' + 75 'do mixed arithmetic; if false binary arithmetic primitives will fail unless receiver and argument are of the same type')])] - 71 'the vmProxyMinorVersion (the interpreterProxy VM_MINOR_VERSION)')] ifFalse: [#()]) pairsDo: [:idx :desc | | value values | aStream nextPut: $#. idx isInteger ifTrue: [value := vmParameters at: idx. aStream print: idx; tab: (idx < 10 ifTrue: [2] ifFalse: [1]); nextPutAll: ((value isInteger and: [idx ~= 41]) ifTrue: [(desc includesSubstring: 'bit 0:') ifTrue: [value printStringBase: 2 nDigits: value highBit] ifFalse: [value asStringWithCommas]] ifFalse: [value printString])] ifFalse: [value := vmParameters at: idx first. aStream print: idx first; next: 2 put: $.; print: idx last; tab. values := idx collect: [:i| vmParameters at: i]. values asSet size = 1 ifTrue: [aStream print: value] ifFalse: [values do: [:v| aStream print: v] separatedBy: [aStream nextPutAll: ', ']]]. aStream tab; nextPutAll: desc; cr]!

1 0

The Trunk: Morphic-mt.1716.mcz
by commits＠source.squeak.org 12 Jan '21

12 Jan '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1716.mcz ==================== Summary ==================== Name: Morphic-mt.1716 Author: mt Time: 12 January 2021, 2:52:47.977356 pm UUID: 93f95f53-4457-5e4c-a157-5cbf89aa7328 Ancestors: Morphic-mt.1715 Fixes a bug in resize grips (having #rigid targets) that are placed within layouted (usually #shrinkWrap) owners. This makes all grips in resizable dialogs finally work as expected. I still consider this a #workaround to be improved. =============== Diff against Morphic-mt.1715 =============== Item was changed: ----- Method: BorderedMorph>>doFastWindowReframe: (in category 'resize handling') ----- doFastWindowReframe: ptName + | newBounds delta | - | newBounds | "For fast display, only higlight the rectangle during loop" newBounds := self bounds newRectButtonPressedDo: [:f | f withSideOrCorner: ptName setToPoint: (self pointFromWorld: Sensor cursorPoint) minExtent: self minimumExtent]. + delta := newBounds origin - self bounds origin. self bounds: newBounds. + self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2." + self allOwnersDo: [:owner | + owner layoutPolicy ifNotNil: [owner topLeft: owner topLeft + delta]]. ^newBounds.! Item was changed: ----- Method: BottomLeftGripMorph>>apply: (in category 'target resize') ----- apply: delta | oldBounds | oldBounds := self target bounds. self target + bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner + (0 @ delta y)). + self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2." + self target allOwnersDo: [:owner | + owner layoutPolicy ifNotNil: [owner left: owner left + delta x]].! - bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner + (0 @ delta y))! Item was changed: ----- Method: LeftGripMorph>>apply: (in category 'target resize') ----- apply: delta | oldBounds | oldBounds := self target bounds. self target + bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner). + self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2." + self target allOwnersDo: [:owner | + owner layoutPolicy ifNotNil: [owner left: owner left + delta x]].! - bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner)! Item was changed: ----- Method: TopGripMorph>>apply: (in category 'target resize') ----- apply: delta | oldBounds | oldBounds := self target bounds. self target + bounds: (oldBounds origin + (0 @ delta y) corner: oldBounds corner). + self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2." + self target allOwnersDo: [:owner | + owner layoutPolicy ifNotNil: [owner top: owner top + delta y]].! - bounds: (oldBounds origin + (0 @ delta y) corner: oldBounds corner)! Item was changed: ----- Method: TopLeftGripMorph>>apply: (in category 'target resize') ----- apply: delta | oldBounds | oldBounds := self target bounds. self target + bounds: (oldBounds origin + delta corner: oldBounds corner). + self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2." + self target allOwnersDo: [:owner | + owner layoutPolicy ifNotNil: [owner topLeft: owner topLeft + delta]].! - bounds: (oldBounds origin + delta corner: oldBounds corner)! Item was changed: ----- Method: TopRightGripMorph>>apply: (in category 'target resize') ----- apply: delta | oldBounds | oldBounds := self target bounds. self target + bounds: (oldBounds origin + (0@delta y) corner: oldBounds corner + (delta x @ 0)). + self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2." + self target allOwnersDo: [:owner | + owner layoutPolicy ifNotNil: [owner top: owner top + delta y]].! - bounds: (oldBounds origin + (0@delta y) corner: oldBounds corner + (delta x @ 0))!

1 0

The Trunk: ToolBuilder-Morphic-mt.271.mcz
by commits＠source.squeak.org 12 Jan '21

12 Jan '21

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.271.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.271 Author: mt Time: 12 January 2021, 2:09:57.073356 pm UUID: b77f7e90-6347-f242-8b9b-921013f06122 Ancestors: ToolBuilder-Morphic-mt.270 Removes the "breathing space" in a list-chooser's preferred extent. Thanks to Chris (cbc) for clarifying the issue with the cellInset in LazyListMorph. Note that I do have a better solution for min/max/preferredExtent in combination with ProportionalLayout and LayoutFrame. Maybe now is the time to invest more time into that. Also note that I will now investigate that 2-pixel-bug that causes the vertical scroll bar to remain after hitting the expand button in a dialog. It is related to the list's and input-field's borderWidth. =============== Diff against ToolBuilder-Morphic-mt.270 =============== Item was changed: ----- Method: ListChooser>>initialExtent (in category 'building') ----- initialExtent | listFont itemCount maxItemSize cellSize | listFont := Preferences standardListFont. itemCount := items size. maxItemSize := items inject: 0 into: [:max :item | max max: item size]. cellSize := (listFont widthOf: $m) @ listFont height. + ^ ((maxItemSize min: 20 max: 10) + @ (itemCount min: 15 max: 5) - ^ ((maxItemSize + 1 "breathing space" min: 20 max: 10) - @ (itemCount + 1 "breathing space" min: 15 max: 5) * cellSize) + (0@ self searchBarHeight)! Item was changed: ----- Method: ListChooser>>preferredExtent (in category 'building') ----- preferredExtent | listFont cellSize | listFont := Preferences standardListFont. cellSize := (listFont widthOf: $m) @ listFont height. ^ ((items inject: 0 into: [:max :item | max max: (listFont widthOfString: item)]) @ (items size * listFont height)) - + ((1@1) * cellSize) "breathing space" + (0@ self searchBarHeight)! Item was changed: ----- Method: ListMultipleChooser>>initialExtent (in category 'toolbuilder') ----- initialExtent | listFont itemCount maxItemSize cellSize | listFont := Preferences standardListFont. itemCount := labels size. maxItemSize := labels inject: 0 into: [:max :item | max max: item size]. cellSize := (listFont widthOf: $m) @ listFont height. + ^ ((maxItemSize min: 20 max: 10) + @ (itemCount min: 15 max: 5) - ^ ((maxItemSize + 1 "breathing space" min: 20 max: 10) - @ (itemCount + 1 "breathing space" min: 15 max: 5) * cellSize)! Item was changed: ----- Method: ListMultipleChooser>>preferredExtent (in category 'toolbuilder') ----- preferredExtent | listFont cellSize | listFont := Preferences standardListFont. cellSize := (listFont widthOf: $m) @ listFont height. ^ ((labels inject: 0 into: [:max :item | max max: (listFont widthOfString: item)]) + @ (labels size * listFont height))! - @ (labels size * listFont height)) - + ((1@1) * cellSize) "breathing space"! Item was changed: ----- Method: PluggableDialogWindow>>expandDialogPane (in category 'running') ----- expandDialogPane + "Expand the dialog pane to its preferred extent, including the pane's extra layout inset used for grips. Then try again to move to the dialog's preferred position." - "Expand the dialog pane to its preferred extent. Honor the visible area in the world." + | extra | + self flag: #preferredExtentWorkaround. "mt: Working with a widget's min, max, and preferred extent is still very awkward using proportional layouts and layout frames. For now, approximate extra spacing to accommodate ListChooser and ListMultipleChooser only." + extra := LazyListMorph new cellInset. extra := extra topLeft + extra bottomRight. - | visibleArea decorationOffset expandedExtent | - visibleArea := self currentWorld visibleClearArea. - decorationOffset := self extent - self paneMorph extent. - expandedExtent := self model preferredExtent + (self paneMorph layoutInset * 2) asPoint. - - self paneMorph extent: (expandedExtent min: visibleArea extent - decorationOffset). + self paneMorph extent: + (self model preferredExtent + + (self paneMorph layoutInset * 2) asPoint + + extra). - self fullBounds. self moveToPreferredPosition.!

1 0

The Trunk: Morphic-mt.1715.mcz
by commits＠source.squeak.org 12 Jan '21

12 Jan '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1715.mcz ==================== Summary ==================== Name: Morphic-mt.1715 Author: mt Time: 12 January 2021, 2:04:07.252356 pm UUID: 2641645d-9048-f44f-b6ea-2cd85e2c7ff0 Ancestors: Morphic-mt.1714 Fixes the issue where a dialog with flexible contents was not fully visible in small worlds. Thanks to Chris (cbc) for pointing this out! (Note that I think that we need a better way for this combination of #fullBounds, #extent:, and #translatedToBeWithin: to make sure that a morph is visible in the world. May be also useful for other windows. Not sure about this variation with #center: though.) =============== Diff against Morphic-mt.1714 =============== Item was changed: ----- Method: DialogWindow>>moveToHand (in category 'position') ----- moveToHand + self moveToHand: self currentHand.! - self moveToHand: self activeHand.! Item was changed: ----- Method: DialogWindow>>moveToPreferredPosition (in category 'initialization') ----- moveToPreferredPosition + "Moves the dialog window to its preferred position, which can be a point on the screen or a named widget in the dialog's central pane. Ensure that the dialog is fully visible in the world. Also see #positionOverWidgetNamed:." + + | visibleArea decorationOffset | + self fullBounds. "Compute new layout to have updated bounds." + visibleArea := self currentWorld visibleClearArea. + decorationOffset := self extent - self paneMorph extent. + self paneMorph extent: + (self paneMorph extent min: visibleArea extent - decorationOffset). + self fullBounds. "Compute new layout to have updated bounds." self center: (preferredPosition isPoint ifTrue: [ preferredPosition ] ifFalse: [ self center + self currentHand position - preferredPosition center ]). + self bounds: + (self bounds translatedToBeWithin: visibleArea).! - self bounds: (self bounds translatedToBeWithin: self currentWorld visibleClearArea)!

1 0

The Trunk: Morphic-mt.1714.mcz
by commits＠source.squeak.org 11 Jan '21

11 Jan '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1714.mcz ==================== Summary ==================== Name: Morphic-mt.1714 Author: mt Time: 11 January 2021, 5:39:09.729446 pm UUID: e843c65c-8522-4544-84e8-4d21a8ca197e Ancestors: Morphic-mt.1713 Minor fix in dialog to not hide the world's docking bar. =============== Diff against Morphic-mt.1713 =============== Item was changed: ----- Method: DialogWindow>>moveToPreferredPosition (in category 'initialization') ----- moveToPreferredPosition self center: (preferredPosition isPoint ifTrue: [ preferredPosition ] ifFalse: [ self center + self currentHand position - preferredPosition center ]). + self bounds: (self bounds translatedToBeWithin: self currentWorld visibleClearArea)! - self bounds: (self bounds translatedToBeWithin: self currentWorld bounds)!

1 0

The Trunk: ToolBuilder-Morphic-mt.270.mcz
by commits＠source.squeak.org 11 Jan '21

11 Jan '21

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.270.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.270 Author: mt Time: 11 January 2021, 5:36:43.295446 pm UUID: 5171b75b-ee89-b14f-8ec9-a27cdfaa52bb Ancestors: ToolBuilder-Morphic-mt.269 To pluggable dialogs, add an expand button if the model supports #preferredExtent. Also tweaks a list-chooser's initial extent show 5 to 15 items which each about 10 to 20 characters, depending on the list's content. This commit addresses the concerns raised in ToolBuilder-Morphic-cbc.270 (inbox). See http://forum.world.st/The-Inbox-ToolBuilder-Morphic-cbc-270-mcz-tp5126045.h… =============== Diff against ToolBuilder-Morphic-mt.269 =============== Item was changed: ----- Method: ListChooser>>buildWith: (in category 'building') ----- buildWith: builder | dialogSpec searchBarHeight listSpec fieldSpec | + searchBarHeight := self searchBarHeight. - searchBarHeight := Preferences standardDefaultTextFont height * 1.75. dialogSpec := builder pluggableDialogSpec new model: self; title: #title; closeAction: #closed; extent: self initialExtent; autoCancel: true; "Behave like a pop-up menu. Historical reasons." children: OrderedCollection new; buttons: OrderedCollection new; yourself. listSpec := builder pluggableListSpec new. listSpec model: self; list: #items; getIndex: #selectedIndex; setIndex: #selectedIndex:; doubleClick: #accept; "keystrokePreview: #keyStrokeFromList:;" autoDeselect: false; filterableList: true; clearFilterAutomatically: false; name: #list; frame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@searchBarHeight corner: 0@0)). dialogSpec children add: listSpec. fieldSpec := builder pluggableInputFieldSpec new. fieldSpec model: self; name: #searchText ; getText: #searchText; editText: #searchText:; setText: #acceptText:; selection: #textSelection; menu: nil; indicateUnacceptedChanges: false; askBeforeDiscardingEdits: false; help: (self addAllowed ifTrue: ['Type new or filter existing...' translated] ifFalse: ['Type to filter existing...' translated]); frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@searchBarHeight)). dialogSpec children add: fieldSpec. "Buttons" dialogSpec buttons add: ( builder pluggableButtonSpec new model: self; label: #acceptLabel; action: #accept; enabled: #canAcceptOrAdd; color: #acceptColor). dialogSpec buttons add: ( builder pluggableButtonSpec new model: self; label: 'Cancel'; action: #cancel; color: #cancelColor). dialogMorph := builder build: dialogSpec. dialogMorph addKeyboardCaptureFilter: self ; positionOverWidgetNamed: #searchText. listMorph := builder widgetAt: #list. listMorph allowEmptyFilterResult: true. ^ dialogMorph! Item was changed: ----- Method: ListChooser>>initialExtent (in category 'building') ----- initialExtent + | listFont itemCount maxItemSize cellSize | - | listFont | listFont := Preferences standardListFont. + itemCount := items size. + maxItemSize := items inject: 0 into: [:max :item | max max: item size]. + cellSize := (listFont widthOf: $m) @ listFont height. + + ^ ((maxItemSize + 1 "breathing space" min: 20 max: 10) + @ (itemCount + 1 "breathing space" min: 15 max: 5) + * cellSize) + (0@ self searchBarHeight)! - ^ (20 * (listFont widthOf: $m))@(15 * listFont height)! Item was added: + ----- Method: ListChooser>>preferredExtent (in category 'building') ----- + preferredExtent + + | listFont cellSize | + listFont := Preferences standardListFont. + cellSize := (listFont widthOf: $m) @ listFont height. + + ^ ((items inject: 0 into: [:max :item | max max: (listFont widthOfString: item)]) + @ (items size * listFont height)) + + ((1@1) * cellSize) "breathing space" + + (0@ self searchBarHeight)! Item was added: + ----- Method: ListChooser>>searchBarHeight (in category 'building') ----- + searchBarHeight + + ^ Preferences standardDefaultTextFont height * 1.75! Item was changed: ----- Method: ListMultipleChooser>>initialExtent (in category 'toolbuilder') ----- initialExtent + | listFont itemCount maxItemSize cellSize | - | listFont | listFont := Preferences standardListFont. + itemCount := labels size. + maxItemSize := labels inject: 0 into: [:max :item | max max: item size]. + cellSize := (listFont widthOf: $m) @ listFont height. + + ^ ((maxItemSize + 1 "breathing space" min: 20 max: 10) + @ (itemCount + 1 "breathing space" min: 15 max: 5) + * cellSize)! - ^ (20 * (listFont widthOf: $m))@(15 * listFont height)! Item was added: + ----- Method: ListMultipleChooser>>preferredExtent (in category 'toolbuilder') ----- + preferredExtent + + | listFont cellSize | + listFont := Preferences standardListFont. + cellSize := (listFont widthOf: $m) @ listFont height. + + ^ ((labels inject: 0 into: [:max :item | max max: (listFont widthOfString: item)]) + @ (labels size * listFont height)) + + ((1@1) * cellSize) "breathing space"! Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableDialog: (in category 'widgets optional') ----- buildPluggableDialog: aSpec | widget | widget := self dialogClass new. self register: widget id: aSpec name. widget model: aSpec model. "Set child dependent layout properties. The pane morph holds the special contents." widget paneMorph wantsPaneSplitters: (aSpec wantsResizeHandles ifNil: [true]). self setLayoutHintsFor: widget paneMorph spec: aSpec. widget paneMorph layoutInset: (aSpec padding ifNil: [ProportionalSplitterMorph gripThickness]). widget paneMorph cellGap: (aSpec spacing ifNil: [ProportionalSplitterMorph gripThickness]). widget paneMorph wantsPaneSplitters ifTrue: [ widget paneMorph addCornerGrips"addEdgeGrips". widget paneMorph grips do: [:ea | ea showHandle: true]]. "Now create the children." panes := OrderedCollection new. aSpec children isSymbol ifTrue: [ widget getChildrenSelector: aSpec children. widget update: aSpec children] ifFalse: [ self buildAll: aSpec children in: widget paneMorph]. "Now create the buttons." aSpec buttons isSymbol ifTrue: [ widget getButtonsSelector: aSpec buttons. widget update: aSpec buttons] ifFalse: [ self buildAll: aSpec buttons in: widget buttonRowMorph. widget updateButtonProperties]. aSpec title ifNotNil: [:label | label isSymbol ifTrue:[widget getTitleSelector: label; update: label] ifFalse:[widget title: label]]. aSpec message ifNotNil: [:label | label isSymbol ifTrue:[widget getMessageSelector: label; update: label] ifFalse:[widget message: label]]. "Interaction behavior." aSpec autoCancel ifNotNil: [:b | widget autoCancel: b]. aSpec exclusive ifNotNil: [:b | widget exclusive: b]. widget closeDialogSelector: aSpec closeAction. self buildHelpFor: widget spec: aSpec. "Everything is shrink-wrapped around the pane morph." + widget paneMorph extent: (aSpec extent ifNil:[widget initialExtent]) + + (widget paneMorph layoutInset * 2) asPoint. - widget paneMorph extent: (aSpec extent ifNil:[widget initialExtent]). ^ widget! Item was added: + ----- Method: PluggableDialogWindow>>createTitle: (in category 'initialization') ----- + createTitle: aString + "Overridden to add an extra expand button. Yet, it depends on the model's interface whether that button will be visible. See #model:." + + | box expandButton| + super createTitle: aString. + + expandButton := SystemWindowButton new + name: #expandButton; + color: Color transparent; + target: self; + actionSelector: #expandDialogPane; + balloonText: 'Expand this dialog' translated; + borderWidth: 0; + yourself. + SystemWindow expandBoxImage scaleIconToDisplay in: [:icon | + expandButton labelGraphic: icon; extent: icon extent]. + + box := self submorphNamed: #title. + box addMorphBack: expandButton.! Item was added: + ----- Method: PluggableDialogWindow>>expandDialogPane (in category 'running') ----- + expandDialogPane + "Expand the dialog pane to its preferred extent. Honor the visible area in the world." + + | visibleArea decorationOffset expandedExtent | + visibleArea := self currentWorld visibleClearArea. + decorationOffset := self extent - self paneMorph extent. + expandedExtent := self model preferredExtent + (self paneMorph layoutInset * 2) asPoint. + + self paneMorph extent: (expandedExtent min: visibleArea extent - decorationOffset). + + self fullBounds. + self moveToPreferredPosition.! Item was changed: ----- Method: PluggableDialogWindow>>model: (in category 'accessing') ----- + model: newModel - model: anObject model ifNotNil: [model removeDependent: self]. + newModel ifNotNil: [ + newModel addDependent: self. + (newModel respondsTo: #preferredExtent) + ifFalse: [((self submorphNamed: #title) submorphNamed: #expandButton) delete]]. + model := newModel.! - anObject ifNotNil: [anObject addDependent: self]. - model := anObject.!

1 0

The Trunk: System-dtl.1210.mcz
by commits＠source.squeak.org 06 Jan '21

06 Jan '21

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1210.mcz ==================== Summary ==================== Name: System-dtl.1210 Author: dtl Time: 6 January 2021, 4:59:31.092128 pm UUID: a704d749-4986-46f9-aa2f-faa8bb4ea5e1 Ancestors: System-eem.1207 Provide vmParameterAt:ifAbsent: to handle primitive failure on reading VM parameters. Supply default parameter values to mock possibly missing elements in the parameters array. =============== Diff against System-eem.1207 =============== Item was changed: ----- Method: SmalltalkImage>>isRunningCog (in category 'system attributes') ----- isRunningCog "Answers if we're running on a Cog VM (JIT or StackInterpreter)" + ^(self vmParameterAt: 42 ifAbsent: nil) - ^(self vmParameterAt: 42) ifNil: [false] ifNotNil: [:numStackPages| numStackPages > 0]! Item was changed: ----- Method: SmalltalkImage>>isRunningCogit (in category 'system attributes') ----- isRunningCogit "Answers if we're running on the Cog JIT" + ^(self vmParameterAt: 46 ifAbsent: nil) - ^(self vmParameterAt: 46) ifNil: [false] ifNotNil: [:machineCodeZoneSize| machineCodeZoneSize > 0]! Item was changed: ----- Method: SmalltalkImage>>lowSpaceThreshold (in category 'memory space') ----- lowSpaceThreshold "Answer the low space threshold. When the amount of free memory (after garbage collection) falls below this limit, the system is in serious danger of completely exhausting memory and crashing. This limit should be made high enough to allow the user open a debugger to diagnose a problem or to save the image. In a stack-based VM such as Cog contexts for activations in the stack zone will have to be created as the debugger opens, requiring additional headroom." | slotsForDebugger slotsForContextsOnStackPages | slotsForDebugger := 65536. "Arbitrary guess" slotsForContextsOnStackPages := + (self vmParameterAt: 42 ifAbsent: nil) - (self vmParameterAt: 42) ifNil: [0] ifNotNil: [:numStackPages| | headerSize numActivationsPerPage maxContextSize | numActivationsPerPage := 40. "Design goal of the Cog & Stack VMs" headerSize := 8 / self wordSize. "64-bits for Spur" maxContextSize := thisContext class instSize + CompiledMethod fullFrameSize + headerSize. numStackPages * numActivationsPerPage * maxContextSize]. ^slotsForDebugger + slotsForContextsOnStackPages * self wordSize! Item was changed: ----- Method: SmalltalkImage>>maxExternalSemaphores (in category 'vm parameters') ----- maxExternalSemaphores + "The size of table where external semaphores are registered. Only in Cog, + other VMs are expected to answer nil if present in the parameters array." + ^self vmParameterAt: 49 ifAbsent: nil! - "The size of table where external semaphores are registered. Only in Cog" - self isRunningCog ifFalse: [^nil]. - ^self vmParameterAt: 49! Item was changed: ----- Method: SmalltalkImage>>maxExternalSemaphores: (in category 'vm parameters') ----- maxExternalSemaphores: aSize "Changes the size of table where external semaphores are registered. The size can only grow, and will always be the next power of two larger than the parameter. Setting this at any time other than start-up can potentially lose requests. i.e. during the realloc new storage is allocated, the old contents are copied and then pointers are switched. Requests occurring during copying won't be seen if they occur to indices already copied. The intended use is to set the table to some adequate maximum at start-up" - self isRunningCog ifFalse: [^0]. "The vm-header field is a short, maximum 64k entries. Well, on most platforms anyways " (aSize < 0 or: [aSize > 16rFFFF]) ifTrue: [^self error: 'maxExternalSemaphores: is limited to 16rFFFF']. + ^[self vmParameterAt: 49 put: aSize] on: Error do: [0].! - ^self vmParameterAt: 49 put: aSize! Item was changed: ----- Method: SmalltalkImage>>processPreemptionYields (in category 'system attributes') ----- processPreemptionYields "Answer whether the VM causes a process to yield on process preemption, i.e. to put a preempted process at the back of its run queue. If the parameter is unavailable (non-Cog VMs) or bit 2 (4) is 0 then preemption yields." + ^((self vmParameterAt: 48 ifAbsent: [^true]) allMask: 4) not + ! - ^(([self vmParameterAt: 48] - on: Error - do: [:ex| ^true]) allMask: 4) not! Item was changed: ----- Method: SmalltalkImage>>sendMouseWheelEvents (in category 'system attributes') ----- sendMouseWheelEvents "The Cog VM can be instructed to deliver mouse wheel events as mouse wheel events. By default mouse wheel events are mapped to arrow events. This flag persists across snapshots, stored in the image header." + ^(self vmParameterAt: 48 ifAbsent: 0) anyMask: 32! - ^(self vmParameterAt: 48) anyMask: 32! Item was changed: ----- Method: SmalltalkImage>>supportsMultipleBytecodeSets (in category 'system attributes') ----- supportsMultipleBytecodeSets "Answer whether the VM supports multiple bytecodeSets." "SmalltalkImage current supportsMultipleBytecodeSets" + ^(self vmParameterAt: 65 ifAbsent: nil) - ^(self vmParameterAt: 65) ifNil: [false] ifNotNil: [:param| "In older VMs this is a boolean answering the vm-internal MULTIPLE_BYTECODE_SETS define" param isInteger "In newer VMs it is a set of integer flags, bit 0 of which is the vm-internal MULTIPLE_BYTECODE_SETS define" ifTrue: [param anyMask: 1] ifFalse: [param]]! Item was changed: ----- Method: SmalltalkImage>>supportsQueueingFinalization (in category 'system attributes') ----- supportsQueueingFinalization "Answer whether the VM queues individual weak arrays for finalization, instead of signalling the finalization semaphore once for all arrays and having the WeakRegistry mechanism finalize all weak arrays, whether they need to or not." "SmalltalkImage current supportsQueueingFinalization" + ^(self vmParameterAt: 48 ifAbsent: 0) anyMask: 16! - ^(self vmParameterAt: 48) anyMask: 16! Item was changed: ----- Method: SmalltalkImage>>supportsQueueingFinalization: (in category 'system attributes') ----- supportsQueueingFinalization: aBoolean "Determine whether the VM queues individual weak arrays for finalization, instead of signalling the finalization semaphore once for all arrays and having the WeakRegistry mechanism finalize all weak arrays, whether they need to or not. This flag persists across snapshots, stored in the image header." "SmalltalkImage current supportsQueueingFinalization: true" + self vmParameterAt: 48 put: ((self vmParameterAt: 48 ifAbsent: [^false]) bitClear: 16) + (aBoolean ifTrue: [16] ifFalse: [0])! - self vmParameterAt: 48 put: ((self vmParameterAt: 48) bitClear: 16) + (aBoolean ifTrue: [16] ifFalse: [0])! Item was changed: ----- Method: SmalltalkImage>>supportsReadOnlyObjects (in category 'system attributes') ----- supportsReadOnlyObjects "Answer whether the VM observes the per-object read-only flag and consequently aborts writes to inst vars of, and fails primitives that attempt to modify, read-only objects." "SmalltalkImage current supportsReadOnlyObjects" + ^(self vmParameterAt: 65 ifAbsent: nil) - ^(self vmParameterAt: 65) ifNil: [false] ifNotNil: [:param| "In older VMs this is a boolean answering the vm-internal MULTIPLE_BYTECODE_SETS define" param isInteger "In newer VMs it is a set of integer flags, bit 1 of which is the vm-internal IMMUTABILITY define" ifTrue: [param anyMask: 2] ifFalse: [false]]! Item was added: + ----- Method: SmalltalkImage>>vmParameterAt:ifAbsent: (in category 'vm parameters') ----- + vmParameterAt: parameterIndex ifAbsent: defaultValueOrBlock + "Answer a VM parameter or defaultValueOrBlock value if out of range." + ^ [self vmParameterAt: parameterIndex] + on: Error + do: [defaultValueOrBlock value]! Item was changed: ----- Method: SmalltalkImage>>wordSize (in category 'image') ----- wordSize "Answer the size in bytes of an object pointer or word in the object memory. The value does not change for a given image, but may be modified by a SystemTracer when converting the image to another format. The value is cached in WordSize to avoid the performance overhead of repeatedly consulting the VM." "Smalltalk wordSize" + ^ WordSize ifNil: [WordSize := self vmParameterAt: 40 ifAbsent: 4]! - ^ WordSize ifNil: [WordSize := [self vmParameterAt: 40] on: Error do: [4]]!

1 0

The Trunk: Tools-mt.1023.mcz
by commits＠source.squeak.org 06 Jan '21

06 Jan '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1023.mcz ==================== Summary ==================== Name: Tools-mt.1023 Author: mt Time: 6 January 2021, 11:12:15.085417 am UUID: cc33f893-f9b4-2047-a2f9-b085897e017f Ancestors: Tools-eem.1022 Improve robustness against erroneous menu builders. =============== Diff against Tools-eem.1022 =============== Item was changed: ----- Method: Model>>buildMenu:withBuilders:shifted: (in category '*Tools-pluggable menus') ----- buildMenu: aMenu withBuilders: builders shifted: aBoolean + " We let every builder modify the menu. Skip erroneous builders silently. - " We let every builder modify the menu. The builder should indicate whether to abort by returning nil." | menu | menu := aMenu. builders do: [:builder | + menu := [self perform: builder method selector withEnoughArguments: { menu . aBoolean }] + ifError: [:msg | Transcript showln: 'Menu builder failed: ', msg. menu]. - menu := self perform: builder method selector withEnoughArguments: { menu . aBoolean }. menu ifNil: [^ aMenu]]. ^ menu !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2021