Packages February 2018

packages@lists.squeakfoundation.org

1 participants
62 discussions

The Trunk: 51Deprecated-dtl.52.mcz
by commits＠source.squeak.org 20 Feb '18

20 Feb '18

David T. Lewis uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-dtl.52.mcz ==================== Summary ==================== Name: 51Deprecated-dtl.52 Author: dtl Time: 19 February 2018, 7:41:19.828484 pm UUID: 13333f50-41fe-49bb-a577-d20ef5afcff9 Ancestors: 51Deprecated-dtl.51 Do not deprecate PastePuMorph>>privateOuterDisplayWorld, see Morphic-dtl.1396. =============== Diff against 51Deprecated-dtl.51 =============== Item was removed: - ----- Method: PasteUpMorph>>privateOuterDisplayWorld (in category '*51Deprecated-Morphic') ----- - privateOuterDisplayWorld - - self deprecated. - worldState displayWorld: self submorphs: submorphs - !

1 0

The Trunk: Morphic-dtl.1396.mcz
by commits＠source.squeak.org 20 Feb '18

20 Feb '18

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1396.mcz ==================== Summary ==================== Name: Morphic-dtl.1396 Author: dtl Time: 18 February 2018, 4:53:20.499469 pm UUID: 19d166b4-6992-40eb-b115-f0d605c9307b Ancestors: Morphic-dtl.1395 For world-in-world uses such as a Worldlet, displayWorld should act upon the outermost containing world morph. Restore this behavior by un-deprecating PasteUpMorph>>privateOuterDisplayWorld and updating its implementation to match the current PasteUpMorph>>displayWorld, then reverting to the original version of PasteUpMorph>>displayWorld, which sends privateOuterDisplayWorld to the outermost world morph (which usually is self). See discussion in [squeak-dev] Event Theatre in Object Catalog sparks DNU in 6.0-trunk =============== Diff against Morphic-dtl.1395 =============== Item was changed: ----- Method: PasteUpMorph>>displayWorld (in category 'world state') ----- displayWorld + self outermostWorldMorph privateOuterDisplayWorld + ! - (self valueOfProperty: #shouldDisplayWorld ifAbsent: [true]) - ifTrue: [worldState displayWorld: self submorphs: submorphs].! Item was added: + ----- Method: PasteUpMorph>>privateOuterDisplayWorld (in category 'world state') ----- + privateOuterDisplayWorld + + (self valueOfProperty: #shouldDisplayWorld ifAbsent: [true]) + ifTrue: [worldState displayWorld: self submorphs: submorphs].!

1 0

The Trunk: EToys-dtl.320.mcz
by commits＠source.squeak.org 18 Feb '18

18 Feb '18

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.320.mcz ==================== Summary ==================== Name: EToys-dtl.320 Author: dtl Time: 18 February 2018, 4:27:25.556073 pm UUID: 20a128db-1e69-4ab6-aa02-5bd0facd67e3 Ancestors: EToys-eem.319 When opening an EventRecordingSpace, do not initialize flaps in the Worldlet until after opening in world (but before calling show). This allows displayWorld to find the outermost containing world for a worldlet by querying the owner of the worldlet. Earlier implementations relied on direct access to the global World, which is now discouraged. See discussion in [squeak-dev] Event Theatre in Object Catalog sparks DNU in 6.0-trunk =============== Diff against EToys-eem.319 =============== Item was changed: ----- Method: EventRecordingSpace class>>open (in category 'instance creation') ----- open "Open up a new instance of the receiver." | anInst | anInst := self new. anInst visible: false. anInst openInWorldOrWorldlet. + anInst initializeFlaps. "after placing anInst in its world" anInst center: anInst owner center. anInst show " EventRecordingSpace open. "! Item was changed: ----- Method: EventRecordingSpace>>initialize (in category 'initialization') ----- initialize "Initialize the receiver to be a complete mentoring space" super initialize. eventRecorder := MentoringEventRecorder new. eventRecorder recordingSpace: self. self beSticky. self listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #shrinkWrap. self extent: 1@1. self borderWidth: 2; borderColor: Color gray. self useRoundedCorners. showingSoundPanel := false. (contentArea := Worldlet new) setNameTo: 'tutorial'; color: Color white; setProperty: #automaticPhraseExpansion toValue: true; beSticky. self addMorphBack: contentArea. controlsPanel := AlignmentMorph newRow. controlsPanel hResizing: #spaceFill. controlsPanel listCentering: #center. controlsPanel listSpacing: #equal. controlsPanel cellInset: 4. controlsPanel minHeight: 32. self addMorphBack: controlsPanel. soundPanel := AlignmentMorph newRow. soundPanel hResizing: #spaceFill. soundPanel listCentering: #center. soundPanel listSpacing: #equal. soundPanel cellInset: 4. soundPanel minHeight: 32. soundPanel color: (Color r: 1.0 g: 0.839 b: 0.645). self makeStatusButtons. state := #readyToRecord. self populateControlsPanel. + "initializeFlaps will be called later, after opening in world" + + ! - SugarNavigatorBar showSugarNavigator - ifTrue: - [self addSugarNavigatorFlap] - ifFalse: - [self addSuppliesFlap. - self addNavigatorFlap]! Item was added: + ----- Method: EventRecordingSpace>>initializeFlaps (in category 'initialization') ----- + initializeFlaps + + SugarNavigatorBar showSugarNavigator + ifTrue: + [self addSugarNavigatorFlap] + ifFalse: + [self addSuppliesFlap. + self addNavigatorFlap]!

1 0

The Trunk: Regex-Core-ul.53.mcz
by commits＠source.squeak.org 18 Feb '18

18 Feb '18

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ul.53.mcz ==================== Summary ==================== Name: Regex-Core-ul.53 Author: ul Time: 18 February 2018, 6:35:37.992337 pm UUID: 19a2c22b-b93c-4eda-99ac-266976145e8d Ancestors: Regex-Core-ul.52 - use #~~ instead of #xor: =============== Diff against Regex-Core-ul.52 =============== Item was changed: ----- Method: RxMatcher>>atWordBoundary (in category 'testing') ----- atWordBoundary ^(self isWordChar: self lastChar) + ~~ (self isWordChar: stream peek)! - xor: (self isWordChar: stream peek)!

1 0

The Trunk: ST80Tests-fn.6.mcz
by commits＠source.squeak.org 16 Feb '18

16 Feb '18

Fabio Niephaus uploaded a new version of ST80Tests to project The Trunk: http://source.squeak.org/trunk/ST80Tests-fn.6.mcz ==================== Summary ==================== Name: ST80Tests-fn.6 Author: fn Time: 16 February 2018, 2:58:20.729869 pm UUID: 7fb784f8-d1b5-453f-a315-fb72b7bfa045 Ancestors: ST80Tests-dtl.5 'ST80' package no longer depends on Network. Also, classify methods. =============== Diff against ST80Tests-dtl.5 =============== Item was changed: + ----- Method: ST80PackageDependencyTest>>testPackage:dependsExactlyOn: (in category 'helpers') ----- - ----- Method: ST80PackageDependencyTest>>testPackage:dependsExactlyOn: (in category 'as yet unclassified') ----- testPackage: pkgName dependsExactlyOn: pkgList "Ensure that the package with the given name depends only on the packages in pkgList. NOTE: If you use this for fixing dependencies, classDeps includes the classes and users from the package(s) not declared as dependents. Basically, you need to fix all the references in classDeps to make the test pass." | classDeps pi pkgDeps | classDeps := IdentityDictionary new. pi := PackageOrganizer default packageNamed: pkgName ifAbsent:[^self]. "unloaded" pi classes do:[:pkgClass| (classDeps at: (pkgClass superclass ifNil:[ProtoObject]) ifAbsentPut:[OrderedCollection new]) add: pkgClass name, ' superclass'. ]. pi methods do:[:mref| | cm | cm := mref compiledMethod. 1 to: cm numLiterals do:[:i| | lit | ((lit := cm literalAt: i) isVariableBinding and:[lit value isBehavior]) ifTrue:[(classDeps at: lit value ifAbsentPut:[OrderedCollection new]) add: cm methodClass asString, '>>', cm selector]]]. pkgDeps := Dictionary new. classDeps keys do:[:aClass| | pkg | pkg := PackageOrganizer default packageOfClass: aClass ifNone:[nil]. pkg ifNil:[ Transcript cr; show: 'WARNING: No package for ', aClass. (classDeps removeKey: aClass) do:[:each| Transcript crtab; show: each]. ] ifNotNil:[ (pkgDeps at: pkg name ifAbsentPut:[OrderedCollection new]) add: aClass. ]. ]. (pkgDeps removeKey: pkgName ifAbsent:[#()]) do:[:aClass| classDeps removeKey: aClass ifAbsent:[]]. pkgList do:[:pkg| self assert: (pkgDeps includesKey: pkg) description: pkgName, ' no longer depends on ', pkg. (pkgDeps removeKey: pkg ifAbsent: [#()]) do:[:aClass| classDeps removeKey: aClass ifAbsent:[]]. ]. classDeps keysAndValuesDo:[:class :deps| Transcript cr; show: class name, ' dependencies:'. deps do:[:each| Transcript crtab; show: each]. ]. self assert: pkgDeps isEmpty description: pkgName, ' now depends on ', pkgDeps. ! Item was changed: + ----- Method: ST80PackageDependencyTest>>testST80 (in category 'tests') ----- - ----- Method: ST80PackageDependencyTest>>testST80 (in category 'as yet unclassified') ----- testST80 self testPackage: #ST80 dependsExactlyOn: #( #'Chronology-Core' Collections Compiler Files Graphics Kernel Morphic Multilingual - Network SUnit System #'ToolBuilder-Kernel' Tools Monticello ).!

1 0

The Trunk: Morphic-dtl.1395.mcz
by commits＠source.squeak.org 15 Feb '18

15 Feb '18

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1395.mcz ==================== Summary ==================== Name: Morphic-dtl.1395 Author: dtl Time: 15 February 2018, 2:23:08.923953 pm UUID: dc6e5421-8043-46e3-92c2-c362f363d8a0 Ancestors: Morphic-mt.1394 Remove selectorPrefixForDispatch which was a remnant of the now defunct method dispatching hack for Project. =============== Diff against Morphic-mt.1394 =============== Item was removed: - ----- Method: MorphicProject>>selectorPrefixForDispatch (in category 'dispatching') ----- - selectorPrefixForDispatch - "A string to be prepended to selectors for project specific methods" - - ^ 'morphic'!

1 0

The Trunk: ST80-dtl.235.mcz
by commits＠source.squeak.org 15 Feb '18

15 Feb '18

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.235.mcz ==================== Summary ==================== Name: ST80-dtl.235 Author: dtl Time: 15 February 2018, 2:21:34.072453 pm UUID: b54efb6f-08b5-4f31-a6f1-f48dfa89e6d2 Ancestors: ST80-dtl.233, ST80-tpr.234 Remove selectorPrefixForDispatch which was a remnant of the now defunct method dispatching hack for Project. =============== Diff against ST80-tpr.234 =============== Item was removed: - ----- Method: MVCProject>>selectorPrefixForDispatch (in category 'dispatching') ----- - selectorPrefixForDispatch - "A string to be prepended to selectors for project specific methods" - - ^ 'mvc'!

1 0

The Trunk: System-dtl.1003.mcz
by commits＠source.squeak.org 15 Feb '18

15 Feb '18

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1003.mcz ==================== Summary ==================== Name: System-dtl.1003 Author: dtl Time: 15 February 2018, 2:19:58.588317 pm UUID: 9f36a39d-2c05-4401-8924-fab1c3c2df0f Ancestors: System-dtl.1002 Remove selectorPrefixForDispatch which was a remnant of the now defunct method dispatching hack for Project. =============== Diff against System-dtl.1002 =============== Item was removed: - ----- Method: Project>>selectorPrefixForDispatch (in category 'dispatching') ----- - selectorPrefixForDispatch - "A string to be preppended to selectors for project specific methods" - - ^ self subclassResponsibility!

1 0

The Trunk: System-dtl.1002.mcz
by commits＠source.squeak.org 15 Feb '18

15 Feb '18

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1002.mcz ==================== Summary ==================== Name: System-dtl.1002 Author: dtl Time: 15 February 2018, 12:59:34.501292 pm UUID: 9f4ddbc9-fdce-408b-bb37-c9c79233185c Ancestors: System-tonyg.1001 Handle some edges cases in vmStatisticsReportString. if no code compactions have happened yet (e.g. after initially opening the image, do not attempt to take average time (zero devide error). Do not assume size of the VM parameters array, pad it to the expected length if necessary to avoid access violations. Make the spur test work if VM parameter 41 is nil. =============== Diff against System-tonyg.1001 =============== Item was changed: ----- Method: SmalltalkImage>>vmStatisticsReportString (in category 'vm statistics') ----- vmStatisticsReportString "(Workspace new contents: Smalltalk vmStatisticsReportString) openLabel: 'VM Statistics'" "StringHolderView open: (StringHolder new contents: Smalltalk vmStatisticsReportString) label: 'VM Statistics'" | params oldSpaceEnd youngSpaceEnd memorySize fullGCs fullGCTime fullGCCompactionTime incrGCs incrGCTime tenureCount upTime + upTime2 fullGCs2 fullGCTime2 incrGCs2 incrGCTime2 tenureCount2 str freeSize youngSize used spur timeReporter idleMs idleMs2 codeCompactionTime codeCompactionsOrNil codeCompactionTime2 codeCompactions2 maxParams | + "Pad to protect for a VM that does not answer the expected parameter array" + maxParams := 63. "max position referenced in this method" + params := Array streamContents: [ :strm | + strm nextPutAll: Smalltalk getVMParameters. + [strm position < maxParams] whileTrue: [strm nextPut: nil]]. - upTime2 fullGCs2 fullGCTime2 incrGCs2 incrGCTime2 tenureCount2 str freeSize youngSize used spur timeReporter idleMs idleMs2 codeCompactionTime codeCompactionsOrNil codeCompactionTime2 codeCompactions2 | - params := self getVMParameters. oldSpaceEnd := params at: 1. youngSpaceEnd := params at: 2. memorySize := params at: 3. fullGCs := params at: 7. fullGCTime := params at: 8. incrGCs := params at: 9. incrGCTime := params at: 10. tenureCount := params at: 11. fullGCCompactionTime := params at: 18. codeCompactionsOrNil := params at: 62. codeCompactionTime := params at: 63. upTime := (params at: 20) ~= 0 "utcMicrosecondClock at startup in later Spur VMs" ifTrue: [Time utcMicrosecondClock - (params at: 20) + 500 // 1000] ifFalse: [Time eventMillisecondClock]. "Fall back on old microsecond clock; Good for 47.5 days" + spur := (params at: 41) + ifNotNil: [ :p | p anyMask: 16] + ifNil: [false]. + str := WriteStream on: (String new: 2048). - spur := (params at: 41) anyMask: 16. - str := WriteStream on: (String new: 2048). timeReporter := [:time| | seconds | seconds := time / 1000. seconds >= (60*60*24) ifTrue: [str print: seconds / 60 // 60 // 24; nextPut: $d; space; print: seconds / 60 // 60 \\ 24; nextPut: $h; space] ifFalse: [seconds >= (60*60) ifTrue: [str print: (seconds / 60 // 60); nextPut: $h; space]]. str print: (seconds / 60 \\ 60) asInteger; nextPut: $m; space; print: (seconds \\ 60) asInteger; nextPut: $s]. str nextPutAll: 'uptime '. timeReporter value: upTime. (idleMs := params at: 16) ~= 0 ifTrue: [str tab; nextPutAll: '(runtime '. idleMs := idleMs // 1000. timeReporter value: upTime - idleMs. str nextPutAll: ', idletime '. timeReporter value: idleMs. str nextPut: $)]. str cr. str nextPutAll: 'memory '; nextPutAll: memorySize asStringWithCommas; nextPutAll: ' bytes'; cr. str nextPutAll: ' old '; nextPutAll: oldSpaceEnd asStringWithCommas; nextPutAll: ' bytes ('; print: oldSpaceEnd / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. spur ifTrue: [(youngSize := (params at: 19) * 7 // 5) = 0 ifTrue: [params at: 44]. youngSize := youngSize roundUpTo: 1024. str nextPutAll: ' young '; nextPutAll: youngSize asStringWithCommas; nextPutAll: ' bytes ('; print: youngSize / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. youngSize := youngSpaceEnd. "used eden" freeSize := (params at: 54) + (params at: 44) - youngSize. used := youngSize + oldSpaceEnd - freeSize. str nextPutAll: ' used '; nextPutAll: used asStringWithCommas; nextPutAll: ' bytes ('; print: used / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' free '; nextPutAll: freeSize asStringWithCommas; nextPutAll: ' bytes ('; print: freeSize / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr] ifFalse: "Earlier VM and V3 object memory" [str nextPutAll: ' young '; nextPutAll: (youngSpaceEnd - oldSpaceEnd) asStringWithCommas; nextPutAll: ' bytes ('; print: (youngSpaceEnd - oldSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' used '; nextPutAll: youngSpaceEnd asStringWithCommas; nextPutAll: ' bytes ('; print: (youngSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' free '; nextPutAll: (memorySize - youngSpaceEnd) asStringWithCommas; nextPutAll: ' bytes ('; print: (memorySize - youngSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr]. str nextPutAll: 'GCs '; nextPutAll: (fullGCs + incrGCs) asStringWithCommas. fullGCs + incrGCs > 0 ifTrue: [str nextPutAll: ' ('; print: upTime / (fullGCs + incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms between GCs'. idleMs > 0 ifTrue: [str space; print: upTime - idleMs / (fullGCs + incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms runtime between GCs']. str nextPut: $)]. str cr. str nextPutAll: ' full '; nextPutAll: fullGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: ' ms ('; print: fullGCTime / (upTime - idleMs) * 100 maxDecimalPlaces: 2; nextPutAll: '% runtime)'; nextPutAll: ', avg '; print: (fullGCTime / (fullGCs max: 1)) maxDecimalPlaces: 1; nextPutAll: ' ms'. (spur and: [fullGCCompactionTime ~= 0]) ifTrue: [str cr; nextPutAll: ' marking '; nextPutAll: (fullGCTime - fullGCCompactionTime) asStringWithCommas; nextPutAll: ' ms ('; print: (fullGCTime - fullGCCompactionTime) / fullGCTime * 100 maxDecimalPlaces: 1; nextPutAll: '%) avg '; print: (fullGCTime - fullGCCompactionTime / (fullGCs max: 1)) maxDecimalPlaces: 1; nextPutAll: ' ms,'; cr; nextPutAll: ' compacting '; nextPutAll: fullGCCompactionTime asStringWithCommas; nextPutAll: ' ms ('; print: fullGCCompactionTime / fullGCTime * 100 maxDecimalPlaces: 1; nextPutAll: '%) avg '; print: fullGCCompactionTime / (fullGCs max: 1) maxDecimalPlaces: 1; nextPutAll: ' ms']. str cr. str nextPutAll: (spur ifTrue: [' scavenges '] ifFalse: [' incr ']); nextPutAll: incrGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: ' ms ('; print: incrGCTime / (upTime - idleMs) * 100 maxDecimalPlaces: 2; nextPutAll: '% runtime), avg '; print: incrGCTime / incrGCs maxDecimalPlaces: 1; nextPutAll: ' ms'; cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount asStringWithCommas. tenureCount = 0 ifFalse: [spur ifTrue: [str nextPutAll: ' (avg '; print: tenureCount // (incrGCs max: 1); nextPutAll: ' tenures per scavenge)'] ifFalse: [str nextPutAll: ' (avg '; print: incrGCs // tenureCount; nextPutAll: ' GCs/tenure)']]. str cr. codeCompactionsOrNil ifNotNil: [str + nextPutAll: 'Code compactions '; crtab. + codeCompactionsOrNil = 0 + ifTrue: [str + nextPutAll: codeCompactionsOrNil asString; cr] + ifFalse: [str + nextPutAll: codeCompactionsOrNil asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: codeCompactionTime asStringWithCommas; nextPutAll: ' ms ('; + print: codeCompactionTime / (upTime - idleMs) * 100 maxDecimalPlaces: 3; + nextPutAll: '% runtime), avg '; print: codeCompactionTime / codeCompactionsOrNil maxDecimalPlaces: 1; nextPutAll: ' ms'; cr]]. - nextPutAll: 'Code compactions '; crtab; - nextPutAll: codeCompactionsOrNil asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: codeCompactionTime asStringWithCommas; nextPutAll: ' ms ('; - print: codeCompactionTime / (upTime - idleMs) * 100 maxDecimalPlaces: 3; - nextPutAll: '% runtime), avg '; print: codeCompactionTime / codeCompactionsOrNil maxDecimalPlaces: 1; nextPutAll: ' ms'; cr.]. LastStats ifNil: [LastStats := Array new: 9] ifNotNil: [ LastStats size < 9 ifTrue: [LastStats := LastStats, (Array new: 9 - LastStats size withAll: 0)]. upTime2 := upTime - (LastStats at: 1). fullGCs2 := fullGCs - (LastStats at: 2). fullGCTime2 := fullGCTime - (LastStats at: 3). incrGCs2 := incrGCs - (LastStats at: 4). incrGCTime2 := incrGCTime - (LastStats at: 5). tenureCount2 := tenureCount - (LastStats at: 6). idleMs2 := idleMs - (LastStats at: 7). codeCompactionsOrNil ifNotNil: [codeCompactions2 := codeCompactionsOrNil - (LastStats at: 8). codeCompactionTime2 := codeCompactionTime - (LastStats at: 9)]. str nextPutAll: self textMarkerForShortReport ; nextPutAll: (fullGCs2 + incrGCs2) asStringWithCommas. fullGCs2 + incrGCs2 > 0 ifTrue: [str nextPutAll: ' ('; print: upTime2 // (fullGCs2 + incrGCs2); nextPutAll: ' ms between GCs'. idleMs2 > 0 ifTrue: [str nextPutAll: ', '; print: upTime2 - idleMs2 // (fullGCs2 + incrGCs2); nextPutAll: ' ms runtime between GCs']. str nextPut: $)]. str cr. str nextPutAll: ' uptime '; print: (upTime2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s, runtime '; print: (upTime2 - idleMs2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s, idletime '; print: (idleMs2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s'; cr. str nextPutAll: ' full '; nextPutAll: fullGCs2 asStringWithCommas. fullGCs2 + fullGCTime2 > 0 ifTrue: [str nextPutAll: ' totalling '; nextPutAll: fullGCTime2 asStringWithCommas; nextPutAll: ' ms ('; print: fullGCTime2 / (upTime2 - idleMs2) * 100 maxDecimalPlaces: 1; nextPutAll: '% runtime)'. str nextPutAll: ', avg '; print: fullGCTime2 / (fullGCs2 max: 1) maxDecimalPlaces: 1; nextPutAll: ' ms']. str cr. str nextPutAll: (spur ifTrue: [' scavenge '] ifFalse: [' incr ']); nextPutAll: incrGCs2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime2 asStringWithCommas; nextPutAll: ' ms ('; print: incrGCTime2 / (upTime2 - idleMs2) * 100 maxDecimalPlaces: 1; nextPutAll: '% runtime), avg '; print: incrGCTime2 / (incrGCs2 max: 1) maxDecimalPlaces: 1; nextPutAll: ' ms'. str cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount2 asStringWithCommas. tenureCount2 = 0 ifFalse: [spur ifTrue: [str nextPutAll: ' (avg '; print: tenureCount2 // (incrGCs2 max: 1); nextPutAll: ' tenures per scavenge)'] ifFalse: [str nextPutAll: ' (avg '; print: incrGCs2 // tenureCount2; nextPutAll: ' GCs/tenure)']]. str cr. codeCompactionsOrNil ifNotNil: [str nextPutAll: ' code compactions '; nextPutAll: codeCompactions2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: codeCompactionTime2 asStringWithCommas; nextPutAll: ' ms ('; print: codeCompactionTime2 / (upTime2 - idleMs2) * 100 maxDecimalPlaces: 3; nextPutAll: '% runtime)'. codeCompactions2 > 0 ifTrue: [str nextPutAll: ', avg '; print: codeCompactionTime2 / codeCompactions2 maxDecimalPlaces: 1; nextPutAll: ' ms'; cr.]] ]. LastStats := { upTime. fullGCs. fullGCTime. incrGCs. incrGCTime. tenureCount. idleMs. codeCompactionsOrNil. codeCompactionTime }. ^str contents !

1 0

The Trunk: Chronology-Core-mt.11.mcz
by commits＠source.squeak.org 13 Feb '18

13 Feb '18

Marcel Taeumel uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-mt.11.mcz ==================== Summary ==================== Name: Chronology-Core-mt.11 Author: mt Time: 13 February 2018, 2:46:50.516993 pm UUID: 60f877b7-27a3-44a5-8220-483429ebb9db Ancestors: Chronology-Core-ul.10 Add a convenience message to wait on a duration. It is shorter than using Delay class >> #forDuration:. =============== Diff against Chronology-Core-ul.10 =============== Item was added: + ----- Method: Duration>>wait (in category 'squeak protocol') ----- + wait + "Convert this duration in a delay and wait once. Return the created delay so that the client can wait on it again if needed. + + Do-it: 3 minutes wait" + + | delay | + delay := self asDelay. + delay wait. + ^ delay!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2018