Packages July 2018

packages@lists.squeakfoundation.org

1 participants
49 discussions

The Trunk: Collections-ul.799.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.799.mcz ==================== Summary ==================== Name: Collections-ul.799 Author: ul Time: 2 July 2018, 8:56:32.531434 pm UUID: b0bbc442-2e2b-4d95-8b44-c3d9c504eae3 Ancestors: Collections-ul.798 - use ifNil:ifNotNil: & friends instead of isNil ifTrue:, == nil ifTrue, etc =============== Diff against Collections-ul.798 =============== Item was changed: ----- Method: Collection>>detectMax: (in category 'enumerating') ----- detectMax: aBlock "Evaluate aBlock with each of the receiver's elements as the argument. Answer the element for which aBlock evaluates to the highest magnitude. If collection empty, return nil. This method might also be called elect:." | maxElement maxValue | self do: [:each | | val | + maxValue + ifNotNil: [ + (val := aBlock value: each) > maxValue + ifTrue: [ + maxElement := each. + maxValue := val ] ] + ifNil: [ + "first element" - maxValue == nil - ifFalse: [ - (val := aBlock value: each) > maxValue ifTrue: [ - maxElement := each. - maxValue := val]] - ifTrue: ["first element" maxElement := each. + maxValue := aBlock value: each ]. - maxValue := aBlock value: each]. "Note that there is no way to get the first element that works for all kinds of Collections. Must test every one."]. ^ maxElement! Item was changed: ----- Method: Collection>>detectMin: (in category 'enumerating') ----- detectMin: aBlock "Evaluate aBlock with each of the receiver's elements as the argument. Answer the element for which aBlock evaluates to the lowest number. If collection empty, return nil." | minElement minValue | self do: [:each | | val | + minValue + ifNotNil: [ + (val := aBlock value: each) < minValue + ifTrue: [ + minElement := each. + minValue := val ] ] + ifNil: [ + "first element" - minValue == nil - ifFalse: [ - (val := aBlock value: each) < minValue ifTrue: [ - minElement := each. - minValue := val]] - ifTrue: ["first element" minElement := each. + minValue := aBlock value: each ]. - minValue := aBlock value: each]. "Note that there is no way to get the first element that works for all kinds of Collections. Must test every one."]. ^ minElement! Item was changed: ----- Method: LimitingLineStreamWrapper>>next (in category 'accessing') ----- next "Provide character-based access" + position ifNil: [ ^nil ]. - position isNil ifTrue: [^nil]. position < line size ifTrue: [^line at: (position := position + 1)]. line := stream nextLine. self updatePosition. ^ Character cr! Item was changed: ----- Method: LinkedList>>removeLink:ifAbsent: (in category 'removing') ----- removeLink: aLink ifAbsent: aBlock "Remove aLink from the receiver. If it is not there, answer the result of evaluating aBlock." | tempLink | aLink == firstLink ifTrue: [firstLink := aLink nextLink. aLink == lastLink ifTrue: [lastLink := nil]] ifFalse: [tempLink := firstLink. + [tempLink ifNil: [ ^ aBlock value ]. - [tempLink == nil ifTrue: [^aBlock value]. tempLink nextLink == aLink] whileFalse: [tempLink := tempLink nextLink]. tempLink nextLink: aLink nextLink. aLink == lastLink ifTrue: [lastLink := tempLink]]. "Not nilling the link enables us to delete while iterating" "aLink nextLink: nil." ^aLink! Item was changed: ----- Method: PositionableStream>>nextWord (in category 'nonhomogeneous accessing') ----- nextWord "Answer the next two bytes from the receiver as an Integer." | high low | + high := self next ifNil: [ ^false ]. + low := self next ifNil: [ ^false ]. - high := self next. - high==nil ifTrue: [^false]. - low := self next. - low==nil ifTrue: [^false]. ^(high asInteger bitShift: 8) + low asInteger! Item was changed: ----- Method: RWBinaryOrTextStream>>next (in category 'accessing') ----- next + isBinary ifFalse: [ ^super next ]. + ^super next ifNotNil: [ :character | character asInteger ]! - | byte | - ^ isBinary - ifTrue: [byte := super next. - byte ifNil: [nil] ifNotNil: [byte asciiValue]] - ifFalse: [super next]. - ! Item was changed: ----- Method: Stream>>collect: (in category 'enumerating') ----- collect: block ^ Generator on: [:g | [self atEnd] whileFalse: [ + g yield: (self next ifNotNil: [:object | block value: object])]]! - g yield: (self next - ifNil: [nil] - ifNotNil: [:object | block value: object])]]! Item was changed: ----- Method: Stream>>readInto:startingAt:count: (in category 'accessing') ----- readInto: aCollection startingAt: startIndex count: n "Read n objects into the given collection. Return number of elements that have been read." | obj | 0 to: n - 1 do: [:i | + obj := self next ifNil: [ ^i ]. - (obj := self next) == nil ifTrue: [^i]. aCollection at: startIndex + i put: obj]. ^n! Item was changed: ----- Method: String>>correctAgainst:continuedFrom: (in category 'converting') ----- correctAgainst: wordList continuedFrom: oldCollection "Like correctAgainst:. Use when you want to correct against several lists, give nil as the first oldCollection, and nil as the last wordList." + ^self + correctAgainstEnumerator: ( + wordList ifNotNil: [ + [ :action | wordList do: action without: nil ] ]) + continuedFrom: oldCollection! - ^ wordList isNil - ifTrue: [ self correctAgainstEnumerator: nil - continuedFrom: oldCollection ] - ifFalse: [ self correctAgainstEnumerator: [ :action | wordList do: action without: nil] - continuedFrom: oldCollection ]! Item was changed: ----- Method: String>>correctAgainstDictionary:continuedFrom: (in category 'converting') ----- correctAgainstDictionary: wordDict continuedFrom: oldCollection "Like correctAgainst:continuedFrom:. Use when you want to correct against a dictionary." + ^self + correctAgainstEnumerator: ( + wordDict ifNotNil: [ + [ :action | wordDict keysDo: action ] ]) + continuedFrom: oldCollection! - ^ wordDict isNil - ifTrue: [ self correctAgainstEnumerator: nil - continuedFrom: oldCollection ] - ifFalse: [ self correctAgainstEnumerator: [ :action | wordDict keysDo: action ] - continuedFrom: oldCollection ]! Item was changed: ----- Method: String>>correctAgainstEnumerator:continuedFrom: (in category 'private') ----- correctAgainstEnumerator: wordBlock continuedFrom: oldCollection "The guts of correction, instead of a wordList, there is a block that should take another block and enumerate over some list with it." | choices results maxChoices scoreMin | scoreMin := self size // 2 min: 3. maxChoices := 10. + choices := oldCollection ifNil: [ + SortedCollection sortBlock: [ :x :y | x value > y value ] ]. + wordBlock + ifNil: [ + results := OrderedCollection new. - oldCollection isNil - ifTrue: [ choices := SortedCollection sortBlock: [ :x :y | x value > y value ] ] - ifFalse: [ choices := oldCollection ]. - wordBlock isNil - ifTrue: - [ results := OrderedCollection new. 1 to: (maxChoices min: choices size) do: [ :i | results add: (choices at: i) key ] ] + ifNotNil: [ + wordBlock + value: [ :word | + | score | + (score := self alike: word) >= scoreMin + ifTrue: [ + choices add: (Association key: word value: score). + choices size >= maxChoices + ifTrue: [ scoreMin := (choices at: maxChoices) value ] ] ]. - ifFalse: - [ wordBlock value: [ :word | | score | - (score := self alike: word) >= scoreMin ifTrue: - [ choices add: (Association key: word value: score). - (choices size >= maxChoices) ifTrue: [ scoreMin := (choices at: maxChoices) value] ] ]. results := choices ]. ^ results! Item was changed: ----- Method: String>>findTokens:escapedBy: (in category 'accessing') ----- + findTokens: delimiters escapedBy: quoteDelimiters - findTokens: delimiters escapedBy: quoteDelimiters "Answer a collection of Strings separated by the delimiters, where delimiters is a Character or collection of characters. Two delimiters in a row produce an empty string (compare this to #findTokens, which treats sequential delimiters as one). The characters in quoteDelimiters are treated as quote characters, such that any delimiter within a pair of matching quoteDelimiter characters is treated literally, rather than as a delimiter. The quoteDelimiter characters may be escaped within a quoted string. Two sequential quote characters within a quoted string are treated as a single character. This method is useful for parsing comma separated variable strings for spreadsheet import and export." | tokens rs activeEscapeCharacter ts char token delimiterChars quoteChars | + delimiterChars := (delimiters ifNil: [ '' ]) asString. + quoteChars := (quoteDelimiters ifNil: [ '' ]) asString. - delimiterChars := (delimiters isNil - ifTrue: [''] - ifFalse: [delimiters]) asString. - quoteChars := (quoteDelimiters isNil - ifTrue: [''] - ifFalse: [quoteDelimiters]) asString. tokens := OrderedCollection new. rs := ReadStream on: self. activeEscapeCharacter := nil. ts := WriteStream on: ''. + [ rs atEnd ] + whileFalse: [ + char := rs next. + activeEscapeCharacter + ifNil: [ + (quoteChars includes: char) + ifTrue: [ activeEscapeCharacter := char ] + ifFalse: [ + (delimiterChars includes: char) + ifTrue: [ + token := ts contents. - [rs atEnd] - whileFalse: [char := rs next. - activeEscapeCharacter isNil - ifTrue: [(quoteChars includes: char) - ifTrue: [activeEscapeCharacter := char] - ifFalse: [(delimiterChars includes: char) - ifTrue: [token := ts contents. tokens add: token. + ts := WriteStream on: '' ] + ifFalse: [ ts nextPut: char ] ] ] + ifNotNil: [ + char == activeEscapeCharacter + ifTrue: [ + rs peek == activeEscapeCharacter + ifTrue: [ ts nextPut: rs next ] + ifFalse: [ activeEscapeCharacter := nil ] ] + ifFalse: [ ts nextPut: char ] ] ]. - ts := WriteStream on: ''] - ifFalse: [ts nextPut: char]]] - ifFalse: [char == activeEscapeCharacter - ifTrue: [rs peek == activeEscapeCharacter - ifTrue: [ts nextPut: rs next] - ifFalse: [activeEscapeCharacter := nil]] - ifFalse: [ts nextPut: char]]]. token := ts contents. + (tokens isEmpty and: [ token isEmpty ]) + ifFalse: [ tokens add: token ]. - (tokens isEmpty and: [token isEmpty]) - ifFalse: [tokens add: token]. ^ tokens!

