The R Project SVN R

Rev

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

Rev 8707 Rev 15268
Line 296... Line 296...
296 
 
 296 
 
297 
	d->hit = value;
 297 
	d->hit = value;
298 
	hide(w);
 298 
	hide(w);
299 
}
 299 
}
300 
 
 300 
 
- 
 
 301 
#ifndef OLD
- 
 
 302 
extern void selectfolder(char *); /* from ../shext.c */
- 
 
 303 
 
- 
 
 304 
static void browse_button(control c)
- 
 
 305 
{
- 
 
 306 
    window w = parentwindow(c);
- 
 
 307 
    dialog_data *d = data(w);
- 
 
 308 
    char strbuf[MAX_PATH];
- 
 
 309
- 
 
 310 
    selectfolder(strbuf);
- 
 
 311 
    if(strlen(strbuf)) settext(d->text, strbuf);
- 
 
 312 
}
- 
 
 313 
#else
301 
static void browse_button(control c)
 314 
static void browse_button(control c)
302 
{
 315 
{
303 
    window w = parentwindow(c);
 316 
    window w = parentwindow(c);
304 
    dialog_data *d = data(w);
 317 
    dialog_data *d = data(w);
305 
 
 318 
 
Line 330... Line 343...
330 
    if(GetSaveFileName(&ofn) && strlen(strbuf)) {
 343 
    if(GetSaveFileName(&ofn) && strlen(strbuf)) {
331 
	 p = strrchr(strbuf,'\\'); if(p) *p ='\0';
 344 
	 p = strrchr(strbuf,'\\'); if(p) *p ='\0';
332 
	 settext(d->text, strbuf);
 345 
	 settext(d->text, strbuf);
333 
    }
 346 
    }
334 
}
 347 
}
- 
 
 348 
#endif
335 
 
 349 
 
336 
static void hit_key(window w, int key)
 350 
static void hit_key(window w, int key)
337 
{
 351 
{
338 
	button btn;
 352 
	button btn;
339 
	char *name = NULL;
 353 
	char *name = NULL;