diff --git a/basis/cocoa/dialogs/dialogs-docs.factor b/basis/cocoa/dialogs/dialogs-docs.factor index a1a36c9d32..3f69baff0b 100644 --- a/basis/cocoa/dialogs/dialogs-docs.factor +++ b/basis/cocoa/dialogs/dialogs-docs.factor @@ -14,7 +14,7 @@ HELP: open-panel { $description "Displays a file open panel, and outputs a sequence of selected pathnames." } ; HELP: save-panel -{ $values { "path" "a pathname string, or " { $link f } } { "paths" "a sequence of pathname strings" } } +{ $values { "path" "a pathname string" } { "path/f" { $maybe "a pathname string" } } } { $description "Displays a file save panel, and outputs the selected path, or " { $link f } " if the user cancelled the operation." } ; ARTICLE: "cocoa-dialogs" "Cocoa file dialogs" diff --git a/basis/cocoa/dialogs/dialogs.factor b/basis/cocoa/dialogs/dialogs.factor index f479e7336e..dcbc8997bc 100644 --- a/basis/cocoa/dialogs/dialogs.factor +++ b/basis/cocoa/dialogs/dialogs.factor @@ -34,7 +34,7 @@ CONSTANT: NSCancelButton 0 : split-path ( path -- dir file ) "/" split1-last [ ] bi@ ; -: save-panel ( path -- paths ) +: save-panel ( path -- path/f ) [ dup ] dip split-path -> runModalForDirectory:file: NSOKButton = [ -> filename CF>string ] [ drop f ] if ;