1 0

The Trunk: Collections-ul.798.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.798.mcz ==================== Summary ==================== Name: Collections-ul.798 Author: ul Time: 2 July 2018, 8:52:05.858045 pm UUID: 8ed17235-fb2c-4453-9e6e-977d6d838cac Ancestors: Collections-cmm.797 HashedCollection changes: - added 3, 7 and 13 to #goodPrimes. These will mainly be used during compaction as the default grow sequence is 5, 11, 17, etc.. - improved performance of #goodPrimeAtLeast: by reordering comparisons - finally deprecated #findElementOrNil: and #fullCheck SequenceableCollection changes: - improved performance of #findBinary* methods by reordering comparisons and postponing index calculation - did the same in SortedCollection >> #indexForInserting: along with using #ifNil:ifNotNil: =============== Diff against Collections-cmm.797 =============== Item was changed: ----- Method: HashedCollection class>>goodPrimeAtLeast: (in category 'sizing') ----- goodPrimeAtLeast: lowerLimit "Answer the next good prime >= lowerlimit. If lowerLimit is larger than the largest known good prime, just make it odd." + | low mid high prime primes | - | primes low mid high prime | primes := self goodPrimes. - low := 1. high := primes size. lowerLimit > (primes at: high) ifTrue: [ ^lowerLimit bitOr: 1 ]. + low := 1. [ high - low <= 1 ] whileFalse: [ mid := high + low // 2. prime := primes at: mid. + lowerLimit < prime + ifTrue: [ high := mid ] + ifFalse: [ + lowerLimit > prime + ifTrue: [ low := mid ] + ifFalse: [ ^prime ] ] ]. - prime = lowerLimit ifTrue: [ ^prime ]. - prime < lowerLimit - ifTrue: [ low := mid ] - ifFalse: [ high := mid ] ]. (primes at: low) >= lowerLimit ifTrue: [ ^primes at: low ]. ^primes at: high! Item was changed: ----- Method: HashedCollection class>>goodPrimes (in category 'sizing') ----- goodPrimes "Answer a sorted array of prime numbers less than one billion that make good hash table sizes. Should be expanded as needed. See comments below code" + ^#(3 5 7 11 13 17 23 31 43 59 79 107 149 199 269 359 479 641 857 1151 1549 2069 - ^#( - 5 11 17 23 31 43 59 79 107 149 199 269 359 479 641 857 1151 1549 2069 2237 2423 2617 2797 2999 3167 3359 3539 3727 3911 4441 4787 5119 5471 5801 6143 6521 6827 7177 7517 7853 8783 9601 10243 10867 11549 12239 12919 13679 14293 15013 15731 17569 19051 20443 21767 23159 24611 25847 27397 28571 30047 31397 35771 38201 40841 43973 46633 48989 51631 54371 57349 60139 62969 70589 76091 80347 85843 90697 95791 101051 106261 111143 115777 120691 126311 140863 150523 160969 170557 181243 190717 201653 211891 221251 232591 242873 251443 282089 300869 321949 341227 362353 383681 401411 422927 443231 464951 482033 504011 562621 605779 647659 681607 723623 763307 808261 844709 886163 926623 967229 1014617 1121987 1201469 1268789 1345651 1429531 1492177 1577839 1651547 1722601 1800377 1878623 1942141 2028401 2242727 2399581 2559173 2686813 2836357 3005579 3144971 3283993 3460133 3582923 3757093 3903769 4061261 4455361 4783837 5068529 5418079 5680243 6000023 6292981 6611497 6884641 7211599 7514189 7798313 8077189 9031853 9612721 10226107 10745291 11338417 11939203 12567671 13212697 13816333 14337529 14938571 15595673 16147291 17851577 18993941 20180239 21228533 22375079 23450491 24635579 25683871 26850101 27921689 29090911 30153841 31292507 32467307 35817611 37983761 40234253 42457253 44750177 46957969 49175831 51442639 53726417 55954637 58126987 60365939 62666977 64826669 71582779 76039231 80534381 84995153 89500331 93956777 98470819 102879613 107400389 111856841 116365721 120819287 125246581 129732203 143163379 152076289 161031319 169981667 179000669 187913573 196826447 205826729 214748357 223713691 232679021 241591901 250504801 259470131 285162679 301939921 318717121 335494331 352271573 369148753 385926017 402603193 419480419 436157621 453034849 469712051 486589307 503366497 520043707 570475349 603929813 637584271 671138659 704693081 738247541 771801929 805356457 838910803 872365267 905919671 939574117 973128521 1006682977 1040137411 1073741833) "The above primes past 2069 were chosen carefully so that they do not interact badly with 1664525 (used by hashMultiply), and so that gcd(p, (256^k) +/- a) = 1, for 0<a<=32 and 0<k<=8. See Knuth's TAOCP for details." "The above primes also try to map the values of ((0 to: 4095) collect: [ :each | each << 18 \\ prime ]) sort to an equidistant sequence of numbers. This helps to avoid the collision of chains in identity-based hashed collections. To do that they were chosen to return a low value when the following block is evaluated with them as argument: [ :prime | + | n slots cost optimalDistance | + n := 1 bitShift: 22. + slots := Array new: n + 1. + 0 to: n - 1 do: [ :ea | slots at: ea + 1 put: (ea bitShift: 8) \\ prime ]. + slots at: n + 1 put: prime. - | slots cost optimalDistance previous | - slots := Array new: 4097. - 0 to: 4095 do: [ :ea | slots at: ea + 1 put: ea * 262144 \\ prime ]. - slots at: 4097 put: prime. slots sort. cost := 0. + optimalDistance := prime // n. + 2 to: n + 1 do: [ :index | - optimalDistance := prime // 4096. - 2 to: 4097 do: [ :index | | newCost | newCost := optimalDistance - ((slots at: index) - (slots at: index - 1)). newCost > cost ifTrue: [ cost := newCost ] ]. + result add: prime -> cost ] + + The shifts in the block relate to the numer of bits the #identityHash consists of (22) and the number of bits #scaledIdentityHash shifts it (8)"! - cost ]."! Item was removed: - ----- Method: HashedCollection>>findElementOrNil: (in category 'compatibility') ----- - findElementOrNil: anObject - "This method has been superseeded by #scanFor: - It is here for compatibility with external packages only." - ^self scanFor: anObject! Item was removed: - ----- Method: HashedCollection>>fullCheck (in category 'compatibility') ----- - fullCheck - "This is a private method, formerly implemented in Set, that is no longer required. - It is here for compatibility with external packages only." - "Keep array at least 1/4 free for decent hash behavior" - - array size * 3 < (tally * 4) ifTrue: [ self grow ]! Item was changed: ----- Method: SequenceableCollection>>findBinaryIndex:do:ifNone: (in category 'enumerating') ----- findBinaryIndex: aBlock do: actionBlock ifNone: exceptionBlock "Search for an element in the receiver using binary search. The argument aBlock is a one-element block returning 0 - if the element is the one searched for <0 - if the search should continue in the first half >0 - if the search should continue in the second half If found, evaluate actionBlock with the index as argument If no matching element is found, evaluate exceptionBlock, with the indexes of the 'bounding' elements as optional arguments. Warning: Might give invalid indexes, see examples below. Examples: #(1 3 5 7 11 15 23) findBinaryIndex: [ :arg | 11 - arg ] do: [ :found | found ] ifNone: [ :a :b | ('between: ', {a. b} printString)] #(1 3 5 7 11 15 23) findBinaryIndex: [ :arg | 12 - arg ] do: [ :found | found ] ifNone: [ :a :b | ('between: ', {a. b} printString) ] #(1 3 5 7 11 15 23) d findBinaryIndex: [ :arg | 0.5 - arg ] do: [ :found | found ] ifNone: [ :a :b | ('between: ', {a. b} printString) ] #(1 3 5 7 11 15 23) findBinaryIndex: [ :arg | 25 - arg ] do: [ :found | found ] ifNone: [ :a :b | ('between: ',{a. b} printString) ] " + | index low high test | - | index low high | low := 1. high := self size. + [ high < low ] whileFalse: [ + index := high + low // 2. + (test := aBlock value: (self at: index)) < 0 + ifTrue: [ high := index - 1 ] + ifFalse: [ + 0 < test - [ - index := high + low // 2. - low > high ] whileFalse: [ - | test | - test := aBlock value: (self at: index). - test = 0 - ifTrue: [ ^actionBlock value: index ] - ifFalse: [ test > 0 ifTrue: [ low := index + 1 ] + ifFalse: [ "test = 0" + ^actionBlock value: index ] ] ]. - ifFalse: [ high := index - 1 ] ] ]. ^exceptionBlock cull: high cull: low! Item was changed: ----- Method: SortedCollection>>indexForInserting: (in category 'private') ----- indexForInserting: newObject | index low high | low := firstIndex. high := lastIndex. + sortBlock + ifNil: [ + [ low > high ] whileFalse: [ + index := (high + low) // 2. + (array at: index) <= newObject + ifTrue: [ low := index + 1 ] + ifFalse: [ high := index - 1 ] ] ] + ifNotNil: [ + [ low > high ] whileFalse: [ + index := (high + low) // 2. + (sortBlock value: (array at: index) value: newObject) + ifTrue: [ low := index + 1 ] + ifFalse: [ high := index - 1 ] ] ]. - sortBlock isNil - ifTrue: [[index := high + low // 2. low > high] - whileFalse: - [((array at: index) <= newObject) - ifTrue: [low := index + 1] - ifFalse: [high := index - 1]]] - ifFalse: [[index := high + low // 2. low > high] - whileFalse: - [(sortBlock value: (array at: index) value: newObject) - ifTrue: [low := index + 1] - ifFalse: [high := index - 1]]]. ^low!

