Just for fun, from VisualAge Smalltalk 8.6
"---------------------------------------------------------------------------------"
Time millisecondsToRun: [1000 timesRepeat: [Transcript show: 'x']].
VisualAge Smalltalk 8.6 --> 3120ms
"---------------------------------------------------------------------------------"
[ ($a value to: $h value) do: [ :c |
[ 1 to: 9 do: [ :i |
Transcript show: c asCharacter printString , i printString , '
'.
Processor yield
]
] forkAt: 6
].
] forkAt: 7.
VisualAge Smalltalk 8.6 -->
$h1 $g1 $f1 $e1 $d1 $c1 $b1 $a1
$h2 $g2 $f2 $e2 $d2 $c2 $b2 $a2
$h3 $g3 $f3 $e3 $d3 $c3 $b3 $a3
$h4 $g4 $f4 $e4 $d4 $c4 $b4 $a4
$h5 $g5 $f5 $e5 $d5 $c5 $b5 $a5
$h6 $g6 $f6 $e6 $d6 $c6 $b6 $a6
$h7 $g7 $f7 $e7 $d7 $c7 $b7 $a7
$h8 $g8 $f8 $e8 $d8 $c8 $b8 $a8
$h9 $g9 $f9 $e9 $d9 $c9 $b9 $a9
"---------------------------------------------------------------------------------"
1 to: 100 do: [ :i |
Delay forMilliseconds: 100.
Transcript show: 'x'
]
VisualAge Smalltalk 8.6 --> Shows x every 100 milliseconds in the Transcript.
"---------------------------------------------------------------------------------"
Hi guys
the Transcript in Pharo is that it's not asynchronous so I can't use it
in VM development to show the current progress of the simulation. For
example:
1 to: 100 do: [ :i |
0.1 seconds asDelay wait.
Transcript show: 'x'. ]
=> on Squeak, this shows a x every 0.1 second in the Transcript
=> on Pharo, nothing happens during 10 seconds then all the x are shown.
https://pharo.fogbugz.com/default.asp?15515
--
Gareth Cox
IT Manager/Developer
Inspired Org (PTY) Ltd
