Squeak-dev September 2020

squeak-dev@lists.squeakfoundation.org

37 participants
270 discussions

The Trunk: Tools-mt.989.mcz
by commits＠source.squeak.org 29 Sep '20

29 Sep '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.989.mcz ==================== Summary ==================== Name: Tools-mt.989 Author: mt Time: 29 September 2020, 10:06:06.429444 am UUID: 5730f8ac-96c7-6c41-be31-f2c51310ad53 Ancestors: Tools-ct.988 In debuggers, unify run-until/to logic, which also skips unnecessary UI updates to speed up "run to here" again. =============== Diff against Tools-ct.988 =============== Item was added: + ----- Method: Debugger>>doStepUntil: (in category 'context stack menu') ----- + doStepUntil: condition + "Step until the given condition evaluates to other than false, reporting an error it if does not evaluate to true. + + If shift is pressed when the expression is supplied, don't update the UI. If shift is pressed while stepping, stop stepping. Using a user interrupt to break out would be more natural but Squeak currently doesn't provide a UserInterrupt exception. It should do." + + | currentContext newContext value lastUpdate updateUI breakOnShift | + self okToChange ifFalse: [^ self]. + self checkContextSelection. + currentContext := newContext := self selectedContext. + lastUpdate := Time millisecondClockValue. + updateUI := breakOnShift := Sensor shiftPressed not. + + Cursor execute showWhile: [[ + newContext == currentContext + and: [currentContext willReturn not + and: [(value := condition value) == false]] ] whileTrue: [ + + self + handleLabelUpdatesIn: [newContext := interruptedProcess completeStep: currentContext] + whenExecuting: currentContext. + newContext == currentContext ifTrue: [ + newContext := interruptedProcess stepToSendOrReturn. + self resetContext: newContext changeContents: false]. + + Time millisecondClockValue - lastUpdate > 250 "ms" ifTrue: [ + updateUI ifTrue: [ + self changed: #contentsSelection. + Project current world displayWorldSafely]. + breakOnShift + ifTrue: [Sensor shiftPressed ifTrue: [ + self changed: #contentsSelection. + self updateInspectors. + ^self]] + ifFalse: [Sensor shiftPressed ifFalse: [breakOnShift := true]]. + lastUpdate := Time millisecondClockValue] ]]. + + self contextStackIndex > 1 + ifTrue: [self resetContext: newContext] + ifFalse: + [newContext == currentContext + ifTrue: [self changed: #contentsSelection; updateInspectors] + ifFalse: [self resetContext: newContext]]. + + ^ value + ! Item was changed: ----- Method: Debugger>>runToSelection: (in category 'code pane menu') ----- runToSelection: selectionInterval + - | currentContext | self pc first >= selectionInterval first ifTrue: [ ^self ]. + self doStepUntil: [ self pc first >= selectionInterval first ].! - currentContext := self selectedContext. - [ currentContext == self selectedContext and: [ self pc first < selectionInterval first ] ] whileTrue: [ self doStep ].! Item was changed: ----- Method: Debugger>>runUntil (in category 'code pane menu') ----- runUntil + "Step until an expression evaluates to other than false, reporting an error if it doesn't evaluate to true. Remember the expression in an inst var." + + | expression receiver context method value | - "Step until an expression evaluates to other than false, reporting an error if it doesn't evaluate to true. - Remember the expression in an inst var. If shift is pressed when the expression is supplied, don't update the UI. - If shift is pressed while stepping, stop stepping. Using a user interrupt to break out would be more natural - but Squeak currently doesn't provide a UserInterrupt expection. It should do." - | expression receiver context method value lastUpdate updateUI breakOnShift | expression := UIManager default request: 'run until expression is true (shift to disable ui update; shift to break).' initialAnswer: (untilExpression ifNil: 'boolean expression'). (expression isNil or: [expression isEmpty]) ifTrue: [^self]. - updateUI := breakOnShift := Sensor shiftPressed not. untilExpression := expression. context := self selectedContext. receiver := context receiver. method := receiver class evaluatorClass new compiledMethodFor: untilExpression in: context to: receiver notifying: nil ifFail: [^ #failedDoit]. + value := self doStepUntil: [method valueWithReceiver: receiver arguments: {context}]. + - lastUpdate := Time millisecondClockValue. - Cursor execute showWhile: - [[self selectedContext == context - and: [context willReturn not - and: [(value := method valueWithReceiver: receiver arguments: {context}) == false]]] whileTrue: - [interruptedProcess completeStep: self selectedContext. - self selectedContext == context ifTrue: - [self resetContext: interruptedProcess stepToSendOrReturn changeContents: false]. - Time millisecondClockValue - lastUpdate > 50 ifTrue: - [updateUI ifTrue: - [self changed: #contentsSelection. - Project current world displayWorldSafely]. - breakOnShift - ifTrue: [Sensor shiftPressed ifTrue: - [self changed: #contentsSelection. - self updateInspectors. - ^self]] - ifFalse: [Sensor shiftPressed ifFalse: [breakOnShift := true]]. - lastUpdate := Time millisecondClockValue]]]. - self changed: #contentsSelection. - self updateInspectors. (value ~~ false and: [value ~~ true]) ifTrue: [UIManager default inform: 'expression ', (untilExpression contractTo: 40), ' answered ', (value printString contractTo: 20), '!!!!']!

