smalltalk - 吱吱声 - 我如何移动一个圆圈？

Question

在 Squeak Smalltalk 环境中，我正在尝试学习 Morphic。有很多很多 Morphic 类，我无法确定最适合用于我当前应用程序的类，并且我不希望发明此时已经存在的任何东西。相关代码/信息的链接将不胜感激。虽然 Pharo 可能更好，但我被 Squeak atm 困住了。

我的问题是：
使用 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上的文档部分。那里有很多很好的教程。