cocoa.dialogs: simple fix for split-path errors with empty string input.

char-rename
John Benediktsson 2017-05-29 08:27:58 -07:00
parent c1d33065ad
commit 68e7a69572
1 changed files with 1 additions and 1 deletions

View File

@ -32,7 +32,7 @@ CONSTANT: NSCancelButton 0
: open-dir-panel ( -- paths ) <NSDirPanel> (open-panel) ;
: split-path ( path -- dir file )
"/" split1-last [ <NSString> ] bi@ ;
"/" split1-last [ "" or <NSString> ] bi@ ;
: save-panel ( path -- path/f )
[ <NSSavePanel> dup ] dip