Squeak - 如何移动一个圆圈？

Question

在 Squeak Smalltalk 环境中，我正在尝试学习 Morphic。 有很多很多 Morphic 类，我无法确定最适合我当前应用程序的类，而且我不想发明任何目前已经存在的东西。 相关代码/信息的链接将不胜感激。 虽然 Pharo 可能更好，但我还是坚持使用 Squeak 自动取款机。

我的问题是：
使用 Squeak 和 Morphic，如何创建某种画布，将其放入可移动、可滚动、可调整大小的窗口中，将其显示在桌面上，将 CircleMorph 拖放到该画布上，并允许用户抓住圆圈并将其四处移动在画布上？

谢谢！

Answer 1

打开工作区并键入：

| window canvas circle |
window := SystemWindow new.
canvas := PasteUpMorph new.
window addMorphBack: canvas.
canvas bounds: window bounds.
circle := CircleMorph new.
canvas addMorphCentered: circle.
window openAsIs.

这将在桌面上创建一个可以拖放的圆圈。 浏览 CircleMorph 类以查找您可以执行的其他操作。 另外，请查看 www.squeak.org 上的文档部分。 那里有很多很好的教程。