basis/cocoa/dialogs/dialogs.factor

   1 ! Copyright (C) 2006, 2008 Slava Pestov
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel cocoa cocoa.messages cocoa.classes
   4 cocoa.application sequences splitting core-foundation
   5 core-foundation.strings ;
   6 IN: cocoa.dialogs
   7
   8 : <NSOpenPanel> ( -- panel )
   9     NSOpenPanel -> openPanel
  10     dup 1 -> setCanChooseFiles:
  11     dup 0 -> setCanChooseDirectories:
  12     dup 1 -> setResolvesAliases:
  13     dup 1 -> setAllowsMultipleSelection: ;
  14
  15 : <NSSavePanel> ( -- panel )
  16     NSSavePanel -> savePanel
  17     dup 1 -> setCanChooseFiles:
  18     dup 0 -> setCanChooseDirectories:
  19     dup 0 -> setAllowsMultipleSelection: ;
  20
  21 : NSOKButton 1 ;
  22 : NSCancelButton 0 ;
  23
  24 : open-panel ( -- paths )
  25     <NSOpenPanel>
  26     dup -> runModal NSOKButton =
  27     [ -> filenames CF>string-array ] [ drop f ] if ;
  28
  29 : split-path ( path -- dir file )
  30     "/" split1-last [ <NSString> ] bi@ ;
  31
  32 : save-panel ( path -- paths )
  33     [ <NSSavePanel> dup ] dip
  34     split-path -> runModalForDirectory:file: NSOKButton =
  35     [ -> filename CF>string ] [ drop f ] if ;