The R Project SVN – R – Diff – /trunk/src/gnuwin32/graphapp/dialogs.c


/*
 * GraphApp - Cross-Platform Graphics Programming Library.
 *
 * File: dialogs.c -- standard file dialogs and a few others.
 * Platform: Windows  Version: 2.42  Date: 1998/07/07
 *
 * Version: 1.00  Changes: Original version by Lachlan Patrick.
 * Version: 1.50  Changes: Uses new rectangles, callbacks.
 * Version: 2.20  Changes: Handle null strings correctly now.
 * Version: 2.40  Changes: Now uses YES, NO, CANCEL symbols.
 * Version: 2.42  Changes: Askstring fixed by Laurent Piguet.
 */
 
/* Copyright (C) 1993-1998 Lachlan Patrick
 
   This file is part of GraphApp, a cross-platform C graphics library.
 
   GraphApp is free software; you can redistribute it and/or modify it
   under the terms of the GNU Library General Public License.
   GraphApp is distributed in the hope that it will be useful, but
   WITHOUT ANY WARRANTY.
 
   See the file COPYLIB.TXT for details.
*/
 
/* Copyright (C) 2004 	The R Foundation
 
   Additions for R, Chris Jackson
   Find and replace dialog boxes and dialog handlers */
 
#define ENABLE_NLS 1
#include "../win-nls.h"
#include "internal.h"
#include "ga.h"
#include "../shext.h"		/* for selectfolder */
 
#define BUFSIZE _MAX_PATH
static char strbuf[BUFSIZE];
 
static char *filter[] = {
	"All Files (*.*)",	"*.*",
	"Text Files (*.TXT)",	"*.txt",
	"HTML Files (*.HTM)",	"*.htm",
	"PNG Files (*.PNG)",	"*.png",
	"JPEG Files (*.JPG)",	"*.jpg",
	"BMP Files (*.BMP)",	"*.bmp",
	""
};
 
unsigned int TopmostDialogs = 0; /* May be MB_TOPMOST */
 
static char *userfilter;
void setuserfilter(char *uf) {
   userfilter=uf;
}
 
static HWND hModelessDlg = NULL;
 
/*
 *  Error reporting dialog.
 */
void apperror(char *errstr)
{
	if (! errstr)
		errstr = "Unspecified error";
	MessageBox(0, errstr, "Graphics Library Error",
		MB_TASKMODAL | MB_ICONSTOP | MB_OK | TopmostDialogs);
	exitapp();
}
 
void askok(char *info)
{
	if (! info)
		info = "";
	MessageBox(0, info, "Information",
		MB_TASKMODAL | MB_ICONINFORMATION | MB_OK | TopmostDialogs);
}
 
int askokcancel(char *question)
{
	int result;
 
	if (! question)
		question = "";
	result = MessageBox(0, question, "Question",
		MB_TASKMODAL | MB_ICONQUESTION | MB_OKCANCEL | TopmostDialogs);
 
	switch (result) {
		case IDOK: result = YES; break;
		case IDCANCEL:
		default: result = CANCEL; break;
	}
	return result;
}
 
int askyesno(char *question)
{
	int result;
 
	if (! question)
		question = "";
	result = MessageBox(0, question, G_("Question"),
		MB_TASKMODAL | MB_ICONQUESTION | MB_YESNO | TopmostDialogs);
 
	switch (result) {
		case IDYES: result = YES; break;
		case IDNO:  result = NO; break;
		default: result = CANCEL; break;
	}
	return result;
}
 
int askyesnocancel(char *question)
{
	int result;
 
	if (! question)
		question = "";
	result = MessageBox(0, question, G_("Question"),
		MB_TASKMODAL | MB_ICONQUESTION | MB_YESNOCANCEL | MB_SETFOREGROUND | TopmostDialogs);
 
	switch (result) {
		case IDYES: result = YES; break;
		case IDNO:  result = NO; break;
		case IDCANCEL:
		default: result = CANCEL; break;
	}
	return result;
}
 
static char cod[MAX_PATH]=""; /*current open directory*/
 
void askchangedir()
{
    char *s, msg[MAX_PATH + 40];
 
/* if cod has never been used, set it to current directory */
    if (!cod[0]) GetCurrentDirectory(MAX_PATH, cod);
    s = askcdstring(G_(" Change working directory to:"), cod);
    if (s && (SetCurrentDirectory(s) == FALSE)) {
	snprintf(msg, MAX_PATH + 40,
		 G_("Unable to set '%s' as working directory"), s);
	askok(msg);
    }
    /* in every case reset cod (to new directory if all went ok
       or to old since user may have edited it */
    GetCurrentDirectory(MAX_PATH, cod);
}
 
char *askfilename(char *title, char *default_name)
{
	if (*askfilenames(title, default_name, 0, userfilter?userfilter:filter[0], 0,
				          strbuf, BUFSIZE)) return strbuf;
	else return NULL;
}
 
char *askfilenames(char *title, char *default_name, int multi,
			       char *filters, int filterindex, char *strbuf, int bufsize)
{
	int i;
	OPENFILENAME ofn;
        char cwd[MAX_PATH]="";
	if (! default_name)
		default_name = "";
	strcpy(strbuf, default_name);
        GetCurrentDirectory(MAX_PATH,cwd);
        if (!strcmp(cod,"")) strcpy(cod,cwd);
 
	ofn.lStructSize     = sizeof(OPENFILENAME);
	ofn.hwndOwner       = current_window ?
				current_window->handle : 0;
	ofn.hInstance       = 0;
    ofn.lpstrFilter     = filters;
	ofn.lpstrCustomFilter = NULL;
	ofn.nMaxCustFilter  = 0;
	ofn.nFilterIndex    = filterindex;
	ofn.lpstrFile       = strbuf;
	ofn.nMaxFile        = bufsize;
	ofn.lpstrFileTitle  = NULL;
	ofn.nMaxFileTitle   = _MAX_FNAME + _MAX_EXT;
        ofn.lpstrInitialDir = cod;
	ofn.lpstrTitle      = title;
	ofn.Flags           = OFN_CREATEPROMPT | OFN_HIDEREADONLY | OFN_EXPLORER;
	if (multi) ofn.Flags |= OFN_ALLOWMULTISELECT;
	ofn.nFileOffset     = 0;
	ofn.nFileExtension  = 0;
	ofn.lpstrDefExt     = "*";
	ofn.lCustData       = 0L;
	ofn.lpfnHook        = NULL;
	ofn.lpTemplateName  = NULL;
 
	if (GetOpenFileName(&ofn) == 0) {
		GetCurrentDirectory(MAX_PATH,cod);
		SetCurrentDirectory(cwd);
		strbuf[0] = 0;
		strbuf[1] = 0;
		return strbuf;
	} else {
		GetCurrentDirectory(MAX_PATH,cod);
		SetCurrentDirectory(cwd);
		for (i=0; i<10; i++)
			if (peekevent()) doevent();
		return strbuf;
	}
}
 
int countFilenames(char *list)
{
	char *temp;
	int count;
	count = 0;
	for (temp = list; *temp; temp += strlen(temp)+1) count++;
	return count;
}
 
char *askfilesave(char *title, char *default_name)
{
    return askfilesavewithdir(title, default_name, NULL);
}
 
