smalltalk stepTime和step方法效果不佳

时间:2016-06-29 18:49:54

标签: smalltalk squeak

您好我在smalltalk中执行了以下步骤

include SingleFile

scheduler.every '1m' do
  with_file_lock("/tmp/magic_is_happening.lock") do
    MagicClass.poof!
  end
end

当我打开成绩单窗口和我有的步骤方法

时,会发生一些非常奇怪的事情
step
    |dx dy|

    [isPlaying]
    whileTrue:[
        speed := speed - 0.1.
        dx := speed / 15 * 4 * direction cos.
        dy := speed / 15 * 4 * direction sin.
        speed <= 0
        ifTrue:[isPlaying := false. self stopStepping.]
        ifFalse:[
                Transcript show:'(',dx,'@',dy,')';cr.
                whiteBall position: whiteBall position + (dx@dy).
                ].

        ].

    stepTime
        ^2.

球形矩形看起来像动画一样移动,但如果我关闭抄本窗口并删除行代码

Transcript show:'(',dx,'@',dy,')';cr.

球矩形似乎从位置A移动到位置Y. 请帮忙,为什么会这样?

先谢谢你

1 个答案:

答案 0 :(得分:2)

好的,我知道了我只是在步骤方法中移除了while循环并且它正在工作!!!!