(open-panel) ( panel -- paths )

Vocabulary

cocoa.dialogs

Inputs

panel

an object

Outputs

paths

an object

Definition

USING: alien.c-types cocoa.messages cocoa.runtime
core-foundation.strings kernel ;

IN: cocoa.dialogs

: (open-panel) ( panel -- paths )
    dup { long { id SEL } } "runModal" send NSOKButton =
    [ { id { id SEL } } "filenames" send CF>string-array ]
    [ drop f ] if ;