![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to wmenu.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / win|
Return to wmenu.c CVS log | Up to [local] / OpenXM_contrib / gnuplot / win |
1.1 maekawa 1: #ifndef lint
2: static char *RCSid = "$Id: wmenu.c,v 1.8 1998/03/22 22:35:29 drd Exp $";
3: #endif
4:
5: /* GNUPLOT - win/wmenu.c */
6: /*[
7: * Copyright 1992, 1993, 1998 Maurice Castro, Russell Lang
8: *
9: * Permission to use, copy, and distribute this software and its
10: * documentation for any purpose with or without fee is hereby granted,
11: * provided that the above copyright notice appear in all copies and
12: * that both that copyright notice and this permission notice appear
13: * in supporting documentation.
14: *
15: * Permission to modify the software is granted, but not the right to
16: * distribute the complete modified source code. Modifications are to
17: * be distributed as patches to the released version. Permission to
18: * distribute binaries produced by compiling modified sources is granted,
19: * provided you
20: * 1. distribute the corresponding source modifications from the
21: * released version in the form of a patch file along with the binaries,
22: * 2. add special version identification to distinguish your version
23: * in addition to the base release version number,
24: * 3. provide your name and address as the primary contact for the
25: * support of your modified version, and
26: * 4. retain our contact information in regard to use of the base
27: * software.
28: * Permission to distribute the released version of the source code along
29: * with corresponding source modifications in the form of a patch file is
30: * granted with same provisions 2 through 4 for binary distributions.
31: *
32: * This software is provided "as is" without express or implied warranty
33: * to the extent permitted by applicable law.
34: ]*/
35:
36: /*
37: * AUTHORS
38: *
39: * Maurice Castro
40: * Russell Lang
41: *
42: * Send your comments or suggestions to
43: * info-gnuplot@dartmouth.edu.
44: * This is a mailing list; to join it send a note to
45: * majordomo@dartmouth.edu.
46: * Send bug reports to
47: * bug-gnuplot@dartmouth.edu.
48: */
49:
50: #define STRICT
51: #include <windows.h>
52: #include <windowsx.h>
53: #if WINVER >= 0x030a
54: #include <commdlg.h>
55: #endif
56: #include <string.h> /* only use far items */
57: #include "wgnuplib.h"
58: #include "wresourc.h"
59: #include "wcommon.h"
60:
61: BOOL CALLBACK WINEXPORT InputBoxDlgProc(HWND, UINT, WPARAM, LPARAM);
62: LRESULT CALLBACK WINEXPORT MenuButtonProc(HWND, UINT, WPARAM, LPARAM);
63:
64: /* limits */
65: #define MAXSTR 255
66: #define MACROLEN 5000
67: /* #define NUMMENU 256 defined in wresourc.h */
68: #define MENUDEPTH 3
69:
70: /* menu tokens */
71: #define CMDMIN 129
72: #define INPUT 129
73: #define EOS 130
74: #define OPEN 131
75: #define SAVE 132
76: #define CMDMAX 132
77: char * keyword[] = {
78: "[INPUT]", "[EOS]", "[OPEN]", "[SAVE]",
79: "{ENTER}", "{ESC}", "{TAB}",
80: "{^A}", "{^B}", "{^C}", "{^D}", "{^E}", "{^F}", "{^G}", "{^H}",
81: "{^I}", "{^J}", "{^K}", "{^L}", "{^M}", "{^N}", "{^O}", "{^P}",
82: "{^Q}", "{^R}", "{^S}", "{^T}", "{^U}", "{^V}", "{^W}", "{^X}",
83: "{^Y}", "{^Z}", "{^[}", "{^\\}", "{^]}", "{^^}", "{^_}",
84: NULL};
85: BYTE keyeq[] = {
86: INPUT, EOS, OPEN, SAVE,
87: 13, 27, 9,
88: 1, 2, 3, 4, 5, 6, 7, 8,
89: 9, 10, 11, 12, 13, 14, 15, 16,
90: 17, 18, 19, 20, 21, 22, 23, 24,
91: 25, 26, 28, 29, 30, 31,
92: 0};
93:
94:
95: /* Send a macro to the text window */
96: void
97: SendMacro(LPTW lptw, UINT m)
98: {
99: BYTE FAR *s;
100: char *d;
101: char *buf;
102: BOOL flag=TRUE;
103: int i;
104: LPMW lpmw = lptw->lpmw;
105: #if WINVER >= 0x030a
106: OPENFILENAME ofn;
107: char *szTitle;
108: char *szFile;
109: char *szFilter;
110: #endif
111:
112: if ( (buf = LocalAllocPtr(LHND, MAXSTR+1)) == (char *)NULL )
113: return;
114:
115: if (m>=lpmw->nCountMenu)
116: return;
117: s = lpmw->macro[m];
118: d = buf;
119: *d = '\0';
120: while (s && *s && (d-buf < MAXSTR)) {
121: if (*s>=CMDMIN && *s<=CMDMAX) {
122: switch (*s) {
123: case SAVE: /* [SAVE] - get a save filename from a file list box */
124: case OPEN: /* [OPEN] - get a filename from a file list box */
125: #if WINVER >= 0x030a
126: /* This uses COMMDLG.DLL from Windows 3.1
127: COMMDLG.DLL is redistributable */
128: {
129: BOOL save;
130: if ( (szTitle = LocalAllocPtr(LHND, MAXSTR+1)) == (char *)NULL )
131: return;
132: if ( (szFile = LocalAllocPtr(LHND, MAXSTR+1)) == (char *)NULL )
133: return;
134: if ( (szFilter = LocalAllocPtr(LHND, MAXSTR+1)) == (char *)NULL )
135: return;
136:
137: save = (*s==SAVE);
138: s++;
139: for(i=0; (*s >= 32 && *s <= 126); i++)
140: szTitle[i] = *s++; /* get dialog box title */
141: szTitle[i]='\0';
142: s++;
143: for(i=0; (*s >= 32 && *s <= 126); i++)
144: szFile[i] = *s++; /* temporary copy of filter */
145: szFile[i++]='\0';
146: lstrcpy(szFilter,"Default (");
147: lstrcat(szFilter,szFile);
148: lstrcat(szFilter,")");
149: i=lstrlen(szFilter);
150: i++; /* move past NULL */
151: lstrcpy(szFilter+i,szFile);
152: i+=lstrlen(szFilter+i);
153: i++; /* move past NULL */
154: lstrcpy(szFilter+i,"All Files (*.*)");
155: i+=lstrlen(szFilter+i);
156: i++; /* move past NULL */
157: lstrcpy(szFilter+i,"*.*");
158: i+=lstrlen(szFilter+i);
159: i++; /* move past NULL */
160: szFilter[i++]='\0'; /* add a second NULL */
161: flag = 0;
162:
163: /* the Windows 3.1 implentation - MC */
164: szFile[0] = '\0';
165: /* clear the structrure */
166: _fmemset(&ofn, 0, sizeof(OPENFILENAME));
167: ofn.lStructSize = sizeof(OPENFILENAME);
168: ofn.hwndOwner = lptw->hWndParent;
169: ofn.lpstrFilter = szFilter;
170: ofn.nFilterIndex = 1;
171: ofn.lpstrFile = szFile;
172: ofn.nMaxFile = MAXSTR;
173: ofn.lpstrFileTitle = szFile;
174: ofn.nMaxFileTitle = MAXSTR;
175: ofn.lpstrTitle = szTitle;
176: ofn.lpstrInitialDir = (LPSTR)NULL;
177: ofn.Flags = OFN_SHOWHELP | OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST;
178: flag = (save ? GetSaveFileName(&ofn) : GetOpenFileName(&ofn));
179: if( flag ) {
180: lpmw->nChar = lstrlen(ofn.lpstrFile);
181: for (i=0; i<lpmw->nChar; i++)
182: *d++=ofn.lpstrFile[i];
183: }
184:
185: LocalFreePtr((void NEAR *)OFFSETOF(szTitle));
186: LocalFreePtr((void NEAR *)OFFSETOF(szFilter));
187: LocalFreePtr((void NEAR *)OFFSETOF(szFile));
188:
189: }
190: break;
191: #else
192: /* Use InputBox if you don't have COMMDLG.DLL.
193: s++; /* skip list box title */
194: for(i=0; (*s >= 32 && *s <= 126); i++)
195: s++;
196: #endif
197: case INPUT: /* [INPUT] - input a string of characters */
198: s++;
199: for(i=0; (*s >= 32 && *s <= 126); i++)
200: lpmw->szPrompt[i] = *s++;
201: lpmw->szPrompt[i]='\0';
202: #ifdef WIN32
203: flag = DialogBox( hdllInstance, "InputDlgBox", lptw->hWndParent, InputBoxDlgProc);
204: #else
205: #ifdef __DLL__
206: lpmw->lpProcInput = (DLGPROC)GetProcAddress(hdllInstance, "InputBoxDlgProc");
207: #else
208: lpmw->lpProcInput = (DLGPROC)MakeProcInstance((FARPROC)InputBoxDlgProc, hdllInstance);
209: #endif
210: flag = DialogBox( hdllInstance, "InputDlgBox", lptw->hWndParent, lpmw->lpProcInput);
211: #endif
212: if( flag ) {
213: for (i=0; i<lpmw->nChar; i++)
214: *d++=lpmw->szAnswer[i];
215: }
216: #ifndef WIN32
217: #ifndef __DLL__
218: FreeProcInstance((FARPROC)lpmw->lpProcInput);
219: #endif
220: #endif
221: break;
222: case EOS: /* [EOS] - End Of String - do nothing */
223: default:
224: s++;
225: break;
226: }
227: if (!flag) { /* abort */
228: d = buf;
229: s = (BYTE FAR *)"";
230: }
231: }
232: else {
233: *d++ = *s++;
234: }
235: }
236: *d = '\0';
237: if (buf[0]!='\0') {
238: d = buf;
239: while (*d) {
240: SendMessage(lptw->hWndText,WM_CHAR,*d,1L);
241: d++;
242: }
243: }
244: }
245:
246:
247: #define GBUFSIZE 512
248: typedef struct tagGFILE {
249: HFILE hfile;
250: char getbuf[GBUFSIZE];
251: int getnext;
252: int getleft;
253: } GFILE;
254:
255: GFILE * Gfopen(LPSTR lpszFileName, int fnOpenMode)
256: {
257: GFILE *gfile;
258:
259: gfile = (GFILE *)LocalAllocPtr(LHND, sizeof(GFILE));
260: if (!gfile)
261: return NULL;
262:
263: gfile->hfile = _lopen(lpszFileName, fnOpenMode);
264: if (gfile->hfile == HFILE_ERROR) {
265: LocalFreePtr((void NEAR *)OFFSETOF(gfile));
266: return NULL;
267: }
268: gfile->getleft = 0;
269: gfile->getnext = 0;
270: return gfile;
271: }
272:
273: void Gfclose(GFILE * gfile)
274: {
275:
276: _lclose(gfile->hfile);
277: LocalFreePtr((void NEAR *)OFFSETOF(gfile));
278: return;
279: }
280:
281: /* returns number of characters read */
282: int
283: Gfgets(LPSTR lp, int size, GFILE *gfile)
284: {
285: int i;
286: int ch;
287: for (i=0; i<size; i++) {
288: if (gfile->getleft <= 0) {
289: if ( (gfile->getleft = _lread(gfile->hfile, gfile->getbuf, GBUFSIZE)) == 0)
290: break;
291: gfile->getnext = 0;
292: }
293: ch = *lp++ = gfile->getbuf[gfile->getnext++];
294: gfile->getleft --;
295: if (ch == '\r') {
296: i--;
297: lp--;
298: }
299: if (ch == '\n') {
300: i++;
301: break;
302: }
303: }
304: if (i<size)
305: *lp++ = '\0';
306: return i;
307: }
308:
309: /* Get a line from the menu file */
310: /* Return number of lines read from file including comment lines */
311: int GetLine(char * buffer, int len, GFILE *gfile)
312: {
313: BOOL status;
314: int nLine = 0;
315:
316: status = (Gfgets(buffer,len,gfile) != 0);
317: nLine++;
318: while( status && ( buffer[0] == 0 || buffer[0] == '\n' || buffer[0] == ';' ) ) {
319: /* blank line or comment - ignore */
320: status = (Gfgets(buffer,len,gfile) != 0);
321: nLine++;
322: }
323: if (lstrlen(buffer)>0)
324: buffer[lstrlen(buffer)-1] = '\0'; /* remove trailing \n */
325:
326: if (!status)
327: nLine = 0; /* zero lines if file error */
328:
329: return nLine;
330: }
331:
332: /* Left justify string */
333: void LeftJustify(char *d, char *s)
334: {
335: while ( *s && (*s==' ' || *s=='\t') )
336: s++; /* skip over space */
337: do {
338: *d++ = *s;
339: } while (*s++);
340: }
341:
342: /* Translate string to tokenized macro */
343: void TranslateMacro(char *string)
344: {
345: int i, len;
346: LPSTR ptr;
347:
348: for( i=0; keyword[i]!=(char *)NULL; i++ ) {
349: if( (ptr = _fstrstr( string, keyword[i] )) != NULL ) {
350: len = lstrlen( keyword[i] );
351: *ptr = keyeq[i];
352: lstrcpy( ptr+1, ptr+len );
353: i--; /* allows for more than one occurrence of keyword */
354: }
355: }
356: }
357:
358: /* Load Macros, and create Menu from Menu file */
359: void
360: LoadMacros(LPTW lptw)
361: {
362: GFILE *menufile;
363: BYTE FAR *macroptr;
364: char *buf;
365: int nMenuLevel;
366: HMENU hMenu[MENUDEPTH+1];
367: LPMW lpmw;
368: int nLine = 1;
369: int nInc;
370: HGLOBAL hmacro, hmacrobuf;
371:
372: int i;
373: HDC hdc;
374: TEXTMETRIC tm;
375: RECT rect;
376: int ButtonX, ButtonY;
377: char FAR *ButtonText[BUTTONMAX];
378:
379: lpmw = lptw->lpmw;
380:
381: /* mark all buffers and menu file as unused */
382: buf = (char *)NULL;
383: hmacro = 0;
384: hmacrobuf = 0;
385: lpmw->macro = (BYTE FAR * FAR *)NULL;
386: lpmw->macrobuf = (BYTE FAR *)NULL;
387: lpmw->szPrompt = (char *)NULL;
388: lpmw->szAnswer = (char *)NULL;
389: menufile = (GFILE *)NULL;
390:
391: /* open menu file */
392: if ((menufile=Gfopen(lpmw->szMenuName,OF_READ)) == (GFILE *)NULL)
393: goto errorcleanup;
394:
395: /* allocate buffers */
396: if ((buf = LocalAllocPtr(LHND, MAXSTR)) == (char *)NULL)
397: goto nomemory;
398: hmacro = GlobalAlloc(GHND,(NUMMENU) * sizeof(BYTE FAR *));
399: if ((lpmw->macro = (BYTE FAR * FAR *)GlobalLock(hmacro)) == (BYTE FAR * FAR *)NULL)
400: goto nomemory;
401: hmacrobuf = GlobalAlloc(GHND, MACROLEN);
402: if ((lpmw->macrobuf = (BYTE FAR*)GlobalLock(hmacrobuf)) == (BYTE FAR *)NULL)
403: goto nomemory;
404: if ((lpmw->szPrompt = LocalAllocPtr(LHND, MAXSTR)) == (char *)NULL)
405: goto nomemory;
406: if ((lpmw->szAnswer = LocalAllocPtr(LHND, MAXSTR)) == (char *)NULL)
407: goto nomemory;
408:
409: macroptr = lpmw->macrobuf;
410: lpmw->nButton = 0;
411: lpmw->nCountMenu = 0;
412: lpmw->hMenu = hMenu[0] = CreateMenu();
413: nMenuLevel = 0;
414:
415: while ((nInc = GetLine(buf,MAXSTR,menufile)) != 0) {
416: nLine += nInc;
417: LeftJustify(buf,buf);
418: if (buf[0]=='\0') {
419: /* ignore blank lines */
420: }
421: else if (!lstrcmpi(buf,"[Menu]")) {
422: /* new menu */
423: if (!(nInc = GetLine(buf,MAXSTR,menufile))) {
424: nLine += nInc;
425: wsprintf(buf,"Problem on line %d of %s\n",nLine,lpmw->szMenuName);
426: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
427: goto errorcleanup;
428: }
429: LeftJustify(buf,buf);
430: if (nMenuLevel<MENUDEPTH)
431: nMenuLevel++;
432: else {
433: wsprintf(buf,"Menu is too deep at line %d of %s\n",nLine,lpmw->szMenuName);
434: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
435: goto errorcleanup;
436: }
437: hMenu[nMenuLevel] = CreateMenu();
438: AppendMenu(hMenu[nMenuLevel > 0 ? nMenuLevel-1 : 0],
439: MF_STRING | MF_POPUP, (UINT)hMenu[nMenuLevel], (LPCSTR)buf);
440: }
441: else if (!lstrcmpi(buf,"[EndMenu]")) {
442: if (nMenuLevel > 0)
443: nMenuLevel--; /* back up one menu */
444: }
445: else if (!lstrcmpi(buf,"[Button]")) {
446: /* button macro */
447: if (lpmw->nButton >= BUTTONMAX) {
448: wsprintf(buf,"Too many buttons at line %d of %s\n",nLine,lpmw->szMenuName);
449: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
450: goto errorcleanup;
451: }
452: if (!(nInc = GetLine(buf,MAXSTR,menufile))) {
453: nLine += nInc;
454: wsprintf(buf,"Problem on line %d of %s\n",nLine,lpmw->szMenuName);
455: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
456: goto errorcleanup;
457: }
458: LeftJustify(buf,buf);
459: if (lstrlen(buf)+1 < MACROLEN - (macroptr-lpmw->macrobuf))
460: lstrcpy((char FAR *)macroptr,buf);
461: else {
462: wsprintf(buf,"Out of space for storing menu macros\n at line %d of \n",nLine,lpmw->szMenuName);
463: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
464: goto errorcleanup;
465: }
466: ButtonText[lpmw->nButton] = (char FAR *)macroptr;
467: macroptr += lstrlen((char FAR *)macroptr)+1;
468: *macroptr = '\0';
469: if (!(nInc = GetLine(buf,MAXSTR,menufile))) {
470: nLine += nInc;
471: wsprintf(buf,"Problem on line %d of %s\n",nLine,lpmw->szMenuName);
472: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
473: goto errorcleanup;
474: }
475: LeftJustify(buf,buf);
476: TranslateMacro(buf);
477: if (lstrlen(buf)+1 < MACROLEN - (macroptr-lpmw->macrobuf))
478: lstrcpy((char FAR *)macroptr,buf);
479: else {
480: wsprintf(buf,"Out of space for storing menu macros\n at line %d of \n",nLine,lpmw->szMenuName);
481: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
482: goto errorcleanup;
483: }
484: lpmw->hButtonID[lpmw->nButton] = lpmw->nCountMenu;
485: lpmw->macro[lpmw->nCountMenu] = macroptr;
486: macroptr += lstrlen((char FAR *)macroptr)+1;
487: *macroptr = '\0';
488: lpmw->nCountMenu++;
489: lpmw->nButton++;
490: }
491: else {
492: /* menu item */
493: if (lpmw->nCountMenu>=NUMMENU) {
494: wsprintf(buf,"Too many menu items at line %d of %s\n",nLine,lpmw->szMenuName);
495: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
496: goto errorcleanup;
497: }
498: LeftJustify(buf,buf);
499: /* HBB 981202: added MF_SEPARATOR to the MF_MENU*BREAK items. This is meant
500: * to maybe avoid a CodeGuard warning about passing last argument zero
501: * when item style is not SEPARATOR... Actually, a better solution would
502: * have been to combine the '|' divider with the next menu item. */
503: if (buf[0]=='-') {
504: if (nMenuLevel == 0)
505: AppendMenu(hMenu[0], MF_SEPARATOR | MF_MENUBREAK, 0, (LPSTR)NULL);
506: else
507: AppendMenu(hMenu[nMenuLevel], MF_SEPARATOR, 0, (LPSTR)NULL);
508: }
509: else if (buf[0]=='|') {
510: AppendMenu(hMenu[nMenuLevel], MF_SEPARATOR | MF_MENUBARBREAK, 0, (LPSTR)NULL);
511: }
512: else {
513: AppendMenu(hMenu[nMenuLevel],MF_STRING, lpmw->nCountMenu, (LPSTR)buf);
514: if (!(nInc = GetLine(buf,MAXSTR,menufile))) {
515: nLine += nInc;
516: wsprintf(buf,"Problem on line %d of %s\n",nLine,lpmw->szMenuName);
517: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
518: goto errorcleanup;
519: }
520: LeftJustify(buf,buf);
521: TranslateMacro(buf);
522: if (lstrlen(buf)+1 < MACROLEN - (macroptr-lpmw->macrobuf))
523: lstrcpy((char FAR *)macroptr,buf);
524: else {
525: wsprintf(buf,"Out of space for storing menu macros\n at line %d of %s\n",nLine,lpmw->szMenuName);
526: MessageBox(lptw->hWndParent,(LPSTR) buf,lptw->Title, MB_ICONEXCLAMATION);
527: goto errorcleanup;
528: }
529: lpmw->macro[lpmw->nCountMenu] = macroptr;
530: macroptr += lstrlen((char FAR *)macroptr)+1;
531: *macroptr = '\0';
532: lpmw->nCountMenu++;
533: }
534: }
535: }
536:
537: if ( (lpmw->nCountMenu - lpmw->nButton) > 0 ) {
538: /* we have a menu bar so put it on the window */
539: SetMenu(lptw->hWndParent,lpmw->hMenu);
540: DrawMenuBar(lptw->hWndParent);
541: }
542:
543: if (!lpmw->nButton)
544: goto cleanup; /* no buttons */
545:
546: /* calculate size of buttons */
547: hdc = GetDC(lptw->hWndParent);
548: SelectObject(hdc, GetStockObject(SYSTEM_FIXED_FONT));
549: GetTextMetrics(hdc, &tm);
550: ButtonX = 8 * tm.tmAveCharWidth;
551: ButtonY = 6 * (tm.tmHeight + tm.tmExternalLeading) / 4;
552: ReleaseDC(lptw->hWndParent,hdc);
553:
554: /* move top of client text window down to allow space for buttons */
555: lptw->ButtonHeight = ButtonY+1;
556: GetClientRect(lptw->hWndParent, &rect);
557: SetWindowPos(lptw->hWndText, (HWND)NULL, 0, lptw->ButtonHeight,
558: rect.right, rect.bottom-lptw->ButtonHeight,
559: SWP_NOZORDER | SWP_NOACTIVATE);
560:
561: /* create the buttons */
562: #ifdef __DLL__
563: lpmw->lpfnMenuButtonProc = (WNDPROC)GetProcAddress(hdllInstance, "MenuButtonProc");
564: #else
565: lpmw->lpfnMenuButtonProc = (WNDPROC)MakeProcInstance((FARPROC)MenuButtonProc, hdllInstance);
566: #endif
567: for (i=0; i<lpmw->nButton; i++) {
568: lpmw->hButton[i] = CreateWindow("button", ButtonText[i],
569: WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,
570: i * ButtonX, 0,
571: ButtonX, ButtonY,
572: lptw->hWndParent, (HMENU)i,
573: lptw->hInstance, lptw);
574: lpmw->lpfnButtonProc[i] = (WNDPROC) GetWindowLong(lpmw->hButton[i], GWL_WNDPROC);
575: SetWindowLong(lpmw->hButton[i], GWL_WNDPROC, (LONG)lpmw->lpfnMenuButtonProc);
576: }
577:
578: goto cleanup;
579:
580:
581: nomemory:
582: MessageBox(lptw->hWndParent,"Out of memory",lptw->Title, MB_ICONEXCLAMATION);
583: errorcleanup:
584: if (hmacro) {
585: GlobalUnlock(hmacro);
586: GlobalFree(hmacro);
587: }
588: if (hmacrobuf) {
589: GlobalUnlock(hmacrobuf);
590: GlobalFree(hmacrobuf);
591: }
592: if (lpmw->szPrompt != (char *)NULL)
593: LocalFreePtr((void NEAR *)OFFSETOF(lpmw->szPrompt));
594: if (lpmw->szAnswer != (char *)NULL)
595: LocalFreePtr((void NEAR *)OFFSETOF(lpmw->szAnswer));
596:
597: cleanup:
598: if (buf != (char *)NULL)
599: LocalFreePtr((void NEAR *)OFFSETOF(buf));
600: if (menufile != (GFILE *)NULL)
601: Gfclose(menufile);
602: return;
603:
604: }
605:
606: void
607: CloseMacros(LPTW lptw)
608: {
609: HGLOBAL hglobal;
610: LPMW lpmw;
611: lpmw = lptw->lpmw;
612:
613: #ifndef WIN32
614: #ifndef __DLL__
615: if (lpmw->lpfnMenuButtonProc)
616: FreeProcInstance((FARPROC)lpmw->lpfnMenuButtonProc);
617: #endif
618: #endif
619: hglobal = (HGLOBAL)GlobalHandle( SELECTOROF(lpmw->macro) );
620: if (hglobal) {
621: GlobalUnlock(hglobal);
622: GlobalFree(hglobal);
623: }
624: hglobal = (HGLOBAL)GlobalHandle( SELECTOROF(lpmw->macrobuf) );
625: if (hglobal) {
626: GlobalUnlock(hglobal);
627: GlobalFree(hglobal);
628: }
629: if (lpmw->szPrompt != (char *)NULL)
630: LocalFreePtr((void NEAR *)OFFSETOF(lpmw->szPrompt));
631: if (lpmw->szAnswer != (char *)NULL)
632: LocalFreePtr((void NEAR *)OFFSETOF(lpmw->szAnswer));
633: }
634:
635:
636: /***********************************************************************/
637: /* InputBoxDlgProc() - Message handling routine for Input dialog box */
638: /***********************************************************************/
639:
640: BOOL CALLBACK WINEXPORT
641: InputBoxDlgProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
642: {
643: LPTW lptw;
644: LPMW lpmw;
645: lptw = (LPTW)GetWindowLong(GetParent(hDlg), 0);
646: lpmw = lptw->lpmw;
647:
648: switch( message) {
649: case WM_INITDIALOG:
650: SetDlgItemText( hDlg, ID_PROMPT, lpmw->szPrompt);
651: return( TRUE);
652:
653: case WM_COMMAND:
654: switch(LOWORD(wParam)) {
655: case ID_ANSWER:
656: return( TRUE);
657:
658: case IDOK:
659: lpmw->nChar = GetDlgItemText( hDlg, ID_ANSWER, lpmw->szAnswer, MAXSTR);
660: EndDialog( hDlg, TRUE);
661: return( TRUE);
662:
663: case IDCANCEL:
664: lpmw->szAnswer[0] = 0;
665: EndDialog( hDlg, FALSE);
666: return( TRUE);
667:
668: default:
669: return( FALSE);
670: }
671: default:
672: return( FALSE);
673: }
674: }
675:
676:
677: LRESULT CALLBACK WINEXPORT
678: MenuButtonProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
679: {
680: LPTW lptw;
681: LPMW lpmw;
682: #ifdef WIN32
683: LONG n = GetWindowLong(hwnd, GWL_ID);
684: #else
685: WORD n = GetWindowWord(hwnd, GWW_ID);
686: #endif
687: lptw = (LPTW)GetWindowLong(GetParent(hwnd), 0);
688: lpmw = lptw->lpmw;
689:
690: switch(message) {
691: case WM_LBUTTONUP:
692: {
693: RECT rect;
694: POINT pt;
695: GetWindowRect(hwnd, &rect);
696: GetCursorPos(&pt);
697: if (PtInRect(&rect, pt))
698: SendMessage(lptw->hWndText, WM_COMMAND, lpmw->hButtonID[n], 0L);
699: SetFocus(lptw->hWndText);
700: }
701: break;
702: }
703: return CallWindowProc((lpmw->lpfnButtonProc[n]), hwnd, message, wParam, lParam);
704: }