1 0

We need an Applications tab on squeak.org
by Eliot Miranda 29 Sep '20

29 Sep '20

Hi All, I propose that we add an Applications tab on squek.org and in that page we have a brief description of, the logo/iconography of, and URL of any and all commercial projects currently built with Squeak. Tim's company Sage Tea is perhaps transitioning a part of its solution to Squeak from VisualWorks. 3D ICC's Terf is all built on Squeak. Who else is building commercial applications on Squeak? I bet there are a few. We should not keep the commercial success of Squeak in stealth mode, We should broadcast it far and wide. If you are, then please, if you're part of the Squeak.org design team, start building this tab, if you're an application developer and/or owner, please mention your project here, and/or add it to the Applications tab as soon as it goes live. Fabio Neiphaus and others have built a very nice process for updating the website. One clones https://github.com/squeak-smalltalk/squeak.org.git, edits the checkout of the clone, commits to one's clone, and submits a pull request. Who's with me? _,,,^..^,,,_ best, Eliot

7 12

The Inbox: CollectionsTests-ul.344.mcz
by commits＠source.squeak.org 28 Sep '20

28 Sep '20

Levente Uzonyi uploaded a new version of CollectionsTests to project The Inbox: http://source.squeak.org/inbox/CollectionsTests-ul.344.mcz ==================== Summary ==================== Name: CollectionsTests-ul.344 Author: ul Time: 28 September 2020, 11:52:49.129468 pm UUID: 82e7d021-2a4e-4e58-8758-c4e8838805cf Ancestors: CollectionsTests-eem.342 Hashed collections: - updated tests to send #array and #size instead of #capacity - added a few tests for #capacity =============== Diff against CollectionsTests-eem.342 =============== Item was added: + ----- Method: DictionaryTest>>testArraySizeOfNew (in category 'tests - basic') ----- + testArraySizeOfNew + "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 array size). + 0 to: 100 do: [ :size | + | dictionary | + dictionary := Dictionary new: size. + self assert: (goodPrimes includes: dictionary array size). + self assert: dictionary capacity >= size ]! Item was removed: - ----- 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 added: + ----- Method: HashedCollectionTest>>testArraySize (in category 'tests - integrity') ----- + testArraySize + + | inconsistentCollections | + inconsistentCollections := HashedCollection allSubInstances reject: [ :each | + each class == MethodDictionary "MethodDictionary is the only HashedCollection which doesn't have prime array size" + ifTrue: [ each array size isPowerOfTwo ] + ifFalse: [ each array size isPrime ] ]. + self assert: inconsistentCollections isEmpty! Item was changed: ----- Method: HashedCollectionTest>>testCapacity (in category 'tests - integrity') ----- testCapacity + self assert: (HashedCollection allSubInstances allSatisfy: [ :each | + each array size * 3 // 4 = each capacity ])! - | inconsistentCollections | - inconsistentCollections := HashedCollection allSubInstances reject: [ :each | - each class == MethodDictionary "MethodDictionary is the only HashedCollection which doesn't have prime array size" - ifTrue: [ each capacity isPowerOfTwo ] - ifFalse: [ each capacity isPrime ] ]. - self assert: inconsistentCollections isEmpty! Item was changed: ----- Method: OrderedDictionaryTest>>testGrow (in category 'tests') ----- testGrow self + assert: 11 equals: sut array size; "next prime number to 7; see #setUp" + assert: sut capacity = (sut instVarNamed: #order) size; + assert: sut array size >(sut instVarNamed: #order) size. "save memory" - assert: 11 equals: sut capacity; "next prime number to 7; see #setUp" - assert: sut capacity > (sut instVarNamed: #order) size. "save memory" + 1 to: sut array size do: [:ea | - 1 to: sut capacity do: [:ea | sut at: ea put: nil]. self + assert: sut array size > 11; + assert: sut capacity = (sut instVarNamed: #order) size; + assert: sut array size > (sut instVarNamed: #order) size. "save memory"! - assert: sut capacity > 11; - assert: sut capacity > (sut instVarNamed: #order) size. "save memory"! Item was added: + ----- Method: SetTest>>testCapacity (in category 'tests') ----- + testCapacity + + | set capacity | + set := Set new. + self assert: set size = 0. + 10 timesRepeat: [ + capacity := set capacity. + self assert: set size < capacity. + set size + 1 to: capacity do: [ :i | + set add: i. + self assert: set capacity = capacity ]. + self assert: set size equals: capacity. + set add: set capacity + 1. + self assert: set capacity > capacity ]! Item was changed: ----- Method: WeakIdentityKeyDictionaryTest>>testFinalizeValuesWhenLastChainContinuesAtFront (in category 'tests') ----- testFinalizeValuesWhenLastChainContinuesAtFront + | objectWithHashModulo dictionary arraySize a b c | - | objectWithHashModulo dictionary capacity a b c | objectWithHashModulo := [ :requestedHash :modulo | | object | [ object := Object new. object hash \\ modulo = requestedHash ] whileFalse. object ]. dictionary := self classToBeTested new. + arraySize := dictionary array size. + a := objectWithHashModulo value: arraySize - 2 value: arraySize. - capacity := dictionary capacity. - a := objectWithHashModulo value: capacity - 2 value: capacity. dictionary at: a put: 1. + b := objectWithHashModulo value: arraySize - 1 value: arraySize. - b := objectWithHashModulo value: capacity - 1 value: capacity. dictionary at: b put: 2. + c := objectWithHashModulo value: arraySize - 2 value: arraySize. - c := objectWithHashModulo value: capacity - 2 value: capacity. dictionary at: c put: 3. + self assert: dictionary array size = arraySize. + self assert: (dictionary array at: arraySize - 1) key == a. + self assert: (dictionary array at: arraySize) key == b. - self assert: dictionary capacity = capacity. - self assert: (dictionary array at: capacity - 1) key == a. - self assert: (dictionary array at: capacity) key == b. self assert: (dictionary array at: 1) key == c. a := nil. Smalltalk garbageCollect. dictionary finalizeValues. self assert: (dictionary includesKey: b). self assert: (dictionary includesKey: c). + self assert: dictionary slowSize = 2! - self assert: dictionary slowSize = 2. - ! Item was changed: ----- Method: WeakSetTest>>testIncludes (in category 'tests') ----- testIncludes | weakSet transientFakeNilObject | weakSet := WeakSet new. #(true nil 1) do: [ :each | self deny: (weakSet includes: each) ]. weakSet add: true. self assert: (weakSet includes: true). weakSet remove: true. self deny: (weakSet includes: true). + transientFakeNilObject := ((1 to: 1000) detect: [ :each | each asString hash - nil hash \\ weakSet array size = 0 ]) asString. "this string will occupy the same slot as nil would" - transientFakeNilObject := ((1 to: 1000) detect: [ :each | each asString hash - nil hash \\ weakSet capacity = 0 ]) asString. "this string will occupy the same slot as nil would" weakSet add: transientFakeNilObject. transientFakeNilObject := transientFakeNilObject copy. Smalltalk garbageCollect. "get rid of transientFakeNilObject" self deny: (weakSet includes: transientFakeNilObject). self deny: (weakSet includes: nil) !

