mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-23 03:20:57 +00:00
8 lines
136 B
Smalltalk
8 lines
136 B
Smalltalk
|
Environment loadModule:'AppKit'.
|
||
|
|
|
||
|
|
panel := NSOpenPanel openPanel.
|
||
|
|
|
||
|
|
runResult := panel runModal.
|
||
|
|
|
||
|
|
Transcript showLine: (panel filename).
|