The R Project SVN R

Rev

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

Rev 64106 Rev 68288
Line 300... Line 300...
300 
    char cwd[MAX_PATH];
 300 
    char cwd[MAX_PATH];
301 
    wchar_t wcod[MAX_PATH];
 301 
    wchar_t wcod[MAX_PATH];
302 
    HWND prev = GetFocus();
 302 
    HWND prev = GetFocus();
303 
 
 303 
 
304 
    if (!default_name) default_name = L"";
 304 
    if (!default_name) default_name = L"";
- 
 
 305 
    memset(wcsbuf, 0, sizeof(wcsbuf));
305 
    wcscpy(wcsbuf, default_name);
 306 
    wcscpy(wcsbuf, default_name);
306 
    GetCurrentDirectory(MAX_PATH, cwd);
 307 
    GetCurrentDirectory(MAX_PATH, cwd);
307 
    if (!strcmp(cod, "")) {
 308 
    if (!strcmp(cod, "")) {
308 
	if (!dir) GetCurrentDirectoryW(MAX_PATH, wcod); else wcscpy(wcod, dir);
 309 
	if (!dir) GetCurrentDirectoryW(MAX_PATH, wcod); else wcscpy(wcod, dir);
309 
    } else
 310 
    } else