wip: fork

1 files changed, 0 insertions, 825 deletions

diff --git a/src/Fl_Native_File_Chooser_MAC.mm b/src/Fl_Native_File_Chooser_MAC.mm
deleted file mode 100644
index b3dd9ae8f..000000000
--- a/src/Fl_Native_File_Chooser_MAC.mm
+++ /dev/null
@@ -1,825 +0,0 @@
-//
-// FLTK native OS file chooser widget for macOS
-//
-// Copyright 2004 Greg Ercolano.
-// Copyright 1998-2024 by Bill Spitzak and others.
-//
-// This library is free software. Distribution and use rights are outlined in
-// the file "COPYING" which should have been included with this file.  If this
-// file is missing or damaged, see the license at:
-//
-//     https://www.fltk.org/COPYING.php
-//
-// Please see the following page on how to report bugs and issues:
-//
-//     https://www.fltk.org/bugs.php
-//
-
-// TODO:
-//      o When doing 'open file', only dir is preset, not filename.
-//        Possibly 'preset_file' could be used to select the filename.
-//
-
-#include <FL/Fl.H>
-#include <FL/platform.H> // for fl_mac_os_version
-#include <FL/Fl_Native_File_Chooser.H>
-#include <FL/Fl_File_Chooser.H>
-#include <FL/filename.H>
-#include <FL/fl_string_functions.h>
-#define MAXFILTERS      80
-#import <Cocoa/Cocoa.h>
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_VERSION_11_0
-#  import <UniformTypeIdentifiers/UniformTypeIdentifiers.h>
-#endif
-
-#if MAC_OS_X_VERSION_MAX_ALLOWED < MAC_OS_X_VERSION_10_9
-const NSInteger NSModalResponseOK = NSFileHandlingPanelOKButton;
-#endif
-
-#if MAC_OS_X_VERSION_MAX_ALLOWED < MAC_OS_X_VERSION_10_12
-const NSUInteger NSControlSizeRegular = NSRegularControlSize;
-#endif
-
-class Fl_Quartz_Native_File_Chooser_Driver : public Fl_Native_File_Chooser_Driver {
-private:
-  int             _btype;               // kind-of browser to show()
-  int             _options;             // general options
-  NSSavePanel   *_panel;
-  char          **_pathnames;           // array of pathnames
-  int             _tpathnames;          // total pathnames
-  char           *_directory;           // default pathname to use
-  char           *_title;               // title for window
-  char           *_preset_file;         // the 'save as' filename
-
-  char           *_filter;              // user-side search filter, eg:
-  // C Files\t*.[ch]\nText Files\t*.txt"
-
-  char           *_filt_names;          // filter names (tab delimited)
-  // eg. "C Files\tText Files"
-
-  char           *_filt_patt[MAXFILTERS];
-  // array of filter patterns, eg:
-  //     _filt_patt[0]="*.{cxx,h}"
-  //     _filt_patt[1]="*.txt"
-
-  int             _filt_total;          // parse_filter() # of filters loaded
-  int             _filt_value;          // index of the selected filter
-  char           *_errmsg;              // error message
-
-  // Private methods
-  void errmsg(const char *msg);
-  void clear_pathnames();
-  void set_single_pathname(const char *s);
-  int get_saveas_basename(void);
-  void clear_filters();
-  void parse_filter(const char *from);
-  int post();
-  int runmodal();
-public:
-  Fl_Quartz_Native_File_Chooser_Driver(int val);
-  ~Fl_Quartz_Native_File_Chooser_Driver();
-  void type(int t) FL_OVERRIDE;
-  int type() const FL_OVERRIDE;
-  void options(int o) FL_OVERRIDE;
-  int options() const FL_OVERRIDE;
-  int count() const FL_OVERRIDE;
-  const char *filename() const FL_OVERRIDE;
-  const char *filename(int i) const FL_OVERRIDE;
-  void directory(const char *val) FL_OVERRIDE;
-  const char *directory() const FL_OVERRIDE;
-  void title(const char *t) FL_OVERRIDE;
-  const char* title() const FL_OVERRIDE;
-  const char *filter() const FL_OVERRIDE;
-  void filter(const char *f) FL_OVERRIDE;
-  int filters() const FL_OVERRIDE;
-  void filter_value(int i) FL_OVERRIDE;
-  int filter_value() const FL_OVERRIDE;
-  void preset_file(const char*f) FL_OVERRIDE;
-  const char* preset_file() const FL_OVERRIDE;
-  const char *errmsg() const FL_OVERRIDE;
-  int show() FL_OVERRIDE;
-};
-
-Fl_Native_File_Chooser::Fl_Native_File_Chooser(int val) {
-  platform_fnfc = new Fl_Quartz_Native_File_Chooser_Driver(val);
-}
-
-// FREE PATHNAMES ARRAY, IF IT HAS ANY CONTENTS
-void Fl_Quartz_Native_File_Chooser_Driver::clear_pathnames() {
-  if ( _pathnames ) {
-    while ( --_tpathnames >= 0 ) {
-      _pathnames[_tpathnames] = strfree(_pathnames[_tpathnames]);
-    }
-    delete [] _pathnames;
-    _pathnames = NULL;
-  }
-  _tpathnames = 0;
-}
-
-// SET A SINGLE PATHNAME
-void Fl_Quartz_Native_File_Chooser_Driver::set_single_pathname(const char *s) {
-  clear_pathnames();
-  _pathnames = new char*[1];
-  _pathnames[0] = strnew(s);
-  _tpathnames = 1;
-}
-
-// CONSTRUCTOR
-Fl_Quartz_Native_File_Chooser_Driver::Fl_Quartz_Native_File_Chooser_Driver(int val) :
-  Fl_Native_File_Chooser_Driver(val) {
-  _btype          = val;
-  _panel = NULL;
-  _options        = Fl_Native_File_Chooser::NO_OPTIONS;
-  _pathnames      = NULL;
-  _tpathnames     = 0;
-  _title          = NULL;
-  _filter         = NULL;
-  _filt_names     = NULL;
-  memset(_filt_patt, 0, sizeof(char*) * MAXFILTERS);
-  _filt_total     = 0;
-  _filt_value     = 0;
-  _directory      = NULL;
-  _preset_file    = NULL;
-  _errmsg         = NULL;
-}
-
-// DESTRUCTOR
-Fl_Quartz_Native_File_Chooser_Driver::~Fl_Quartz_Native_File_Chooser_Driver() {
-  // _opts              // nothing to manage
-  // _options           // nothing to manage
-  // _keepstate         // nothing to manage
-  // _tempitem          // nothing to manage
-  clear_pathnames();
-  _directory   = strfree(_directory);
-  _title       = strfree(_title);
-  _preset_file = strfree(_preset_file);
-  _filter      = strfree(_filter);
-  //_filt_names         // managed by clear_filters()
-  //_filt_patt[i]       // managed by clear_filters()
-  //_filt_total         // managed by clear_filters()
-  clear_filters();
-  //_filt_value         // nothing to manage
-  _errmsg = strfree(_errmsg);
-}
-
-// GET TYPE OF BROWSER
-int Fl_Quartz_Native_File_Chooser_Driver::type() const {
-  return(_btype);
-}
-
-// SET OPTIONS
-void Fl_Quartz_Native_File_Chooser_Driver::options(int val) {
-  _options = val;
-}
-
-// GET OPTIONS
-int Fl_Quartz_Native_File_Chooser_Driver::options() const {
-  return(_options);
-}
-
-// SHOW THE BROWSER WINDOW
-//     Returns:
-//         0 - user picked a file
-//         1 - user cancelled
-//        -1 - failed; errmsg() has reason
-//
-int Fl_Quartz_Native_File_Chooser_Driver::show() {
-
-  // Make sure fltk interface updates before posting our dialog
-  Fl::flush();
-
-  // POST BROWSER
-  int err = post();
-
-  return(err);
-}
-
-// SET ERROR MESSAGE
-//     Internal use only.
-//
-void Fl_Quartz_Native_File_Chooser_Driver::errmsg(const char *msg) {
-  _errmsg = strfree(_errmsg);
-  _errmsg = strnew(msg);
-}
-
-// RETURN ERROR MESSAGE
-const char *Fl_Quartz_Native_File_Chooser_Driver::errmsg() const {
-  return(_errmsg ? _errmsg : "No error");
-}
-
-// GET FILENAME
-const char* Fl_Quartz_Native_File_Chooser_Driver::filename() const {
-  if ( _pathnames && _tpathnames > 0 ) return(_pathnames[0]);
-  return("");
-}
-
-// GET FILENAME FROM LIST OF FILENAMES
-const char* Fl_Quartz_Native_File_Chooser_Driver::filename(int i) const {
-  if ( _pathnames && i < _tpathnames ) return(_pathnames[i]);
-  return("");
-}
-
-// GET TOTAL FILENAMES CHOSEN
-int Fl_Quartz_Native_File_Chooser_Driver::count() const {
-  return(_tpathnames);
-}
-
-// PRESET PATHNAME
-//     Value can be NULL for none.
-//
-void Fl_Quartz_Native_File_Chooser_Driver::directory(const char *val) {
-  _directory = strfree(_directory);
-  _directory = strnew(val);
-}
-
-// GET PRESET PATHNAME
-//     Returned value can be NULL if none set.
-//
-const char* Fl_Quartz_Native_File_Chooser_Driver::directory() const {
-  return(_directory);
-}
-
-// SET TITLE
-//     Value can be NULL if no title desired.
-//
-void Fl_Quartz_Native_File_Chooser_Driver::title(const char *val) {
-  _title = strfree(_title);
-  _title = strnew(val);
-}
-
-// GET TITLE
-//     Returned value can be NULL if none set.
-//
-const char *Fl_Quartz_Native_File_Chooser_Driver::title() const {
-  return(_title);
-}
-
-// SET FILTER
-//     Can be NULL if no filter needed
-//
-void Fl_Quartz_Native_File_Chooser_Driver::filter(const char *val) {
-  _filter = strfree(_filter);
-  _filter = strnew(val);
-
-  // Parse filter user specified
-  //     IN: _filter = "C Files\t*.{cxx,h}\nText Files\t*.txt"
-  //    OUT: _filt_names   = "C Files\tText Files"
-  //         _filt_patt[0] = "*.{cxx,h}"
-  //         _filt_patt[1] = "*.txt"
-  //         _filt_total   = 2
-  //
-  parse_filter(_filter);
-}
-
-// GET FILTER
-//     Returned value can be NULL if none set.
-//
-const char *Fl_Quartz_Native_File_Chooser_Driver::filter() const {
-  return(_filter);
-}
-
-// CLEAR ALL FILTERS
-//    Internal use only.
-//
-void Fl_Quartz_Native_File_Chooser_Driver::clear_filters() {
-  _filt_names = strfree(_filt_names);
-  for (int i=0; i<_filt_total; i++) {
-    _filt_patt[i] = strfree(_filt_patt[i]);
-  }
-  _filt_total = 0;
-}
-
-// PARSE USER'S FILTER SPEC
-//    Parses user specified filter ('in'),
-//    breaks out into _filt_patt[], _filt_names, and _filt_total.
-//
-//    Handles:
-//    IN:                                   OUT:_filt_names    OUT: _filt_patt
-//    ------------------------------------  ------------------ ---------------
-//    "*.{ma,mb}"                           "*.{ma,mb} Files"  "*.{ma,mb}"
-//    "*.[abc]"                             "*.[abc] Files"    "*.[abc]"
-//    "*.txt"                               "*.txt Files"      "*.c"
-//    "C Files\t*.[ch]"                     "C Files"          "*.[ch]"
-//    "C Files\t*.[ch]\nText Files\t*.cxx"  "C Files"          "*.[ch]"
-//
-//    Parsing Mode:
-//         IN:"C Files\t*.{cxx,h}"
-//             |||||||  |||||||||
-//       mode: nnnnnnn  wwwwwwwww
-//             \_____/  \_______/
-//              Name     Wildcard
-//
-void Fl_Quartz_Native_File_Chooser_Driver::parse_filter(const char *in) {
-  clear_filters();
-  if ( ! in ) return;
-  int has_name = strchr(in, '\t') ? 1 : 0;
-
-  char mode = has_name ? 'n' : 'w';     // parse mode: n=title, w=wildcard
-  char wildcard[1024] = "";             // parsed wildcard
-  char name[1024] = "";
-
-  // Parse filter user specified
-  for ( ; 1; in++ ) {
-
-    //// DEBUG
-    //// printf("WORKING ON '%c': mode=<%c> name=<%s> wildcard=<%s>\n",
-    ////                    *in,  mode,     name,     wildcard);
-
-    switch (*in) {
-      // FINISHED PARSING NAME?
-      case '\t':
-        if ( mode != 'n' ) goto regchar;
-        mode = 'w';
-        break;
-
-      // ESCAPE NEXT CHAR
-      case '\\':
-        ++in;
-        goto regchar;
-
-      // FINISHED PARSING ONE OF POSSIBLY SEVERAL FILTERS?
-      case '\r':
-      case '\n':
-      case '\0':
-        // TITLE
-        //     If user didn't specify a name, make one
-        //
-        if ( name[0] == '\0' ) {
-          snprintf(name, sizeof(name), "%.*s Files", (int)sizeof(name)-10, wildcard);
-        }
-        // APPEND NEW FILTER TO LIST
-        if ( wildcard[0] ) {
-          // Add to filtername list
-          //     Tab delimit if more than one. We later break
-          //     tab delimited string into CFArray with
-          //     CFStringCreateArrayBySeparatingStrings()
-          //
-          if ( _filt_total ) {
-            _filt_names = strapp(_filt_names, "\t");
-          }
-          _filt_names = strapp(_filt_names, name);
-
-          // Add filter to the pattern array
-          _filt_patt[_filt_total++] = strnew(wildcard);
-        }
-        // RESET
-        wildcard[0] = name[0] = '\0';
-        mode = strchr(in, '\t') ? 'n' : 'w';
-        // DONE?
-        if ( *in == '\0' ) return;      // done
-        else continue;                  // not done yet, more filters
-
-      // Parse all other chars
-      default:                          // handle all non-special chars
-      regchar:                          // handle regular char
-        switch ( mode ) {
-          case 'n': chrcat(name, *in);     continue;
-          case 'w': chrcat(wildcard, *in); continue;
-        }
-        break;
-    }
-  }
-  //NOTREACHED
-}
-
-// SET PRESET FILE
-//     Value can be NULL for none.
-//
-void Fl_Quartz_Native_File_Chooser_Driver::preset_file(const char* val) {
-  _preset_file = strfree(_preset_file);
-  _preset_file = strnew(val);
-}
-
-// PRESET FILE
-//     Returned value can be NULL if none set.
-//
-const char* Fl_Quartz_Native_File_Chooser_Driver::preset_file() const {
-  return(_preset_file);
-}
-
-void Fl_Quartz_Native_File_Chooser_Driver::filter_value(int val) {
-  _filt_value = val;
-}
-
-int Fl_Quartz_Native_File_Chooser_Driver::filter_value() const {
-  return(_filt_value);
-}
-
-int Fl_Quartz_Native_File_Chooser_Driver::filters() const {
-  return(_filt_total);
-}
-
-#define UNLIKELYPREFIX "___fl_very_unlikely_prefix_"
-
-int Fl_Quartz_Native_File_Chooser_Driver::get_saveas_basename(void) {
-  char *q = fl_strdup( [[[_panel URL] path] UTF8String] );
-  if ( !(_options & Fl_Native_File_Chooser::SAVEAS_CONFIRM) ) {
-    const char *d = [[[[_panel URL] path] stringByDeletingLastPathComponent] UTF8String];
-    int l = (int)strlen(d) + 1;
-    if (strcmp(d, "/") == 0) l = 1;
-    int lu = (int)strlen(UNLIKELYPREFIX);
-    int ln = (int)strlen(q+l);
-    if (ln >= lu) {
-      // Remove UNLIKELYPREFIX between directory and filename parts
-      if (memcmp(q+l, UNLIKELYPREFIX, lu) == 0) memmove(q + l, q + l + lu, strlen(q + l + lu) + 1);
-    }
-  }
-  set_single_pathname( q );
-  free(q);
-  return 0;
-}
-
-// SET THE TYPE OF BROWSER
-void Fl_Quartz_Native_File_Chooser_Driver::type(int val) {
-  _btype = val;
-}
-
-/* Input
- filter=  "C files\t*.{c,h}\nText files\t*.txt\n"
- patterns[0] = "*.{c,h}"
- patterns[1] = "*.txt"
- count = 2
- Return:
- "C files (*.{c,h})\nText files (*.txt)\n"
- */
-static char *prepareMacFilter(int count, const char *filter, char **patterns) {
-  int rank = 0, l = 0;
-  for (int i = 0; i < count; i++) {
-    l += strlen(patterns[i]) + 3;
-    }
-  const char *p = filter;
-  const int t_size = (int)strlen(p) + l + 1;
-  char *q; q = new char[t_size];
-  const char *r, *s;
-  char *t;
-  t = q;
-  do {  // copy to t what is in filter removing what is between \t and \n, if any
-    r = strchr(p, '\n');
-    if (!r) r = p + strlen(p);
-    s = strchr(p, '\t');
-    if (s && s < r) {
-      memcpy(q, p, s - p);
-      q += s - p;
-      if (rank < count) {
-        snprintf(q, t_size-(q-t), " (%s)", patterns[rank]); q += strlen(q);
-      }
-    }
-    else {
-      memcpy(q, p, r - p);
-      q += r - p;
-    }
-    rank++;
-    *(q++) = '\n';
-    if (*r) p = r + 1; else p = r;
-  } while(*p);
-  *q = 0;
-  return t;
-}
-
-@interface FLopenDelegate : NSObject <NSOpenSavePanelDelegate>
-{
-  NSPopUpButton *nspopup;
-  char **filter_pattern;
-}
-- (FLopenDelegate*)setPopup:(NSPopUpButton*)popup filter_pattern:(char**)pattern;
-- (BOOL)panel:(id)sender shouldShowFilename:(NSString *)filename;
-- (BOOL)panel:(id)sender shouldEnableURL:(NSURL *)url;
-@end
-@implementation FLopenDelegate
-- (FLopenDelegate*)setPopup:(NSPopUpButton*)popup filter_pattern:(char**)pattern
-{
-  nspopup = popup;
-  filter_pattern = pattern;
-  return self;
-}
-- (BOOL)panel:(id)sender shouldShowFilename:(NSString *)filename
-{
-  if ( [nspopup indexOfSelectedItem] == [nspopup numberOfItems] - 1) return YES;
-  BOOL isdir = NO;
-  [[NSFileManager defaultManager] fileExistsAtPath:filename isDirectory:&isdir];
-  if (isdir) return YES;
-  if ( fl_filename_match([filename fileSystemRepresentation], filter_pattern[([nspopup indexOfSelectedItem])]) ) return YES;
-  return NO;
-}
-- (BOOL)panel:(id)sender shouldEnableURL:(NSURL *)url
-{
-  return [self panel:sender shouldShowFilename:[url path]];
-}
-@end
-
-@interface FLsaveDelegate : NSObject <NSOpenSavePanelDelegate>
-{
-  NSSavePanel *dialog;
-  BOOL saveas_confirm;
-}
-- (NSString *)panel:(id)sender userEnteredFilename:(NSString *)filename confirmed:(BOOL)okFlag;
-- (void)control_allowed_types:(const char *)p;
-- (void)changedPopup:(id)sender;
-- (void)panel:(NSSavePanel*)p;
-- (void)option:(BOOL)o;
-@end
-@implementation FLsaveDelegate
-- (NSString *)panel:(id)sender userEnteredFilename:(NSString *)filename confirmed:(BOOL)okFlag
-{
-  if ( !okFlag || saveas_confirm ) return filename;
-  // User has clicked save, and no overwrite confirmation should occur.
-  // To get the latter, we need to change the name we return (hence the prefix):
-  return [@ UNLIKELYPREFIX stringByAppendingString:filename];
-}
-- (void)control_allowed_types:(const char *)p
-{
-  NSString *ext = [NSString stringWithUTF8String:p];
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_VERSION_11_0
-  if (@available(macOS 11.0, *)) {
-      UTType *type = [UTType typeWithFilenameExtension:ext]; // 11.0 + framework UniformTypeIdentifiers
-      [dialog setAllowedContentTypes:[NSArray arrayWithObject:type]]; // 11.0
-  }
-  else
-#endif
-  if (fl_mac_os_version >= 100900) {
-    [dialog performSelector:@selector(setAllowedFileTypes:)
-                 withObject:[NSArray arrayWithObject:ext]];
-  }
-}
-- (void)changedPopup:(id)sender
-// runs when the save panel popup menu changes output file type
-// correspondingly changes the extension of the output file name
-{
-  char *s = fl_strdup([[(NSPopUpButton*)sender titleOfSelectedItem] UTF8String]);
-  if (!s) return;
-  char *p = strchr(s, '(');
-  if (!p) p = s;
-  p = strchr(p, '.');
-  if (!p) {free(s); return;}
-  p++;
-  while (*p == ' ') p++;
-  if (!p || *p == '{') {free(s); return;}
-  char *q = p+1;
-  while (*q != ' ' && *q != ')' && *q != 0) q++;
-  *q = 0;
-  NSString *ns = [NSString stringWithFormat:@"%@.%@",
-                  [[dialog performSelector:@selector(nameFieldStringValue)] stringByDeletingPathExtension],
-                  [NSString stringWithUTF8String:p]];
-  [self control_allowed_types:p];
-  free(s);
-  [dialog performSelector:@selector(setNameFieldStringValue:) withObject:ns];
-}
-- (void)panel:(NSSavePanel*)p
-{
-  dialog = p;
-}
-- (void) option:(BOOL)o
-{
-  saveas_confirm = o;
-}
-@end
-
-
-@interface FLHiddenFilesAction : NSObject
-{
-@public
-  NSSavePanel *panel;
-  NSButton *button;
-}
-- (void)action;
-@end
-@implementation FLHiddenFilesAction
-- (void)action {
-  [panel setShowsHiddenFiles:[button intValue]]; // 10.6
-}
-@end
-
-
-static NSPopUpButton *createPopupAccessory(NSSavePanel *panel, const char *filter, const char *title, int rank)
-{
-  NSPopUpButton *popup = nil;
-  NSRect rectview = NSMakeRect(5, 5, 350, filter ? 60 : 30);
-  NSView *view = [[[NSView alloc] initWithFrame:rectview] autorelease];
-  NSRect rectbox = NSMakeRect(0, 3, 140, 20 );
-  // the "Show hidden files" button
-  NSRect hidden_files_rect = {{150, 0}, {80, 30}};
-  if (filter) hidden_files_rect.origin.y = 35;
-  NSButton *hidden_files = [[[NSButton alloc] initWithFrame:hidden_files_rect] autorelease];
-  [hidden_files setButtonType:
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_12
-      NSButtonTypeSwitch
-#else
-      NSSwitchButton
-#endif
-  ];
-  [hidden_files setTitle:[NSString stringWithUTF8String:Fl_File_Chooser::hidden_label]];
-  [hidden_files sizeToFit];
-  [hidden_files setIntValue:0];
-  [view addSubview:hidden_files];
-  static FLHiddenFilesAction *target = [[FLHiddenFilesAction alloc] init]; // never released
-  target->panel = panel;
-  target->button = hidden_files;
-  [hidden_files setAction:@selector(action)];
-  [hidden_files setTarget:target];
-  if (filter) {
-    NSBox *box = [[[NSBox alloc] initWithFrame:rectbox] autorelease];
-    NSRect rectpop = NSMakeRect(105, 0, 246, 30 );
-    popup = [[[NSPopUpButton alloc ] initWithFrame:rectpop pullsDown:NO] autorelease];
-    [view addSubview:box];
-    [view addSubview:popup];
-    NSString *nstitle = [[NSString alloc] initWithUTF8String:title];
-    [box setTitle:nstitle];
-    [box setTitlePosition:NSBelowTop];
-    [nstitle release];
-    NSFont *font = [NSFont systemFontOfSize:[NSFont systemFontSize]];
-    [box setTitleFont:font];
-    [box sizeToFit];
-    // horizontally move box to fit the locale-dependent width of its title
-    NSRect r=[box frame];
-    r.origin.x = rectpop.origin.x - r.size.width;
-    r.origin.y = rectpop.origin.y + (rectpop.size.height - r.size.height) / 2;
-    [box setFrame:r];
-    CFStringRef tab = CFSTR("\n");
-    CFStringRef tmp_cfs;
-    tmp_cfs = CFStringCreateWithCString(NULL, filter, kCFStringEncodingUTF8);
-    CFArrayRef array = CFStringCreateArrayBySeparatingStrings(NULL, tmp_cfs, tab);
-    CFRelease(tmp_cfs);
-    CFRelease(tab);
-    [popup addItemsWithTitles:(NSArray*)array];
-    NSMenuItem *item = [popup itemWithTitle:@""];
-    if (item) [popup removeItemWithTitle:@""];
-    CFRelease(array);
-    [popup selectItemAtIndex:rank];
-  }
-  [panel setAccessoryView:view];
-  return popup;
-}
-
-int Fl_Quartz_Native_File_Chooser_Driver::runmodal()
-{
-  NSString *dir = nil;
-  NSString *fname = nil;
-  NSString *preset = nil;
-  NSInteger retval;
-  if (_preset_file) {
-    preset = [[NSString alloc] initWithUTF8String:_preset_file];
-    if (strchr(_preset_file, '/') != NULL) {
-      dir = [[NSString alloc] initWithString:[preset stringByDeletingLastPathComponent]];
-    }
-    fname = [preset lastPathComponent];
-  }
-  if (_directory && !dir) dir = [[NSString alloc] initWithUTF8String:_directory];
-#if defined(__BLOCKS__)
-  {
-    bool usepath = false;
-    NSString *path = nil;
-    if (dir && fname && [_panel isKindOfClass:[NSOpenPanel class]]) {
-      // STR #3406: If both dir + fname specified, combine and pass to setDirectoryURL
-      path = [[NSString alloc] initWithFormat:@"%@/%@", dir, fname];  // dir+fname -> path
-      // See if full path to file exists
-      //    If dir exists but fname doesn't, avoid using setDirectoryURL,
-      //    otherwise NSSavePanel falls back to showing user's Documents dir.
-      //
-      if ( [[NSFileManager defaultManager] fileExistsAtPath:path] ) usepath = true;
-    }
-    if (usepath) {
-      // Set only if full path exists
-      [_panel setDirectoryURL:[NSURL fileURLWithPath:path]]; // 10.6
-    } else { // didn't setDirectoryURL to full path? Set dir + fname separately..
-      if (dir) [_panel setDirectoryURL:[NSURL fileURLWithPath:dir]];  // 10.6
-      if (fname) [_panel setNameFieldStringValue:fname]; // 10.6
-    }
-    [path release];
-    if ([NSApp mainWindow]) {
-      __block NSInteger complete = -1;
-      [_panel beginSheetModalForWindow:[NSApp mainWindow] completionHandler:^(NSInteger returnCode) {
-        complete = returnCode; // this block runs after OK or Cancel was triggered in file dialog
-      }]; // 10.6 this message returns immediately and begins the file dialog as a sheet
-      while (complete == -1) Fl::wait(100); // loop until end of file dialog
-      retval = complete;
-    } else {
-      retval = [_panel runModal];
-    }
-  }
-#else // !__BLOCKS__
-   // the deprecation warning runs only without blocks
-#pragma clang diagnostic push
-#pragma clang diagnostic ignored "-Wdeprecated-declarations"
-    retval = [_panel runModalForDirectory:dir file:fname]; // deprecated in 10.6
-#pragma clang diagnostic pop
-#endif // __BLOCKS__
-  [dir release];
-  [preset release];
-  return (retval == NSModalResponseOK ? 1 : 0);
-}
-
-// POST BROWSER
-//     Internal use only.
-//     Assumes '_opts' has been initialized.
-//
-//     Returns:
-//         0 - user picked a file
-//         1 - user cancelled
-//        -1 - failed; errmsg() has reason
-//
-int Fl_Quartz_Native_File_Chooser_Driver::post() {
-  // INITIALIZE BROWSER
-  if ( _filt_total == 0 ) {     // Make sure they match
-    _filt_value = 0;            // TBD: move to someplace more logical?
-  }
-  fl_open_display();
-  NSAutoreleasePool *localPool;
-  localPool = [[NSAutoreleasePool alloc] init];
-  switch (_btype) {
-    case Fl_Native_File_Chooser::BROWSE_FILE:
-    case Fl_Native_File_Chooser::BROWSE_MULTI_FILE:
-    case Fl_Native_File_Chooser::BROWSE_DIRECTORY:
-    case Fl_Native_File_Chooser::BROWSE_MULTI_DIRECTORY:
-      _panel =  [NSOpenPanel openPanel];
-      break;
-    case Fl_Native_File_Chooser::BROWSE_SAVE_DIRECTORY:
-    case Fl_Native_File_Chooser::BROWSE_SAVE_FILE:
-      _panel =  [NSSavePanel savePanel];
-      break;
-  }
-  BOOL is_open_panel = [_panel isKindOfClass:[NSOpenPanel class]];
-  if (_title) {
-    SEL title_or_message = (is_open_panel && fl_mac_os_version >= 101200) ?
-          @selector(setMessage:) : @selector(setTitle:);
-    [_panel performSelector:title_or_message withObject:[NSString stringWithUTF8String:_title]];
-  }
-  switch (_btype) {
-    case Fl_Native_File_Chooser::BROWSE_MULTI_FILE:
-      [(NSOpenPanel*)_panel setAllowsMultipleSelection:YES];
-      break;
-    case Fl_Native_File_Chooser::BROWSE_MULTI_DIRECTORY:
-      [(NSOpenPanel*)_panel setAllowsMultipleSelection:YES];
-      /* FALLTHROUGH */
-    case Fl_Native_File_Chooser::BROWSE_DIRECTORY:
-      [(NSOpenPanel*)_panel setCanChooseDirectories:YES];
-      break;
-    case Fl_Native_File_Chooser::BROWSE_SAVE_DIRECTORY:
-      [_panel setCanCreateDirectories:YES];
-      break;
-  }
-
-  // SHOW THE DIALOG
-  NSWindow *key = [NSApp keyWindow];
-  NSPopUpButton *popup = nil;
-  if ( is_open_panel ) {
-    if (_filt_total) {
-      char *t = prepareMacFilter(_filt_total, _filter, _filt_patt);
-      popup = createPopupAccessory(_panel, t, Fl_File_Chooser::show_label, 0);
-      delete[] t;
-      [[popup menu] addItem:[NSMenuItem separatorItem]];
-      [popup addItemWithTitle:[NSString stringWithUTF8String:Fl_File_Chooser::all_files_label]];
-      [popup setAction:@selector(validateVisibleColumns)];
-      [popup setTarget:(NSObject*)_panel];
-      FLopenDelegate *openDelegate = [[[FLopenDelegate alloc] init] autorelease];
-      [openDelegate setPopup:popup filter_pattern:_filt_patt];
-      [_panel setDelegate:openDelegate];
-    } else createPopupAccessory(_panel, NULL, Fl_File_Chooser::show_label, 0);
-  }
-  else {
-    FLsaveDelegate *saveDelegate = [[[FLsaveDelegate alloc] init] autorelease];
-    [_panel setAllowsOtherFileTypes:YES];
-    [_panel setDelegate:saveDelegate];
-    [saveDelegate option:(_options & Fl_Native_File_Chooser::SAVEAS_CONFIRM)];
-    if (_filt_total) {
-      if (_filt_value >= _filt_total) _filt_value = _filt_total - 1;
-      char *t = prepareMacFilter(_filt_total, _filter, _filt_patt);
-      popup = createPopupAccessory(_panel, t, [[_panel nameFieldLabel] UTF8String], _filt_value);
-      delete[] t;
-      if (_options & Fl_Native_File_Chooser::USE_FILTER_EXT) {
-        [popup setAction:@selector(changedPopup:)];
-        [popup setTarget:saveDelegate];
-        [saveDelegate panel:(NSSavePanel*)_panel];
-        if (fl_mac_os_version >= 100900) {
-          char *p = _filt_patt[_filt_value];
-          char *q = strchr(p, '.'); if(!q) q = p-1;
-          do q++; while (*q==' ' || *q=='{');
-          p = fl_strdup(q);
-          q = strchr(p, ','); if (q) *q = 0;
-          [saveDelegate control_allowed_types:p];
-          free(p);
-        }
-      }
-      [_panel setCanSelectHiddenExtension:YES];
-      [_panel setExtensionHidden:NO];
-    } else createPopupAccessory(_panel, NULL, Fl_File_Chooser::show_label, 0);
-  }
-  int retval = runmodal();
-  if (_filt_total) {
-    _filt_value = (int)[popup indexOfSelectedItem];
-  }
-  if ( retval == 1 ) {
-    if (is_open_panel) {
-      clear_pathnames();
-      NSArray *array = [(NSOpenPanel*)_panel URLs];
-      _tpathnames = (int)[array count];
-      _pathnames = new char*[_tpathnames];
-      for(int i = 0; i < _tpathnames; i++) {
-        _pathnames[i] = strnew([[(NSURL*)[array objectAtIndex:i] path] UTF8String]);
-      }
-    }
-    else get_saveas_basename();
-  }
-  [key makeKeyWindow];
-  [localPool release];
-  return (retval == 1 ? 0 : 1);
-}