Packages February 2020

packages@lists.squeakfoundation.org

1 participants
90 discussions

The Trunk: Tools-mt.939.mcz
by commits＠source.squeak.org 13 Feb '20

13 Feb '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.939.mcz ==================== Summary ==================== Name: Tools-mt.939 Author: mt Time: 13 February 2020, 1:37:00.539714 pm UUID: 21f18a61-361d-5348-9980-f95b1aa13203 Ancestors: Tools-ct.938 In debuggers, fixes the bug that occurred when fullStackSize is smaller than notifierStackSize. Such a configuration is not useful but can happen when those preferences are changed independently for different reasons. (Also completes a move-method from that merge in Help-Squeak-Project-mt.74) =============== Diff against Tools-ct.938 =============== Item was changed: ----- Method: Debugger>>expandStack (in category 'context stack - message list') ----- expandStack "Show a substantial amount of stack in the context pane." self okToChange ifFalse: [^ self]. + self newStack: (self contextStackTop stackOfSize: (self class fullStackSize max: self class notifierStackSize)). - self newStack: (self contextStackTop stackOfSize: self class fullStackSize). self changed: #contextStackList. ! Item was removed: - ----- Method: VersionsBrowser>>offerVersionsHelp (in category 'menu') ----- - offerVersionsHelp - (StringHolder new contents: self versionsHelpString) - openLabel: 'Versions Browsers'!

1 0

The Trunk: EToys-ct.363.mcz
by commits＠source.squeak.org 13 Feb '20

13 Feb '20

Tobias Pape uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.363.mcz ==================== Summary ==================== Name: EToys-ct.363 Author: ct Time: 2 October 2019, 11:32:21.874682 pm UUID: 9ea0f00e-e94b-dd42-a987-c8b0816b31a6 Ancestors: EToys-mt.357 Complements Tools-ct.902 (deprecate Inspector constructors) =============== Diff against EToys-mt.357 =============== Item was changed: ----- Method: HtmlEntity>>inspect (in category 'user interface') ----- inspect "Open an HtmlEntityInspector on the receiver. Use basicInspect to get a normal type of inspector." + HtmlEntityInspector openOn: self! - HtmlEntityInspector openOn: self withEvalPane: true! Item was changed: ----- Method: HtmlEntity>>inspectWithLabel: (in category 'user interface') ----- inspectWithLabel: aLabel "Open a HtmlEntityInspector on the receiver. Use basicInspect to get a normal (less useful) type of inspector." + HtmlEntityInspector openOn: self withLabel: aLabel! - HtmlEntityInspector openOn: self withEvalPane: true withLabel: aLabel!

1 0

The Trunk: Tools-ct.938.mcz
by commits＠source.squeak.org 13 Feb '20

13 Feb '20

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.938.mcz ==================== Summary ==================== Name: Tools-ct.938 Author: ct Time: 13 February 2020, 12:15:51.607118 am UUID: a99435a2-f265-504e-8a4f-1cf790eb1887 Ancestors: Tools-topa.931 Overrides #canonicalArgumentName for Text. You don't want to get a generated method stub such as 'setText: anArray'. =============== Diff against Tools-topa.931 =============== Item was added: + ----- Method: Text>>canonicalArgumentName (in category '*Tools-Debugger') ----- + canonicalArgumentName + ^ 'Text'!

1 0

The Trunk: Morphic-kfr.1619.mcz
by commits＠source.squeak.org 12 Feb '20

12 Feb '20

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1619.mcz ==================== Summary ==================== Name: Morphic-kfr.1619 Author: kfr Time: 8 February 2020, 12:31:52.597512 am UUID: 1af0398c-5036-0943-a1f4-0d73a4b01c08 Ancestors: Morphic-cmm.1618 Bug fix for spelling error of #spaceFill =============== Diff against Morphic-cmm.1618 =============== Item was changed: ----- Method: GradientEditor>>addButtonRow (in category 'initialization') ----- addButtonRow | button button2 buttonRow button3 | buttonRow := RectangleMorph new borderWidth: 0; color: Color transparent; layoutPolicy: TableLayout new; + hResizing: #spaceFill; - hResizing: #spaceFil; vResizing: #spaceFill; cellPositioning: #center; listCentering: #topLeft; listDirection: #LeftToRight; reverseTableCells: true; cellGap: 4. button := PluggableButtonMorph on: self getState: nil action: #addHandle label: #addColorButtonLabel. button hResizing: #spaceFill; vResizing: #spaceFill. buttonRow addMorph: button. button2 := PluggableButtonMorph on: self getState: nil action: #deleteHandle label: #removeColorButtonLabel. button2 hResizing: #spaceFill; vResizing: #spaceFill. buttonRow addMorph: button2. button3 := PluggableButtonMorph on: self getState: nil action: #delete label: #closeButtonLabel. button3 hResizing: #spaceFill; vResizing: #spaceFill. buttonRow addMorph: button3. self addMorph: buttonRow!

