<NSOpenPanel> ( -- panel )
Cocoa bridge » Cocoa file dialogs

Next:

open-panel ( -- paths )

Vocabulary
cocoa.dialogs

Inputs
None

Outputs

panel

an NSOpenPanel

Word description
Creates a new NSOpenPanel.

Definition

USING: alien.c-types cocoa.classes cocoa.messages cocoa.runtime
kernel ;

IN: cocoa.dialogs

: <NSOpenPanel> ( -- panel )
    NSOpenPanel { id { id SEL } } "openPanel" send dup 1
    { void { id SEL char } } "setCanChooseFiles:" send dup 0
    { void { id SEL char } } "setCanChooseDirectories:" send
    dup 1 { void { id SEL char } } "setResolvesAliases:" send
    dup 1
    { void { id SEL char } } "setAllowsMultipleSelection:" send
    ;