Smalltalk Squeak-如何移动一个圆？

在吱吱作响的Smalltalk环境中，我正在努力学习语言。有很多很多变形类，我无法确定当前应用程序使用的最合适的类，而且我不想发明任何目前已经存在的类。请提供相关代码/信息的链接。虽然Pharo可能会更好，但我还是被Squeak atm卡住了

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

---

谢谢

打开工作区并键入：

| 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类以查找您可以执行的其他操作。此外，请查看位于的文档部分。那里有很多很好的教程