The R Project SVN R

Rev

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

Rev 33901 Rev 34079
Line 277... Line 277...
277 
static void save(button b)
 277 
static void save(button b)
278 
{
 278 
{
279 
    char *file, buf[256], *p;
 279 
    char *file, buf[256], *p;
280 
    FILE *fp;
 280 
    FILE *fp;
281 
 
 281 
 
282 
    setuserfilter(G_("All files (*.*)\0*.*\0\0"));
 282 
    setuserfilter("All files (*.*)\0*.*\0\0");
283 
    strcpy(buf, getenv("R_USER"));
 283 
    strcpy(buf, getenv("R_USER"));
284 
    file = askfilesavewithdir(G_("Select directory for file 'Rconsole'"),
 284 
    file = askfilesavewithdir(G_("Select directory for file 'Rconsole'"),
285 
			      "Rconsole", buf);
 285 
			      "Rconsole", buf);
286 
    if(!file) return;
 286 
    if(!file) return;
287 
    strcpy(buf, file);
 287 
    strcpy(buf, file);