60 

    60 

    61 test2

    61 test2

    62     |n verbose delayMultiplier|

    62     |n verbose delayMultiplier|

    63 

    63 

    64     "/ sorry, but the test machines are much too slow, give them more time

    64     "/ sorry, but the test machines are much too slow, give them more time

    65 "/    delayMultiplier := 1.

    66 "/    delayMultiplier := 1.

    67 

    67 

    68     verbose := false.

    68     verbose := false.

    69     n := 0.

    69     n := 0.

    70     [

    71     [

    71         [n < 10] whileTrue:[

    72         [n < 10] whileTrue:[

    72            Delay waitForSeconds:(delayMultiplier * 0.1).

    73            Delay waitForSeconds:(delayMultiplier * 0.1).

    73            verbose ifTrue:[ Transcript showCR:n ].

    74            verbose ifTrue:[ Transcript showCR:n ].

    74            n := n + 1.

    75            n := n + 1.

    83      self basicNew test2

    84      self basicNew test2

    84     "

    85     "

    85 

    86 

    86     "Modified: / 10-01-2012 / 19:25:35 / cg"

    87     "Modified: / 10-01-2012 / 19:25:35 / cg"

    87     "Modified: / 28-03-2019 / 10:57:36 / Claus Gittinger"

    88     "Modified: / 28-03-2019 / 10:57:36 / Claus Gittinger"

    88 !

    90 !

    89 

    91 

    90 test3_longDelay

    92 test3_longDelay

    91     "in stx6.2.1, the following does not wait, due to an overflow in

    93     "in stx6.2.1, the following does not wait, due to an overflow in

    92      the millisecond computation..."

    94      the millisecond computation..."