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

Prev:	open-panel ( -- paths )
Next:	save-panel ( path -- path/f )

Vocabulary
cocoa.dialogs

Inputs
None

Outputs

panel

an NSSavePanel

Word description
Creates a new NSSavePanel.

Definition

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

IN: cocoa.dialogs

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