equal
deleted
inserted
replaced
272 |startTime endTime| |
272 |startTime endTime| |
273 |
273 |
274 startTime := OperatingSystem getMillisecondTime. |
274 startTime := OperatingSystem getMillisecondTime. |
275 aBlock value. |
275 aBlock value. |
276 endTime := OperatingSystem getMillisecondTime. |
276 endTime := OperatingSystem getMillisecondTime. |
277 ^ endTime - startTime |
277 ^ self milliseconds:endTime since:startTime |
278 |
278 |
279 " |
279 " |
280 Time millisecondsToRun:[100 factorial] |
280 Time millisecondsToRun:[1000 factorial] |
281 " |
281 " |
282 |
282 |
283 "Modified: 17.6.1996 / 16:57:37 / cg" |
283 "Modified: 17.6.1996 / 16:57:37 / cg" |
284 ! |
284 ! |
285 |
285 |
1032 ! ! |
1032 ! ! |
1033 |
1033 |
1034 !AbstractTime class methodsFor:'documentation'! |
1034 !AbstractTime class methodsFor:'documentation'! |
1035 |
1035 |
1036 version |
1036 version |
1037 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.49 2004-07-14 21:43:55 cg Exp $' |
1037 ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.50 2004-09-22 14:42:22 stefan Exp $' |
1038 ! ! |
1038 ! ! |