使用Smalltalk实现简单的GUI应用程序

示例代码

| window button label |
window := StandardWindow new.
window label: 'Hello World'.
button := SimpleButtonMorph new.
button label: 'Click me'.
button action: [ Transcript show: 'Hello Smalltalk!' ].
window addMorph: button.
window openInWorld.

代码释义

• window := StandardWindow new.：创建一个窗口对象并将其赋值给window变量。
• window label: 'Hello World'.：将窗口标题设置为“Hello World”。
• button := SimpleButtonMorph new.：创建一个按钮对象并将其赋值给button变量。
• button label: 'Click me'.：将按钮上的文本设置为“Click me”。
• button action: [ Transcript show: 'Hello Smalltalk!' ].：设置按钮被点击时执行的操作，即在Transcript中显示“Hello Smalltalk！”文本。
• window addMorph: button.：将按钮添加到窗口中。
• window openInWorld.：将窗口显示在屏幕上。

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com