The R Project SVN – R – Diff – /trunk/src/gnuwin32/graphapp/dialogs.c

    WITHOUT ANY WARRANTY.
    See the file COPYLIB.TXT for details.
 */
-/* Copyright (C) 2004 	The R Foundation
+/* Copyright (C) 2004--2006 	The R Foundation
    Additions for R, Chris Jackson
    Find and replace dialog boxes and dialog handlers */
 #define ENABLE_NLS 1
+}
 char *askfilename(char *title, char *default_name)
+{
 	if (*askfilenames(title, default_name, 0, userfilter?userfilter:filter[0], 0,
+				          strbuf, BUFSIZE, NULL)) return strbuf;
+	else return NULL;
+}
+char *askfilenamewithdir(char *title, char *default_name, char *dir)
+{
+	if (*askfilenames(title, default_name, 0, userfilter?userfilter:filter[0], 0,
-				          strbuf, BUFSIZE)) return strbuf;
+				          strbuf, BUFSIZE, dir)) return strbuf;
 	else return NULL;
+}
 char *askfilenames(char *title, char *default_name, int multi,
-			       char *filters, int filterindex, char *strbuf, int bufsize)
+			       char *filters, int filterindex, char *strbuf, int bufsize,
+			       char *dir)
+{
 	int i;
 	OPENFILENAME ofn;
         char cwd[MAX_PATH]="";
 	if (! default_name)
 		default_name = "";
 	strcpy(strbuf, default_name);
         GetCurrentDirectory(MAX_PATH,cwd);
+        if (!strcmp(cod,"")) {
-        if (!strcmp(cod,"")) strcpy(cod,cwd);
+            if (!dir) strcpy(cod,cwd);
+            else strcpy(cod,dir);
+        }
 	ofn.lStructSize     = sizeof(OPENFILENAME);
 	ofn.hwndOwner       = current_window ?
 				current_window->handle : 0;
 	ofn.hInstance       = 0;
-    ofn.lpstrFilter     = filters;
+	ofn.lpstrFilter     = filters;
 	ofn.lpstrCustomFilter = NULL;
 	ofn.nMaxCustFilter  = 0;
 	ofn.nFilterIndex    = filterindex;
 	ofn.lpstrFile       = strbuf;
 	ofn.nMaxFile        = bufsize;

The R Project SVN R

(root)/trunk/src/gnuwin32/graphapp/dialogs.c @ 37726 – Rev 36938 → 37592