equal
deleted
inserted
replaced
1216 and finally restore cursor; return result of evaluation" |
1216 and finally restore cursor; return result of evaluation" |
1217 |
1217 |
1218 |code| |
1218 |code| |
1219 |
1219 |
1220 code := '|t| t := Time millisecondsToRun:[' , self selection asString string, ']. |
1220 code := '|t| t := Time millisecondsToRun:[' , self selection asString string, ']. |
1221 Transcript showCR:''execution time: '' , t printString , '' ms''.'. |
1221 |
|
1222 Transcript showCR:''execution time: '' , t printString , '' ms''.'. |
1222 self do:code withValueDo:[:result | ] |
1223 self do:code withValueDo:[:result | ] |
1223 |
1224 |
1224 "Modified: / 22.4.1998 / 22:03:51 / ca" |
1225 "Modified: / 22.4.1998 / 22:03:51 / ca" |
1225 ! ! |
1226 ! ! |
1226 |
1227 |
1231 ! ! |
1232 ! ! |
1232 |
1233 |
1233 !Workspace class methodsFor:'documentation'! |
1234 !Workspace class methodsFor:'documentation'! |
1234 |
1235 |
1235 version |
1236 version |
1236 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.147 2005-02-25 11:58:08 cg Exp $' |
1237 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.148 2005-03-31 12:03:28 cg Exp $' |
1237 ! ! |
1238 ! ! |