1 0

The Trunk: 60Deprecated-ul.23.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Levente Uzonyi uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-ul.23.mcz ==================== Summary ==================== Name: 60Deprecated-ul.23 Author: ul Time: 2 July 2018, 8:53:19.652521 pm UUID: 4dd2eb16-f124-4343-bc9d-3700e9055d7c Ancestors: 60Deprecated-eem.22 Deprecated HashedCollection's #findElementOrNil: and #fullCheck. =============== Diff against 60Deprecated-eem.22 =============== Item was added: + ----- Method: HashedCollection>>findElementOrNil: (in category '*60Deprecated-compatibility') ----- + findElementOrNil: anObject + "This method has been superseeded by #scanFor: + It is here for compatibility with external packages only." + ^self scanFor: anObject! Item was added: + ----- Method: HashedCollection>>fullCheck (in category '*60Deprecated-compatibility') ----- + fullCheck + "This is a private method, formerly implemented in Set, that is no longer required. + It is here for compatibility with external packages only." + "Keep array at least 1/4 free for decent hash behavior" + + array size * 3 < (tally * 4) ifTrue: [ self grow ]!

1 0

The Trunk: Morphic-cmm.1458.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1458.mcz ==================== Summary ==================== Name: Morphic-cmm.1458 Author: cmm Time: 1 July 2018, 7:08:29.055704 pm UUID: 4c35981c-7629-4346-973b-408ca3f2e045 Ancestors: Morphic-cmm.1457 Recover Levente's change to use #sort: instead of asSortedCollection:, which had been done prior to my change to #findWindow:. Sorry Levente! =============== Diff against Morphic-cmm.1457 =============== Item was changed: ----- Method: PasteUpMorph>>findWindow: (in category 'world menu') ----- findWindow: evt "Present a menu names of windows and naked morphs, and activate the one that gets chosen. Collapsed windows appear below line, expand if chosen; naked morphs appear below second line; if any of them has been given an explicit name, that is what's shown, else the class-name of the morph shows; if a naked morph is chosen, bring it to front and have it don a halo." | menu expanded collapsed nakedMorphs | menu := MenuMorph new. expanded := SystemWindow windowsIn: self satisfying: [:w | w isCollapsed not]. collapsed := SystemWindow windowsIn: self satisfying: [:w | w isCollapsed]. nakedMorphs := self submorphsSatisfying: [:m | (m isSystemWindow not and: [(m isStickySketchMorph) not]) and: [(m isFlapTab) not]]. (expanded isEmpty & (collapsed isEmpty & nakedMorphs isEmpty)) ifTrue: [^ Beeper beep]. + (expanded sort: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do: - (expanded asSortedCollection: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do: [:w | menu add: (w label contractTo: 80) target: w action: #beKeyWindow. w model canDiscardEdits ifFalse: [menu lastItem color: Color red]]. (expanded isEmpty | (collapsed isEmpty & nakedMorphs isEmpty)) ifFalse: [menu addLine]. + (collapsed sort: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do: - (collapsed asSortedCollection: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do: [:w | menu add: (w label contractTo: 80) target: w action: #collapseOrExpand. w model canDiscardEdits ifFalse: [menu lastItem color: Color red]]. nakedMorphs isEmpty ifFalse: [menu addLine]. + (nakedMorphs sort: [:w1 :w2 | w1 nameForFindWindowFeature caseInsensitiveLessOrEqual: w2 nameForFindWindowFeature]) do: - (nakedMorphs asSortedCollection: [:w1 :w2 | w1 nameForFindWindowFeature caseInsensitiveLessOrEqual: w2 nameForFindWindowFeature]) do: [:w | menu add: (w nameForFindWindowFeature contractTo: 80) target: w action: #comeToFrontAndAddHalo]. menu addTitle: 'find window' translated. menu popUpEvent: evt in: self.!

