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.
*/
 
#include "internal.h"
 
#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",
	""
};
 
static char *userfilter;
void setuserfilter(char *uf) {
   userfilter=uf;
}
 
/*
 *  Error reporting dialog.
 */
void apperror(char *errstr)
{
	if (! errstr)
		errstr = "Unspecified error";
	MessageBox(0, errstr, "Graphics Library Error",
		MB_TASKMODAL | MB_ICONSTOP | MB_OK);
	exitapp();
}
 
void askok(char *info)
{
	if (! info)
		info = "";
	MessageBox(0, info, "Information",
		MB_TASKMODAL | MB_ICONINFORMATION | MB_OK);
}
 
int askokcancel(char *question)
{
	int result;
 
	if (! question)
		question = "";
	result = MessageBox(0, question, "Question",
		MB_TASKMODAL | MB_ICONQUESTION | MB_OKCANCEL);
 
	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, "Question",
		MB_TASKMODAL | MB_ICONQUESTION | MB_YESNO);
 
	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, "Question",
		MB_TASKMODAL | MB_ICONQUESTION | MB_YESNOCANCEL);
 
	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(" Change working directory to:", cod);
    if (s && (SetCurrentDirectory(s) == FALSE)) {
	snprintf(msg, MAX_PATH + 40,
		 "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
extern void selectfolder(char *); /* from ../shext.c */
 
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      = "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);
	}
	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);
	}
	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);
	}
	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("User", rect(10, h, tw+4, h*2+2), AlignLeft);
	bw = strwidth(SystemFont, "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, "");
    }
    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 */
}

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

The R Project SVN R

(root)/trunk/src/gnuwin32/graphapp/dialogs.c @ 28362 – Rev 23715 → 25313