Packages August 2023

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Collections-mt.1049.mcz
by commits＠source.squeak.org 10 Aug '23

10 Aug '23

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1049.mcz ==================== Summary ==================== Name: Collections-mt.1049 Author: mt Time: 10 August 2023, 9:58:43.81662 am UUID: 7a94c086-e179-1148-899a-139ecbc19f5b Ancestors: Collections-mt.1048 Make #withoutDuplicates available to more kinds of collections. Thanks to Christoph (ct) for the idea. Here is the discussion: http://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun… =============== Diff against Collections-dtl.1047 =============== Item was added: + ----- Method: Bag>>copyWithoutDuplicates (in category 'copying') ----- + copyWithoutDuplicates + "Overwritten for better performance. We already know about the unique items in the receiver." + + ^ self species basicNew + setContents: (contents collect: [:count | 1]); + yourself! Item was added: + ----- Method: Bitset>>copyWithoutDuplicates (in category 'copying') ----- + copyWithoutDuplicates + + self shouldNotImplement.! Item was added: + ----- Method: CharacterSet>>copyWithoutDuplicates (in category 'copying') ----- + copyWithoutDuplicates + + self shouldNotImplement.! Item was added: + ----- Method: Collection>>copyWithoutDuplicates (in category 'copying') ----- + copyWithoutDuplicates + "Answer a copy of the receiver that preserves order, if any, but eliminates any duplicates." + + | seen | + seen := Set new: self size. + ^ self select: [:each | seen ifAbsentAdd: each]! Item was added: + ----- Method: Collection>>withoutDuplicates (in category 'copying') ----- + withoutDuplicates + "Answer a variant of the receiver that has no duplicate elements. Might be the receiver itself if it already contains no duplicates. See subclass implementations. If you want to modify the result, use #copyWithoutDuplicates to make it explicit." + + ^ self copyWithoutDuplicates! Item was added: + ----- Method: Dictionary>>copyWithoutDuplicateValues (in category 'copying') ----- + copyWithoutDuplicateValues + + ^ super copyWithoutDuplicates! Item was added: + ----- Method: Dictionary>>copyWithoutDuplicates (in category 'copying') ----- + copyWithoutDuplicates + "Behaves like a set because keys are already unique. Note that if you want to remove duplicate values, use #values first, then #copyWithoutDuplicates. Or see #copyWithoutDuplicateValues." + + ^ self copy! Item was added: + ----- Method: Dictionary>>withoutDuplicateValues (in category 'copying') ----- + withoutDuplicateValues + + ^ self copyWithoutDuplicateValues! Item was added: + ----- Method: Dictionary>>withoutDuplicates (in category 'copying') ----- + withoutDuplicates + "Behaves like a set because keys are already unique. Note that if you want to remove duplicate values, use #values first, then #withoutDuplicates. Or see #withoutDuplicateValues." + + ^ self! Item was added: + ----- Method: Heap>>copyWithoutDuplicates (in category 'copying') ----- + copyWithoutDuplicates + + self shouldNotImplement.! Item was added: + ----- Method: Matrix>>copyWithoutDuplicates (in category 'copying') ----- + copyWithoutDuplicates + + self shouldNotImplement.! Item was removed: - ----- Method: SequenceableCollection>>withoutDuplicates (in category 'copying') ----- - withoutDuplicates - "Answer a copy of the receiver that preserves order but eliminates any duplicates." - | seen | - seen := Set new: self size. - ^self select: [:each| seen ifAbsentAdd: each]! Item was added: + ----- Method: Set>>copyWithoutDuplicates (in category 'copying') ----- + copyWithoutDuplicates + "Overwritten for better performance. We already know about the unique items in the receiver." + + ^ self copy! Item was added: + ----- Method: Set>>withoutDuplicates (in category 'copying') ----- + withoutDuplicates + "Overwritten for better performance. We already know about the unique items in the receiver." + + ^ self!

1 0

The Trunk: Kernel-mt.1518.mcz
by commits＠source.squeak.org 09 Aug '23