1 0

The Trunk: Help-Squeak-Project-cmm.58.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Chris Muller uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-cmm.58.mcz ==================== Summary ==================== Name: Help-Squeak-Project-cmm.58 Author: cmm Time: 1 July 2018, 6:26:15.595718 pm UUID: c228822e-add8-4297-a6aa-2ebc50fd177d Ancestors: Help-Squeak-Project-tpr.57 Command-key help page updates. =============== Diff against Help-Squeak-Project-tpr.57 =============== Item was changed: ----- Method: SqueakTutorialsCommandKey class>>commandKeyMappings (in category 'as yet unclassified') ----- commandKeyMappings "This method was automatically generated. Edit it using:" "SqueakTutorialsCommandKey edit: #commandKeyMappings" + ^(HelpTopic - ^HelpTopic title: 'Command Key Mappings' contents: 'Lower-case command keys (use with Cmd key on Mac and Alt key on other platforms) a Select all b Browse it (selection is a class name or cursor is over a class-list or message-list) c Copy selection d Do it (selection is a valid expression) e Exchange selection with prior selection f Find text with a dialog g Find the current selection again j Repeat the last selection replacement i Inspect it k Set font l Cancel text edit m Implementors of it n Senders of it o Spawn current method p Print it (selection is a valid expression) q Query symbol (toggle all possible completion for a given prefix) s Save (i.e. accept) t Finds a Transcript (when cursor is over the desktop) u Toggle alignment v Paste w Select/Delete preceding word (over text); Close-window (over morphic desktop) x Cut selection y Swap characters z Undo Note: for Do it, Senders of it, etc., a null selection will be expanded to a word or to the current line in an attempt to do what you want. Also note that Senders/Implementors of it will find the outermost keyword selector in a large selection, as when you have selected a bracketed expression or an entire line. Finally note that the same cmd-m and cmd-n (and cmd-v for versions) work in the message pane of most browsers. Upper-case command keys (use with Shift-Cmd, or Ctrl on Mac or Shift-Alt on other platforms; sometimes Ctrl works too) A Advance argument B Browse it in this same browser (in System browsers only) C Compare the selected text to the clipboard contents D Debug-It E Method strings containing it F Insert ''ifFalse:'' G fileIn from it (a file name) H Move cursor to top/home of text I Inspect via Object Explorer J Again many (apply the previous text command repeatedly until the end of the text) K Set style L Opens a FileList, bringing forward on that already exists if appropriate M Select current type-in N References to it (selection is a class name, or cursor is over a class-list or message-list) O Open single-message browser (in message lists) P Make project link R opens a Recent Submissions browser S Pretty-print a method in the current browser T Insert ''ifTrue:'' U Convert linefeeds to carriage returns in selection V Paste author''s initials W Selectors containing it (in text); show-world-menu (when issued with cursor over desktop) X Force selection to lowercase Y Force selection to uppercase Z Redo Other special keys Backspace Backward delete character Shift-Bksp Backward select or delete word Del Forward delete character Shift-Del Forward delete word Esc Pop up the context menu Shift+Esc Pop up the World Menu Cmd+Esc Close the active window Ctrl+Esc Present a list of open windows Cmd+\ Send the active window to the back Tab Insert a tab char in a single-line selection or insert a tab at the beginning of each line in a multi-line selection Shift-Tab Remove a tab from the beginning of each line in the selection + Shift-Cmd-_ (underscore) condense selection into one line Cursor keys left, right, up, down Move cursor left, right, up or down Ctrl-left Move cursor left one word Ctrl-right Move cursor right one word Home Move cursor to begin of line or begin of text End Move cursor to end of line or end of text PgUp, Ctrl-up Move cursor up one page PgDown, Ctrl-Dn Move cursor down one page Note all these keys can be used together with Shift to define or enlarge the selection. You cannot however shrink that selection again, as in some other systems. Other Cmd-key combinations (not available on all platforms) Return Insert return followed by as many tabs as the previous line (with a further adjustment for additional brackets in that line) Space Select the current word as with double clicking Enclose the selection in a kind of bracket. Each is a toggle. (not available on all platforms) Ctrl-( Toggle enclosure within parentheses Cmd-[ Toggle enclosure within brackets Crtl-{ Toggle enclosure within curly braces Ctrl-'' Toggle enclosure within double-quotes Cmd-'' Toggle enclosure within single-quotes Note also that you can double-click just inside any of the above delimiters, or at the beginning or end of a line, to select the text enclosed. Text Emphasis (not available on all platforms) Cmd-1 type the first method argument Cmd-2 type the second method argument Cmd-3 type the third method argument Cmd-4 type the fourth method argument Cmd-5 for future use Cmd-6 color, action-on-click, link to class comment, link to method, url Brings up a menu. To remove these properties, select more than the active part and then use command-0. Cmd-7 bold Cmd-8 italic + Cmd-9 negative kern (letters 1 pixel closer) + Cmd-0 make plain (removes all emphasis and kerning) + Cmd-- underlined + Cmd-= struck out - Cmd-9 narrow (same as negative kern) - Cmd-0 plain text (resets all emphasis) - Cmd-- underlined (toggles it) - Cmd-= struck out (toggles it) - Shift-Cmd-- (aka :=) negative kern (letters 1 pixel closer) - Shift-Cmd-+ positive kern (letters 1 pixel larger spread) - Docking Bar Ctrl-<n> opens the n-th (where n is between 0 and 7) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means: Ctrl-0 Activates Search Bar or Scratch Pad Ctrl-1 Squeak menu Ctrl-2 Projects menu Ctrl-3 Tools menu Ctrl-4 Apps menu Ctrl-5 Extras menu Ctrl-6 Windows menu Ctrl-7 Help menu + !!' readStream nextChunkText) + key: #commandKeyMappings! - !!' readStream nextChunkText!