char *askfilesavewithdir(char *title, char *default_name, char *dir)
{
	int i;
	OPENFILENAME ofn;
        char cwd[MAX_PATH];
 
	if (! default_name)
		default_name = "";
	strcpy(strbuf, default_name);
 
	ofn.lStructSize     = sizeof(OPENFILENAME);
	ofn.hwndOwner       = current_window ?
				current_window->handle : 0;
	ofn.hInstance       = 0;
        ofn.lpstrFilter     = userfilter?userfilter:filter[0];
	ofn.lpstrCustomFilter = NULL;
	ofn.nMaxCustFilter  = 0;
	ofn.nFilterIndex    = 0;
	ofn.lpstrFile       = strbuf;
	ofn.nMaxFile        = BUFSIZE;
	ofn.lpstrFileTitle  = NULL;
	ofn.nMaxFileTitle   = _MAX_FNAME + _MAX_EXT;
	if(dir && strlen(dir) > 0)
	    ofn.lpstrInitialDir = dir;
	else {
	    if (GetCurrentDirectory(MAX_PATH,cwd))
		ofn.lpstrInitialDir = cwd;
	    else
		ofn.lpstrInitialDir = NULL;
	}
	ofn.lpstrTitle      = title;
	ofn.Flags           = OFN_OVERWRITEPROMPT |
                              OFN_NOCHANGEDIR | OFN_HIDEREADONLY;
	ofn.nFileOffset     = 0;
	ofn.nFileExtension  = 0;
	ofn.lpstrDefExt     = "*";
	ofn.lCustData       = 0L;
	ofn.lpfnHook        = NULL;
	ofn.lpTemplateName  = NULL;
 
	if (GetSaveFileName(&ofn) == 0)
		return NULL;
	else {
		for (i=0; i<10; i++)
			if (peekevent()) doevent();
		return strbuf;
	}
}
 
/*
 *  Input a string using a dialog box.
 */
 
/*
 *  Dialog information structure:
 */
	#define NOT_CHOSEN_YET -2
 
	typedef struct dialog_data_class {
		int 	hit;
		char *	result;
		label	question;
		field	text, pass;
		button	yes, no, cancel;
	} dialog_data;
 
	#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 char * QUESTION_TITLE	= "Question";
	static char * PASSWORD_TITLE	= "Password Entry";
	static char * FINDDIR_TITLE	= "Change directory";
 
static void add_data(window w)
{
	dialog_data *d;
 
	d = create (dialog_data);
	if (! d)
		return;
	d->hit = NOT_CHOSEN_YET;
 
	setdata(w, d);
}
 
static char * get_dialog_string(window w)
{
	dialog_data *d = data(w);
 
	if (d->hit < YES) /* cancelled */
		return NULL;
	del_string(d->result);
	if (d->text)	/* question dialog */
		d->result = new_string(gettext(d->text));
 
	return d->result;
}
 
static void hit_button(control c)
{
	window w = parentwindow(c);
	dialog_data *d = data(w);
	int value = getvalue(c);
 
	d->hit = value;
	hide(w);
}
 
#ifndef OLD
 
static void browse_button(control c)
{
    window w = parentwindow(c);
    dialog_data *d = data(w);
    char strbuf[MAX_PATH];
    strcpy(strbuf, gettext(d->text));
    selectfolder(strbuf);
    if(strlen(strbuf)) settext(d->text, strbuf);
}
#else
static void browse_button(control c)
{
    window w = parentwindow(c);
    dialog_data *d = data(w);
 
    OPENFILENAME ofn;
    char strbuf[_MAX_PATH] = "anything", *p;
 
    ofn.lStructSize     = sizeof(OPENFILENAME);
    ofn.hwndOwner       = 0;
    ofn.hInstance       = 0;
    ofn.lpstrFilter     = "All files (*.*)\0*.*\0\0";
    ofn.lpstrCustomFilter = NULL;
    ofn.nMaxCustFilter  = 0;
    ofn.nFilterIndex    = 0;
    ofn.lpstrFile       = strbuf;
    ofn.nMaxFile        = _MAX_PATH;
    ofn.lpstrFileTitle  = NULL;
    ofn.nMaxFileTitle   = _MAX_FNAME + _MAX_EXT;
    ofn.lpstrInitialDir = gettext(d->text);
    ofn.lpstrTitle      = G_("Select working directory");
    ofn.Flags           = OFN_HIDEREADONLY;
    ofn.nFileOffset     = 0;
    ofn.nFileExtension  = 0;
    ofn.lpstrDefExt     = "";
    ofn.lCustData       = 0L;
    ofn.lpfnHook        = NULL;
    ofn.lpTemplateName  = NULL;
 
    if(GetSaveFileName(&ofn) && strlen(strbuf)) {
	 p = strrchr(strbuf,'\\'); if(p) *p ='\0';
	 settext(d->text, strbuf);
    }
}
#endif
 
static void hit_key(window w, int key)
{
	button btn;
	char *name = NULL;
 
	w = parentwindow(w);
 
	if (data(w) == NULL)
		return;
 
	if ((btn = data(w)->yes) != NULL) {
		name = getname(btn);
		if ((key == '\n') || (tolower(name[0]) == tolower(key)))
		{
			flashcontrol(btn);
			activatecontrol(btn);
			return;
		}
	}
 
	if ((btn = data(w)->cancel) != NULL) {
		name = getname(btn);
		if ((key == ESC) || (tolower(name[0]) == tolower(key)))
		{
			flashcontrol(btn);
			activatecontrol(btn);
			return;
		}
	}
 
	if ((btn = data(w)->no) != NULL) {
		name = getname(btn);
		if ((key == ESC) || (tolower(name[0]) == tolower(key)))
		{
			flashcontrol(btn);
			activatecontrol(btn);
			return;
		}
	}
 
}
 
/*
 *  Handle the events from a message dialog, hide the window afterwards.
 */
static int handle_message_dialog(window w)
{
	window old;
	dialog_data *d = data(w);
 
	old = currentdrawing();
	d->hit = NOT_CHOSEN_YET;
 
	show(w);
	while (d->hit == NOT_CHOSEN_YET)
		doevent();
	hide(w);
 
	if (old) drawto(old);
 
	return d->hit;
}
 
static window init_askstr_dialog(char *title, char *question,
				 char *default_str)
{
	window win;
	dialog_data *d;
	int tw, bw, h, middle;
 
	if (! question)
		question= "";
	if (! default_str)
		default_str = "";
 
	tw = strwidth(SystemFont, CANCEL_STRING) * 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 == FINDDIR_TITLE) {
	    bw = strwidth(SystemFont, BROWSE_STRING) * 3/2;
	    d->text = newfield(default_str, rect(10,h*4,tw+4-bw,h*3/2));
	    newbutton(BROWSE_STRING, rect(20+tw-bw, h*4-2, bw, h+10),
		      browse_button);
	}
	else 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;
	bw = strwidth(SystemFont, CANCEL_STRING) * 3/2;
 
	d->yes = newbutton(OKAY_STRING,
			rect(middle-bw-10, h*7, bw, h+10), hit_button);
	setvalue(d->yes, YES);
 
	d->cancel = newbutton(CANCEL_STRING,
			rect(middle+10, h*7, bw, h+10), hit_button);
	setvalue(d->cancel, CANCEL);
 
	setkeydown(win, hit_key);
 
	return win;
}
 
char *askstring(char *question, char *default_str)
{
	static window win = NULL;
	window prev = current_window;
 
	if (! win)
		win = init_askstr_dialog(QUESTION_TITLE, question, default_str);
	else {
		settext(data(win)->question, question);
		settext(data(win)->text, default_str);
	}
	if (TopmostDialogs & MB_TOPMOST)
	    BringToTop(win, 1);
	handle_message_dialog(win);
	current_window = prev;
 
	return get_dialog_string(win);
}
 
