佳乐 - 如何移动一个圈？

Question

在佳乐Smalltalk的环境中，我努力学习的Morphic。有很多很多的Morphic班，我不能确定最合适的一个（或多个）使用我目前的应用程序，我不喜欢去创造一个已经存在这点东西。链接到相关的代码/信息将不胜感激。虽然菲罗可能是更好的，我坚持佳乐大气压。

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