The R Project SVN R

Rev

Rev 84952 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 84952 Rev 88859
Line 282... Line 282...
282 
		   const char *filters, int filterindex,
 282 
		   const char *filters, int filterindex,
283 
		   char *strbuf, int bufsize,
 283 
		   char *strbuf, int bufsize,
284 
		   const char *dir)
 284 
		   const char *dir)
285 
{
 285 
{
286 
    int i, succeeded;
 286 
    int i, succeeded;
287 
    OPENFILENAME ofn;
 287 
    OPENFILENAME ofn = { 0 };
288 
    char *cwd;
 288 
    char *cwd;
289 
    HWND prev = GetFocus();
 289 
    HWND prev = GetFocus();
290 
 
 290 
 
291 
    if (!default_name) default_name = "";
 291 
    if (!default_name) default_name = "";
292 
    strcpy(strbuf, default_name);
 292 
    strcpy(strbuf, default_name);
Line 351... Line 351...
351 
		       int multi,
 351 
		       int multi,
352 
		       const wchar_t *filters, int filterindex,
 352 
		       const wchar_t *filters, int filterindex,
353 
		       const wchar_t *dir)
 353 
		       const wchar_t *dir)
354 
{
 354 
{
355 
    int i, succeeded;
 355 
    int i, succeeded;
356 
    OPENFILENAMEW ofn;
 356 
    OPENFILENAMEW ofn = { 0 };
357 
    char *cwd;
 357 
    char *cwd;
358 
    wchar_t *wcod;
 358 
    wchar_t *wcod;
359 
    HWND prev = GetFocus();
 359 
    HWND prev = GetFocus();
360 
 
 360 
 
361 
    if (!default_name) default_name = L"";
 361 
    if (!default_name) default_name = L"";
Line 439... Line 439...
439 
}
 439 
}
440 
 
 440 
 
441 
wchar_t *askfilesaveW(const char *title, const char *default_name)
441 
wchar_t *askfilesaveW(const char *title, const char *default_name)
442 
{
 442 
{
443 
    int i, succeeded;
 443 
    int i, succeeded;
444 
    OPENFILENAMEW ofn;
 444 
    OPENFILENAMEW ofn = { 0 };
445 
    wchar_t *cwd, *wdef_name, wtitle[1000];
 445 
    wchar_t *cwd, *wdef_name, wtitle[1000];
446 
 
 446 
 
447 
    wdef_name = mbstowcs_malloc(default_name ? default_name : "");
 447 
    wdef_name = mbstowcs_malloc(default_name ? default_name : "");
448 
    if (!wdef_name)
 448 
    if (!wdef_name)
449 
	return NULL;
 449 
	return NULL;
Line 491... Line 491...
491 
 
 491 
 
492 
char *askfilesavewithdir(const char *title, const char *default_name,
 492 
char *askfilesavewithdir(const char *title, const char *default_name,
493 
			 const char *dir)
 493 
			 const char *dir)
494 
{
 494 
{
495 
    int i, succeeded;
 495 
    int i, succeeded;
496 
    OPENFILENAME ofn;
 496 
    OPENFILENAME ofn = { 0 };
497 
    char *cwd, *defext = NULL;
 497 
    char *cwd, *defext = NULL;
498 
 
 498 
 
499 
    if (!default_name) default_name = "";
 499 
    if (!default_name) default_name = "";
500 
    else if(default_name[0] == '|') {
 500 
    else if(default_name[0] == '|') {
501 
	defext = (char *)default_name + 2;
 501 
	defext = (char *)default_name + 2;
Line 942... Line 942...
942 
			int wholeword, int down)
 942 
			int wholeword, int down)
943 
{
 943 
{
944 
    long start, end;
 944 
    long start, end;
945 
    CHARRANGE sel;
 945 
    CHARRANGE sel;
946 
    WPARAM w = 0;
 946 
    WPARAM w = 0;
947 
    FINDTEXTEXW ft;
 947 
    FINDTEXTEXW ft = { 0 };
948 
    sendmessage (hwnd, EM_EXGETSEL, 0, &sel) ;
 948 
    sendmessage (hwnd, EM_EXGETSEL, 0, &sel) ;
949 
    start = sel.cpMin;
 949 
    start = sel.cpMin;
950 
    end = sel.cpMax;
 950 
    end = sel.cpMax;
951 
 
 951 
 
952 
    /* RichEdit20W (see newrichtextarea) requires a Unicode string. */
 952 
    /* RichEdit20W (see newrichtextarea) requires a Unicode string. */