mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-24 11:51:13 +00:00
c2c2d22254
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@13642 72102866-910b-0410-8b05-ffd578937521
12 lines
265 B
Smalltalk
12 lines
265 B
Smalltalk
| app |
|
|
|
|
Environment loadModule:'AppKit'.
|
|
|
|
app := NSApplication sharedApplication.
|
|
|
|
app runAlertPanelWithTitle: 'Test'
|
|
message: 'Alert panel test'
|
|
defaultButton: 'OK'
|
|
alternateButton: nil
|
|
otherButton: nil.
|
|
|