1 0

The Inbox: Collections-ul.914.mcz
by commits＠source.squeak.org 28 Sep '20

28 Sep '20

Levente Uzonyi uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-ul.914.mcz ==================== Summary ==================== Name: Collections-ul.914 Author: ul Time: 28 September 2020, 11:50:07.373304 pm UUID: eb80ed0e-d5ed-4ff5-9206-18cc75e54990 Ancestors: Collections-eem.912 HashedCollection changes: - make #capacity return the actual capacity of the collection instead of the size of the internal array. This change is obviously not backwards compatible. - improve the performance of #isEmpty when tally is 0 OrderedDictionary changes: - make it a subclass of PluggableDictionary. This lets one create e.g. an ordered identity dictionary without creating a subclass with duplicated behavior - simplify #initialize and #growTo: now that #capacity is accurate =============== Diff against Collections-eem.912 =============== Item was changed: ----- Method: HashedCollection>>capacity (in category 'accessing') ----- capacity + "Answer the current capacity of the receiver - aka the number of elements the receiver can hold without growing." - "Answer the current capacity of the receiver." + ^ array size * 3 // 4! - ^ array size! Item was changed: ----- Method: HashedCollection>>isEmpty (in category 'testing') ----- isEmpty "For non-weak collections, we can use the tally to speed up the empty check. For weak collections, we must use the traditional way because the tally is unreliable. Also see #size vs. #slowSize." + tally = 0 ifTrue: [ ^true ]. + ^array class isWeak and: [ super isEmpty ]! - ^ array class isWeak - ifFalse: [ tally = 0 ] - ifTrue: [ super isEmpty ]! Item was changed: ----- Method: HashedCollection>>removeAll (in category 'removing') ----- removeAll "remove all elements from this collection. Preserve the capacity" + self initialize: array size! - self initialize: self capacity! Item was changed: + PluggableDictionary subclass: #OrderedDictionary - Dictionary subclass: #OrderedDictionary instanceVariableNames: 'order' classVariableNames: '' poolDictionaries: '' category: 'Collections-Sequenceable'! !OrderedDictionary commentStamp: 'mt 1/16/2015 10:42' prior: 0! I am an ordered dictionary. I have an additional index (called 'order') to keep track of the insertion order of my associations. The read access is not affected by the additional index. The index is updated in O(1) [time] when inserting new keys. For present keys, that insertion involves actions in O(n) to move the respective element to the end of the order. The growth operation compacts the index and takes O(n) additional time. NOTE: This is still no instance of SequenceableCollection. Having this, some protocols are missing and may require working on #associations, which is an Array and thus sequenceable.! Item was changed: ----- Method: OrderedDictionary>>growTo: (in category 'private') ----- growTo: anInteger - | oldOrder | super growTo: anInteger. + order := order grownBy: self capacity - order size! - oldOrder := order. - "Grow only to 75%. See #atNewIndex:put: in HashedCollection." - order := self class arrayType new: anInteger + 1 * 3 // 4. - order - replaceFrom: 1 - to: tally - with: oldOrder - startingAt: 1! Item was changed: ----- Method: OrderedDictionary>>initialize: (in category 'private') ----- initialize: n super initialize: n. + order := self class arrayType new: self capacity! - order := self class arrayType new: n + 1 * 3 // 4!

