Bert Freudenberg uploaded a new version of 51Deprecated to project The Trunk:
http://source.squeak.org/trunk/51Deprecated-bf.19.mcz==================== Summary ====================
Name: 51Deprecated-bf.19
Author: bf
Time: 22 February 2016, 3:15:42.896692 pm
UUID: 1e6194ef-cd0d-4c13-beef-208cf40f190b
Ancestors: 51Deprecated-bf.18
Use actual old version for deprecation
=============== Diff against 51Deprecated-bf.18 ===============
Item was changed:
----- Method: DateAndTime class>>nowWithOffset: (in category '*51deprecated') -----
nowWithOffset: aDuration
+
+ | clockValue nanos |
self deprecated: 'use (... now offset: ...) instead'.
+ clockValue := Time utcMicrosecondClock.
+ "Ensure that consecutive sends of this method return increasing values, by adding small values to the nanosecond part of the created object. The next few lines are assumed to be executed atomically - having no suspension points."
+ ((LastClockValue ifNil: [ 0 ]) digitCompare: clockValue) = 0
+ ifTrue: [ NanoOffset := NanoOffset + 1 ]
+ ifFalse: [ NanoOffset := 0 ].
+ LastClockValue := clockValue.
+ nanos := clockValue \\ 1000000 * 1000 + NanoOffset.
+ clockValue := clockValue // 1000000.
+ ^self basicNew
+ setJdn: clockValue // SecondsInDay + SqueakEpoch
+ seconds: clockValue \\ SecondsInDay
+ nano: nanos
- ^ self
- now: self clock localMicrosecondClockWithOffset first
offset: aDuration!