The R Project SVN R

Rev

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

Rev 36901 Rev 37553
Line 139... Line 139...
139 
static void editorsaveas(editor c) {
 139 
static void editorsaveas(editor c) {
140 
    textbox t = getdata(c);
 140 
    textbox t = getdata(c);
141 
    EditorData p = getdata(t);
 141 
    EditorData p = getdata(t);
142 
    char *current_name = (p->file ? p->filename : "");
 142 
    char *current_name = (p->file ? p->filename : "");
143 
    char *name;
 143 
    char *name;
144 
    setuserfilter("R files (*.R)\0*.R\0S files (*.q)\0*.q\0All files (*.*)\0*.*\0\0");
 144 
    setuserfilter("R files (*.R)\0*.R\0S files (*.q, *.ssc, *.S)\0*.q;*.ssc;*.S\0All files (*.*)\0*.*\0\0");
145 
    name = askfilesave("Save script as", current_name);
 145 
    name = askfilesave("Save script as", current_name);
146 
    if (name == NULL)
 146 
    if (name == NULL)
147 
	return;
 147 
	return;
148 
    else {
 148 
    else {
149 
	editor_save_file(c, name);
 149 
	editor_save_file(c, name);
Line 321... Line 321...
321 
 
 321 
 
322 
static void editoropen(char *default_name)
 322 
static void editoropen(char *default_name)
323 
{
 323 
{
324 
    char *name;
 324 
    char *name;
325 
    int i; textbox t; EditorData p;
 325 
    int i; textbox t; EditorData p;
326 
    setuserfilter("R files (*.R)\0*.R\0S files (*.q)\0*.q\0All files (*.*)\0*.*\0\0");
 326 
    setuserfilter("R files (*.R)\0*.R\0S files (*.q, *.ssc, *.S)\0*.q;*.ssc;*.S\0All files (*.*)\0*.*\0\0");
327 
    name = askfilename("Open script", default_name); /* returns NULL if open dialog cancelled */
 327 
    name = askfilename("Open script", default_name); /* returns NULL if open dialog cancelled */
328 
    if (name) {
 328 
    if (name) {
329 
	/* check if file is already open in an editor. If so, close and open again */
 329 
	/* check if file is already open in an editor. If so, close and open again */
330 
	for (i=0; i<neditors; ++i) {
 330 
	for (i=0; i<neditors; ++i) {
331 
	    t = getdata(REditors[i]);
 331 
	    t = getdata(REditors[i]);