1 0

The Inbox: Collections-ul.913.mcz
by commits＠source.squeak.org 28 Sep '20

28 Sep '20

Levente Uzonyi uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-ul.913.mcz ==================== Summary ==================== Name: Collections-ul.913 Author: ul Time: 28 September 2020, 1:19:09.686632 am UUID: 03eb89d7-ea1f-4116-99eb-0181542610f7 Ancestors: Collections-eem.912 HashedCollection changes: - make #capacity return the actual capacity of the collection instead of the size of the internal array. This change is obviously not backwards compatible. - introduce #arraySize to return the size of the internal array - improve the performance of #isEmpty when tally is 0 OrderedDictionary changes; - make it a subclass of PluggableDictionary. This lets one create e.g. an ordered identity dictionary without creating a subclass with duplicated behavior - simplify #initialize and #growTo: now that #capacity is accurate =============== Diff against Collections-eem.912 =============== Item was added: + ----- Method: HashedCollection>>arraySize (in category 'accessing') ----- + arraySize + "Answer the size of the internal array of the receiver." + + ^array size! Item was changed: ----- Method: HashedCollection>>capacity (in category 'accessing') ----- capacity + "Answer the current capacity of the receiver - aka the number of elements the receiver can hold without growing." - "Answer the current capacity of the receiver." + ^ array size * 3 // 4! - ^ array size! Item was changed: ----- Method: HashedCollection>>isEmpty (in category 'testing') ----- isEmpty "For non-weak collections, we can use the tally to speed up the empty check. For weak collections, we must use the traditional way because the tally is unreliable. Also see #size vs. #slowSize." + tally = 0 ifTrue: [ ^true ]. + ^array class isWeak and: [ super isEmpty ]! - ^ array class isWeak - ifFalse: [ tally = 0 ] - ifTrue: [ super isEmpty ]! Item was changed: ----- Method: HashedCollection>>removeAll (in category 'removing') ----- removeAll "remove all elements from this collection. Preserve the capacity" + self initialize: self arraySize! - self initialize: self capacity! Item was changed: + PluggableDictionary subclass: #OrderedDictionary - Dictionary subclass: #OrderedDictionary instanceVariableNames: 'order' classVariableNames: '' poolDictionaries: '' category: 'Collections-Sequenceable'! !OrderedDictionary commentStamp: 'mt 1/16/2015 10:42' prior: 0! I am an ordered dictionary. I have an additional index (called 'order') to keep track of the insertion order of my associations. The read access is not affected by the additional index. The index is updated in O(1) [time] when inserting new keys. For present keys, that insertion involves actions in O(n) to move the respective element to the end of the order. The growth operation compacts the index and takes O(n) additional time. NOTE: This is still no instance of SequenceableCollection. Having this, some protocols are missing and may require working on #associations, which is an Array and thus sequenceable.! Item was changed: ----- Method: OrderedDictionary>>growTo: (in category 'private') ----- growTo: anInteger - | oldOrder | super growTo: anInteger. + order := order grownBy: self capacity - order size! - oldOrder := order. - "Grow only to 75%. See #atNewIndex:put: in HashedCollection." - order := self class arrayType new: anInteger + 1 * 3 // 4. - order - replaceFrom: 1 - to: tally - with: oldOrder - startingAt: 1! Item was changed: ----- Method: OrderedDictionary>>initialize: (in category 'private') ----- initialize: n super initialize: n. + order := self class arrayType new: self capacity! - order := self class arrayType new: n + 1 * 3 // 4!

