我如何移动一个圆圈？

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上的文档部分。那里有很多很好的教程。