smalltalk - 如何在不使用步骤的情况下为变形制作动画？

Question

我想为掷骰子制作动画，但不想使用 Morph>>step方法，因为我想更好地控制滚动完成的时间。我知道我可以使用 Delay>>wait在 fork block 中查看我的动画，但是我应该如何从其他方法调用此方法以确保我得到最终的 numberRolled ？

这是我的 roll方法:

roll
    | n t |
    numberRolled := nil.
    [
        t := 10 + (10 atRandom).
        t timesRepeat: [
            n := 6 atRandom.
            self showNumber: n.
            (Delay forSeconds: 0.1) wait.
        ].
        numberRolled := n.
    ] fork.

因此，如果我从类似 guessLower 的方法中调用它roll方法立即返回，因为真正的工作在 fork 进程中完成。

guessLower
    previousNumberRolled := numberRolled.
    self roll.
    "this next line is called before the dice has finished rolling"
    self checkWin: (numberRolled < previousNumberRolled)

我目前的解决方案是修改roll获取 block 的方法，该 block 在滚动完成后执行，例如rollAndThen: aBlock但是否有更优雅/更简单的解决方案？

Answer 1

在 Morphic 中，使用延迟和显式循环是一个非常糟糕的主意。

但是让 step 方法做你想做的事情真的很简单:你只需在里面检查它是否应该继续滚动。然后你做 self stopStepping。自检赢:....