|
After my earlier edit, I figured out how to use the feature as is to obtain the desired behavior:
| mon now tfail millisecs| mon := Monitor new. millisecs := 3000. now := DateAndTime current. tfail := now + (Duration milliSeconds: millisecs) . Transcript show: (now asString); cr. Transcript show: (tfail asString); cr. mon critical: [ mon waitUntil: [false or: ((DateAndTime current) >= tfail)] maxMilliseconds: millisecs. ]. Transcript show: (DateAndTime current asString); cr.
|
|
|
Priority: 3 – Must Fix
|
|
Status: Work Needed
|
|
Assigned to: Everyone
|
|
Milestone: Later
|
Go to Case
|
|