equal
deleted
inserted
replaced
841 endTime := OperatingSystem getMicrosecondTime. |
841 endTime := OperatingSystem getMicrosecondTime. |
842 |
842 |
843 micros := endTime - startTime. |
843 micros := endTime - startTime. |
844 |
844 |
845 Transcript show:anInfoString. |
845 Transcript show:anInfoString. |
846 micros < 10000 ifTrue:[ |
846 micros < 1000 ifTrue:[ |
847 Transcript show:micros; show:' µs'. |
847 Transcript show:micros; show:' µs'. |
848 ] ifFalse:[ |
848 ] ifFalse:[ |
849 micros < 100000 ifTrue:[ |
849 micros < 100000 ifTrue:[ |
850 millis := (micros / 1000.0) asFixedPointRoundedToScale:2. |
850 millis := (micros / 1000.0) asFixedPointRoundedToScale:2. |
851 Transcript show:millis; show:' ms'. |
851 Transcript show:millis; show:' ms'. |
3173 ! ! |
3173 ! ! |
3174 |
3174 |
3175 !Block class methodsFor:'documentation'! |
3175 !Block class methodsFor:'documentation'! |
3176 |
3176 |
3177 version |
3177 version |
3178 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.208 2015-01-29 11:20:01 cg Exp $' |
3178 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.209 2015-01-29 11:20:39 cg Exp $' |
3179 ! |
3179 ! |
3180 |
3180 |
3181 version_CVS |
3181 version_CVS |
3182 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.208 2015-01-29 11:20:01 cg Exp $' |
3182 ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.209 2015-01-29 11:20:39 cg Exp $' |
3183 ! ! |
3183 ! ! |
3184 |
3184 |
3185 |
3185 |
3186 Block initialize! |
3186 Block initialize! |