The R Project SVN R

Rev

Rev 88761 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88761 Rev 88858
Line 265... Line 265...
265 
    textbox t = getdata(c);
 265 
    textbox t = getdata(c);
266 
    EditorData p = getdata(t);
 266 
    EditorData p = getdata(t);
267 
    wchar_t *wname;
 267 
    wchar_t *wname;
268 
 
 268 
 
269 
    setuserfilterW(L"R files (*.R)\0*.R\0S files (*.q, *.ssc, *.S)\0*.q;*.ssc;*.S\0All files (*.*)\0*.*\0\0");
 269 
    setuserfilterW(L"R files (*.R)\0*.R\0S files (*.q, *.ssc, *.S)\0*.q;*.ssc;*.S\0All files (*.*)\0*.*\0\0");
270 
    wname = askfilesaveW(G_("Save script as"), "");
 270 
    wname = askfilesaveW(G_("Save script as"), p->file ? p->filename : "");
271 
    if (wname) {
 271 
    if (wname) {
272 
	char *name = wchar_to_utf8(wname);
 272 
	char *name = wchar_to_utf8(wname);
273 
	char *q = strchr(name, '.');
 273 
	char *q = strchr(name, '.');
274 
	if(!q) {
 274 
	if(!q) {
275 
	    char *tmp = (char *)malloc(strlen(name) + 2 + 1);
 275 
	    char *tmp = (char *)malloc(strlen(name) + 2 + 1);