char *askcdstring(char *question, char *default_str)
{
	static window win = NULL;
	window prev = current_window;
 
	if (! win)
		win = init_askstr_dialog(FINDDIR_TITLE, question, default_str);
	else {
		settext(data(win)->question, question);
		settext(data(win)->text, default_str);
	}
	if (TopmostDialogs & MB_TOPMOST)
	    BringToTop(win, 1);
	handle_message_dialog(win);
	current_window = prev;
 
	return get_dialog_string(win);
}
 
char *askpassword(char *question, char *default_str)
{
	static window win = NULL;
	window prev = current_window;
 
	if (! win)
		win = init_askstr_dialog(PASSWORD_TITLE, question, default_str);
	else {
		settext(data(win)->question, question);
		settext(data(win)->text, default_str);
	}
	if (TopmostDialogs & MB_TOPMOST)
	    BringToTop(win, 1);
	handle_message_dialog(win);
	current_window = prev;
 
	return get_dialog_string(win);
}
 
char *askUserPass(char *title)
{
    static window win = NULL;
    dialog_data *d;
    window prev = current_window;
 
    if (! win) {
	int tw, bw, h, middle;
 
	tw = strwidth(SystemFont, CANCEL_STRING) * 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(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));
	newlabel(_("Password"), rect(10, h*4, tw+4, h*2+2), AlignLeft);
	d->pass = newpassword("", rect(20+bw, h*4, tw-6-bw, h*3/2));
	middle = (tw+30)/2;
	bw = strwidth(SystemFont, CANCEL_STRING) * 3/2;
 
	d->yes = newbutton(OKAY_STRING,
			rect(middle-bw-10, h*7, bw, h+10), hit_button);
	setvalue(d->yes, YES);
 
	d->cancel = newbutton(CANCEL_STRING,
			rect(middle+10, h*7, bw, h+10), hit_button);
	setvalue(d->cancel, CANCEL);
 
	setkeydown(win, hit_key);
    } else {
	d = data(win);
	settext(d->text, "");
	settext(d->pass, "");
    }
    if (TopmostDialogs & MB_TOPMOST)
	BringToTop(win, 1);
    handle_message_dialog(win);
    current_window = prev;
    {
	char *user, *pass;
	static char buf[1000];
	if (d->hit < YES) /* cancelled */ return "";
	if (d->text) user = new_string(gettext(d->text));
	else return "";
	if (d->pass) pass = new_string(gettext(d->pass));
	else return "";
	snprintf(buf, 1000, "%s:%s", user, pass);
	return buf;
    }
    return ""; /* -Wall */
}
 
int modeless_active()
{
    if (hModelessDlg)
	return 1;
    return 0;
}
 
PROTECTED
HWND get_modeless()
{
    return hModelessDlg;
}
 
void finddialog(textbox t){
    static FINDREPLACE fr;
    static char szFindWhat[80];
 
    fr.lStructSize = sizeof(fr);
    fr.hwndOwner = t->handle;
    fr.lpstrFindWhat = szFindWhat;
    fr.wFindWhatLen = 80;
    fr.Flags = FR_DOWN;
    fr.lCustData        = 0 ;
    fr.lpfnHook         = NULL ;
    fr.lpTemplateName   = NULL ;
 
    hModelessDlg = FindText(&fr);
}
 
void replacedialog(textbox t){
    static FINDREPLACE fr;
    static char szFindWhat[80];
    static char szReplaceWith[80];
 
    fr.lStructSize = sizeof(fr);
    fr.hwndOwner = t->handle;
    fr.lpstrFindWhat = szFindWhat;
    fr.lpstrReplaceWith = szReplaceWith;
    fr.wFindWhatLen = 80;
    fr.wReplaceWithLen = 80;
    fr.Flags = FR_DOWN;
    fr.lCustData        = 0 ;
    fr.lpfnHook         = NULL ;
    fr.lpTemplateName   = NULL ;
 
    hModelessDlg = ReplaceText(&fr);
}
 
 
/* Find and select a string in a rich edit control */
 
int richeditfind(HWND hwnd, char *what, int matchcase, int wholeword, int down)
{
    long start, end;
    CHARRANGE sel;
    WPARAM w = 0;
    FINDTEXTEX ft;
    sendmessage (hwnd, EM_EXGETSEL, 0, &sel) ;
    start = sel.cpMin;
    end = sel.cpMax;
    ft.lpstrText = what;
    ft.chrgText.cpMin = start;
    ft.chrgText.cpMax = end;
    if (down) {
	w = w | FR_DOWN;
	ft.chrg.cpMin = end;
	ft.chrg.cpMax = -1;
    }
    else {
	ft.chrg.cpMin = start;
	ft.chrg.cpMax = 0;
    }
    if (matchcase) w = w | FR_MATCHCASE;
    if (wholeword) w = w | FR_WHOLEWORD;
    if (sendmessage(hwnd, EM_FINDTEXTEX, w, &ft) == -1)
	return 0;
    else {
	sendmessage (hwnd, EM_EXSETSEL, 0, &(ft.chrgText));
	sendmessage (hwnd, EM_SCROLLCARET, 0, 0) ;
    }
    return 1;
}
 
int richeditreplace(HWND hwnd, char *what, char *replacewith, int matchcase, int wholeword, int down)
{
    /* If current selection is the find string, replace it and find next */
    long start, end;
    CHARRANGE sel;
    char *buf;
    textbox t = find_by_handle(hwnd);
    if (t) {
	sendmessage (hwnd, EM_EXGETSEL, 0, &sel) ;
	start = sel.cpMin;
	end = sel.cpMax;
	if (start < end) {
	    buf = (char *) malloc(end - start + 1);
	    sendmessage(hwnd, EM_GETSELTEXT, 0, buf);
	    if (!strcmp(buf, what)) {
		checklimittext(t, strlen(replacewith) - strlen(what) + 2);
		sendmessage (hwnd, EM_REPLACESEL, 1, replacewith);
	    }
	    free(buf);
	}
	/* else just find next */
	if (richeditfind(hwnd, what, matchcase, wholeword, down))
	    return 1;
    }
    return 0;
}
 
PROTECTED
void handle_findreplace(HWND hwnd, LPFINDREPLACE pfr)
{
    CHARRANGE sel;
    int matchcase=0, wholeword=0, down=0;
    char buf[100];
    if (pfr->Flags & FR_MATCHCASE) matchcase = 1;
    if (pfr->Flags & FR_WHOLEWORD) wholeword = 1;
    if (pfr->Flags & FR_DOWN) down = 1;
 
    if (pfr->Flags & FR_FINDNEXT) {
	if (!richeditfind(hwnd, pfr->lpstrFindWhat, matchcase, wholeword, down)) {
	    snprintf(buf, 100, G_("\"%s\" not found"), pfr->lpstrFindWhat);
	    askok(buf);
	}
    }
    else if (pfr->Flags & FR_REPLACE) {
	if (!richeditreplace(hwnd, pfr->lpstrFindWhat, pfr->lpstrReplaceWith, matchcase, wholeword, down)) {
	    snprintf(buf, 100, G_("\"%s\" not found"), pfr->lpstrFindWhat);
	    askok(buf);
	}
    }
    else if (pfr->Flags & FR_REPLACEALL) {
	/* replace all in the whole buffer then return to original selection state */
	sendmessage (hwnd, EM_EXGETSEL, 0, &sel) ;
	sendmessage (hwnd, EM_SETSEL, 0, 0) ;
	while ( richeditreplace(hwnd, pfr->lpstrFindWhat, pfr->lpstrReplaceWith, matchcase, wholeword, down) ) ;
	sendmessage (hwnd, EM_EXSETSEL, 0, &sel) ;
    }
 
    else if (pfr->Flags & FR_DIALOGTERM)
	hModelessDlg = NULL;
}
 

