Squeak-dev November 2019

squeak-dev@lists.squeakfoundation.org

23 participants
232 discussions

The Trunk: Chronology-Core-mt.50.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-mt.50.mcz ==================== Summary ==================== Name: Chronology-Core-mt.50 Author: mt Time: 30 October 2019, 10:25:14.294226 am UUID: f064aadc-0e62-174e-b97c-f70cc22a23f6 Ancestors: Chronology-Core-mt.49 Proposal to add GC pressure to #bench method. =============== Diff against Chronology-Core-mt.49 =============== Item was changed: ----- Method: BlockClosure>>benchFor: (in category '*chronology-core') ----- benchFor: aDuration "See how many times I can value within the given duration. I'll answer a meaningful description." + | startTime shouldRun count elapsedTime roundTo3Digits delay gcStart gcTime | - | startTime shouldRun count elapsedTime roundTo3Digits delay | roundTo3Digits := [:num | | rounded lowDigit | rounded := (num * 1000) rounded. "round to 1/1000" lowDigit := (rounded numberOfDigitsInBase: 10) - 3. "keep only first 3 digits" rounded := rounded roundTo:(10 raisedTo: lowDigit). (lowDigit >= 3 or: [rounded \\ 1000 = 0]) "display fractional part only when needed" ifTrue: [(rounded // 1000) asStringWithCommas] ifFalse: [(rounded / 1000.0) printString]]. delay := aDuration asDelay. count := 0. shouldRun := true. + Smalltalk garbageCollect. [ delay wait. shouldRun := false ] forkAt: Processor timingPriority - 1. startTime := Time millisecondClockValue. + gcStart := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10). [ shouldRun ] whileTrue: [ self value. count := count + 1 ]. elapsedTime := Time millisecondsSince: startTime. + gcTime := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10) - gcStart. ^(roundTo3Digits value: count * 1000 / elapsedTime) , ' per second.', (( #( (1e-3 'seconds') (1 'milliseconds') (1e3 'microseconds') (1e6 'nanoseconds') ) detect: [ :pair | elapsedTime * pair first >= count ] ifNone: [ #(1e9 'picoseconds') ]) in: [ :pair | ' {1} {2} per run.' format: { (roundTo3Digits value: elapsedTime * pair first / count). + pair second } ]), (' {1} % GC time.' format: {gcTime / elapsedTime * 100 roundTo: 0.0001})! - pair second } ])!

1 0

The Trunk: Chronology-Core-mt.51.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