1 0

The Trunk: Collections-topa.873.mcz
by commits＠source.squeak.org 11 Feb '20

11 Feb '20

Tobias Pape uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-topa.873.mcz ==================== Summary ==================== Name: Collections-topa.873 Author: topa Time: 11 February 2020, 1:29:50.690328 pm UUID: 45abc260-998e-4352-89cb-2e33b4f4b59c Ancestors: Collections-ul.872 Fix browser-dependency of Collections =============== Diff against Collections-ul.872 =============== Item was removed: - ----- Method: Text>>askIfAddStyle:req: (in category 'attributes') ----- - askIfAddStyle: priorMethod req: requestor - "Ask the user if we have a complex style (i.e. bold) for the first time" - | tell answ old | - (SystemBrowser browseWithPrettyPrint) - ifTrue: [self couldDeriveFromPrettyPrinting ifTrue: [^ self asString]]. - self runs coalesce. - self unembellished ifTrue: [^ self asString]. - priorMethod ifNotNil: [old := priorMethod getSourceFromFile]. - (old == nil or: [old unembellished]) - ifTrue: - [tell := 'This method contains style for the first time (e.g. bold or colored text). - Do you really want to save the style info?'. - answ := (UIManager default - chooseFrom: #('Save method with style' 'Save method simply') - title: tell). - answ = 2 ifTrue: [^ self asString]]!

1 0

The Trunk: Tools-topa.931.mcz
by commits＠source.squeak.org 11 Feb '20

11 Feb '20

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.931.mcz ==================== Summary ==================== Name: Tools-topa.931 Author: topa Time: 11 February 2020, 1:29:25.688537 pm UUID: 1a957e2d-e3bf-49a5-84a5-2333e6f0d587 Ancestors: Tools-topa.930 Fix browser-dependency of Collections =============== Diff against Tools-topa.930 =============== Item was added: + ----- Method: Text>>askIfAddStyle:req: (in category '*Tools-attributes') ----- + askIfAddStyle: priorMethod req: requestor + "Ask the user if we have a complex style (i.e. bold) for the first time" + | tell answ old | + (SystemBrowser browseWithPrettyPrint) + ifTrue: [self couldDeriveFromPrettyPrinting ifTrue: [^ self asString]]. + self runs coalesce. + self unembellished ifTrue: [^ self asString]. + priorMethod ifNotNil: [old := priorMethod getSourceFromFile]. + (old == nil or: [old unembellished]) + ifTrue: + [tell := 'This method contains style for the first time (e.g. bold or colored text). + Do you really want to save the style info?'. + answ := (UIManager default + chooseFrom: #('Save method with style' 'Save method simply') + title: tell). + answ = 2 ifTrue: [^ self asString]]!

1 0

The Trunk: Tools-topa.930.mcz
by commits＠source.squeak.org 10 Feb '20

10 Feb '20

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.930.mcz ==================== Summary ==================== Name: Tools-topa.930 Author: topa Time: 10 February 2020, 9:59:14.279253 pm UUID: fb36c07e-a8ce-4668-8a92-4cf9f545d36b Ancestors: Tools-mt.929 Fix use of deprecated StandardFileMenuResult by cascading. =============== Diff against Tools-mt.929 =============== Item was removed: - ----- Method: PluggableFileList class>>newFileMenu: (in category 'StandardFileMenu') ----- - newFileMenu: aDirectory - - "For compatibility with StandardFileMenu for now, answer a StandardFileMenuResult" - ^(self getFilePathNameDialogWithExistenceCheck) - resultBlock: self sfmResultBlock; - directory: aDirectory; - yourself! Item was removed: - ----- Method: PluggableFileList class>>oldFileMenu: (in category 'StandardFileMenu') ----- - oldFileMenu: aDirectory - - "For compatibility with StandardFileMenu for now, answer a StandardFileMenuResult" - ^(self getFilePathNameDialog) - resultBlock: self sfmResultBlock; - directory: aDirectory; - yourself! Item was removed: - ----- Method: PluggableFileList class>>sfmResultBlock (in category 'resultBlocks') ----- - sfmResultBlock - - ^[:theDirectory :theFileName | - StandardFileMenuResult directory: theDirectory name: theFileName]!

1 0

The Trunk: 60Deprecated-topa.68.mcz
by commits＠source.squeak.org 10 Feb '20

10 Feb '20

Tobias Pape uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-topa.68.mcz ==================== Summary ==================== Name: 60Deprecated-topa.68 Author: topa Time: 10 February 2020, 9:57:56.226352 pm UUID: 1fe5d8ec-5259-40f2-adfb-72c2feb911f6 Ancestors: 60Deprecated-mt.67 Fix use of deprecated StandardFileMenuResult by cascading. =============== Diff against 60Deprecated-mt.67 =============== Item was added: + ----- Method: PluggableFileList class>>newFileMenu: (in category '*60Deprecated-Tools-Menus-StandardFileMenu') ----- + newFileMenu: aDirectory + + "For compatibility with StandardFileMenu for now, answer a StandardFileMenuResult" + ^(self getFilePathNameDialogWithExistenceCheck) + resultBlock: self sfmResultBlock; + directory: aDirectory; + yourself! Item was added: + ----- Method: PluggableFileList class>>oldFileMenu: (in category '*60Deprecated-Tools-Menus-StandardFileMenu') ----- + oldFileMenu: aDirectory + + "For compatibility with StandardFileMenu for now, answer a StandardFileMenuResult" + ^(self getFilePathNameDialog) + resultBlock: self sfmResultBlock; + directory: aDirectory; + yourself! Item was added: + ----- Method: PluggableFileList class>>sfmResultBlock (in category '*60Deprecated-Tools-Menus-resultBlocks') ----- + sfmResultBlock + + ^[:theDirectory :theFileName | + StandardFileMenuResult directory: theDirectory name: theFileName]!

1 0

The Trunk: CollectionsTests-ul.333.mcz
by commits＠source.squeak.org 05 Feb '20

05 Feb '20

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.333.mcz ==================== Summary ==================== Name: CollectionsTests-ul.333 Author: ul Time: 5 February 2020, 5:56:55.801188 pm UUID: 270aac80-51aa-4655-af72-9b7b15d3c959 Ancestors: CollectionsTests-ul.332 - added DictionaryTest>>testCapcityOfNew to test the hardcoded capacity values in #new and optionally #new: - improved HashedCollectionTest >> #testSizeFor by adding CI-friendly descriptions and checking the returned values more thoroughly =============== Diff against CollectionsTests-ul.332 =============== Item was added: + ----- Method: DictionaryTest>>testCapcityOfNew (in category 'tests - basic') ----- + testCapcityOfNew + "Test the special cases implemented in HashedCollection class >> #new and #new: using Dictionary as an example because HashedCollection is abstract." + + | goodPrimes | + goodPrimes := HashedCollection goodPrimes. + self assert: (goodPrimes includes: Dictionary new capacity). + 0 to: 100 do: [ :size | + | dictionary | + dictionary := Dictionary new: size. + self assert: (goodPrimes includes: dictionary capacity) ]! Item was changed: ----- Method: HashedCollectionTest>>testSizeFor (in category 'tests - class - sizing') ----- testSizeFor + | goodPrimes | + goodPrimes := HashedCollection goodPrimes. (0 to: 10000) asArray, #( 10999 61356 68602 73189 79868 86789 239984 239985 501175 661865 841558 9669391 15207345 19827345 23469817 27858432 65223175 106650047 157687845 190892299 234947087 264782114 269617510 270995400 392236508 456647275 468699153 606865011 606997796 617927086 837938371 880614337 989233852 1000473294 1060034095 1073741833 1073741834) do: [ :numberOfElements | + | capacity capacityIndex | - | capacity | capacity := HashedCollection sizeFor: numberOfElements. + self + assert: capacity isInteger + description: '#sizeFor: must return an integer'; + assert: capacity odd + description: '#sizeFor: must return an odd integer'; + assert: capacity > 0 + description: '#sizeFor: must return a positive integer'. + capacity <= goodPrimes last ifTrue: [ + self + assert: capacity isPrime + description: '#sizeFor: must return a prime when the returned capacity is smaller than the largest good prime' ]. + self + assert: numberOfElements asFloat / capacity <= 0.75 + description: '#sizeFor: must return a capacity for which the load factor does not exceed 75%'. + capacityIndex := goodPrimes indexOf: capacity ifAbsent: [ goodPrimes size + 1 ]. + capacityIndex > 1 ifTrue: [ + | nextSmallerCapacity | + nextSmallerCapacity := goodPrimes at: capacityIndex - 1. + self + assert: numberOfElements asFloat / nextSmallerCapacity > 0.75 + description: '#sizeFor: should return the smallest possible capacity' ] ]! - capacity <= HashedCollection goodPrimes last ifTrue: [ - self assert: capacity isPrime ]. - self assert: capacity odd. - self assert: numberOfElements asFloat / capacity <= 0.75 ]!

1 0

The Trunk: Collections-ul.872.mcz
by commits＠source.squeak.org 04 Feb '20

04 Feb '20

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.872.mcz ==================== Summary ==================== Name: Collections-ul.872 Author: ul Time: 4 February 2020, 1:26:07.104018 pm UUID: 735423f6-6dbb-4f4a-b2a7-f311cc7e8806 Ancestors: Collections-nice.870 Various performance tweaks in a single commit: - be straightforward in Dictionary >> #fillFrom:with: - when aCollection is a Dictionary use #associationsDo:, as it very likely it has associations, and it's faster than #keysAndValuesDo: - when it's not a Dictionary, use #do: instead of #associationsDo:, because the former is what we can expect a Collection to implement - use existing search methods in String >> #findDelimiters:startingAt:, because those are faster, and there's no need to reinvent the wheel. All users other than #findTokens:* should be rewritten to use #indexOfAnyOf:* instead. - almost twice as fast (amortized cost) Symbol >> #lookup: for existing symbols (Same as Collections-ul.869 in the Treated Inbox but with updated Trunk ancestry.) =============== Diff against Collections-nice.870 =============== Item was changed: ----- Method: Dictionary>>fillFrom:with: (in category 'private') ----- fillFrom: aCollection with: aBlock "Evaluate aBlock with each of aCollections's elements as the argument. Collect the resulting values into self. Answer self." aCollection isDictionary + ifFalse: [ + aCollection do: [ :element | + self add: (aBlock value: element) ] ] + ifTrue: [ + aCollection associationsDo: [ :association | + self at: association key put: (aBlock value: association value) ] ]! - ifFalse: - [aCollection associationsDo: - [ :element | self add: (aBlock value: element)]] - ifTrue: - [aCollection keysAndValuesDo: - [ :key :value | self at: key put: (aBlock value: value)]]! Item was changed: ----- Method: String>>findDelimiters:startingAt: (in category 'accessing') ----- findDelimiters: delimiters startingAt: start "Answer the index of the character within the receiver, starting at start, that matches one of the delimiters. If the receiver does not contain any of the delimiters, answer size + 1." + delimiters size = 1 ifTrue: [ ^self indexOf: delimiters anyOne startingAt: start ifAbsent: self size + 1 ]. + ^self indexOfAnyOf: delimiters startingAt: start ifAbsent: self size + 1! - start to: self size do: [:i | - delimiters do: [:delim | delim = (self at: i) ifTrue: [^ i]]]. - ^ self size + 1! Item was changed: ----- Method: Symbol class>>lookup: (in category 'instance creation') ----- lookup: aStringOrSymbol | originalNewSymbols originalSymbolTable | originalNewSymbols := NewSymbols. originalSymbolTable := SymbolTable. + ^(originalSymbolTable like: aStringOrSymbol) ifNil: [ + originalNewSymbols like: aStringOrSymbol ]! - ^(originalNewSymbols like: aStringOrSymbol) ifNil: [ - originalSymbolTable like: aStringOrSymbol ]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2020