1 0

The Trunk: Morphic-cmm.1457.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1457.mcz ==================== Summary ==================== Name: Morphic-cmm.1457 Author: cmm Time: 1 July 2018, 6:11:16.205766 pm UUID: 2ca064ea-7c51-4c44-a60a-f71968f10eae Ancestors: Morphic-kfr.1456 - Fix underline and strikeout in TextMorphs. - Added Command+Shift+_ (underscore) to condense the selected expression into one line. - Add font-size selection options to Themes & Colors menu. =============== Diff against Morphic-kfr.1456 =============== Item was changed: ----- Method: PasteUpMorph>>findWindow: (in category 'world menu') ----- findWindow: evt "Present a menu names of windows and naked morphs, and activate the one that gets chosen. Collapsed windows appear below line, expand if chosen; naked morphs appear below second line; if any of them has been given an explicit name, that is what's shown, else the class-name of the morph shows; if a naked morph is chosen, bring it to front and have it don a halo." | menu expanded collapsed nakedMorphs | menu := MenuMorph new. expanded := SystemWindow windowsIn: self satisfying: [:w | w isCollapsed not]. collapsed := SystemWindow windowsIn: self satisfying: [:w | w isCollapsed]. nakedMorphs := self submorphsSatisfying: [:m | (m isSystemWindow not and: [(m isStickySketchMorph) not]) and: [(m isFlapTab) not]]. (expanded isEmpty & (collapsed isEmpty & nakedMorphs isEmpty)) ifTrue: [^ Beeper beep]. + (expanded asSortedCollection: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do: + [:w | menu add: (w label contractTo: 80) target: w action: #beKeyWindow. - (expanded sort: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do: - [:w | menu add: w label target: w action: #beKeyWindow. w model canDiscardEdits ifFalse: [menu lastItem color: Color red]]. (expanded isEmpty | (collapsed isEmpty & nakedMorphs isEmpty)) ifFalse: [menu addLine]. + (collapsed asSortedCollection: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do: + [:w | menu add: (w label contractTo: 80) target: w action: #collapseOrExpand. - (collapsed sort: [:w1 :w2 | w1 label caseInsensitiveLessOrEqual: w2 label]) do: - [:w | menu add: w label target: w action: #collapseOrExpand. w model canDiscardEdits ifFalse: [menu lastItem color: Color red]]. nakedMorphs isEmpty ifFalse: [menu addLine]. + (nakedMorphs asSortedCollection: [:w1 :w2 | w1 nameForFindWindowFeature caseInsensitiveLessOrEqual: w2 nameForFindWindowFeature]) do: + [:w | menu add: (w nameForFindWindowFeature contractTo: 80) target: w action: #comeToFrontAndAddHalo]. - (nakedMorphs sort: [:w1 :w2 | w1 nameForFindWindowFeature caseInsensitiveLessOrEqual: w2 nameForFindWindowFeature]) do: - [:w | menu add: w nameForFindWindowFeature target: w action: #comeToFrontAndAddHalo]. menu addTitle: 'find window' translated. menu popUpEvent: evt in: self.! Item was changed: ----- Method: PasteUpMorph>>tryInvokeKeyboardShortcut: (in category 'events-processing') ----- tryInvokeKeyboardShortcut: aKeyboardEvent aKeyboardEvent commandKeyPressed ifFalse: [^ self]. aKeyboardEvent keyCharacter caseOf: { [$R] -> [Utilities browseRecentSubmissions]. [$L] -> [self findAFileList: aKeyboardEvent]. [$O] -> [self findAMonticelloBrowser]. [$P] -> [self findAPreferencesPanel: aKeyboardEvent]. "[$Z] -> [ChangeList browseRecentLog]." [$]] -> [Smalltalk snapshot: true andQuit: false]. - [$+] -> [Preferences increaseFontSize]. - [$-] -> [Preferences decreaseFontSize]. - [$=] -> [Preferences restoreDefaultFonts]. } otherwise: [^ self "no hit"]. aKeyboardEvent ignore "hit!!".! Item was changed: ----- Method: SmalltalkEditor class>>initializeShiftCmdKeyShortcuts (in category 'keyboard shortcut tables') ----- initializeShiftCmdKeyShortcuts "Initialize the shift-command-key (or control-key) shortcut table." "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest" - "wod 11/3/1998: Fix setting of cmdMap for shifted keys to actually use the - capitalized versions of the letters. - TPR 2/18/99: add the plain ascii values back in for those VMs that don't return the shifted values." - - "SmalltalkEditor initialize" - | cmds | super initializeShiftCmdKeyShortcuts. - cmds := #( $a argAdvance: $b browseItHere: $d debugIt: $e methodStringsContainingIt: $f displayIfFalse: $g fileItIn: $i exploreIt: $n referencesToIt: $s invokePrettyPrint: $t displayIfTrue: $v pasteInitials: $w methodNamesContainingIt: ). 1 to: cmds size by: 2 do: [ :i | shiftCmdActions at: ((cmds at: i) asciiValue + 1) put: (cmds at: i + 1). "plain keys" shiftCmdActions at: ((cmds at: i) asciiValue - 32 + 1) put: (cmds at: i + 1). "shifted keys" shiftCmdActions at: ((cmds at: i) asciiValue - 96 + 1) put: (cmds at: i + 1). "ctrl keys" + ]. + "shift+cmd _ (underscore)" + shiftCmdActions at: $_ asciiValue+1 put: #flattenSelection:! - ].! Item was added: + ----- Method: SmalltalkEditor>>flattenSelection: (in category 'editing keys') ----- + flattenSelection: dummy + "Replace all lines and consecutive whitespace characters of the current selection with one line separated by single spaces." + self replaceSelectionWith: self selection string condensedIntoOneLine. + ^ true! Item was changed: ----- Method: TheWorldMainDockingBar>>themesAndWindowColorsOn: (in category 'submenu - extras') ----- themesAndWindowColorsOn: menu - | themes | - themes := UserInterfaceTheme allThemes asArray sorted: [:t1 :t2 | - t1 name <= t2 name]. - menu addItem:[:item| item contents: (Model useColorfulWindows ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Colorful Windows' translated; target: self; selector: #toggleColorfulWindows]. menu addItem:[:item| item contents: (SystemWindow gradientWindow not ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Flat Widget Look' translated; target: self; selector: #toggleGradients]. menu addLine. menu addItem:[:item | item contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Soft Shadows' translated; target: self; selector: #toggleSoftShadows]. menu addItem:[:item | item contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow not]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Hard Shadows' translated; target: self; selector: #toggleHardShadows]. menu addLine. menu addItem:[:item | item contents: (SystemWindow roundedWindowCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Window/Dialog/Menu Look' translated; target: self; selector: #toggleRoundedWindowLook]. menu addItem:[:item | item contents: (PluggableButtonMorph roundedButtonCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Button/Scrollbar Look' translated; target: self; selector: #toggleRoundedButtonLook]. + themes := UserInterfaceTheme allThemes asArray sort: #name ascending. - - - menu addLine. - themes ifEmpty: [ menu addItem: [ :item | item contents: '(No UI themes found.)' translated; isEnabled: false ] ]. themes do: [ :each | menu addItem: [ :item | item contents: (UserInterfaceTheme current == each ifTrue: ['<yes>'] ifFalse: ['<no>']), each name; target: each; selector: #apply ] ]. menu + addLine ; + add: 'Increase Font Size' translated target: Preferences selector: #increaseFontSize ; + add: 'Decrease Font Size' translated target: Preferences selector: #decreaseFontSize ; + addLine. + menu addLine; add: 'Restore UI Theme Background' translated target: self selector: #restoreThemeBackground; add: 'Edit Current UI Theme...' translated target: self selector: #editCurrentTheme.! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'SmalltalkEditor initializeShiftCmdKeyShortcuts'! - (PackageInfo named: 'Morphic') postscript: 'Project allMorphicProjects do: [:p | - p world allMorphsDo: [:m | - (m isKindOf: BorderedMorph) ifTrue: [ - m borderColor: (m instVarNamed: #borderColor). - m borderWidth: (m instVarNamed: #borderWidth)]]].'!

1 0

The Trunk: CollectionsTests-cmm.290.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Chris Muller uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-cmm.290.mcz ==================== Summary ==================== Name: CollectionsTests-cmm.290 Author: cmm Time: 1 July 2018, 6:05:23.407272 pm UUID: 753dbd31-b290-4acd-8102-9650ab7e011b Ancestors: CollectionsTests-pre.289 Tests for String>>#condensedIntoOneLine. =============== Diff against CollectionsTests-pre.289 =============== Item was added: + ----- Method: StringTest>>testCondensedIntoOneLine (in category 'tests - converting') ----- + testCondensedIntoOneLine + self assert: ' abc d ' condensedIntoOneLine = 'abc d'. + self assert: ' + (2 + to: 10 + by: 2) + ' condensedIntoOneLine = '(2 to: 10 by: 2)'. + "all blanks" + self assert: + (((0 to: 255) + collect: [ : each | each asCharacter ] + thenSelect: [ : each | each isSeparator ]) as: String) condensedIntoOneLine = String empty. + "no blanks" + self assert: 'abcd' condensedIntoOneLine = 'abcd'. + "Ensure every 'abcd' in this CompiledMethod is the same one." + self assert: 'abcd' == 'abcd'. + "supposed to always copy no matter what" + self assert: 'abcd' condensedIntoOneLine ~~ 'abcd'!

1 0

The Trunk: Collections-cmm.797.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cmm.797.mcz ==================== Summary ==================== Name: Collections-cmm.797 Author: cmm Time: 1 July 2018, 6:04:20.270181 pm UUID: 00fa2143-c85b-4a5c-9615-2c45ae597af6 Ancestors: Collections-ul.796 Added String>>#condensedIntoOneLine to support new editing hot key. =============== Diff against Collections-ul.796 =============== Item was added: + ----- Method: String>>condensedIntoOneLine (in category 'converting') ----- + condensedIntoOneLine + "Return a copy of the receiver with all separators converted to spaces, and with no consecutive spaces. A formatting tool." + ^ String streamContents: + [ : stream | | prior | + prior := $X. "any non-blank" + self withBlanksTrimmed do: + [ : char | char isSeparator ifTrue: [ prior isSeparator ifFalse: [stream space]] ifFalse: [ stream nextPut: char ]. + prior := char ] ]!

1 0

The Trunk: SMBase-cmm.140.mcz
by commits＠source.squeak.org 02 Jul '18

02 Jul '18

Chris Muller uploaded a new version of SMBase to project The Trunk: http://source.squeak.org/trunk/SMBase-cmm.140.mcz ==================== Summary ==================== Name: SMBase-cmm.140 Author: cmm Time: 1 July 2018, 5:36:23.295164 pm UUID: 21157854-3f46-4d0f-838f-8f720aea1544 Ancestors: SMBase-cmm.139 Fix DNU when the creating first release of a SqueakMap package. =============== Diff against SMBase-cmm.139 =============== Item was changed: ----- Method: SMPackageRelease>>initializeFromRelease:package: (in category 'initialize-release') ----- initializeFromRelease: parentRelease package: aPackage "Initialize package release from a given parent. Branch if needed." self map: aPackage map id: UUID new. package := aPackage. aPackage isCommunitySupported ifTrue: [ self beCommunitySupported ]. automaticVersion := parentRelease ifNil: [ VersionNumber first ] + ifNotNil: + [ self downloadUrl: parentRelease downloadUrl. + parentRelease nextOrBranch ]. - ifNotNil: [ parentRelease nextOrBranch ]. - self downloadUrl: parentRelease downloadUrl. version := note := String empty!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2018