Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1568.mcz
==================== Summary ====================
Name: Morphic-mt.1568 Author: mt Time: 14 October 2019, 6:16:48.623845 pm UUID: f9e882ca-a057-6440-b781-a23571ddbe7e Ancestors: Morphic-mt.1567
Makes system-progress bar updates more robust during the update process.
=============== Diff against Morphic-mt.1567 ===============
Item was changed: ----- Method: SystemProgressMorph>>position:label:min:max: (in category 'private') ----- position: aPoint label: shortDescription min: minValue max: maxValue | slot range barSize lastRefresh | self requestedPosition: aPoint. ((range := maxValue - minValue) < 0 or: [(slot := self nextSlotFor: shortDescription) = 0]) ifTrue: [^[:barVal| 0 ]]. range <= 0 ifTrue: [self removeMorph: (self bars at: slot)]. self reposition. self openInWorld. barSize := -1. "Enforces a inital draw of the morph" lastRefresh := 0. ^[:barVal | | newBarSize | barVal isString ifTrue: [ self setLabel: barVal at: slot. self currentWorld displayWorld]. (barVal isNumber and: [range >= 1 and: [barVal between: minValue and: maxValue]]) ifTrue: [ newBarSize := (barVal - minValue / range * BarWidth) truncated. newBarSize = barSize ifFalse: [ barSize := newBarSize. (self bars at: slot) barSize: barSize. Time utcMicrosecondClock - lastRefresh > 25000 ifTrue: [ + self refreshWorld. - self currentWorld displayWorld. lastRefresh := Time utcMicrosecondClock]]]. slot]!
packages@lists.squeakfoundation.org