09 Aug '23

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1518.mcz ==================== Summary ==================== Name: Kernel-mt.1518 Author: mt Time: 9 August 2023, 3:24:15.725576 pm UUID: 8260fcb3-5465-1b43-a2bc-4d045c933398 Ancestors: Kernel-mt.1517 Fixes #hasInstVarRef, now that we have compiled blocks embeddded. =============== Diff against Kernel-mt.1517 =============== Item was added: + ----- Method: CompiledBlock>>hasInstVarRef (in category 'scanning') ----- + hasInstVarRef + + self flag: #discuss. "mt: Should we move up more of the scanning protocol from CompiledMethod to CompiledCode? See senders of #hasInstVarRef and implementor in Context." + ^ self method hasInstVarRef! Item was changed: ----- Method: CompiledMethod>>hasInstVarRef (in category 'scanning') ----- hasInstVarRef + "Answer whether the receiver references an instance variable." - "Answer whether the method references an instance variable." + | printer | - | scanner end printer | - - scanner := InstructionStream on: self. printer := InstVarRefLocator new. + self codeLiteralsDo: [:compiledCode | | scanner end | + scanner := InstructionStream on: compiledCode. + end := compiledCode endPC. + [scanner pc <= end] whileTrue: [ + (printer interpretNextInstructionUsing: scanner) ifTrue: [^true]]]. + ^ false! - end := self endPC. - - [scanner pc <= end] whileTrue: [ - (printer interpretNextInstructionUsing: scanner) ifTrue: [^true]. - ]. - ^false!

1 0

The Trunk: Morphic-mt.2120.mcz
by commits＠source.squeak.org 09 Aug '23

09 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2120.mcz ==================== Summary ==================== Name: Morphic-mt.2120 Author: mt Time: 9 August 2023, 2:03:15.609576 pm UUID: 431e9bf2-0d4e-2b47-8cba-7d2a4ad2f422 Ancestors: Morphic-mt.2119 Fix for loading older .morph files where borderStyle was not used consistently. =============== Diff against Morphic-mt.2119 =============== Item was added: + ----- Method: BorderedMorph>>readDataFrom:size: (in category 'objects from disk') ----- + readDataFrom: aDataStream size: varsOnDisk + + | bc bw | + super readDataFrom: aDataStream size: varsOnDisk. + + "Update borderStyle for older versions of the receiver. Use temps because of side-effects." + bc := borderColor. bw := borderWidth. + self borderColor: bc. + self borderWidth: bw. + + self flag: #todo. "mt: If we were to remove those instVars at some point, we need to increase the receivers version and add a proper conversion method via SmartRefStream. Still, this might break compatbility with foreign subclasses that rely on inst-var access."!

1 0

The Trunk: Tools-mt.1224.mcz
by commits＠source.squeak.org 09 Aug '23

09 Aug '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1224.mcz ==================== Summary ==================== Name: Tools-mt.1224 Author: mt Time: 9 August 2023, 1:31:00.763576 pm UUID: 9d479465-5f01-254a-aac3-c50067595733 Ancestors: Tools-mt.1223 In TreeBrowser, fix issue where saving a method with some special category selected would set that special category. =============== Diff against Tools-mt.1223 =============== Item was changed: ----- Method: Browser>>compileMessage:notifying: (in category 'code pane') ----- compileMessage: aText notifying: aController "Compile the code that was accepted by the user, placing the compiled method into an appropriate message category. Return true if the compilation succeeded, else false." | fallBackCategoryName originalSelectorName result fallBackMethodName | + self hasSpecialMessageCategorySelected - self selectedMessageCategoryName = ClassOrganizer allCategory ifTrue: [ "User tried to save a method while the ALL category was selected" fallBackCategoryName := selectedMessageCategoryName. fallBackMethodName := selectedMessageName. editSelection == #newMessage ifTrue: [ "Select the 'as yet unclassified' category" selectedMessageCategoryName := nil. (result := self defineMessageFrom: aText notifying: aController) ifNil: ["Compilation failure: reselect the original category & method" selectedMessageCategoryName := fallBackCategoryName. selectedMessageName := fallBackMethodName] ifNotNil: [self setSelector: result]] ifFalse: [originalSelectorName := self selectedMessageName. self setOriginalCategoryIndexForCurrentMethod. selectedMessageName := fallBackMethodName := originalSelectorName. (result := self defineMessageFrom: aText notifying: aController) ifNotNil: [self setSelector: result] ifNil: [ "Compilation failure: reselect the original category & method" selectedMessageCategoryName := fallBackCategoryName. selectedMessageName := fallBackMethodName. ^ result notNil]]. self changed: #messageCategoryList. self changed: #messageList. ^ result notNil] ifFalse: [ "User tried to save a method while the ALL category was NOT selected" ^ (self defineMessageFrom: aText notifying: aController) notNil]! Item was added: + ----- Method: Browser>>hasSpecialMessageCategorySelected (in category 'message category list') ----- + hasSpecialMessageCategorySelected + ^ self selectedMessageCategoryName = ClassOrganizer allCategory! Item was added: + ----- Method: TreeBrowser>>hasSpecialMessageCategorySelected (in category 'message category list') ----- + hasSpecialMessageCategorySelected + + ^ (selectedMessageCategoryName = ClassOrganizer allCategory + or: [selectedMessageCategoryName = self class extensionCategory]) + or: [selectedMessageCategoryName = self class coreCategory]!

