<NSDirPanel> ( -- panel )

Vocabulary

cocoa.dialogs

Inputs

None

Outputs

panel

an object

Definition

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

IN: cocoa.dialogs

: <NSDirPanel> ( -- panel )
    <NSOpenPanel> dup 1
    { void { id SEL char } } "setCanChooseDirectories:" send ;