Import XaoS r489 (trunk after version 3.5)

1 files changed, 471 insertions, 0 deletions

diff --git a/src/ui/ui-drv/win32/windialo.c b/src/ui/ui-drv/win32/windialo.c
new file mode 100644
index 0000000..dd0a9e6
--- /dev/null
+++ b/src/ui/ui-drv/win32/windialo.c
@@ -0,0 +1,471 @@
+#include <windows.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <string.h>
+#include <stdio.h>
+#include <config.h>
+/*#include <filter.h>
+   #include <ui_helper.h> */
+#include <xerror.h>
+#include <xldio.h>
+#include <ui.h>
+#include <xmenu.h>
+#include "ui_win32.h"
+
+#ifdef HAVE_GETTEXT
+#include <libintl.h>
+#else
+#define gettext(STRING) STRING
+#endif
+
+TCHAR text[100];
+
+#define QUESTIONSTART 100
+#define ITEMSTART 10
+#define PERITEM 5
+
+#define OK 1
+#define CANCEL 2
+#define HELP 3
+
+static struct dialogrecord {
+    CONST menuitem *item;
+    CONST menudialog *dialog;
+    int nitems;
+    HWND windialog;
+    struct uih_context *c;
+    struct dialogrecord *next, *prev;
+} *firstdialog = NULL;
+static CONST char *win32_getextension(CONST char *ch)
+{
+    int i = 0;
+    while (ch[i]) {
+	if (ch[i] == '*')
+	    return (ch + i + 1);
+	i++;
+    }
+    return ch + i;
+}
+
+static char *win32_dofiledialog(struct uih_context *uih,
+				CONST menuitem * item,
+				CONST menudialog * dialog)
+{
+    OPENFILENAME ofn;
+    char szDirName[256];
+    char szFile[256], szFileTitle[256];
+    UINT i, p;
+    char szFilter[256];
+
+    helptopic = item->shortname;
+    szDirName[0] = 0;
+    /*GetSystemDirectory(szDirName, sizeof(szDirName)); */
+    szFile[0] = 0;
+    if (dialog[0].type == DIALOG_OFILE) {
+	strcpy(szFile, dialog[0].defstr);
+	for (i = 0; dialog[0].defstr[i] && dialog[0].defstr[i] != '*';
+	     i++);
+	szFile[i] = 0;
+	strcpy(szFile,
+	       ui_getfile(szFile, win32_getextension(dialog[0].defstr)));
+    }
+
+    for (i = 0; dialog[0].defstr[i] && dialog[0].defstr[i] != '*'; i++)
+	if (!dialog[0].defstr[i])
+	    i = 0;
+    strcpy(szFilter, dialog[0].defstr + i);
+    p = strlen(szFilter);
+    strcpy(szFilter + p + 1, dialog[0].defstr + i);
+    p += strlen(szFilter + p + 1) + 1;
+    strcpy(szFilter + p + 1, "All files");
+    p += strlen(szFilter + p + 1) + 1;
+    strcpy(szFilter + p + 1, "*.*");
+    p += strlen(szFilter + p + 1) + 1;
+    szFilter[p + 1] = 0;
+
+    memset(&ofn, 0, sizeof(OPENFILENAME));
+    ofn.lStructSize = sizeof(OPENFILENAME);
+    ofn.hwndOwner = hWnd;
+    ofn.lpstrFilter = szFilter;
+    ofn.nFilterIndex = 1;
+    ofn.lpstrFile = szFile;
+    ofn.nMaxFile = sizeof(szFile);
+    ofn.lpstrFileTitle = szFileTitle;
+    ofn.nMaxFileTitle = sizeof(szFileTitle);
+    ofn.lpstrInitialDir = szDirName;
+    ofn.Flags =
+	OFN_SHOWHELP | OFN_PATHMUSTEXIST | (dialog[0].type ==
+					    DIALOG_IFILE ?
+					    OFN_FILEMUSTEXIST :
+					    OFN_OVERWRITEPROMPT);
+    if (dialog[0].type == DIALOG_IFILE)
+	i = GetOpenFileName(&ofn);
+    else
+	i = GetSaveFileName(&ofn);
+    helptopic = "main";
+    if (i) {
+	return (strdup(ofn.lpstrFile));
+    }
+    return NULL;
+}
+
+
+static void
+win32_filedialog(struct uih_context *uih, CONST menuitem * item,
+		 CONST menudialog * dialog)
+{
+    char *name = win32_dofiledialog(uih, item, dialog);
+    if (name) {
+	dialogparam *param = malloc(sizeof(dialogparam));
+	param->dstring = name;
+	ui_menuactivate(item, param);
+    }
+}
+
+static void win32_freedialog(struct dialogrecord *r)
+{
+    if (r->next)
+	r->next->prev = r->prev;
+    if (r->prev)
+	r->prev->next = r->next;
+    else
+	firstdialog = r->next;
+    free(r);
+}
+
+static int win32_dodialog(struct dialogrecord *r, HWND hDLG)
+{
+    dialogparam *p = calloc(sizeof(*p), r->nitems);
+    int i;
+    char s[256];
+    for (i = 0; i < r->nitems; i++) {
+	switch (r->dialog[i].type) {
+	case DIALOG_IFILE:
+	case DIALOG_OFILE:
+	case DIALOG_STRING:
+	case DIALOG_KEYSTRING:
+	    GetDlgItemText(hDLG, i * PERITEM + ITEMSTART, s, sizeof(s));
+	    p[i].dstring = strdup(s);
+	    break;
+	case DIALOG_INT:
+	    GetDlgItemText(hDLG, i * PERITEM + ITEMSTART, s, sizeof(s));
+	    p[i].dint = r->dialog[i].defint;
+	    sscanf(s, "%i", &p[i].dint);
+	    break;
+	case DIALOG_FLOAT:
+	    GetDlgItemText(hDLG, i * PERITEM + ITEMSTART, s, sizeof(s));
+	    p[i].number = r->dialog[i].deffloat;
+	    p[i].number = x_strtold(s, NULL);
+	    break;
+	case DIALOG_COORD:
+	    GetDlgItemText(hDLG, i * PERITEM + ITEMSTART, s, sizeof(s));
+	    p[i].dcoord[0] = r->dialog[i].deffloat;
+	    p[i].dcoord[0] = x_strtold(s, NULL);
+	    GetDlgItemText(hDLG, i * PERITEM + ITEMSTART + 1, s,
+			   sizeof(s));
+	    p[i].dcoord[1] = r->dialog[i].deffloat2;
+	    p[i].dcoord[1] = x_strtold(s, NULL);
+	    break;
+	case DIALOG_CHOICE:
+	    /*x_message("Choice is not implemented yet"); */
+	    {
+		int y;
+		y = LOWORD(SendDlgItemMessage
+			   (hDLG, i * PERITEM + ITEMSTART, CB_GETCURSEL, 0,
+			    0L));
+		p[i].dint =
+		    LOWORD(SendDlgItemMessage
+			   (hDLG, i * PERITEM + ITEMSTART, CB_GETITEMDATA,
+			    (WPARAM) y, 0L));
+	    }
+	}
+    }
+    ui_menuactivate(r->item, p);
+    return 1;
+}
+
+static BOOL APIENTRY
+DialogHandler(HWND hDLG, UINT message, UINT wParam, LONG lParam)
+{
+    struct dialogrecord *rec = firstdialog;
+    int i;
+/*   while(rec->windialog!=hDLG) rec=rec->next; */
+    if (!rec->windialog)
+	rec->windialog = hDLG;
+    switch (message) {
+    case WM_INITDIALOG:
+	/*x_message("Creating dialog"); */
+	ShowWindow(hDLG, SW_HIDE);
+	/*CenterWindow (hDLG, GetWindow (hDLG, GW_OWNER)); */
+	if (GetWindowText(hDLG, text, GetWindowTextLength(hDLG) + 1) > 0);
+	SetWindowText(hDLG, gettext(text));
+	SetDlgItemText(hDLG, OK, gettext("OK"));
+	SetDlgItemText(hDLG, CANCEL, gettext("Cancel"));
+	SetDlgItemText(hDLG, HELP, gettext("Help"));
+	for (i = 0; rec->dialog[i].question; i++) {
+	    if (GetDlgItemText
+		(hDLG, i * PERITEM + QUESTIONSTART, text, 100) > 0)
+		SetDlgItemText(hDLG, i * PERITEM + QUESTIONSTART,
+			       gettext(text));
+	    switch (rec->dialog[i].type) {
+		char s[256];
+	    case DIALOG_STRING:
+	    case DIALOG_IFILE:
+	    case DIALOG_OFILE:
+		SetDlgItemText(hDLG, i * PERITEM + ITEMSTART,
+			       rec->dialog[i].defstr);
+		break;
+	    case DIALOG_INT:
+		sprintf(s, "%i", rec->dialog[i].defint);
+		SetDlgItemText(hDLG, i * PERITEM + ITEMSTART, s);
+		break;
+	    case DIALOG_COORD:
+		sprintf(s, "%g", (double) rec->dialog[i].deffloat2);
+		SetDlgItemText(hDLG, i * PERITEM + ITEMSTART + 1, s);
+		/*Fall trought */
+	    case DIALOG_FLOAT:
+		sprintf(s, "%g", (double) rec->dialog[i].deffloat);
+		SetDlgItemText(hDLG, i * PERITEM + ITEMSTART, s);
+		break;
+	    case DIALOG_CHOICE:
+		{
+		    CONST char **strings =
+			(CONST char **) rec->dialog[i].defstr;
+		    int y;
+		    int pos;
+		    for (y = 0; strings[y]; y++) {
+			pos =
+			    LOWORD(SendDlgItemMessage
+				   (hDLG, i * PERITEM + ITEMSTART,
+				    CB_ADDSTRING, (WPARAM) 0,
+				    (LPARAM) (LPSTR) strings[y]));
+			/*x_message("%s %i",strings[y],pos); */
+			SendMessage(GetDlgItem
+				    (hDLG, i * PERITEM + ITEMSTART),
+				    CB_SETITEMDATA, (WPARAM) pos, y);
+			if (y == rec->dialog[i].defint) {
+			    pos =
+				SendMessage(GetDlgItem
+					    (hDLG,
+					     i * PERITEM + ITEMSTART),
+					    CB_SETCURSEL, (WPARAM) pos,
+					    0L);
+			    /*x_message("Default %i",pos); */
+			}
+		    }
+		    pos =
+			LOWORD(SendDlgItemMessage
+			       (hDLG, i * PERITEM + ITEMSTART, CB_GETCOUNT,
+				(WPARAM) 0, 0));
+		    /*x_message("Count %i",pos); */
+		}
+		break;
+	    }
+	}
+	CenterWindow(hDLG, GetWindow(hDLG, GW_OWNER));
+	ShowWindow(hDLG, SW_SHOW);
+	return (TRUE);
+    case WM_SYSCOMMAND:
+	if (wParam == SC_CLOSE) {
+	    EndDialog(hDLG, 0);
+	    return (TRUE);
+	}
+	break;
+    case WM_COMMAND:
+	if (wParam == OK) {
+	    if (win32_dodialog(rec, hDLG)) {
+		EndDialog(hDLG, 0);
+		return (TRUE);
+	    }
+	}
+	if (wParam == CANCEL) {
+	    EndDialog(hDLG, 0);
+	    return (TRUE);
+	}
+	if (wParam == HELP) {
+	    win32_help(rec->c, rec->item->shortname);
+	    return (TRUE);
+	}
+	{
+	    int i = (wParam - ITEMSTART) / PERITEM;
+	    int pos = (wParam - ITEMSTART) % PERITEM;
+	    if (i >= 0 && i < rec->nitems) {
+		if (pos == 1
+		    && (rec->dialog[i].type == DIALOG_IFILE
+			|| rec->dialog[i].type == DIALOG_OFILE)) {
+		    /*x_message("File dialog\n"); */
+		    char *file =
+			win32_dofiledialog(rec->c, rec->item,
+					   rec->dialog + i);
+		    if (file) {
+			SetDlgItemText(hDLG, wParam - 1, file);
+			free(file);
+		    }
+		}
+	    }
+	}
+	break;
+    }
+    return FALSE;
+}
+
+#define INPUTSIZE 20
+#define XBORDER 0
+#define YBORDER 5
+#define XSEP 4
+
+#define CHARWIDTH 4
+#define MINWIDTH ((7*3)*CHARWIDTH)
+#define LINEHEIGHT 14
+#define TEXTHEIGHT 11
+
+static FILE *file;
+static void
+win32_outputdialog(struct uih_context *uih, CONST struct menuitem *item)
+{
+    CONST menudialog *dialog;
+    int leftsize = 0;
+    int rightsize = 0;
+    int width, height;
+    int i;
+    rightsize = INPUTSIZE;
+    if (item->type != MENU_DIALOG && item->type != MENU_CUSTOMDIALOG)
+	return;
+    if (item->flags & MENUFLAG_NOMENU)
+	return;
+    dialog = menu_getdialog(uih, item);
+    for (i = 0; dialog[i].question; i++) {
+	if (leftsize < (int) strlen(dialog[i].question))
+	    leftsize = strlen(dialog[i].question);
+    }
+    if (i == 1
+	&& (dialog[0].type == DIALOG_IFILE
+	    || dialog[0].type == DIALOG_OFILE))
+	return;
+    leftsize = XBORDER + leftsize * CHARWIDTH + XSEP;
+    rightsize = XBORDER + rightsize * CHARWIDTH;
+    width = leftsize + rightsize;
+    if (width < MINWIDTH)
+	width = MINWIDTH;
+    height = 2 * YBORDER + (i + 1) * LINEHEIGHT;
+    fprintf(file, "%sBox  DIALOG %i, %i, %i, %i\n", item->shortname, 52,
+	    57, width, height);
+    fprintf(file, "STYLE DS_MODALFRAME | WS_CAPTION | WS_SYSMENU\n");
+    fprintf(file, "CAPTION \"%s\"\n", item->name);
+    fprintf(file, "FONT 8, \"MS Shell Dlg\"\n");
+    fprintf(file, "BEGIN\n");
+    for (i = 0; dialog[i].question; i++) {
+	fprintf(file, "  RTEXT \"%s\", %i, %i, %i, %i, %i, WS_GROUP\n",
+		dialog[i].question,
+		i * PERITEM + QUESTIONSTART,
+		0, YBORDER + i * LINEHEIGHT, leftsize - XSEP, TEXTHEIGHT);
+	switch (dialog[i].type) {
+	case DIALOG_INT:
+	case DIALOG_FLOAT:
+	case DIALOG_STRING:
+	case DIALOG_KEYSTRING:
+	    fprintf(file,
+		    "  EDITTEXT %i, %i, %i, %i, %i, ES_AUTOHSCROLL | WS_TABSTOP\n",
+		    i * PERITEM + ITEMSTART, leftsize,
+		    i * LINEHEIGHT + YBORDER, rightsize - XSEP,
+		    TEXTHEIGHT);
+	    break;
+	case DIALOG_COORD:
+	    fprintf(file,
+		    "  EDITTEXT %i, %i, %i, %i, %i, ES_AUTOHSCROLL | WS_TABSTOP\n",
+		    i * PERITEM + ITEMSTART, leftsize,
+		    i * LINEHEIGHT + YBORDER,
+		    (rightsize - XSEP - 4 * CHARWIDTH) / 2, TEXTHEIGHT);
+	    fprintf(file,
+		    "  EDITTEXT %i, %i, %i, %i, %i, ES_AUTOHSCROLL | WS_TABSTOP\n",
+		    i * PERITEM + ITEMSTART + 1,
+		    leftsize + (rightsize - XSEP + CHARWIDTH) / 2,
+		    i * LINEHEIGHT + YBORDER,
+		    (rightsize - XSEP - 4 * CHARWIDTH) / 2, TEXTHEIGHT);
+	    fprintf(file, "  RTEXT \"+\", -1, %i, %i, %i, %i\n",
+		    leftsize + (rightsize - XSEP - 2 * CHARWIDTH) / 2,
+		    YBORDER + i * LINEHEIGHT, CHARWIDTH, TEXTHEIGHT);
+	    fprintf(file, "  RTEXT \"i\", -1, %i, %i, %i, %i\n",
+		    leftsize + rightsize - XSEP - CHARWIDTH,
+		    YBORDER + i * LINEHEIGHT, CHARWIDTH, TEXTHEIGHT);
+	    break;
+	case DIALOG_CHOICE:
+	    fprintf(file,
+		    "  COMBOBOX %i, %i, %i, %i, %i, CBS_DROPDOWNLIST | CBS_HASSTRINGS | WS_VSCROLL | WS_TABSTOP\n",
+		    i * PERITEM + ITEMSTART, leftsize,
+		    i * LINEHEIGHT + YBORDER, rightsize - XSEP,
+		    TEXTHEIGHT * 10);
+	    break;
+	case DIALOG_IFILE:
+	case DIALOG_OFILE:
+#define BROWSEWIDTH ((strlen("Browse")+1)*CHARWIDTH)
+	    fprintf(file,
+		    "  EDITTEXT %i, %i, %i, %i, %i, ES_AUTOHSCROLL | WS_TABSTOP\n",
+		    i * PERITEM + ITEMSTART, leftsize,
+		    i * LINEHEIGHT + YBORDER,
+		    rightsize - 2 * XSEP - BROWSEWIDTH, TEXTHEIGHT);
+	    fprintf(file,
+		    "  PUSHBUTTON \"Browse\", %i, %i, %i, %i, %i, WS_GROUP\n",
+		    i * PERITEM + ITEMSTART + 1,
+		    leftsize + rightsize - XSEP - BROWSEWIDTH,
+		    i * LINEHEIGHT + YBORDER, BROWSEWIDTH, TEXTHEIGHT);
+	    break;
+	}
+    }
+    fprintf(file,
+	    "  DEFPUSHBUTTON \"&OK\", %i, %i, %i, %i, %i, WS_GROUP\n", OK,
+	    XSEP / 2, i * LINEHEIGHT + YBORDER, width / 3 - XSEP, 14);
+    fprintf(file, "  PUSHBUTTON \"&Cancel\", %i, %i, %i, %i, %i\n", CANCEL,
+	    width / 3 + XSEP / 2, i * LINEHEIGHT + YBORDER,
+	    width / 3 - XSEP, 14);
+    fprintf(file, "  PUSHBUTTON \"&Help\", %i, %i, %i, %i, %i\n", HELP,
+	    2 * width / 3 + XSEP / 2, i * LINEHEIGHT + YBORDER,
+	    width / 3 - XSEP, 14);
+    fprintf(file, "END\n");
+}
+
+void win32_genresources(struct uih_context *uih)
+{
+    file = fopen("xaos.dlg", "w");
+    menu_forall(uih, win32_outputdialog);
+    fclose(file);
+
+}
+
+void win32_dialog(struct uih_context *uih, CONST char *name)
+{
+    CONST menuitem *item = menu_findcommand(name);
+    CONST menudialog *dialog;
+    int nitems;
+    char s[256];
+
+    if (!item)
+	return;
+    dialog = menu_getdialog(uih, item);
+    if (!dialog)
+	return;
+    for (nitems = 0; dialog[nitems].question; nitems++);
+    if (nitems == 1
+	&& (dialog[0].type == DIALOG_IFILE
+	    || dialog[0].type == DIALOG_OFILE))
+	win32_filedialog(uih, item, dialog);
+    else {
+	struct dialogrecord *r = calloc(sizeof(*r), 1);
+	r->next = firstdialog;
+	firstdialog = r;
+	r->prev = NULL;
+	r->item = item;
+	r->nitems = nitems;
+	r->dialog = dialog;
+	r->c = uih;
+	sprintf(s, "%sBox", item->shortname);
+	if (DialogBox(hInstance, s, hWnd, DialogHandler) == -1) {
+	    /*r->windialog=CreateDialog (hInstance, s, hWnd, DialogHandler);
+	       if(r->windialog==NULL) { */
+	    x_message("Failed to create dialog %s", item->shortname);
+	    win32_freedialog(r);
+	}
+	win32_freedialog(r);
+	/*x_message("Dialog (%s %i %s) not implemented", name, nitems, dialog[0].question); */
+    }
+}