1 0

The Trunk: ToolBuilder-Morphic-mt.345.mcz
by commits＠source.squeak.org 09 Aug '23

09 Aug '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.345.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.345 Author: mt Time: 9 August 2023, 12:55:27.112576 pm UUID: 645352a9-d870-8448-9048-ebfdf68b96d5 Ancestors: ToolBuilder-Morphic-mt.344 For debug/browse action invocation in buttons (via halo), add support for message sends, not just block closures. Now we can debug the buttons in the FileList tools. =============== Diff against ToolBuilder-Morphic-mt.344 =============== Item was changed: ----- Method: PluggableButtonMorphPlus>>browseImplementationOfActionSelector (in category 'debug menu') ----- browseImplementationOfActionSelector + action ifNil: [^ super browseImplementationOfActionSelector]. + + action isMessageSend + ifFalse: ["closure" + action homeMethod browse] + ifTrue: ["messages send" + (action arguments ifNil: [#()]) ifNotEmpty: [:args | args explore]. + ToolSet browseMethod: (action receiver class lookupSelector: action selector)] + ! - action - ifNil: [super browseImplementationOfActionSelector] - ifNotNil: [action homeMethod browse].! Item was changed: ----- Method: PluggableButtonMorphPlus>>debugAction (in category 'debug menu') ----- debugAction action ifNil: [^ super debugAction]. (Process forBlock: [self performAction] + runUntil: [:context | context closure = action or: [context selector = action "message send" selector]]) - runUntil: [:context | context closure = action]) debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).!

1 0

The Trunk: System-dtl.1418.mcz
by commits＠source.squeak.org 05 Aug '23

05 Aug '23

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1418.mcz ==================== Summary ==================== Name: System-dtl.1418 Author: dtl Time: 5 August 2023, 3:29:26.978927 pm UUID: 100eac74-41e5-4036-ab9e-760e54a9420b Ancestors: System-mt.1417 Complements Chronology-Core-dtl.86 (missed commit) =============== Diff against System-mt.1417 =============== Item was changed: ----- Method: TimeZone class>>local (in category '*System-Localization') ----- local | offset | offset := Locale current offsetLocalToUTC minutes. ^ (Locale current isDST + ifTrue: [FixedTimeZone timeZonesDST] + ifFalse: [FixedTimeZone timeZones]) - ifTrue: [self timeZonesDST] - ifFalse: [self timeZones]) detect: [:tz | tz offset = offset] ifNone: [ + FixedTimeZone - TimeZone offset: offset name: 'Local Time' abbreviation: 'LOCAL']!

1 0

The Trunk: Monticello-tpr.792.mcz
by commits＠source.squeak.org 04 Aug '23

04 Aug '23