Rev 33093	Rev 34081
1	`/*`	1	`/*`
2	`* GraphApp - Cross-Platform Graphics Programming Library.`	2	`* GraphApp - Cross-Platform Graphics Programming Library.`
3	`*`	3	`*`
4	`* File: dialogs.c -- standard file dialogs and a few others.`	4	`* File: dialogs.c -- standard file dialogs and a few others.`
5	`* Platform: Windows Version: 2.42 Date: 1998/07/07`	5	`* Platform: Windows Version: 2.42 Date: 1998/07/07`
6	`*`	6	`*`
7	`* Version: 1.00 Changes: Original version by Lachlan Patrick.`	7	`* Version: 1.00 Changes: Original version by Lachlan Patrick.`
8	`* Version: 1.50 Changes: Uses new rectangles, callbacks.`	8	`* Version: 1.50 Changes: Uses new rectangles, callbacks.`
9	`* Version: 2.20 Changes: Handle null strings correctly now.`	9	`* Version: 2.20 Changes: Handle null strings correctly now.`
10	`* Version: 2.40 Changes: Now uses YES, NO, CANCEL symbols.`	10	`* Version: 2.40 Changes: Now uses YES, NO, CANCEL symbols.`
11	`* Version: 2.42 Changes: Askstring fixed by Laurent Piguet.`	11	`* Version: 2.42 Changes: Askstring fixed by Laurent Piguet.`
12	`*/`	12	`*/`
13		13
14	`/* Copyright (C) 1993-1998 Lachlan Patrick`	14	`/* Copyright (C) 1993-1998 Lachlan Patrick`
15		15
16	`This file is part of GraphApp, a cross-platform C graphics library.`	16	`This file is part of GraphApp, a cross-platform C graphics library.`
17		17
18	`GraphApp is free software; you can redistribute it and/or modify it`	18	`GraphApp is free software; you can redistribute it and/or modify it`
19	`under the terms of the GNU Library General Public License.`	19	`under the terms of the GNU Library General Public License.`
20	`GraphApp is distributed in the hope that it will be useful, but`	20	`GraphApp is distributed in the hope that it will be useful, but`
21	`WITHOUT ANY WARRANTY.`	21	`WITHOUT ANY WARRANTY.`
22		22
23	`See the file COPYLIB.TXT for details.`	23	`See the file COPYLIB.TXT for details.`
24	`*/`	24	`*/`
25		25
26	`/* Copyright (C) 2004 The R Foundation`	26	`/* Copyright (C) 2004 The R Foundation`
27		27
28	`Additions for R, Chris Jackson`	28	`Additions for R, Chris Jackson`
29	`Find and replace dialog boxes and dialog handlers */`	29	`Find and replace dialog boxes and dialog handlers */`
30		30
31	`#define ENABLE_NLS 1`	31	`#define ENABLE_NLS 1`
32	`#include "../win-nls.h"`	32	`#include "../win-nls.h"`
33	`#include "internal.h"`	33	`#include "internal.h"`
34	`#include "ga.h"`	34	`#include "ga.h"`
35	`#include "../shext.h" /* for selectfolder */`	35	`#include "../shext.h" /* for selectfolder */`
36		36
37	`#define BUFSIZE _MAX_PATH`	37	`#define BUFSIZE _MAX_PATH`
38	`static char strbuf[BUFSIZE];`	38	`static char strbuf[BUFSIZE];`
39		39
40	`static char *filter[] = {`	40	`static char *filter[] = {`
41	`"All Files (.)", ".",`	41	`"All Files (.)", ".",`
42	`"Text Files (.TXT)", ".txt",`	42	`"Text Files (.TXT)", ".txt",`
43	`"HTML Files (.HTM)", ".htm",`	43	`"HTML Files (.HTM)", ".htm",`
44	`"PNG Files (.PNG)", ".png",`	44	`"PNG Files (.PNG)", ".png",`
45	`"JPEG Files (.JPG)", ".jpg",`	45	`"JPEG Files (.JPG)", ".jpg",`
46	`"BMP Files (.BMP)", ".bmp",`	46	`"BMP Files (.BMP)", ".bmp",`
47	`""`	47	`""`
48	`};`	48	`};`
49		49
50	`unsigned int TopmostDialogs = 0; /* May be MB_TOPMOST */`	50	`unsigned int TopmostDialogs = 0; /* May be MB_TOPMOST */`
51		51
52	`static char *userfilter;`	52	`static char *userfilter;`
53	`void setuserfilter(char *uf) {`	53	`void setuserfilter(char *uf) {`
54	`userfilter=uf;`	54	`userfilter=uf;`
55	`}`	55	`}`
56		56
57	`static HWND hModelessDlg = NULL;`	57	`static HWND hModelessDlg = NULL;`
58		58
59	`/*`	59	`/*`
60	`* Error reporting dialog.`	60	`* Error reporting dialog.`
61	`*/`	61	`*/`
62	`void apperror(char *errstr)`	62	`void apperror(char *errstr)`
63	`{`	63	`{`
64	`if (! errstr)`	64	`if (! errstr)`
65	`errstr = "Unspecified error";`	65	`errstr = "Unspecified error";`
66	`MessageBox(0, errstr, "Graphics Library Error",`	66	`MessageBox(0, errstr, "Graphics Library Error",`
67	`MB_TASKMODAL \| MB_ICONSTOP \| MB_OK \| TopmostDialogs);`	67	`MB_TASKMODAL \| MB_ICONSTOP \| MB_OK \| TopmostDialogs);`
68	`exitapp();`	68	`exitapp();`
69	`}`	69	`}`
70		70
71	`void askok(char *info)`	71	`void askok(char *info)`
72	`{`	72	`{`
73	`if (! info)`	73	`if (! info)`
74	`info = "";`	74	`info = "";`
75	`MessageBox(0, info, "Information",`	75	`MessageBox(0, info, "Information",`
76	`MB_TASKMODAL \| MB_ICONINFORMATION \| MB_OK \| TopmostDialogs);`	76	`MB_TASKMODAL \| MB_ICONINFORMATION \| MB_OK \| TopmostDialogs);`
77	`}`	77	`}`
78		78
79	`int askokcancel(char *question)`	79	`int askokcancel(char *question)`
80	`{`	80	`{`
81	`int result;`	81	`int result;`
82		82
83	`if (! question)`	83	`if (! question)`
84	`question = "";`	84	`question = "";`
85	`result = MessageBox(0, question, "Question",`	85	`result = MessageBox(0, question, "Question",`
86	`MB_TASKMODAL \| MB_ICONQUESTION \| MB_OKCANCEL \| TopmostDialogs);`	86	`MB_TASKMODAL \| MB_ICONQUESTION \| MB_OKCANCEL \| TopmostDialogs);`
87		87
88	`switch (result) {`	88	`switch (result) {`
89	`case IDOK: result = YES; break;`	89	`case IDOK: result = YES; break;`
90	`case IDCANCEL:`	90	`case IDCANCEL:`
91	`default: result = CANCEL; break;`	91	`default: result = CANCEL; break;`
92	`}`	92	`}`
93	`return result;`	93	`return result;`
94	`}`	94	`}`
95		95
96	`int askyesno(char *question)`	96	`int askyesno(char *question)`
97	`{`	97	`{`
98	`int result;`	98	`int result;`
99		99
100	`if (! question)`	100	`if (! question)`
101	`question = "";`	101	`question = "";`
102	`result = MessageBox(0, question, G_("Question"),`	102	`result = MessageBox(0, question, G_("Question"),`
103	`MB_TASKMODAL \| MB_ICONQUESTION \| MB_YESNO \| TopmostDialogs);`	103	`MB_TASKMODAL \| MB_ICONQUESTION \| MB_YESNO \| TopmostDialogs);`
104		104
105	`switch (result) {`	105	`switch (result) {`
106	`case IDYES: result = YES; break;`	106	`case IDYES: result = YES; break;`
107	`case IDNO: result = NO; break;`	107	`case IDNO: result = NO; break;`
108	`default: result = CANCEL; break;`	108	`default: result = CANCEL; break;`
109	`}`	109	`}`
110	`return result;`	110	`return result;`
111	`}`	111	`}`
112		112
113	`int askyesnocancel(char *question)`	113	`int askyesnocancel(char *question)`
114	`{`	114	`{`
115	`int result;`	115	`int result;`
116		116
117	`if (! question)`	117	`if (! question)`
118	`question = "";`	118	`question = "";`
119	`result = MessageBox(0, question, G_("Question"),`	119	`result = MessageBox(0, question, G_("Question"),`
120	`MB_TASKMODAL \| MB_ICONQUESTION \| MB_YESNOCANCEL \| MB_SETFOREGROUND \| TopmostDialogs);`	120	`MB_TASKMODAL \| MB_ICONQUESTION \| MB_YESNOCANCEL \| MB_SETFOREGROUND \| TopmostDialogs);`
121		121
122	`switch (result) {`	122	`switch (result) {`
123	`case IDYES: result = YES; break;`	123	`case IDYES: result = YES; break;`
124	`case IDNO: result = NO; break;`	124	`case IDNO: result = NO; break;`
125	`case IDCANCEL:`	125	`case IDCANCEL:`
126	`default: result = CANCEL; break;`	126	`default: result = CANCEL; break;`
127	`}`	127	`}`
128	`return result;`	128	`return result;`
129	`}`	129	`}`
130		130
131	`static char cod[MAX_PATH]=""; /current open directory/`	131	`static char cod[MAX_PATH]=""; /current open directory/`
132		132
133	`void askchangedir()`	133	`void askchangedir()`
134	`{`	134	`{`
135	`char *s, msg[MAX_PATH + 40];`	135	`char *s, msg[MAX_PATH + 40];`
136		136
137	`/* if cod has never been used, set it to current directory */`	137	`/* if cod has never been used, set it to current directory */`
138	`if (!cod[0]) GetCurrentDirectory(MAX_PATH, cod);`	138	`if (!cod[0]) GetCurrentDirectory(MAX_PATH, cod);`
139	`s = askcdstring(G_(" Change working directory to:"), cod);`	139	`s = askcdstring(G_(" Change working directory to:"), cod);`
140	`if (s && (SetCurrentDirectory(s) == FALSE)) {`	140	`if (s && (SetCurrentDirectory(s) == FALSE)) {`
141	`snprintf(msg, MAX_PATH + 40,`	141	`snprintf(msg, MAX_PATH + 40,`
142	`G_("Unable to set '%s' as working directory"), s);`	142	`G_("Unable to set '%s' as working directory"), s);`
143	`askok(msg);`	143	`askok(msg);`
144	`}`	144	`}`
145	`/* in every case reset cod (to new directory if all went ok`	145	`/* in every case reset cod (to new directory if all went ok`
146	`or to old since user may have edited it */`	146	`or to old since user may have edited it */`
147	`GetCurrentDirectory(MAX_PATH, cod);`	147	`GetCurrentDirectory(MAX_PATH, cod);`
148	`}`	148	`}`
149		149
150	`char askfilename(char title, char *default_name)`	150	`char askfilename(char title, char *default_name)`
151	`{`	151	`{`
152	`if (*askfilenames(title, default_name, 0, userfilter?userfilter:filter[0], 0,`	152	`if (*askfilenames(title, default_name, 0, userfilter?userfilter:filter[0], 0,`
153	`strbuf, BUFSIZE)) return strbuf;`	153	`strbuf, BUFSIZE)) return strbuf;`
154	`else return NULL;`	154	`else return NULL;`
155	`}`	155	`}`
156		156
157	`char askfilenames(char title, char *default_name, int multi,`	157	`char askfilenames(char title, char *default_name, int multi,`
158	`char filters, int filterindex, char strbuf, int bufsize)`	158	`char filters, int filterindex, char strbuf, int bufsize)`
159	`{`	159	`{`
160	`int i;`	160	`int i;`
161	`OPENFILENAME ofn;`	161	`OPENFILENAME ofn;`
162	`char cwd[MAX_PATH]="";`	162	`char cwd[MAX_PATH]="";`
163	`if (! default_name)`	163	`if (! default_name)`
164	`default_name = "";`	164	`default_name = "";`
165	`strcpy(strbuf, default_name);`	165	`strcpy(strbuf, default_name);`
166	`GetCurrentDirectory(MAX_PATH,cwd);`	166	`GetCurrentDirectory(MAX_PATH,cwd);`
167	`if (!strcmp(cod,"")) strcpy(cod,cwd);`	167	`if (!strcmp(cod,"")) strcpy(cod,cwd);`
168		168
169	`ofn.lStructSize = sizeof(OPENFILENAME);`	169	`ofn.lStructSize = sizeof(OPENFILENAME);`
170	`ofn.hwndOwner = current_window ?`	170	`ofn.hwndOwner = current_window ?`
171	`current_window->handle : 0;`	171	`current_window->handle : 0;`
172	`ofn.hInstance = 0;`	172	`ofn.hInstance = 0;`
173	`ofn.lpstrFilter = filters;`	173	`ofn.lpstrFilter = filters;`
174	`ofn.lpstrCustomFilter = NULL;`	174	`ofn.lpstrCustomFilter = NULL;`
175	`ofn.nMaxCustFilter = 0;`	175	`ofn.nMaxCustFilter = 0;`
176	`ofn.nFilterIndex = filterindex;`	176	`ofn.nFilterIndex = filterindex;`
177	`ofn.lpstrFile = strbuf;`	177	`ofn.lpstrFile = strbuf;`
178	`ofn.nMaxFile = bufsize;`	178	`ofn.nMaxFile = bufsize;`
179	`ofn.lpstrFileTitle = NULL;`	179	`ofn.lpstrFileTitle = NULL;`
180	`ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;`	180	`ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;`
181	`ofn.lpstrInitialDir = cod;`	181	`ofn.lpstrInitialDir = cod;`
182	`ofn.lpstrTitle = title;`	182	`ofn.lpstrTitle = title;`
183	`ofn.Flags = OFN_CREATEPROMPT \| OFN_HIDEREADONLY \| OFN_EXPLORER;`	183	`ofn.Flags = OFN_CREATEPROMPT \| OFN_HIDEREADONLY \| OFN_EXPLORER;`
184	`if (multi) ofn.Flags \|= OFN_ALLOWMULTISELECT;`	184	`if (multi) ofn.Flags \|= OFN_ALLOWMULTISELECT;`
185	`ofn.nFileOffset = 0;`	185	`ofn.nFileOffset = 0;`
186	`ofn.nFileExtension = 0;`	186	`ofn.nFileExtension = 0;`
187	`ofn.lpstrDefExt = "*";`	187	`ofn.lpstrDefExt = "*";`
188	`ofn.lCustData = 0L;`	188	`ofn.lCustData = 0L;`
189	`ofn.lpfnHook = NULL;`	189	`ofn.lpfnHook = NULL;`
190	`ofn.lpTemplateName = NULL;`	190	`ofn.lpTemplateName = NULL;`
191		191
192	`if (GetOpenFileName(&ofn) == 0) {`	192	`if (GetOpenFileName(&ofn) == 0) {`
193	`GetCurrentDirectory(MAX_PATH,cod);`	193	`GetCurrentDirectory(MAX_PATH,cod);`
194	`SetCurrentDirectory(cwd);`	194	`SetCurrentDirectory(cwd);`
195	`strbuf[0] = 0;`	195	`strbuf[0] = 0;`
196	`strbuf[1] = 0;`	196	`strbuf[1] = 0;`
197	`return strbuf;`	197	`return strbuf;`
198	`} else {`	198	`} else {`
199	`GetCurrentDirectory(MAX_PATH,cod);`	199	`GetCurrentDirectory(MAX_PATH,cod);`
200	`SetCurrentDirectory(cwd);`	200	`SetCurrentDirectory(cwd);`
201	`for (i=0; i<10; i++)`	201	`for (i=0; i<10; i++)`
202	`if (peekevent()) doevent();`	202	`if (peekevent()) doevent();`
203	`return strbuf;`	203	`return strbuf;`
204	`}`	204	`}`
205	`}`	205	`}`
206		206
207	`int countFilenames(char *list)`	207	`int countFilenames(char *list)`
208	`{`	208	`{`
209	`char *temp;`	209	`char *temp;`
210	`int count;`	210	`int count;`
211	`count = 0;`	211	`count = 0;`
212	`for (temp = list; *temp; temp += strlen(temp)+1) count++;`	212	`for (temp = list; *temp; temp += strlen(temp)+1) count++;`
213	`return count;`	213	`return count;`
214	`}`	214	`}`
215		215
216	`char askfilesave(char title, char *default_name)`	216	`char askfilesave(char title, char *default_name)`
217	`{`	217	`{`
218	`return askfilesavewithdir(title, default_name, NULL);`	218	`return askfilesavewithdir(title, default_name, NULL);`
219	`}`	219	`}`
220		220
221	`char askfilesavewithdir(char title, char default_name, char dir)`	221	`char askfilesavewithdir(char title, char default_name, char dir)`
222	`{`	222	`{`
223	`int i;`	223	`int i;`
224	`OPENFILENAME ofn;`	224	`OPENFILENAME ofn;`
225	`char cwd[MAX_PATH];`	225	`char cwd[MAX_PATH];`
226		226
227	`if (! default_name)`	227	`if (! default_name)`
228	`default_name = "";`	228	`default_name = "";`
229	`strcpy(strbuf, default_name);`	229	`strcpy(strbuf, default_name);`
230		230
231	`ofn.lStructSize = sizeof(OPENFILENAME);`	231	`ofn.lStructSize = sizeof(OPENFILENAME);`
232	`ofn.hwndOwner = current_window ?`	232	`ofn.hwndOwner = current_window ?`
233	`current_window->handle : 0;`	233	`current_window->handle : 0;`
234	`ofn.hInstance = 0;`	234	`ofn.hInstance = 0;`
235	`ofn.lpstrFilter = userfilter?userfilter:filter[0];`	235	`ofn.lpstrFilter = userfilter?userfilter:filter[0];`
236	`ofn.lpstrCustomFilter = NULL;`	236	`ofn.lpstrCustomFilter = NULL;`
237	`ofn.nMaxCustFilter = 0;`	237	`ofn.nMaxCustFilter = 0;`
238	`ofn.nFilterIndex = 0;`	238	`ofn.nFilterIndex = 0;`
239	`ofn.lpstrFile = strbuf;`	239	`ofn.lpstrFile = strbuf;`
240	`ofn.nMaxFile = BUFSIZE;`	240	`ofn.nMaxFile = BUFSIZE;`
241	`ofn.lpstrFileTitle = NULL;`	241	`ofn.lpstrFileTitle = NULL;`
242	`ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;`	242	`ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;`
243	`if(dir && strlen(dir) > 0)`	243	`if(dir && strlen(dir) > 0)`
244	`ofn.lpstrInitialDir = dir;`	244	`ofn.lpstrInitialDir = dir;`
245	`else {`	245	`else {`
246	`if (GetCurrentDirectory(MAX_PATH,cwd))`	246	`if (GetCurrentDirectory(MAX_PATH,cwd))`
247	`ofn.lpstrInitialDir = cwd;`	247	`ofn.lpstrInitialDir = cwd;`
248	`else`	248	`else`
249	`ofn.lpstrInitialDir = NULL;`	249	`ofn.lpstrInitialDir = NULL;`
250	`}`	250	`}`
251	`ofn.lpstrTitle = title;`	251	`ofn.lpstrTitle = title;`
252	`ofn.Flags = OFN_OVERWRITEPROMPT \|`	252	`ofn.Flags = OFN_OVERWRITEPROMPT \|`
253	`OFN_NOCHANGEDIR \| OFN_HIDEREADONLY;`	253	`OFN_NOCHANGEDIR \| OFN_HIDEREADONLY;`
254	`ofn.nFileOffset = 0;`	254	`ofn.nFileOffset = 0;`
255	`ofn.nFileExtension = 0;`	255	`ofn.nFileExtension = 0;`
256	`ofn.lpstrDefExt = "*";`	256	`ofn.lpstrDefExt = "*";`
257	`ofn.lCustData = 0L;`	257	`ofn.lCustData = 0L;`
258	`ofn.lpfnHook = NULL;`	258	`ofn.lpfnHook = NULL;`
259	`ofn.lpTemplateName = NULL;`	259	`ofn.lpTemplateName = NULL;`
260		260
261	`if (GetSaveFileName(&ofn) == 0)`	261	`if (GetSaveFileName(&ofn) == 0)`
262	`return NULL;`	262	`return NULL;`
263	`else {`	263	`else {`
264	`for (i=0; i<10; i++)`	264	`for (i=0; i<10; i++)`
265	`if (peekevent()) doevent();`	265	`if (peekevent()) doevent();`
266	`return strbuf;`	266	`return strbuf;`
267	`}`	267	`}`
268	`}`	268	`}`
269		269
270	`/*`	270	`/*`
271	`* Input a string using a dialog box.`	271	`* Input a string using a dialog box.`
272	`*/`	272	`*/`
273		273
274	`/*`	274	`/*`
275	`* Dialog information structure:`	275	`* Dialog information structure:`
276	`*/`	276	`*/`
277	`#define NOT_CHOSEN_YET -2`	277	`#define NOT_CHOSEN_YET -2`
278		278
279	`typedef struct dialog_data_class {`	279	`typedef struct dialog_data_class {`
280	`int hit;`	280	`int hit;`
281	`char * result;`	281	`char * result;`
282	`label question;`	282	`label question;`
283	`field text, pass;`	283	`field text, pass;`
284	`button yes, no, cancel;`	284	`button yes, no, cancel;`
285	`} dialog_data;`	285	`} dialog_data;`
286		286
287	`#define data(w) ((dialog_data *) (getdata(w)))`	287	`#define data(w) ((dialog_data *) (getdata(w)))`
288		288
289	`/*`	289	`/*`
290	`* Some strings to use:`	290	`* Some strings to use:`
291	`*/`	291	`*/`
292	`static char * OKAY_STRING = "OK";`	292	`static char * OKAY_STRING = "OK";`
293	`static char * CANCEL_STRING = "Cancel";`	293	`static char * CANCEL_STRING = "Cancel";`
294	`static char * BROWSE_STRING = "Browse";`	294	`static char * BROWSE_STRING = "Browse";`
295		295
296	`static char * QUESTION_TITLE = "Question";`	296	`static char * QUESTION_TITLE = "Question";`
297	`static char * PASSWORD_TITLE = "Password Entry";`	297	`static char * PASSWORD_TITLE = "Password Entry";`
298	`static char * FINDDIR_TITLE = "Change directory";`	298	`static char * FINDDIR_TITLE = "Change directory";`
299		299
300	`static void add_data(window w)`	300	`static void add_data(window w)`
301	`{`	301	`{`
302	`dialog_data *d;`	302	`dialog_data *d;`
303		303
304	`d = create (dialog_data);`	304	`d = create (dialog_data);`
305	`if (! d)`	305	`if (! d)`
306	`return;`	306	`return;`
307	`d->hit = NOT_CHOSEN_YET;`	307	`d->hit = NOT_CHOSEN_YET;`
308		308
309	`setdata(w, d);`	309	`setdata(w, d);`
310	`}`	310	`}`
311		311
312	`static char * get_dialog_string(window w)`	312	`static char * get_dialog_string(window w)`
313	`{`	313	`{`
314	`dialog_data *d = data(w);`	314	`dialog_data *d = data(w);`
315		315
316	`if (d->hit < YES) /* cancelled */`	316	`if (d->hit < YES) /* cancelled */`
317	`return NULL;`	317	`return NULL;`
318	`del_string(d->result);`	318	`del_string(d->result);`
319	`if (d->text) /* question dialog */`	319	`if (d->text) /* question dialog */`
320	`d->result = new_string(gettext(d->text));`	320	`d->result = new_string(gettext(d->text));`
321		321
322	`return d->result;`	322	`return d->result;`
323	`}`	323	`}`
324		324
325	`static void hit_button(control c)`	325	`static void hit_button(control c)`
326	`{`	326	`{`
327	`window w = parentwindow(c);`	327	`window w = parentwindow(c);`
328	`dialog_data *d = data(w);`	328	`dialog_data *d = data(w);`
329	`int value = getvalue(c);`	329	`int value = getvalue(c);`
330		330
331	`d->hit = value;`	331	`d->hit = value;`
332	`hide(w);`	332	`hide(w);`
333	`}`	333	`}`
334		334
335	`#ifndef OLD`	335	`#ifndef OLD`
336		336
337	`static void browse_button(control c)`	337	`static void browse_button(control c)`
338	`{`	338	`{`
339	`window w = parentwindow(c);`	339	`window w = parentwindow(c);`
340	`dialog_data *d = data(w);`	340	`dialog_data *d = data(w);`
341	`char strbuf[MAX_PATH];`	341	`char strbuf[MAX_PATH];`
342	`strcpy(strbuf, gettext(d->text));`	342	`strcpy(strbuf, gettext(d->text));`
343	`selectfolder(strbuf);`	343	`selectfolder(strbuf);`
344	`if(strlen(strbuf)) settext(d->text, strbuf);`	344	`if(strlen(strbuf)) settext(d->text, strbuf);`
345	`}`	345	`}`
346	`#else`	346	`#else`
347	`static void browse_button(control c)`	347	`static void browse_button(control c)`
348	`{`	348	`{`
349	`window w = parentwindow(c);`	349	`window w = parentwindow(c);`
350	`dialog_data *d = data(w);`	350	`dialog_data *d = data(w);`
351		351
352	`OPENFILENAME ofn;`	352	`OPENFILENAME ofn;`
353	`char strbuf[_MAX_PATH] = "anything", *p;`	353	`char strbuf[_MAX_PATH] = "anything", *p;`
354		354
355	`ofn.lStructSize = sizeof(OPENFILENAME);`	355	`ofn.lStructSize = sizeof(OPENFILENAME);`
356	`ofn.hwndOwner = 0;`	356	`ofn.hwndOwner = 0;`
357	`ofn.hInstance = 0;`	357	`ofn.hInstance = 0;`
358	`ofn.lpstrFilter = G_("All files (.)\0.\0\0");`	358	`ofn.lpstrFilter = "All files (.)\0.\0\0";`
359	`ofn.lpstrCustomFilter = NULL;`	359	`ofn.lpstrCustomFilter = NULL;`
360	`ofn.nMaxCustFilter = 0;`	360	`ofn.nMaxCustFilter = 0;`
361	`ofn.nFilterIndex = 0;`	361	`ofn.nFilterIndex = 0;`
362	`ofn.lpstrFile = strbuf;`	362	`ofn.lpstrFile = strbuf;`
363	`ofn.nMaxFile = _MAX_PATH;`	363	`ofn.nMaxFile = _MAX_PATH;`
364	`ofn.lpstrFileTitle = NULL;`	364	`ofn.lpstrFileTitle = NULL;`
365	`ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;`	365	`ofn.nMaxFileTitle = _MAX_FNAME + _MAX_EXT;`
366	`ofn.lpstrInitialDir = gettext(d->text);`	366	`ofn.lpstrInitialDir = gettext(d->text);`
367	`ofn.lpstrTitle = G_("Select working directory");`	367	`ofn.lpstrTitle = G_("Select working directory");`
368	`ofn.Flags = OFN_HIDEREADONLY;`	368	`ofn.Flags = OFN_HIDEREADONLY;`
369	`ofn.nFileOffset = 0;`	369	`ofn.nFileOffset = 0;`
370	`ofn.nFileExtension = 0;`	370	`ofn.nFileExtension = 0;`
371	`ofn.lpstrDefExt = "";`	371	`ofn.lpstrDefExt = "";`
372	`ofn.lCustData = 0L;`	372	`ofn.lCustData = 0L;`
373	`ofn.lpfnHook = NULL;`	373	`ofn.lpfnHook = NULL;`
374	`ofn.lpTemplateName = NULL;`	374	`ofn.lpTemplateName = NULL;`
375		375
376	`if(GetSaveFileName(&ofn) && strlen(strbuf)) {`	376	`if(GetSaveFileName(&ofn) && strlen(strbuf)) {`
377	`p = strrchr(strbuf,'\\'); if(p) *p ='\0';`	377	`p = strrchr(strbuf,'\\'); if(p) *p ='\0';`
378	`settext(d->text, strbuf);`	378	`settext(d->text, strbuf);`
379	`}`	379	`}`
380	`}`	380	`}`
381	`#endif`	381	`#endif`
382		382
383	`static void hit_key(window w, int key)`	383	`static void hit_key(window w, int key)`
384	`{`	384	`{`
385	`button btn;`	385	`button btn;`
386	`char *name = NULL;`	386	`char *name = NULL;`
387		387
388	`w = parentwindow(w);`	388	`w = parentwindow(w);`
389		389
390	`if (data(w) == NULL)`	390	`if (data(w) == NULL)`
391	`return;`	391	`return;`
392		392
393	`if ((btn = data(w)->yes) != NULL) {`	393	`if ((btn = data(w)->yes) != NULL) {`
394	`name = getname(btn);`	394	`name = getname(btn);`
395	`if ((key == '\n') \|\| (tolower(name[0]) == tolower(key)))`	395	`if ((key == '\n') \|\| (tolower(name[0]) == tolower(key)))`
396	`{`	396	`{`
397	`flashcontrol(btn);`	397	`flashcontrol(btn);`
398	`activatecontrol(btn);`	398	`activatecontrol(btn);`
399	`return;`	399	`return;`
400	`}`	400	`}`
401	`}`	401	`}`
402		402
403	`if ((btn = data(w)->cancel) != NULL) {`	403	`if ((btn = data(w)->cancel) != NULL) {`
404	`name = getname(btn);`	404	`name = getname(btn);`
405	`if ((key == ESC) \|\| (tolower(name[0]) == tolower(key)))`	405	`if ((key == ESC) \|\| (tolower(name[0]) == tolower(key)))`
406	`{`	406	`{`
407	`flashcontrol(btn);`	407	`flashcontrol(btn);`
408	`activatecontrol(btn);`	408	`activatecontrol(btn);`
409	`return;`	409	`return;`
410	`}`	410	`}`
411	`}`	411	`}`
412		412
413	`if ((btn = data(w)->no) != NULL) {`	413	`if ((btn = data(w)->no) != NULL) {`
414	`name = getname(btn);`	414	`name = getname(btn);`
415	`if ((key == ESC) \|\| (tolower(name[0]) == tolower(key)))`	415	`if ((key == ESC) \|\| (tolower(name[0]) == tolower(key)))`
416	`{`	416	`{`
417	`flashcontrol(btn);`	417	`flashcontrol(btn);`
418	`activatecontrol(btn);`	418	`activatecontrol(btn);`
419	`return;`	419	`return;`
420	`}`	420	`}`
421	`}`	421	`}`
422		422
423	`}`	423	`}`
424		424
425	`/*`	425	`/*`
426	`* Handle the events from a message dialog, hide the window afterwards.`	426	`* Handle the events from a message dialog, hide the window afterwards.`
427	`*/`	427	`*/`
428	`static int handle_message_dialog(window w)`	428	`static int handle_message_dialog(window w)`
429	`{`	429	`{`
430	`window old;`	430	`window old;`
431	`dialog_data *d = data(w);`	431	`dialog_data *d = data(w);`
432		432
433	`old = currentdrawing();`	433	`old = currentdrawing();`
434	`d->hit = NOT_CHOSEN_YET;`	434	`d->hit = NOT_CHOSEN_YET;`
435		435
436	`show(w);`	436	`show(w);`
437	`while (d->hit == NOT_CHOSEN_YET)`	437	`while (d->hit == NOT_CHOSEN_YET)`
438	`doevent();`	438	`doevent();`
439	`hide(w);`	439	`hide(w);`
440		440
441	`if (old) drawto(old);`	441	`if (old) drawto(old);`
442		442
443	`return d->hit;`	443	`return d->hit;`
444	`}`	444	`}`
445		445
446	`static window init_askstr_dialog(char title, char question,`	446	`static window init_askstr_dialog(char title, char question,`
447	`char *default_str)`	447	`char *default_str)`
448	`{`	448	`{`
449	`window win;`	449	`window win;`
450	`dialog_data *d;`	450	`dialog_data *d;`
451	`int tw, bw, h, middle;`	451	`int tw, bw, h, middle;`
452		452
453	`if (! question)`	453	`if (! question)`
454	`question= "";`	454	`question= "";`
455	`if (! default_str)`	455	`if (! default_str)`
456	`default_str = "";`	456	`default_str = "";`
457		457
458	`tw = strwidth(SystemFont, CANCEL_STRING) * 8;`	458	`tw = strwidth(SystemFont, CANCEL_STRING) * 8;`
459	`h = getheight(SystemFont);`	459	`h = getheight(SystemFont);`
460		460
461	`if (tw < 150) tw = 150;`	461	`if (tw < 150) tw = 150;`
462		462
463	`win = newwindow(title, rect(0,0,tw+30,h*9+12),`	463	`win = newwindow(title, rect(0,0,tw+30,h*9+12),`
464	`Titlebar \| Centered \| Modal);`	464	`Titlebar \| Centered \| Modal);`
465	`setbackground(win, dialog_bg());`	465	`setbackground(win, dialog_bg());`
466	`add_data(win);`	466	`add_data(win);`
467	`d = data(win);`	467	`d = data(win);`
468	`d->question = newlabel(question, rect(10,h,tw+4,h*2+2),`	468	`d->question = newlabel(question, rect(10,h,tw+4,h*2+2),`
469	`AlignLeft);`	469	`AlignLeft);`
470	`if (title == FINDDIR_TITLE) {`	470	`if (title == FINDDIR_TITLE) {`
471	`bw = strwidth(SystemFont, BROWSE_STRING) * 3/2;`	471	`bw = strwidth(SystemFont, BROWSE_STRING) * 3/2;`
472	`d->text = newfield(default_str, rect(10,h4,tw+4-bw,h3/2));`	472	`d->text = newfield(default_str, rect(10,h4,tw+4-bw,h3/2));`
473	`newbutton(BROWSE_STRING, rect(20+tw-bw, h*4-2, bw, h+10),`	473	`newbutton(BROWSE_STRING, rect(20+tw-bw, h*4-2, bw, h+10),`
474	`browse_button);`	474	`browse_button);`
475	`}`	475	`}`
476	`else if (title == PASSWORD_TITLE)`	476	`else if (title == PASSWORD_TITLE)`
477	`d->text = newpassword(default_str, rect(10,h4,tw+4,h3/2));`	477	`d->text = newpassword(default_str, rect(10,h4,tw+4,h3/2));`
478	`else`	478	`else`
479	`d->text = newfield(default_str, rect(10,h4,tw+4,h3/2));`	479	`d->text = newfield(default_str, rect(10,h4,tw+4,h3/2));`
480		480
481	`middle = (tw+30)/2;`	481	`middle = (tw+30)/2;`
482	`bw = strwidth(SystemFont, CANCEL_STRING) * 3/2;`	482	`bw = strwidth(SystemFont, CANCEL_STRING) * 3/2;`
483		483
484	`d->yes = newbutton(OKAY_STRING,`	484	`d->yes = newbutton(OKAY_STRING,`
485	`rect(middle-bw-10, h*7, bw, h+10), hit_button);`	485	`rect(middle-bw-10, h*7, bw, h+10), hit_button);`
486	`setvalue(d->yes, YES);`	486	`setvalue(d->yes, YES);`
487		487
488	`d->cancel = newbutton(CANCEL_STRING,`	488	`d->cancel = newbutton(CANCEL_STRING,`
489	`rect(middle+10, h*7, bw, h+10), hit_button);`	489	`rect(middle+10, h*7, bw, h+10), hit_button);`
490	`setvalue(d->cancel, CANCEL);`	490	`setvalue(d->cancel, CANCEL);`
491		491
492	`setkeydown(win, hit_key);`	492	`setkeydown(win, hit_key);`
493		493
494	`return win;`	494	`return win;`
495	`}`	495	`}`
496		496
497	`char askstring(char question, char *default_str)`	497	`char askstring(char question, char *default_str)`
498	`{`	498	`{`
499	`static window win = NULL;`	499	`static window win = NULL;`
500	`window prev = current_window;`	500	`window prev = current_window;`

The R Project SVN R

(root)/trunk/src/gnuwin32/graphapp/dialogs.c @ 34412 – Rev 33093 → 34081