The R Project SVN R

Rev

Rev 46842 | Rev 59039 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 46842 Rev 50851
Line 178... Line 178...
178 
    EditorData p = getdata(t);
 178 
    EditorData p = getdata(t);
179 
    wchar_t *wname;
 179 
    wchar_t *wname;
180 
 
 180 
 
181 
    setuserfilterW(L"R files (*.R)\0*.R\0S files (*.q, *.ssc, *.S)\0*.q;*.ssc;*.S\0All files (*.*)\0*.*\0\0");
 181 
    setuserfilterW(L"R files (*.R)\0*.R\0S files (*.q, *.ssc, *.S)\0*.q;*.ssc;*.S\0All files (*.*)\0*.*\0\0");
182 
    wname = askfilesaveW(G_("Save script as"), "");
 182 
    wname = askfilesaveW(G_("Save script as"), "");
183 
    if (wname == NULL)
 183 
    if (wname) {
184 
	return;
 - 
 
185 
    else {
 - 
 
186 
	char name[4*MAX_PATH+1];
 184 
	char name[4*MAX_PATH+1];
187 
	const char *tname;
 185 
	const char *tname;
188 
	wcstoutf8(name, wname, MAX_PATH);
 186 
	wcstoutf8(name, wname, MAX_PATH);
189 
	tname = reEnc(name, CE_UTF8, CE_NATIVE, 3);
 187 
	tname = reEnc(name, CE_UTF8, CE_NATIVE, 3);
190 
	editor_save_file(c, name, CE_UTF8);
 188 
	editor_save_file(c, name, CE_UTF8);
191 
	p->file = 1;
 189 
	p->file = 1;
192 
	strncpy(p->filename, tname, MAX_PATH+1);
 190 
	strncpy(p->filename, tname, MAX_PATH+1);
193 
	gsetmodified(t, 0);
 191 
	gsetmodified(t, 0);
194 
	editor_set_title(c, tname);
 192 
	editor_set_title(c, tname);
195 
	show(c);
 - 
 
196 
    }
 193 
    }
- 
 
 194 
    show(c);
197 
}
 195 
}
198 
 
 196 
 
199 
static void menueditorsaveas(control m)
 197 
static void menueditorsaveas(control m)
200 
{
 198 
{
201 
    editor c = getdata(m);
 199 
    editor c = getdata(m);
202 
    editorsaveas(c);
 200 
    editorsaveas(c);
203 
    show(c);
 - 
 
204 
}
 201 
}
205 
 
 202 
 
206 
static void editorsave(editor c)
 203 
static void editorsave(editor c)
207 
{
 204 
{
208 
    textbox t = getdata(c);
 205 
    textbox t = getdata(c);
Line 384... Line 381...
384 
		break;
 381 
		break;
385 
	    }
 382 
	    }
386 
	}
 383 
	}
387 
	title = reEnc(name, CE_UTF8, CE_NATIVE, 3);
 384 
	title = reEnc(name, CE_UTF8, CE_NATIVE, 3);
388 
	Rgui_Edit(name, CE_UTF8, title, 0);
 385 
	Rgui_Edit(name, CE_UTF8, title, 0);
389 
    }
 386 
    } else show(RConsole);
390 
}
 387 
}
391 
 
 388 
 
392 
void menueditoropen(control m)
 389 
void menueditoropen(control m)
393 
{
 390 
{
394 
    editor c = getdata(m);
 391 
    editor c = getdata(m);