The R Project SVN – R – Diff – /branches/R-exp-R5/src/extra/graphapp/dialogs.c

    WITHOUT ANY WARRANTY.
    See the file COPYLIB.TXT for details.
 */
-/* Copyright (C) 2004--2008 	The R Foundation
+/* Copyright (C) 2004--2008	The R Foundation
    Additions for R, Chris Jackson
    Find and replace dialog boxes and dialog handlers */
 #define _WIN32_WINNT 0x0500
 static int CALLBACK
 InitBrowseCallbackProc( HWND hwnd, UINT uMsg, LPARAM lp, LPARAM lpData )
+{
     char szDir[MAX_PATH], status[MAX_PATH + 40];
     if (uMsg == BFFM_INITIALIZED) {
 	SendMessage(hwnd, BFFM_SETSELECTION, 1,
 		    (LPARAM)&((browserInfo*)lpData)->default_str);
     } else if (uMsg == BFFM_SELCHANGED) {
 	if (SHGetPathFromIDList((LPITEMIDLIST) lp ,szDir)) {
 	    snprintf(status, MAX_PATH+40, "%s\n %s",
 		     ((browserInfo*)lpData)->question, szDir);
 	    SetDlgItemText(hwnd, STATUSTEXT, status);
 	    SendMessage(hwnd, BFFM_ENABLEOK, 0, TRUE);
 	} else
 	    SendMessage(hwnd, BFFM_ENABLEOK, 0, FALSE);
 #define BUFSIZE _MAX_PATH
 static char strbuf[BUFSIZE];
 static const char *filter[] = {
-	"All Files (*.*)",	"*.*",
+    "All Files (*.*)",	"*.*",
-	"Text Files (*.TXT)",	"*.txt",
+    "Text Files (*.TXT)",	"*.txt",
-	"HTML Files (*.HTM)",	"*.htm",
+    "HTML Files (*.HTM)",	"*.htm",
-	"PNG Files (*.PNG)",	"*.png",
+    "PNG Files (*.PNG)",	"*.png",
-	"JPEG Files (*.JPG)",	"*.jpg",
+    "JPEG Files (*.JPG)",	"*.jpg",
-	"BMP Files (*.BMP)",	"*.bmp",
+    "BMP Files (*.BMP)",	"*.bmp",
-	""
+    ""
 };
 unsigned int TopmostDialogs = 0; /* May be MB_TOPMOST */
 static const char *userfilter;
-void setuserfilter(const char *uf) {
+void setuserfilter(const char *uf)
+{
-   userfilter=uf;
+    userfilter=uf;
+}
 static HWND hModelessDlg = NULL;
 int myMessageBox(HWND h, const char *text, const char *caption, UINT type)
 /*
  *  Error reporting dialog.
  */
 void apperror(const char *errstr)
+{
-	if (! errstr)
+    if (! errstr)
-		errstr = "Unspecified error";
+	errstr = "Unspecified error";
-	myMessageBox(0, errstr, "Graphics Library Error",
+    myMessageBox(0, errstr, "Graphics Library Error",
-		MB_TASKMODAL | MB_ICONSTOP | MB_OK | TopmostDialogs);
+		 MB_TASKMODAL | MB_ICONSTOP | MB_OK | TopmostDialogs);
-	exitapp();
+    exitapp();
+}
 void askok(const char *info)
+{
-	if (! info)
+    if (! info)
-		info = "";
+	info = "";
-	myMessageBox(0, info, "Information",
+    myMessageBox(0, info, "Information",
-		MB_TASKMODAL | MB_ICONINFORMATION | MB_OK | TopmostDialogs);
+		 MB_TASKMODAL | MB_ICONINFORMATION | MB_OK | TopmostDialogs);
+}
 int askokcancel(const char *question)
+{
-	int result;
+    int result;
-	if (! question)
+    if (! question)
-		question = "";
+	question = "";
-	result = myMessageBox(0, question, G_("Question"),
+    result = myMessageBox(0, question, G_("Question"),
-		MB_TASKMODAL | MB_ICONQUESTION | MB_OKCANCEL | TopmostDialogs);
+			  MB_TASKMODAL | MB_ICONQUESTION | MB_OKCANCEL | TopmostDialogs);
-	switch (result) {
+    switch (result) {
-		case IDOK: result = YES; break;
+    case IDOK: result = YES; break;
-		case IDCANCEL:
+    case IDCANCEL:
-		default: result = CANCEL; break;
+    default: result = CANCEL; break;
-	}
+    }
-	return result;
+    return result;
+}
 int askyesno(const char *question)
+{
-	int result;
+    int result;
-	if (! question)
+    if (! question)
-		question = "";
+	question = "";
-	result = myMessageBox(0, question, G_("Question"),
+    result = myMessageBox(0, question, G_("Question"),
-		MB_TASKMODAL | MB_ICONQUESTION | MB_YESNO | TopmostDialogs);
+			  MB_TASKMODAL | MB_ICONQUESTION | MB_YESNO | TopmostDialogs);
-	switch (result) {
+    switch (result) {
-		case IDYES: result = YES; break;
+    case IDYES: result = YES; break;
-		case IDNO:  result = NO; break;
+    case IDNO:  result = NO; break;
-		default: result = CANCEL; break;
+    default: result = CANCEL; break;
-	}
+    }
-	return result;
+    return result;
+}
 int askyesnocancel(const char *question)
+{
-	int result;
+    int result;
-	if (! question)
+    if (! question)
-		question = "";
+	question = "";
-	result = myMessageBox(0, question, G_("Question"),
+    result = myMessageBox(0, question, G_("Question"),
-		MB_TASKMODAL | MB_ICONQUESTION | MB_YESNOCANCEL | MB_SETFOREGROUND | TopmostDialogs);
+			  MB_TASKMODAL | MB_ICONQUESTION | MB_YESNOCANCEL | MB_SETFOREGROUND | TopmostDialogs);
-	switch (result) {
+    switch (result) {
-		case IDYES: result = YES; break;
+    case IDYES: result = YES; break;
-		case IDNO:  result = NO; break;
+    case IDNO:  result = NO; break;
-		case IDCANCEL:
+    case IDCANCEL:
-		default: result = CANCEL; break;
+    default: result = CANCEL; break;
-	}
+    }
-	return result;
+    return result;
+}
 static char cod[MAX_PATH]=""; /*current open directory*/
 void askchangedir()
     GetCurrentDirectory(MAX_PATH, cod);
+}
 char *askfilename(const char *title, const char *default_name)
+{
-	if (*askfilenames(title, default_name, 0, userfilter?userfilter:filter[0], 0,
+    if (*askfilenames(title, default_name, 0, userfilter?userfilter:filter[0], 0,
-				          strbuf, BUFSIZE, NULL)) return strbuf;
+		      strbuf, BUFSIZE, NULL)) return strbuf;
-	else return NULL;
+    else return NULL;
+}
 char *askfilenamewithdir(const char *title, const char *default_name, const char *dir)
+{
-	if (*askfilenames(title, default_name, 0, userfilter?userfilter:filter[0], 0,
+    if (*askfilenames(title, default_name, 0, userfilter?userfilter:filter[0], 0,
-				          strbuf, BUFSIZE, dir)) return strbuf;
+		      strbuf, BUFSIZE, dir)) return strbuf;
-	else return NULL;
+    else return NULL;
+}
 char *askfilenames(const char *title, const char *default_name, int multi,
 		   const char *filters, int filterindex,
 		   char *strbuf, int bufsize,
 		   const char *dir)
+{
-	int i;
+    int i;
-	OPENFILENAME ofn;
+    OPENFILENAME ofn;
-        char cwd[MAX_PATH] = "";
+    char cwd[MAX_PATH] = "";
-	if (!default_name) default_name = "";
+    if (!default_name) default_name = "";
-	strcpy(strbuf, default_name);
+    strcpy(strbuf, default_name);
-        GetCurrentDirectory(MAX_PATH, cwd);
+    GetCurrentDirectory(MAX_PATH, cwd);
-        if (!strcmp(cod, "")) {
+    if (!strcmp(cod, "")) {
-            if (!dir) strcpy(cod, cwd);
+	if (!dir) strcpy(cod, cwd);
-            else strcpy(cod, dir);
+	else strcpy(cod, dir);
-        }
+    }
-	ofn.lStructSize     = sizeof(OPENFILENAME);
+    ofn.lStructSize     = sizeof(OPENFILENAME);
-	ofn.hwndOwner       = current_window ? current_window->handle : 0;
+    ofn.hwndOwner       = current_window ? current_window->handle : 0;
-	ofn.hInstance       = 0;
+    ofn.hInstance       = 0;
-	ofn.lpstrFilter     = filters;
+    ofn.lpstrFilter     = filters;
-	ofn.lpstrCustomFilter = NULL;
+    ofn.lpstrCustomFilter = NULL;
-	ofn.nMaxCustFilter  = 0;
+    ofn.nMaxCustFilter  = 0;
-	ofn.nFilterIndex    = filterindex;
+    ofn.nFilterIndex    = filterindex;
-	ofn.lpstrFile       = strbuf;
+    ofn.lpstrFile       = strbuf;
-	ofn.nMaxFile        = bufsize;
+    ofn.nMaxFile        = bufsize;
-	ofn.lpstrFileTitle  = NULL;
+    ofn.lpstrFileTitle  = NULL;
-	ofn.nMaxFileTitle   = _MAX_FNAME + _MAX_EXT;
+    ofn.nMaxFileTitle   = _MAX_FNAME + _MAX_EXT;
-        ofn.lpstrInitialDir = cod;
+    ofn.lpstrInitialDir = cod;
-	ofn.lpstrTitle      = title;
+    ofn.lpstrTitle      = title;
-	ofn.Flags           = OFN_CREATEPROMPT | OFN_HIDEREADONLY | OFN_EXPLORER;
+    ofn.Flags           = OFN_CREATEPROMPT | OFN_HIDEREADONLY | OFN_EXPLORER;
-	if (multi) ofn.Flags |= OFN_ALLOWMULTISELECT;
+    if (multi) ofn.Flags |= OFN_ALLOWMULTISELECT;
-	ofn.nFileOffset     = 0;
+    ofn.nFileOffset     = 0;
-	ofn.nFileExtension  = 0;
+    ofn.nFileExtension  = 0;
-	ofn.lpstrDefExt     = "*";
+    ofn.lpstrDefExt     = "*";
-	ofn.lCustData       = 0L;
+    ofn.lCustData       = 0L;
-	ofn.lpfnHook        = NULL;
+    ofn.lpfnHook        = NULL;
-	ofn.lpTemplateName  = NULL;
+    ofn.lpTemplateName  = NULL;
-	if (GetOpenFileName(&ofn) == 0) {
+    if (GetOpenFileName(&ofn) == 0) {
-		GetCurrentDirectory(MAX_PATH, cod);
+	GetCurrentDirectory(MAX_PATH, cod);
-		SetCurrentDirectory(cwd);
+	SetCurrentDirectory(cwd);
-		strbuf[0] = 0;
+	strbuf[0] = 0;
-		strbuf[1] = 0;
+	strbuf[1] = 0;
-		return strbuf;
+	return strbuf;
-	} else {
+    } else {
-		GetCurrentDirectory(MAX_PATH, cod);
+	GetCurrentDirectory(MAX_PATH, cod);
-		SetCurrentDirectory(cwd);
+	SetCurrentDirectory(cwd);
-		for (i = 0; i <  10; i++) if (peekevent()) doevent();
+	for (i = 0; i <  10; i++) if (peekevent()) doevent();
-		return strbuf;
+	return strbuf;
-	}
+    }
+}
 int countFilenames(const char *list)
+{
-	const char *temp;
+    const char *temp;
-	int count;
+    int count;
-	count = 0;
+    count = 0;
-	for (temp = list; *temp; temp += strlen(temp)+1) count++;
+    for (temp = list; *temp; temp += strlen(temp)+1) count++;
-	return count;
+    return count;
+}
 char *askfilesave(const char *title, const char *default_name)
+{
     return askfilesavewithdir(title, default_name, NULL);
+}
 char *askfilesavewithdir(const char *title, const char *default_name, const char *dir)
+{
-	int i;
+    int i;
-	OPENFILENAME ofn;
+    OPENFILENAME ofn;
-        char *p, cwd[MAX_PATH], *defext = NULL;
+    char *p, cwd[MAX_PATH], *defext = NULL;
-	if (!default_name) default_name = "";
+    if (!default_name) default_name = "";
-	else if(default_name[0] == '|') {
+    else if(default_name[0] == '|') {
-	    defext = (char *)default_name + 2;
+	defext = (char *)default_name + 2;
-	    default_name = "";
+	default_name = "";
-	}
+    }
-	strcpy(strbuf, default_name);
+    strcpy(strbuf, default_name);
-	ofn.lStructSize     = sizeof(OPENFILENAME);
+    ofn.lStructSize     = sizeof(OPENFILENAME);
-	ofn.hwndOwner       = current_window ? current_window->handle : 0;
+    ofn.hwndOwner       = current_window ? current_window->handle : 0;
-	ofn.hInstance       = 0;
+    ofn.hInstance       = 0;
-        ofn.lpstrFilter     = userfilter?userfilter:filter[0];
+    ofn.lpstrFilter     = userfilter?userfilter:filter[0];
-	ofn.lpstrCustomFilter = NULL;
+    ofn.lpstrCustomFilter = NULL;
-	ofn.nMaxCustFilter  = 0;
+    ofn.nMaxCustFilter  = 0;
-	ofn.nFilterIndex    = 0;
+    ofn.nFilterIndex    = 0;
-	ofn.lpstrFile       = strbuf;
+    ofn.lpstrFile       = strbuf;
-	ofn.nMaxFile        = BUFSIZE;
+    ofn.nMaxFile        = BUFSIZE;
-	ofn.lpstrFileTitle  = NULL;
+    ofn.lpstrFileTitle  = NULL;
-	ofn.nMaxFileTitle   = _MAX_FNAME + _MAX_EXT;
+    ofn.nMaxFileTitle   = _MAX_FNAME + _MAX_EXT;
-	if(dir && strlen(dir) > 0) {
+    if(dir && strlen(dir) > 0) {
-	    strcpy(cwd, dir);
+	strcpy(cwd, dir);
-	    for(p = cwd; *p; p++) if(*p == '/') *p = '\\';
+	for(p = cwd; *p; p++) if(*p == '/') *p = '\\';
+	ofn.lpstrInitialDir = cwd;
+    } else {
+	if (GetCurrentDirectory(MAX_PATH, cwd))
 	    ofn.lpstrInitialDir = cwd;
-	} else {
+	else
-	    if (GetCurrentDirectory(MAX_PATH, cwd))
-		ofn.lpstrInitialDir = cwd;
+	    ofn.lpstrInitialDir = NULL;
-	    else
+    }
-		ofn.lpstrInitialDir = NULL;
-	}
-	ofn.lpstrTitle      = title;
+    ofn.lpstrTitle      = title;
-	ofn.Flags           = OFN_OVERWRITEPROMPT |
+    ofn.Flags           = OFN_OVERWRITEPROMPT |
-                              OFN_NOCHANGEDIR | OFN_HIDEREADONLY;
+	OFN_NOCHANGEDIR | OFN_HIDEREADONLY;
-	ofn.nFileOffset     = 0;
+    ofn.nFileOffset     = 0;
-	ofn.nFileExtension  = 0;
+    ofn.nFileExtension  = 0;
-	ofn.lpstrDefExt     = defext;
+    ofn.lpstrDefExt     = defext;
-	ofn.lCustData       = 0L;
+    ofn.lCustData       = 0L;
-	ofn.lpfnHook        = NULL;
+    ofn.lpfnHook        = NULL;
-	ofn.lpTemplateName  = NULL;
+    ofn.lpTemplateName  = NULL;
-	if (GetSaveFileName(&ofn) == 0)
+    if (GetSaveFileName(&ofn) == 0)
-	    return NULL;
+	return NULL;
-	else {
+    else {
-	    for (i = 0; i < 10; i++) if (peekevent()) doevent();
+	for (i = 0; i < 10; i++) if (peekevent()) doevent();
-	    return strbuf;
+	return strbuf;
-	}
+    }
+}
 /*
  *  Input a string using a dialog box.
  */
 /*
  *  Dialog information structure:
  */
-	#define NOT_CHOSEN_YET -2
+#define NOT_CHOSEN_YET -2
-	typedef struct dialog_data_class {
+typedef struct dialog_data_class {
-		int 	hit;
+    int	hit;
-		char *	result;
+    char *	result;
-		label	question;
+    label	question;
-		field	text, pass;
+    field	text, pass;
-		button	yes, no, cancel;
+    button	yes, no, cancel;
-	} dialog_data;
+} dialog_data;
-	#define data(w) ((dialog_data *) (getdata(w)))
+#define data(w) ((dialog_data *) (getdata(w)))
 /*
  *  Some strings to use:
  */
 /*	static char * OKAY_STRING	= "OK";
 	static char * CANCEL_STRING	= "Cancel";
 	static char * BROWSE_STRING	= "Browse"; */
-	static const char * QUESTION_TITLE	= "Question";
+static const char * QUESTION_TITLE	= "Question";
-	static const char * PASSWORD_TITLE	= "Password Entry";
+static const char * PASSWORD_TITLE	= "Password Entry";
 static void add_data(window w)
+{
-	dialog_data *d;
+    dialog_data *d;
-	d = create (dialog_data);
+    d = create (dialog_data);
-	if (! d)
+    if (! d)
-		return;
+	return;
-	d->hit = NOT_CHOSEN_YET;
+    d->hit = NOT_CHOSEN_YET;
-	setdata(w, d);
+    setdata(w, d);
+}
 static char * get_dialog_string(window w)
+{
-	dialog_data *d = data(w);
+    dialog_data *d = data(w);
-	if (d->hit < YES) /* cancelled */
+    if (d->hit < YES) /* cancelled */
-		return NULL;
+	return NULL;
-	del_string(d->result);
+    del_string(d->result);
-	if (d->text)	/* question dialog */
+    if (d->text)	/* question dialog */
-		d->result = new_string(GA_gettext(d->text));
+	d->result = new_string(GA_gettext(d->text));
-	return d->result;
+    return d->result;
+}
 static void hit_button(control c)
+{
-	window w = parentwindow(c);
+    window w = parentwindow(c);
-	dialog_data *d = data(w);
+    dialog_data *d = data(w);
-	int value = getvalue(c);
+    int value = getvalue(c);
-	d->hit = value;
+    d->hit = value;
-	hide(w);
+    hide(w);
+}
 static void hit_key(window w, int key)
+{
-	button btn;
+    button btn;
-	char *name = NULL;
+    char *name = NULL;
-	w = parentwindow(w);
+    w = parentwindow(w);
-	if (data(w) == NULL)
+    if (data(w) == NULL)
-		return;
+	return;
-	if ((btn = data(w)->yes) != NULL) {
+    if ((btn = data(w)->yes) != NULL) {
-		name = getname(btn);
+	name = getname(btn);
-		if ((key == '\n') || (tolower(name[0]) == tolower(key)))
+	if ((key == '\n') || (tolower(name[0]) == tolower(key)))
-		{
+	{
-			flashcontrol(btn);
+	    flashcontrol(btn);
-			activatecontrol(btn);
+	    activatecontrol(btn);
-			return;
+	    return;
-		}
+	}
+    }
-	if ((btn = data(w)->cancel) != NULL) {
+    if ((btn = data(w)->cancel) != NULL) {
-		name = getname(btn);
+	name = getname(btn);
-		if ((key == ESC) || (tolower(name[0]) == tolower(key)))
+	if ((key == ESC) || (tolower(name[0]) == tolower(key)))
-		{
+	{
-			flashcontrol(btn);
+	    flashcontrol(btn);
-			activatecontrol(btn);
+	    activatecontrol(btn);
-			return;
+	    return;
-		}
+	}
+    }
-	if ((btn = data(w)->no) != NULL) {
+    if ((btn = data(w)->no) != NULL) {
-		name = getname(btn);
+	name = getname(btn);
-		if ((key == ESC) || (tolower(name[0]) == tolower(key)))
+	if ((key == ESC) || (tolower(name[0]) == tolower(key)))
-		{
+	{
-			flashcontrol(btn);
+	    flashcontrol(btn);
-			activatecontrol(btn);
+	    activatecontrol(btn);
-			return;
+	    return;
-		}
+	}
+    }
+}
 /*
  *  Handle the events from a message dialog, hide the window afterwards.
  */
 static int handle_message_dialog(window w)
+{
-	window old;
+    window old;
-	dialog_data *d = data(w);
+    dialog_data *d = data(w);
-	old = currentdrawing();
+    old = currentdrawing();
-	d->hit = NOT_CHOSEN_YET;
+    d->hit = NOT_CHOSEN_YET;
-	show(w);
+    show(w);
-	while (d->hit == NOT_CHOSEN_YET) {
+    while (d->hit == NOT_CHOSEN_YET) {
-		if (!peekevent()) WaitMessage();
+	if (!peekevent()) WaitMessage();
-		doevent();
+	doevent();
-	}
+    }
-	hide(w);
+    hide(w);
-	if (old) drawto(old);
+    if (old) drawto(old);
-	return d->hit;
+    return d->hit;
+}
 static window init_askstr_dialog(const char *title, const char *question,
 				 const char *default_str)
+{
-	window win;
+    window win;
-	dialog_data *d;
+    dialog_data *d;
-	int tw, bw, h, middle;
+    int tw, bw, h, middle;
-	if (! question)
-		question= "";
-	if (! default_str)
-		default_str = "";
-	tw = strwidth(SystemFont, G_("Cancel")) * 8;
-	h = getheight(SystemFont);
-	if (tw < 150) tw = 150;
-	win = newwindow(title, rect(0,0,tw+30,h*9+12),
-			Titlebar | Centered | Modal);
-        setbackground(win, dialog_bg());
-	add_data(win);
-	d = data(win);
-	d->question = newlabel(question, rect(10,h,tw+4,h*2+2),
-			AlignLeft);
-	if (title == PASSWORD_TITLE)
-		d->text = newpassword(default_str, rect(10,h*4,tw+4,h*3/2));
-	else
-		d->text = newfield(default_str, rect(10,h*4,tw+4,h*3/2));
+    if (! question)
+	question= "";
+    if (! default_str)
+	default_str = "";
+    tw = strwidth(SystemFont, G_("Cancel")) * 8;
+    h = getheight(SystemFont);
+    if (tw < 150) tw = 150;
+    win = newwindow(title, rect(0,0,tw+30,h*9+12),
+		    Titlebar | Centered | Modal);
+    setbackground(win, dialog_bg());
+    add_data(win);
+    d = data(win);
+    d->question = newlabel(question, rect(10,h,tw+4,h*2+2),
+			   AlignLeft);
+    if (title == PASSWORD_TITLE)
+	d->text = newpassword(default_str, rect(10,h*4,tw+4,h*3/2));
+    else
+	d->text = newfield(default_str, rect(10,h*4,tw+4,h*3/2));
-	middle = (tw+30)/2;
+    middle = (tw+30)/2;
-	bw = strwidth(SystemFont, G_("Cancel")) * 3/2;
+    bw = strwidth(SystemFont, G_("Cancel")) * 3/2;
+    d->yes = newbutton(G_("OK"),
+		       rect(middle-bw-10, h*7, bw, h+10), hit_button);
+    setvalue(d->yes, YES);
+    d->cancel = newbutton(G_("Cancel"),
+			  rect(middle+10, h*7, bw, h+10), hit_button);
+    setvalue(d->cancel, CANCEL);
-	d->yes = newbutton(G_("OK"),
-			rect(middle-bw-10, h*7, bw, h+10), hit_button);
-	setvalue(d->yes, YES);
+    setkeydown(win, hit_key);
-	d->cancel = newbutton(G_("Cancel"),
-			rect(middle+10, h*7, bw, h+10), hit_button);
-	setvalue(d->cancel, CANCEL);
-	setkeydown(win, hit_key);
-	return win;
+    return win;
+}
 char *askstring(const char *question, const char *default_str)
+{
-	static window win = NULL;
+    static window win = NULL;
-	window prev = current_window;
+    window prev = current_window;
-	if (! win)
+    if (! win)
-		win = init_askstr_dialog(QUESTION_TITLE, question, default_str);
+	win = init_askstr_dialog(QUESTION_TITLE, question, default_str);
-	else {
+    else {
-		settext(data(win)->question, question);
+	settext(data(win)->question, question);
-		settext(data(win)->text, default_str);
+	settext(data(win)->text, default_str);
-	}
+    }
-	if (TopmostDialogs & MB_TOPMOST)
+    if (TopmostDialogs & MB_TOPMOST)
-	    BringToTop(win, 1);
+	BringToTop(win, 1);
-	handle_message_dialog(win);
+    handle_message_dialog(win);
-	current_window = prev;
+    current_window = prev;
-	return get_dialog_string(win);
+    return get_dialog_string(win);
+}
 char *askcdstring(const char *question, const char *default_str)
+{
     LPMALLOC g_pMalloc;
     BROWSEINFO bi;
     LPITEMIDLIST pidlBrowse;
     browserInfo info;
     OSVERSIONINFOEX osvi;
     strncpy(info.question, question, 40);
     strncpy(info.default_str, default_str, MAX_PATH);
     /* Get the shell's allocator. */
     if (!SUCCEEDED(SHGetMalloc(&g_pMalloc))) return NULL;
     GetVersionEx((OSVERSIONINFO *)&osvi);
     ZeroMemory(&bi, sizeof(bi));
     bi.hwndOwner = 0;
     if(osvi.dwMajorVersion >= 6) { /* future proof */
-    /* CSIDL_DESKTOP gets mapped to the User's desktop in Vista
+	/* CSIDL_DESKTOP gets mapped to the User's desktop in Vista
-       (a bug).  SHGetFolderLocation is Win2k or later */
+	   (a bug).  SHGetFolderLocation is Win2k or later */
-    if (!SUCCEEDED(SHGetFolderLocation(NULL, CSIDL_DRIVES, NULL, 0,
+	if (!SUCCEEDED(SHGetFolderLocation(NULL, CSIDL_DRIVES, NULL, 0,
-				       (LPITEMIDLIST *) &bi.pidlRoot)))
+					   (LPITEMIDLIST *) &bi.pidlRoot)))
-	return NULL;
+	    return NULL;
     }  /* else it is 0, which is CSIDL_DESKTOP */
     bi.pszDisplayName = strbuf;
     bi.lpszTitle = question;
     bi.ulFlags = BIF_RETURNONLYFSDIRS | BIF_USENEWUI;
     bi.lpfn = (BFFCALLBACK) InitBrowseCallbackProc;
     /* Browse for a folder and return its PIDL. */
     pidlBrowse = SHBrowseForFolder(&bi);
     if (pidlBrowse != NULL) {
 	SHGetPathFromIDList(pidlBrowse, strbuf);
-        g_pMalloc->lpVtbl->Free(g_pMalloc, pidlBrowse);
+	g_pMalloc->lpVtbl->Free(g_pMalloc, pidlBrowse);
-        if (strbuf[0])
+	if (strbuf[0])
-            return strbuf;
+	    return strbuf;
+    }
     return NULL;
+}
 char *askpassword(const char *question, const char *default_str)
+{
-	static window win = NULL;
+    static window win = NULL;
-	window prev = current_window;
+    window prev = current_window;
-	if (! win)
+    if (! win)
-		win = init_askstr_dialog(PASSWORD_TITLE, question, default_str);
+	win = init_askstr_dialog(PASSWORD_TITLE, question, default_str);
-	else {
+    else {
-		settext(data(win)->question, question);
+	settext(data(win)->question, question);
-		settext(data(win)->text, default_str);
+	settext(data(win)->text, default_str);
-	}
+    }
-	if (TopmostDialogs & MB_TOPMOST)
+    if (TopmostDialogs & MB_TOPMOST)
-	    BringToTop(win, 1);
+	BringToTop(win, 1);
-	handle_message_dialog(win);
+    handle_message_dialog(win);
-	current_window = prev;
+    current_window = prev;
-	return get_dialog_string(win);
+    return get_dialog_string(win);
+}
 char *askUserPass(const char *title)
+{
     static window win = NULL;
 	tw = strwidth(SystemFont, G_("Cancel")) * 8;
 	h = getheight(SystemFont);
 	if (tw < 150) tw = 150;
 	win = newwindow(title, rect(0, 0, tw+30, h*9+12),
 			Titlebar | Centered | Modal);
-        setbackground(win, dialog_bg());
+	setbackground(win, dialog_bg());
 	add_data(win);
 	d = data(win);
 	d->question = newlabel(G_("User"), rect(10, h, tw+4, h*2+2), AlignLeft);
 	bw = strwidth(SystemFont, G_("Password"));
 	d->text = newfield("", rect(20+bw, h, tw-6-bw, h*3/2));
 HWND get_modeless()
+{
     return hModelessDlg;
+}
-void finddialog(textbox t){
+void finddialog(textbox t)
+{
     static FINDREPLACE fr;
     static char szFindWhat[80];
     fr.lStructSize = sizeof(fr);
     fr.hwndOwner = t->handle;
     fr.lpTemplateName   = NULL ;
     hModelessDlg = FindText(&fr);
+}
-void replacedialog(textbox t){
+void replacedialog(textbox t)
+{
     static FINDREPLACE fr;
     static char szFindWhat[80];
     static char szReplaceWith[80];
     fr.lStructSize = sizeof(fr);
+    }
     else if (pfr->Flags & FR_DIALOGTERM)
 	hModelessDlg = NULL;
+}

The R Project SVN R

(root)/branches/R-exp-R5/src/extra/graphapp/dialogs.c @ 77458 – Rev 44980 → 45017