A new version of 60Deprecated was added to project The Inbox:
http://source.squeak.org/inbox/60Deprecated-ct.44.mcz

==================== Summary ====================

Name: 60Deprecated-ct.44
Author: ct
Time: 15 August 2019, 9:31:14.537735 pm
UUID: b505e477-f684-124c-892f-372a1246273a
Ancestors: 60Deprecated-ct.43

Deprecate a message from Etoys

=============== Diff against 60Deprecated-ct.43 ===============

Item was added:
+ ----- Method: SystemProgressMorph>>label:min:max: (in category '*60Deprecated') -----
+ label: shortDescription min: minValue max: maxValue
+ 	| slot range newBarSize barSize lastRefresh index |
+ 	self deprecated: 'Use ', #position:label:min:max:, ' with Display center'.
+ 	((range := maxValue - minValue) <= 0 or: [(slot := self nextSlotFor: shortDescription) = 0])
+ 		ifTrue: [^[:barVal| 0 ]].
+ 	self openInWorld.
+ 	activeSlots <= 1
+ 		ifTrue: [self align: self fullBounds center with: Display boundingBox center].
+ 	barSize := -1. "Enforces a inital draw of the morph"
+ 	lastRefresh := 0.
+ 	index := Preferences unifyNestedProgressBars ifFalse: [slot] ifTrue: [1].
+ 	^[:barVal | 
+ 		(barVal between: minValue and: maxValue) ifTrue: [
+ 			newBarSize := (barVal - minValue / range * BarWidth) truncated.
+ 			newBarSize > barSize ifTrue: [
+ 				barSize := newBarSize.
+ 				(bars at: index) barSize: barSize.
+ 				Time primMillisecondClock - lastRefresh > 25 ifTrue: [
+ 					self currentWorld displayWorld.
+ 					lastRefresh := Time primMillisecondClock]]].
+ 		slot]
+ !