tim Rowledge uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-tpr.792.mcz ==================== Summary ==================== Name: Monticello-tpr.792 Author: tpr Time: 3 August 2023, 3:47:30.293976 pm UUID: c72a59e2-3e08-4ad1-8565-5f3665bcb7f3 Ancestors: Monticello-tpr.791 The prior change broke .mcm uploading (I didn't notice that the http repo was a subclass) so try fixing things the other way - catch the FileDoesNotExistException and see if things get better by adding '.mcz'. This helps with examining changes between packages but there is still the deeper problem of the package file name getting whacked as part of the MCRepositoryInspector>>#versionListMenu: process. =============== Diff against Monticello-tpr.791 =============== Item was changed: ----- Method: MCFileBasedRepository>>versionNamed: (in category 'versions') ----- versionNamed: aMCVersionName + "For FileBased repositories, aMCVersionName must have the appropriate extension!! Try to handle that " + | version | - "For FileBased repositories, aMCVersionName must have the appropriate extension!! :-(" - | version fileName | version := self cache at: aMCVersionName ifAbsent: + [[self loadVersionFromFileNamed: aMCVersionName ] - [[fileName := (aMCVersionName endsWith: '.mcz' ) - ifFalse:[aMCVersionName, '.mcz'] - ifTrue:[aMCVersionName]. - self loadVersionFromFileNamed: fileName ] on: FileDoesNotExistException , NotFound + do: + [:err| + "in some cases we try to load package versions where aMCVersionName does + not include the filename extension. Try again with the mcz extension; we + might need to be even cleverer?" + err return: (self loadVersionFromFileNamed: aMCVersionName, '.mcz')] ]. - do: [ : err | nil ] ]. self resizeCache: cache. (version notNil and: [ version isCacheable ]) ifTrue: [ cache at: aMCVersionName asMCVersionName put: version ]. ^ version!

1 0

The Trunk: Morphic-mt.2119.mcz
by commits＠source.squeak.org 03 Aug '23

03 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2119.mcz ==================== Summary ==================== Name: Morphic-mt.2119 Author: mt Time: 3 August 2023, 11:30:37.95454 am UUID: 5d37be07-9bb1-7d4c-8cf2-128b2b28f9e3 Ancestors: Morphic-mt.2118 Complement Morphic-mt.2118 Fixes the recent regression and the other one introduced by the quickfix for the first one. You can now (again): - Click below the text lines to change keyboard focus (i.e., in a fresh workspace window) - Click below the method template (in a code browser/editor) for not discarding the current text selection but immediately start typing. All these things are not relevant or noticable when you have #mouseOverForKeyboardFocus enabled. =============== Diff against Morphic-mt.2118 =============== Item was changed: ----- Method: TextMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt "Make this TextMorph be the keyboard input focus, if it isn't already, and repond to the text selection gesture." evt yellowButtonPressed ifTrue: [ "First check for option (menu) click" ^ self yellowButtonActivity: evt shiftPressed]. "Show the caret immediately on mouse down to give user feedback." self resetBlinkCursor. "If focus does not follow the mouse cursor and we click below everything, just grab the focus to not destroy the selection." ((self hasKeyboardFocus: evt hand) not and: [(self bounds containsPoint: evt position) not]) ifTrue: [ evt hand newKeyboardFocus: self. + evt hand newMouseFocus: nil. "Do not deliver mouseUp:."] - self - handleInteraction: [self mouseEnter: evt. editor mouseDown: evt] - fromEvent: evt] ifFalse: [ evt hand newKeyboardFocus: self. self handleInteraction: [self mouseEnter: evt. editor mouseDown: evt] fromEvent: evt].!

1 0

The Trunk: Morphic-mt.2118.mcz
by commits＠source.squeak.org 02 Aug '23

02 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2118.mcz ==================== Summary ==================== Name: Morphic-mt.2118 Author: mt Time: 2 August 2023, 8:40:31.255709 pm UUID: 451a2a63-2994-a74a-8ec5-7204888297c4 Ancestors: Morphic-mt.2117 #mouseOverForKeyboardFocus is not enabled. Only a quickfix since it introduces another regression. I will fix that tomorrow. =============== Diff against Morphic-mt.2117 =============== Item was changed: ----- Method: TextMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt "Make this TextMorph be the keyboard input focus, if it isn't already, and repond to the text selection gesture." evt yellowButtonPressed ifTrue: [ "First check for option (menu) click" ^ self yellowButtonActivity: evt shiftPressed]. "Show the caret immediately on mouse down to give user feedback." self resetBlinkCursor. "If focus does not follow the mouse cursor and we click below everything, just grab the focus to not destroy the selection." ((self hasKeyboardFocus: evt hand) not and: [(self bounds containsPoint: evt position) not]) + ifTrue: [ + evt hand newKeyboardFocus: self. + self + handleInteraction: [self mouseEnter: evt. editor mouseDown: evt] + fromEvent: evt] - ifTrue: [evt hand newKeyboardFocus: self] ifFalse: [ evt hand newKeyboardFocus: self. self handleInteraction: [self mouseEnter: evt. editor mouseDown: evt] fromEvent: evt].!

1 0

The Trunk: Morphic-mt.2117.mcz
by commits＠source.squeak.org 02 Aug '23

02 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2117.mcz ==================== Summary ==================== Name: Morphic-mt.2117 Author: mt Time: 2 August 2023, 1:52:09.534767 pm UUID: 10c56f5d-2659-7347-aeef-1f33be124e2e Ancestors: Morphic-mt.2116 Do not show layout options for text morphs that are embedded in a view since that view governs those properties only. =============== Diff against Morphic-mt.2116 =============== Item was changed: ----- Method: TextMorph>>addCustomMenuItems:hand: (in category 'menu') ----- addCustomMenuItems: aCustomMenu hand: aHandMorph - | outer | - super addCustomMenuItems: aCustomMenu hand: aHandMorph. - aCustomMenu add: 'text properties...' translated action: #changeTextColor. - aCustomMenu addUpdating: #autoFitString target: self action: #autoFitOnOff. - aCustomMenu addUpdating: #wrapString target: self action: #wrapOnOff. - aCustomMenu add: 'text margins...' translated action: #changeMargins:. - aCustomMenu add: 'add predecessor' translated action: #addPredecessor:. - aCustomMenu add: 'add successor' translated action: #addSuccessor:. + super addCustomMenuItems: aCustomMenu hand: aHandMorph. + self addCustomTextMenuItems: aCustomMenu hand: aHandMorph. - outer := self owner. - outer ifNotNil: [ - outer isLineMorph ifTrue: - [container isNil - ifTrue: [Smalltalk at: #TextOnCurveContainer ifPresent: [:ignored | aCustomMenu add: 'follow owner''s curve' translated action: #followCurve]] - ifFalse: [aCustomMenu add: 'reverse direction' translated action: #reverseCurveDirection. - aCustomMenu add: 'set baseline' translated action: #setCurveBaseline:]] - ifFalse: - [self fillsOwner - ifFalse: [aCustomMenu add: 'fill owner''s shape' translated action: #fillingOnOff] - ifTrue: [aCustomMenu add: 'rectangular bounds' translated action: #fillingOnOff]. - self avoidsOcclusions - ifFalse: [aCustomMenu add: 'avoid occlusions' translated action: #occlusionsOnOff] - ifTrue: [aCustomMenu add: 'ignore occlusions' translated action: #occlusionsOnOff]]]. - aCustomMenu addLine. - aCustomMenu add: 'holder for characters' translated action: #holderForCharacters ! Item was added: + ----- Method: TextMorph>>addCustomTextMenuItems:hand: (in category 'menu') ----- + addCustomTextMenuItems: aCustomMenu hand: aHandMorph + + | outer | + aCustomMenu add: 'text properties...' translated action: #changeTextColor. + aCustomMenu addUpdating: #autoFitString target: self action: #autoFitOnOff. + aCustomMenu addUpdating: #wrapString target: self action: #wrapOnOff. + aCustomMenu add: 'text margins...' translated action: #changeMargins:. + aCustomMenu add: 'add predecessor' translated action: #addPredecessor:. + aCustomMenu add: 'add successor' translated action: #addSuccessor:. + + outer := self owner. + outer ifNotNil: [ + outer isLineMorph ifTrue: + [container isNil + ifTrue: [Smalltalk at: #TextOnCurveContainer ifPresent: [:ignored | aCustomMenu add: 'follow owner''s curve' translated action: #followCurve]] + ifFalse: [aCustomMenu add: 'reverse direction' translated action: #reverseCurveDirection. + aCustomMenu add: 'set baseline' translated action: #setCurveBaseline:]] + ifFalse: + [self fillsOwner + ifFalse: [aCustomMenu add: 'fill owner''s shape' translated action: #fillingOnOff] + ifTrue: [aCustomMenu add: 'rectangular bounds' translated action: #fillingOnOff]. + self avoidsOcclusions + ifFalse: [aCustomMenu add: 'avoid occlusions' translated action: #occlusionsOnOff] + ifTrue: [aCustomMenu add: 'ignore occlusions' translated action: #occlusionsOnOff]]]. + aCustomMenu addLine. + aCustomMenu add: 'holder for characters' translated action: #holderForCharacters! Item was added: + ----- Method: TextMorphForEditView>>addCustomTextMenuItems:hand: (in category 'menu') ----- + addCustomTextMenuItems: aCustomMenu hand: aHandMorph + "Overwritten to not offer layouting options since this is managed through the receiver's view."!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2023