The R Project SVN – R – Diff – /branches/R-classInheritance/src/gnuwin32/console.c

     if (f != FixedFont) del(f);
     del(lpr);
     setcursor(cur);
+}
+FILE *R_wfopen(const wchar_t *filename, const wchar_t *mode);
 void consolesavefile(console c, int pager)
+{
     ConsoleData p = getdata(c);
-    char *fn;
+    wchar_t *fn;
     cursor cur;
     FILE *fp;
     int x0, y0, x1, y1, cl;
     wchar_t *s, buf[1024];
     setuserfilter("Text files (*.txt)\0*.txt\0All files (*.*)\0*.*\0\0");
     if(p->sel)
-	fn = askfilesave(G_("Save selection to"), "lastsave.txt");
+	fn = askfilesaveW(G_("Save selection to"), "lastsave.txt");
     else
-	fn = askfilesave(G_("Save console contents to"), "lastsave.txt");
+	fn = askfilesaveW(G_("Save console contents to"), "lastsave.txt");
     show(c);
     if (fn) {
-	fp = R_fopen(fn, "wt");
+	fp = R_wfopen(fn, L"wt");
 	if (!fp) return;
 	cur = currentcursor();
 	setcursor(WatchCursor);
 	/* Look for a selection */

The R Project SVN R