3 2

The Trunk: System-topa.1174.mcz
by commits＠source.squeak.org 28 Sep '20

28 Sep '20

Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-topa.1174.mcz ==================== Summary ==================== Name: System-topa.1174 Author: topa Time: 24 September 2020, 11:14:16.007835 pm UUID: 8f692d9f-4973-4aac-b181-9a2643089f8a Ancestors: System-eem.1173 Make it so that Theme fonts are looked up on usage, not on theme creation. =============== Diff against System-eem.1173 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: aUserInterfaceTheme "Set-up fonts." aUserInterfaceTheme + set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode]; + set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode]! - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode)! Item was changed: ----- Method: CommunityTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') ----- addDarkSyntaxHighlighting: aUserInterfaceTheme "self createDark apply." + | normal bold italic underlined | normal := TextEmphasis normal. bold:=TextEmphasis bold. italic:=TextEmphasis italic. underlined := TextEmphasis underlined. - | normal bold italic underlined darkMap | normal := TextEmphasis normal. bold:=TextEmphasis bold. italic:=TextEmphasis italic. underlined := TextEmphasis underlined. darkMap := StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9. aUserInterfaceTheme set: #color for: #TextAction to: self dbBlue; set: #default for: #SHTextStylerST80 to: {self dbForeground}; set: #invalid for: #SHTextStylerST80 to: {self dbInvalid}; set: #excessCode for: #SHTextStylerST80 to: {self dbInvalid twiceDarker}; "Descriptive text for humans, italicized." set: #comment for: #SHTextStylerST80 to: {self dbComment. italic}; set: #unfinishedComment for: #SHTextStylerST80 to: {self dbComment darker. italic}; set: #'$' for: #SHTextStylerST80 to: {self dbConstant}; set: #character for: #SHTextStylerST80 to: {self dbConstant}; set: #integer for: #SHTextStylerST80 to: {self dbConstant}; set: #number for: #SHTextStylerST80 to: {self dbConstant}; set: #- for: #SHTextStylerST80 to: {self dbForeground. bold}; set: #= for: #SHTextStylerST80 to: {self dbForeground. bold}; set: #symbol for: #SHTextStylerST80 to: {self dbBedrock}; set: #stringSymbol for: #SHTextStylerST80 to: {self dbBedrock}; set: #literalArray for: #SHTextStylerST80 to: {self dbForeground}; set: #string for: #SHTextStylerST80 to: {self dbConstant}; set: #unfinishedString for: #SHTextStylerST80 to: {self dbConstant darker}; set: #assignment for: #SHTextStylerST80 to: {nil. bold}; set: #ansiAssignment for: #SHTextStylerST80 to: {nil. bold}; set: #literal for: #SHTextStylerST80 to: {nil. bold}; set: #keyword for: #SHTextStylerST80 to: {self dbMessage}; set: #binary for: #SHTextStylerST80 to: {self dbForeground. bold}; set: #unary for: #SHTextStylerST80 to: {self dbMessage}; set: #incompleteKeyword for: #SHTextStylerST80 to: {self dbMessage darker. {underlined. bold}}; set: #incompleteBinary for: #SHTextStylerST80 to: {self dbMessage darker. underlined}; set: #incompleteUnary for: #SHTextStylerST80 to: {self dbMessage darker. underlined}; set: #undefinedKeyword for: #SHTextStylerST80 to: {self dbInvalid}; set: #undefinedBinary for: #SHTextStylerST80 to: {self dbInvalid}; set: #undefinedUnary for: #SHTextStylerST80 to: {self dbInvalid}; "Delineate the selector (good for new users), and make the method look like a mini-document with a title." set: #patternKeyword for: #SHTextStylerST80 to: {self dbMessage lighter. {bold. underlined}}; set: #patternBinary for: #SHTextStylerST80 to: {nil. bold}; set: #patternUnary for: #SHTextStylerST80 to: {self dbMessage lighter. {bold. underlined}}; set: #self for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #super for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #true for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #false for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #nil for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #thisContext for: #SHTextStylerST80 to: {self dbBedrock. bold}; set: #return for: #SHTextStylerST80 to: {self dbForeground. bold}; + set: #patternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. ""}; + set: #methodArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. ""}; - set: #patternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"}; - set: #methodArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"}; set: #blockPatternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter}; set: #blockArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter}; set: #argument for: #SHTextStylerST80 to: {self dbSelection twiceLighter}; set: #blockArgColon for: #SHTextStylerST80 to: {self dbBedrock}; set: #leftParenthesis for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; set: #rightParenthesis for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; set: #leftParenthesis1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; set: #rightParenthesis1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; set: #leftParenthesis2 for: #SHTextStylerST80 to: {self dbBedrock}; set: #rightParenthesis2 for: #SHTextStylerST80 to: {self dbBedrock}; set: #leftParenthesis3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #rightParenthesis3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #leftParenthesis4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #rightParenthesis4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #leftParenthesis5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #rightParenthesis5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #leftParenthesis6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #rightParenthesis6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #leftParenthesis7 for: #SHTextStylerST80 to: {Color yellow}; set: #rightParenthesis7 for: #SHTextStylerST80 to: {Color yellow}; set: #blockStart for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; set: #blockEnd for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; set: #blockStart1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; set: #blockEnd1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; set: #blockStart2 for: #SHTextStylerST80 to: {self dbBedrock}; set: #blockEnd2 for: #SHTextStylerST80 to: {self dbBedrock}; set: #blockStart3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #blockEnd3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #blockStart4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #blockEnd4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; set: #blockStart5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #blockEnd5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #blockStart6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #blockEnd6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; set: #blockStart7 for: #SHTextStylerST80 to: {Color yellow}; set: #blockEnd7 for: #SHTextStylerST80 to: {Color yellow}; set: #arrayStart for: #SHTextStylerST80 to: {self dbBedrock}; set: #arrayEnd for: #SHTextStylerST80 to: {self dbBedrock}; set: #arrayStart1 for: #SHTextStylerST80 to: {self dbForeground}; set: #arrayEnd1 for: #SHTextStylerST80 to: {self dbForeground}; set: #byteArrayStart for: #SHTextStylerST80 to: {self dbForeground}; set: #byteArrayEnd for: #SHTextStylerST80 to: {self dbForeground}; set: #byteArrayStart1 for: #SHTextStylerST80 to: {self dbForeground}; set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self dbForeground}; set: #leftBrace for: #SHTextStylerST80 to: {self dbForeground}; set: #rightBrace for: #SHTextStylerST80 to: {self dbForeground}; set: #cascadeSeparator for: #SHTextStylerST80 to: {self dbForeground}; set: #statementSeparator for: #SHTextStylerST80 to: {self dbForeground}; set: #externalCallType for: #SHTextStylerST80 to: {self dbForeground}; set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self dbForeground}; set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self dbForeground}; set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self dbForeground}; set: #methodTempBar for: #SHTextStylerST80 to: {self dbBedrock}; set: #blockTempBar for: #SHTextStylerST80 to: {self dbBedrock}; set: #blockArgsBar for: #SHTextStylerST80 to: {self dbBedrock}; set: #primitive for: #SHTextStylerST80 to: {self dbGreen lighter. bold}; set: #pragmaKeyword for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #pragmaUnary for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #pragmaBinary for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #module for: #SHTextStylerST80 to: {self dbGreen. bold}; set: #blockTempVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #blockPatternTempVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #instVar for: #SHTextStylerST80 to: {self dbYellow. normal }; set: #workspaceVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #undefinedIdentifier for: #SHTextStylerST80 to: {self dbInvalid}; set: #incompleteIdentifier for: #SHTextStylerST80 to: {self dbGray. underlined}; set: #tempVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #patternTempVar for: #SHTextStylerST80 to: {self dbLabel. italic}; set: #poolConstant for: #SHTextStylerST80 to: {self dbConstant }; set: #classVar for: #SHTextStylerST80 to: {self dbReference}; set: #globalVar for: #SHTextStylerST80 to: {self dbClass. normal}. "And the text differ" aUserInterfaceTheme set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self dbRed }; set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self dbBlue }; set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.! Item was changed: ----- Method: MonokaiTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9].! - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).! Item was changed: ----- Method: SolarizedTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9].! - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).! Item was changed: ----- Method: SolarizedTheme class>>addLightFonts: (in category 'instance creation') ----- addLightFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode].! - set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode).! Item was changed: ----- Method: SqueakTheme class>>addFonts: (in category 'instance creation') ----- addFonts: theme theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9]; + set: #standardFixedFont to: [TTCFont familyName: 'BitstreamVeraSansMono' pointSize: 12 emphasis: 0]; + set: #windowTitleFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode]. - set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9); - set: #standardFixedFont to: (TTCFont familyName: 'BitstreamVeraSansMono' pointSize: 12 emphasis: 0); - set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9 emphasized: TextEmphasis bold emphasisCode). ! Item was changed: ----- Method: TrimTheme class>>addFonts: (in category 'instance creation') ----- addFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7]; + set: #standardCodeFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardFlapFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode]; + set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardListFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardMenuFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #standardSystemFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9]; + set: #windowTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9].! - set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7); - set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis bold emphasisCode); - set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9); - set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9).! Item was changed: + (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUpAndReset.'! - (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors. "new: Tim Johnson (tcj)"'!

4 4

The Inbox: System-ct.1175.mcz
by commits＠source.squeak.org 28 Sep '20

28 Sep '20

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1175.mcz ==================== Summary ==================== Name: System-ct.1175 Author: ct Time: 28 September 2020, 1:44:09.091219 pm UUID: 9b5c7784-f99d-6a4e-8980-42b8046fa7b9 Ancestors: System-topa.1174 Fixes hi-dpi images after resetting UI theme in System-topa.1174. See http://forum.world.st/The-Trunk-System-topa-1174-mcz-tp5122421p5122455.html. Thanks to Marcel for the hint! =============== Diff against System-topa.1174 =============== Item was changed: + (PackageInfo named: 'System') postscript: '| delta | + "Reset hi-dpi mode after resetting UI them in System-topa.1174. See http://forum.world.st/The-Trunk-System-topa-1174-mcz-tp5122421p5122455.html." + delta := Preferences standardSystemFont pointSize - 9. + delta isZero ifFalse: [ + [Preferences restoreDefaultFonts] valueSuppressingMessages: #(''Do you want to apply*''). + Preferences changeFontSize: delta].'! - (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUpAndReset.'!

1 0

The Trunk: Graphics-pre.439.mcz
by commits＠source.squeak.org 28 Sep '20

28 Sep '20

Patrick Rein uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-pre.439.mcz ==================== Summary ==================== Name: Graphics-pre.439 Author: pre Time: 25 September 2020, 9:48:35.481674 am UUID: e6d3328b-645a-e846-a3a9-c3c61b479c23 Ancestors: Graphics-tonyg.438 Adds code to handle the case in which a text anchor attribute is used on more than the SoH character AND another SoH character is within the range where the text anchor was applied. Without this, the first morph would be put at the location of the second SoH character. =============== Diff against Graphics-tonyg.438 =============== Item was changed: ----- Method: CharacterScanner>>embeddedObject (in category 'stop conditions') ----- embeddedObject + | previousAttributes newAttributes | pendingKernX := 0. + "If a text anchor was already at the previous index, it was already dealt with" + previousAttributes := lastIndex > 1 ifTrue: [text attributesAt: lastIndex - 1] ifFalse: [#()]. + newAttributes := (text attributesAt: lastIndex) copyWithoutAll: previousAttributes. + (newAttributes reject: [:each | each anchoredMorph isNil]) - ((text attributesAt: lastIndex) reject: [:each | each anchoredMorph isNil]) ifNotEmpty: [:attributes | (self placeEmbeddedObjectsFrom: attributes) ifTrue: [^ true]]. self setFont. "Note: if ever several objects are embedded on same character, only indent lastIndex once" lastIndex := lastIndex + 1. + ^ false! - ^false!

3 2

The Trunk: CollectionsTests-eem.342.mcz
by commits＠source.squeak.org 28 Sep '20

28 Sep '20

Eliot Miranda uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-eem.342.mcz ==================== Summary ==================== Name: CollectionsTests-eem.342 Author: eem Time: 19 September 2020, 1:11:15.902536 pm UUID: ba823c3b-42f7-4276-8a25-8c59d26a3346 Ancestors: CollectionsTests-ul.341 Refator SHaredQueue2Test so that now we also test SharedQueue. Add a test for peek and peekLast =============== Diff against CollectionsTests-ul.341 =============== Item was added: + TestCase subclass: #AbstractSharedQueueTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Sequenceable'! Item was added: + ----- Method: AbstractSharedQueueTest class>>isAbstract (in category 'testing') ----- + isAbstract + ^self class == thisContext methodClass! Item was added: + ----- Method: AbstractSharedQueueTest>>queueClass (in category 'private') ----- + queueClass + ^self subclassResponsibility! Item was added: + ----- Method: AbstractSharedQueueTest>>testBasics (in category 'tests') ----- + testBasics + | q | + q := self queueClass new. + + self assert: nil equals: q nextOrNil. + + q nextPut: 5. + self assert: 5 equals: q nextOrNil. + self assert: nil equals: q nextOrNil! Item was added: + ----- Method: AbstractSharedQueueTest>>testContention1 (in category 'tests') ----- + testContention1 + "here is a test case that breaks the standard SharedQueue from Squeak 3.8" + + | q r1 r2 | + q := self queueClass new. + q nextPut: 5. + q nextPut: 10. + + self assert: 5 equals: q nextOrNil. + + [ r1 := q next ] fork. + [ r2 := q next ] fork. + Processor yield. "let the above two threads block" + + q nextPut: 10. + Processor yield. + + self assert: 10 equals: r1. + self assert: 10 equals: r2. + self assert: nil equals: q nextOrNil! Item was added: + ----- Method: AbstractSharedQueueTest>>testNextOrNilSuchThat (in category 'tests') ----- + testNextOrNilSuchThat + | q item | + q := self queueClass new. + q nextPut: 5. + q nextPut: 6. + + item := q nextOrNilSuchThat: [ :x | x even ]. + self assert: 6 equals: item. + + self assert: 5 equals: q nextOrNil. + self assert: nil equals: q nextOrNil! Item was added: + ----- Method: AbstractSharedQueueTest>>testPeeks (in category 'tests') ----- + testPeeks + | q | + q := self queueClass new. + + self assert: nil equals: q peek. + self assert: nil equals: q peekLast. + + q nextPut: #first; nextPut: #last. + + self assert: #first equals: q peek. + self assert: #last equals: q peekLast. + + self assert: #first equals: q next. + + self assert: #last equals: q peek. + self assert: #last equals: q peekLast! Item was changed: + AbstractSharedQueueTest subclass: #SharedQueue2Test - TestCase subclass: #SharedQueue2Test instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'CollectionsTests-Sequenceable'! Item was added: + ----- Method: SharedQueue2Test>>queueClass (in category 'private') ----- + queueClass + ^SharedQueue2! Item was removed: - ----- Method: SharedQueue2Test>>testBasics (in category 'tests') ----- - testBasics - | q | - q := SharedQueue2 new. - - self should: [ q nextOrNil = nil ]. - - q nextPut: 5. - self should: [ q nextOrNil = 5 ]. - self should: [ q nextOrNil = nil ]. - - ! Item was removed: - ----- Method: SharedQueue2Test>>testContention1 (in category 'tests') ----- - testContention1 - "here is a test case that breaks the standard SharedQueue from Squeak 3.8" - - | q r1 r2 | - q := SharedQueue2 new. - q nextPut: 5. - q nextPut: 10. - - self should: [ q nextOrNil = 5 ]. - - [ r1 := q next ] fork. - [ r2 := q next ] fork. - Processor yield. "let the above two threads block" - - q nextPut: 10. - Processor yield. - - self should: [ r1 = 10 ]. - self should: [ r2 = 10 ]. - self should: [ q nextOrNil = nil ]. - ! Item was removed: - ----- Method: SharedQueue2Test>>testNextOrNilSuchThat (in category 'tests') ----- - testNextOrNilSuchThat - | q item | - q := SharedQueue2 new. - q nextPut: 5. - q nextPut: 6. - - item := q nextOrNilSuchThat: [ :x | x even ]. - self should: [ item = 6 ]. - - self should: [ q nextOrNil = 5 ]. - self should: [ q nextOrNil = nil ]. - ! Item was added: + AbstractSharedQueueTest subclass: #SharedQueueTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Sequenceable'! Item was added: + ----- Method: SharedQueueTest>>queueClass (in category 'private') ----- + queueClass + ^SharedQueue!

3 2

Unity Happens One Step at a Time (was Re: Porting my programs from Squeak 3.10.2 to 3.5)
by Sean DeNigris 28 Sep '20

28 Sep '20

I've been pontificating about unity between dialects, convinced more than ever that we need each other and have more of a simple (not easy) communication problem than anything else, and pestering the principals of various communities, so I decided to put some concrete action behind it - some "skin in the game" as we say in the U.S. After reading Trygve's frustration with Squeak image/VM management, and Eliot's mention of Pharo's solution, I've extended PharoLauncher to manage and run Squeak (and GToolkit) VMs/images. The current limitation vs. launching standard Pharo images is that you have to download the VMs and images and manually install them due to differences in URL and other conventions. However once the files are in place, you can create templates allowing images to be created at will from different Squeak versions and automatically run with the correct VM. Auto-installation could probably be done if someone cares enough but it scratched my itch for the moment to manage GT images. I’m sure Cuis support could be added, but the hooks are now available and someone more familiar with its VM/image installation might have an easier time. Until my latest PR [1] is merged, brave souls can play with it and give feedback by loading my issue branch [2] into the latest Launcher release [3]. NB only tested on Mac. It seemed Trygve was at his wits' end, but maybe this and other small gestures will let him know how important he is to our community if not motivate him to resume his important work. I challenge you, as a member of our wider Squeak/Pharo/Cuis family: what small action can you take today that unites us rather than divides us? We can be each others' supporters even if technical, vision and other differences keep our codebases somewhat distinct. I believe the seeds of wars are planted when I lack the grace to give those around me the benefit of the doubt that they mean well and are trying their best. There is more than enough of that already in the world. Let’s invent a *better* future… Your brother, Sean 1. https://github.com/pharo-project/pharo-launcher/pull/503 2. https://github.com/seandenigris/pharo-launcher/tree/enh_vm-image-custom-hoo… 3. https://pharo.org/download

6 9

← Newer
1
...
7
8
9
10
11
12
13
...
27
Older →

Jump to page: