佳乐 - 如何移动一个圈?
题
在佳乐Smalltalk的环境中,我努力学习的Morphic。有很多很多的Morphic班,我不能确定最合适的一个(或多个)使用我目前的应用程序,我不喜欢去创造一个已经存在这点东西。链接到相关的代码/信息将不胜感激。虽然菲罗可能是更好的,我坚持佳乐大气压。
我的问题是:结果 使用吱吱声和Morphic手机,我怎么建立某种形式的画布,将其放到一个可移动的,滚动的,可调整大小的窗口,显示它在桌面上,落个circleMorph到该画布上,并允许用户以抢圈和移动它在画布上?
谢谢!
解决方案
打开一个工作空间和类型:
| 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 文档部分。有很多很好的教程那里。
不隶属于 StackOverflow