Marcel Taeumel uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-mt.51.mcz ==================== Summary ==================== Name: Chronology-Core-mt.51 Author: mt Time: 11 November 2019, 11:40:16.217633 am UUID: 199ad2ea-67cb-2545-84e9-4f24e577216f Ancestors: Chronology-Core-mt.50 Improve formatting for GC pressure as suggested by Dave. =============== Diff against Chronology-Core-mt.49 =============== Item was changed: ----- Method: BlockClosure>>benchFor: (in category '*chronology-core') ----- benchFor: aDuration "See how many times I can value within the given duration. I'll answer a meaningful description." + | startTime shouldRun count elapsedTime roundTo3Digits delay gcStart gcTime | - | startTime shouldRun count elapsedTime roundTo3Digits delay | roundTo3Digits := [:num | | rounded lowDigit | rounded := (num * 1000) rounded. "round to 1/1000" lowDigit := (rounded numberOfDigitsInBase: 10) - 3. "keep only first 3 digits" rounded := rounded roundTo:(10 raisedTo: lowDigit). (lowDigit >= 3 or: [rounded \\ 1000 = 0]) "display fractional part only when needed" ifTrue: [(rounded // 1000) asStringWithCommas] ifFalse: [(rounded / 1000.0) printString]]. delay := aDuration asDelay. count := 0. shouldRun := true. + Smalltalk garbageCollect. [ delay wait. shouldRun := false ] forkAt: Processor timingPriority - 1. startTime := Time millisecondClockValue. + gcStart := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10). [ shouldRun ] whileTrue: [ self value. count := count + 1 ]. elapsedTime := Time millisecondsSince: startTime. + gcTime := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10) - gcStart. ^(roundTo3Digits value: count * 1000 / elapsedTime) , ' per second.', (( #( (1e-3 'seconds') (1 'milliseconds') (1e3 'microseconds') (1e6 'nanoseconds') ) detect: [ :pair | elapsedTime * pair first >= count ] ifNone: [ #(1e9 'picoseconds') ]) in: [ :pair | ' {1} {2} per run.' format: { (roundTo3Digits value: elapsedTime * pair first / count). + pair second } ]), (' {1} % GC time.' format: {gcTime / elapsedTime * 100 printShowingMaxDecimalPlaces: 5})! - pair second } ])!

1 0

The Inbox: Chronology-Core-mt.51.mcz
by commits＠source.squeak.org 13 Nov '19

13 Nov '19

A new version of Chronology-Core was added to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-mt.51.mcz ==================== Summary ==================== Name: Chronology-Core-mt.51 Author: mt Time: 11 November 2019, 11:40:16.217633 am UUID: 199ad2ea-67cb-2545-84e9-4f24e577216f Ancestors: Chronology-Core-mt.50 Improve formatting for GC pressure as suggested by Dave. =============== Diff against Chronology-Core-mt.50 =============== Item was changed: ----- Method: BlockClosure>>benchFor: (in category '*chronology-core') ----- benchFor: aDuration "See how many times I can value within the given duration. I'll answer a meaningful description." | startTime shouldRun count elapsedTime roundTo3Digits delay gcStart gcTime | roundTo3Digits := [:num | | rounded lowDigit | rounded := (num * 1000) rounded. "round to 1/1000" lowDigit := (rounded numberOfDigitsInBase: 10) - 3. "keep only first 3 digits" rounded := rounded roundTo:(10 raisedTo: lowDigit). (lowDigit >= 3 or: [rounded \\ 1000 = 0]) "display fractional part only when needed" ifTrue: [(rounded // 1000) asStringWithCommas] ifFalse: [(rounded / 1000.0) printString]]. delay := aDuration asDelay. count := 0. shouldRun := true. Smalltalk garbageCollect. [ delay wait. shouldRun := false ] forkAt: Processor timingPriority - 1. startTime := Time millisecondClockValue. gcStart := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10). [ shouldRun ] whileTrue: [ self value. count := count + 1 ]. elapsedTime := Time millisecondsSince: startTime. gcTime := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10) - gcStart. ^(roundTo3Digits value: count * 1000 / elapsedTime) , ' per second.', (( #( (1e-3 'seconds') (1 'milliseconds') (1e3 'microseconds') (1e6 'nanoseconds') ) detect: [ :pair | elapsedTime * pair first >= count ] ifNone: [ #(1e9 'picoseconds') ]) in: [ :pair | ' {1} {2} per run.' format: { (roundTo3Digits value: elapsedTime * pair first / count). + pair second } ]), (' {1} % GC time.' format: {gcTime / elapsedTime * 100 printShowingMaxDecimalPlaces: 5})! - pair second } ]), (' {1} % GC time.' format: {gcTime / elapsedTime * 100 roundTo: 0.0001})!

6 6

The Trunk: Tools-mt.913.mcz
by commits＠source.squeak.org 12 Nov '19

12 Nov '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.913.mcz ==================== Summary ==================== Name: Tools-mt.913 Author: mt Time: 12 November 2019, 2:57:28.932316 pm UUID: 50d11e35-aef0-cf4f-b266-90f5e6102add Ancestors: Tools-mt.912 Fixes minor slip. =============== Diff against Tools-mt.912 =============== Item was changed: ----- Method: Browser>>messageIconAt: (in category 'message list') ----- messageIconAt: anIndex | selector | self class showMessageIcons ifFalse: [^ nil]. self flag: #refactor. selector := Symbol lookup: (self messageList at: anIndex ifAbsent: [^nil]) asString. + selector ifNil: [^ nil]. - selector ifNil: [^ self]. ^ self messageIconFor: selector!

1 0

The Inbox: System-dtl.1118.mcz
by commits＠source.squeak.org 12 Nov '19

12 Nov '19

David T. Lewis uploaded a new version of System to project The Inbox: http://source.squeak.org/inbox/System-dtl.1118.mcz ==================== Summary ==================== Name: System-dtl.1118 Author: dtl Time: 9 November 2019, 2:13:04.993358 pm UUID: 49b4ee31-b57f-4132-8cda-e13c2414f861 Ancestors: System-mt.1117 When reporting VM parameters, enable formatting in the case of a parameter value that is represented as a Float rather than an Integer. This may happen if a VM parameter is defined in units of milliseconds but internally measured to microsecond precision by the VM, in which case the value may be returned as a Float in order to retain full precision. SmalltalkImage>>formatVMParameter: handles the formatting for integer and non-integer values. =============== Diff against System-mt.1117 =============== Item was added: + ----- Method: SmalltalkImage>>formatVMParameter: (in category 'vm statistics') ----- + formatVMParameter: aNumber + + aNumber isFloat ifTrue: [ + aNumber < 1000 + ifTrue: [^ aNumber printShowingMaxDecimalPlaces: 5 ] + ifFalse: [^ aNumber rounded asStringWithCommas]]. + ^ aNumber asInteger asStringWithCommas.! Item was changed: ----- Method: SmalltalkImage>>vmStatisticsReportOn: (in category 'vm statistics') ----- (excessive size, no diff calculated)

3 2

Changeset: ShoutAttribute & semi-styling
by Christoph Thiede 11 Nov '19

11 Nov '19

ShoutAttribute.cs <http://forum.world.st/file/t372205/ShoutAttribute.cs> Hi all, I did not forget this thread here <http://forum.world.st/The-Trunk-ToolBuilder-Morphic-mt-235-mcz-tp5101984p51…> , and now I would like to finally present a changeset for an implementation of the ShoutAttribute. I'm still not sure whether this is the right name and we should put this indeed into Shout-Core, so as always I'm open for your ideas. (OT: Should we maybe introduce a general "Styler" class outside of Shout providing the abstract protocol? Other classes such as a MarkdownStyler (do we already have one?) could then derive from it. In particular, this could be also useful for GraalSqueak ...) However, try out the changeset or watch it in action: Best, Christoph -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

7 10

The Trunk: 60Deprecated-mt.60.mcz
by commits＠source.squeak.org 11 Nov '19

11 Nov '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.60.mcz ==================== Summary ==================== Name: 60Deprecated-mt.60 Author: mt Time: 11 November 2019, 11:03:48.645633 am UUID: 03eb927c-f129-0e4a-b1d8-cbf4a0d7d4d3 Ancestors: 60Deprecated-mt.59 Complements HelpSystem-Core-mt.117. =============== Diff against 60Deprecated-mt.59 =============== Item was added: + ----- Method: HelpBrowser class>>openForCodeOn: (in category '*60Deprecated-instance creation') ----- + openForCodeOn: aHelpTopic + + self deprecated: 'Styling is configured at the level of help topics. Browse implementors of #usesCodeStyling.'. + ^ self openOn: aHelpTopic! Item was added: + ----- Method: TheWorldMainDockingBar>>openHelp:topic:styled: (in category '*60Deprecated-help') ----- + openHelp: bookSymbol topic: topicSymbol styled: boolean + + self deprecated: 'Styling is configured at the level of help topics. Browse implementors of #usesCodeStyling.'. + ^ self openHelp: bookSymbol topic: topicSymbol!

1 0

The Trunk: Morphic-mt.1585.mcz
by commits＠source.squeak.org 11 Nov '19

11 Nov '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1585.mcz ==================== Summary ==================== Name: Morphic-mt.1585 Author: mt Time: 11 November 2019, 11:02:43.775633 am UUID: d07ea746-64ca-824a-8482-d2a78f689114 Ancestors: Morphic-mt.1584 Complements HelpSystem-Core-mt.117. =============== Diff against Morphic-mt.1584 =============== Item was removed: - ----- Method: TheWorldMainDockingBar>>openHelp:topic:styled: (in category 'submenu - help') ----- - openHelp: bookSymbol topic: topicSymbol styled: boolean - - | openSelector | - openSelector := boolean ifTrue: [#openForCodeOn:] ifFalse: [#openOn:]. - - (Smalltalk classNamed: 'HelpBrowser') - ifNil: [self inform: 'Sorry, there is no help system installed.' translated] - ifNotNil: [:helpClass | - (Smalltalk classNamed: bookSymbol) - ifNil: [self inform: 'Sorry, the help book you requested does not exist.'] - ifNotNil: [:book | - topicSymbol - ifNil: [(helpClass perform: openSelector with: book) model showFirstTopic] - ifNotNil: [(helpClass perform: openSelector with: book) model showTopicNamed: topicSymbol]]].!

1 0

The Trunk: HelpSystem-Core-mt.117.mcz
by commits＠source.squeak.org 11 Nov '19

11 Nov '19

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.117.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.117 Author: mt Time: 11 November 2019, 11:02:11.648633 am UUID: 4722e238-6abf-f243-b947-ed0adea5a566 Ancestors: HelpSystem-Core-mt.116 Clarify deprecations for help-topic code-styling. =============== Diff against HelpSystem-Core-mt.116 =============== Item was removed: - ----- Method: HelpBrowser class>>openForCodeOn: (in category 'instance creation') ----- - openForCodeOn: aHelpTopic - - | browser window | - browser := (self defaultHelpBrowser new) - rootTopic: aHelpTopic; - yourself. - window := ToolBuilder open: (browser buildForCodeWith: ToolBuilder default). - - ^ window! Item was removed: - ----- Method: HelpBrowser>>buildForCodeWith: (in category 'toolbuilder') ----- - buildForCodeWith: builder - - | windowSpec | - windowSpec := self buildWindowWith: builder. - - windowSpec children - add: (self buildSearchWith: builder); - add: (self buildTreeWith: builder); - add: (self buildCodeContentsWith: builder). - - ^ builder build: windowSpec!

1 0

Updating 'Squeak by Example'
by tim Rowledge 10 Nov '19

10 Nov '19

At the squeak board meeting on Weds we discussed updating the 'Squeak by Example' book in order to have working examples and current screenshots etc. It's a good book in general and would be a useful thing to point new squeakers to with some updating. The sources are at https://github.com/SquareBracketAssociates/SqueakByExample-english (and there are some translations too) and I see some recent changes by Patrick R (thanks!) mentioned in my email. Personally I'd appreciate some advice on what program one might use to edit the stuff. I don't think I can manage LaTEX. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful Latin Phrases:- Visne saltare? Viam Latam Fungosam scio = Do you want to dance? I know the Funky Broadway.

6 11

Jump to page: