mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-23 11:31:01 +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).
|