Annotation of OpenXM_contrib/gnuplot/win/wpause.c, Revision 1.1.1.1
1.1 maekawa 1: #ifndef lint
2: static char *RCSid = "$Id: wpause.c,v 1.8 1998/03/22 22:35:29 drd Exp $";
3: #endif
4:
5: /* GNUPLOT - win/wpause.c */
6: /*[
7: * Copyright 1992, 1993, 1998 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: * Russell Lang
40: *
41: * Send your comments or suggestions to
42: * info-gnuplot@dartmouth.edu.
43: * This is a mailing list; to join it send a note to
44: * majordomo@dartmouth.edu.
45: * Send bug reports to
46: * bug-gnuplot@dartmouth.edu.
47: */
48: /* PauseBox() */
49:
50: /* MessageBox ALWAYS appears in the middle of the screen so instead */
51: /* we use this PauseBox so we can decide where it is to be placed */
52:
53: #define STRICT
54: #include <windows.h>
55: #include <windowsx.h>
56: #include <string.h>
57: #include "wgnuplib.h"
58: #include "wresourc.h"
59: #include "wcommon.h"
60:
61: /* Pause Window */
62: LRESULT CALLBACK WINEXPORT WndPauseProc(HWND, UINT, WPARAM, LPARAM);
63: LRESULT CALLBACK WINEXPORT PauseButtonProc(HWND, UINT, WPARAM, LPARAM);
64:
65: /* Create Pause Class */
66: /* called from PauseBox the first time a pause window is created */
67: void
68: CreatePauseClass(LPPW lppw)
69: {
70: WNDCLASS wndclass;
71:
72: wndclass.style = 0;
73: wndclass.lpfnWndProc = (WNDPROC)WndPauseProc;
74: wndclass.cbClsExtra = 0;
75: wndclass.cbWndExtra = sizeof(void FAR *);
76: wndclass.hInstance = lppw->hInstance;
77: wndclass.hIcon = NULL;
78: wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
79: wndclass.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1);
80: wndclass.lpszMenuName = NULL;
81: wndclass.lpszClassName = szPauseClass;
82: RegisterClass(&wndclass);
83: }
84:
85: /* PauseBox */
86: int WDPROC
87: PauseBox(LPPW lppw)
88: {
89: MSG msg;
90: HDC hdc;
91: int width, height;
92: TEXTMETRIC tm;
93: RECT rect;
94:
95: if (!lppw->hPrevInstance)
96: CreatePauseClass(lppw);
97: GetWindowRect(GetDesktopWindow(), &rect);
98: if ( (lppw->Origin.x == CW_USEDEFAULT) || (lppw->Origin.x == 0) )
99: lppw->Origin.x = (rect.right + rect.left) / 2;
100: if ( (lppw->Origin.y == CW_USEDEFAULT) || (lppw->Origin.y == 0) )
101: lppw->Origin.y = (rect.bottom + rect.top) / 2;
102:
103: hdc = GetDC(NULL);
104: SelectObject(hdc, GetStockObject(SYSTEM_FIXED_FONT));
105: GetTextMetrics(hdc, &tm);
106: width = max(24,4+_fstrlen(lppw->Message)) * tm.tmAveCharWidth;
107: width = min(width, rect.right-rect.left);
108: height = 28 * (tm.tmHeight + tm.tmExternalLeading) / 4;
109: ReleaseDC(NULL,hdc);
110:
111: #ifndef WIN32
112: lppw->lpfnPauseButtonProc =
113: #ifdef __DLL__
114: (WNDPROC)GetProcAddress(hdllInstance, "PauseButtonProc");
115: #else
116: (WNDPROC)MakeProcInstance((FARPROC)PauseButtonProc ,hdllInstance);
117: #endif
118: #endif
119: lppw->hWndPause = CreateWindowEx(WS_EX_DLGMODALFRAME,
120: szPauseClass, lppw->Title,
121: /* HBB 981202: WS_POPUPWINDOW would have WS_SYSMENU in it, but we don't
122: * want, nor need, a System menu in our Pause windows. Actually, it was
123: * emptied manually, in the WM_CREATE handler below, in the original code.
124: * This solution seems cleaner. */
125: WS_POPUP | WS_BORDER | WS_CAPTION,
126: lppw->Origin.x - width/2, lppw->Origin.y - height/2,
127: width, height,
128: lppw->hWndParent, NULL, lppw->hInstance, lppw);
129: ShowWindow(lppw->hWndPause, SW_SHOWNORMAL);
130: BringWindowToTop(lppw->hWndPause);
131: UpdateWindow(lppw->hWndPause);
132:
133: lppw->bPause = TRUE;
134: lppw->bPauseCancel = IDCANCEL;
135: while (lppw->bPause)
136: while (PeekMessage(&msg, 0, 0, 0, PM_REMOVE)) {
137: /* wait until window closed */
138: TranslateMessage(&msg);
139: DispatchMessage(&msg);
140: }
141: DestroyWindow(lppw->hWndPause);
142: #ifndef WIN32
143: #ifndef __DLL__
144: FreeProcInstance((FARPROC)lppw->lpfnPauseButtonProc);
145: #endif
146: #endif
147:
148: return(lppw->bPauseCancel);
149: }
150:
151: LRESULT CALLBACK WINEXPORT
152: WndPauseProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
153: {
154: HDC hdc;
155: PAINTSTRUCT ps;
156: RECT rect;
157: TEXTMETRIC tm;
158: LPPW lppw;
159: int cxChar, cyChar, middle;
160:
161: lppw = (LPPW)GetWindowLong(hwnd, 0);
162:
163: switch(message) {
164: case WM_KEYDOWN:
165: if (wParam == VK_RETURN) {
166: if (lppw->bDefOK)
167: SendMessage(hwnd, WM_COMMAND, IDOK, 0L);
168: else
169: SendMessage(hwnd, WM_COMMAND, IDCANCEL, 0L);
170: }
171: return(0);
172: case WM_COMMAND:
173: switch(LOWORD(wParam)) {
174: case IDCANCEL:
175: case IDOK:
176: lppw->bPauseCancel = LOWORD(wParam);
177: lppw->bPause = FALSE;
178: break;
179: }
180: return(0);
181: case WM_SETFOCUS:
182: SetFocus(lppw->bDefOK ? lppw->hOK : lppw->hCancel);
183: return(0);
184: case WM_PAINT:
185: {
186: hdc = BeginPaint(hwnd, &ps);
187: SelectObject(hdc, GetStockObject(SYSTEM_FIXED_FONT));
188: SetTextAlign(hdc, TA_CENTER);
189: GetClientRect(hwnd, &rect);
190: SetBkMode(hdc,TRANSPARENT);
191: TextOut(hdc,(rect.right+rect.left)/2, (rect.bottom+rect.top)/6,
192: lppw->Message,_fstrlen(lppw->Message));
193: EndPaint(hwnd, &ps);
194: return 0;
195: }
196: case WM_CREATE:
197: {
198: /* HBB 981202 HMENU sysmenu = GetSystemMenu(hwnd, FALSE); */
199: lppw = ((CREATESTRUCT FAR *)lParam)->lpCreateParams;
200: SetWindowLong(hwnd, 0, (LONG)lppw);
201: lppw->hWndPause = hwnd;
202: hdc = GetDC(hwnd);
203: SelectObject(hdc, GetStockObject(SYSTEM_FIXED_FONT));
204: GetTextMetrics(hdc, &tm);
205: cxChar = tm.tmAveCharWidth;
206: cyChar = tm.tmHeight + tm.tmExternalLeading;
207: ReleaseDC(hwnd,hdc);
208: middle = ((LPCREATESTRUCT) lParam)->cx / 2;
209: lppw->hOK = CreateWindow((LPSTR)"button", (LPSTR)"OK",
210: WS_CHILD | WS_VISIBLE | BS_DEFPUSHBUTTON,
211: middle - 10*cxChar, 3*cyChar,
212: 8*cxChar, 7*cyChar/4,
213: hwnd, (HMENU)IDOK,
214: ((LPCREATESTRUCT) lParam)->hInstance, NULL);
215: lppw->bDefOK = TRUE;
216: lppw->hCancel = CreateWindow((LPSTR)"button", (LPSTR)"Cancel",
217: WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,
218: middle + 2*cxChar, 3*cyChar,
219: 8*cxChar, 7*cyChar/4,
220: hwnd, (HMENU)IDCANCEL,
221: ((LPCREATESTRUCT) lParam)->hInstance, NULL);
222: lppw->lpfnOK = (WNDPROC) GetWindowLong(lppw->hOK, GWL_WNDPROC);
223: #ifdef WIN32
224: SetWindowLong(lppw->hOK, GWL_WNDPROC, (LONG)PauseButtonProc);
225: #else
226: SetWindowLong(lppw->hOK, GWL_WNDPROC, (LONG)lppw->lpfnPauseButtonProc);
227: #endif
228: lppw->lpfnCancel = (WNDPROC) GetWindowLong(lppw->hCancel, GWL_WNDPROC);
229: #ifdef WIN32
230: SetWindowLong(lppw->hCancel, GWL_WNDPROC, (LONG)PauseButtonProc);
231: #else
232: SetWindowLong(lppw->hCancel, GWL_WNDPROC, (LONG)lppw->lpfnPauseButtonProc);
233: #endif
234: if (GetParent(hwnd))
235: EnableWindow(GetParent(hwnd),FALSE);
236: #if 0 /* HBB 981203 */
237: DeleteMenu(sysmenu,SC_RESTORE,MF_BYCOMMAND);
238: DeleteMenu(sysmenu,SC_SIZE,MF_BYCOMMAND);
239: DeleteMenu(sysmenu,SC_MINIMIZE,MF_BYCOMMAND);
240: DeleteMenu(sysmenu,SC_MAXIMIZE,MF_BYCOMMAND);
241: DeleteMenu(sysmenu,SC_TASKLIST,MF_BYCOMMAND);
242: DeleteMenu(sysmenu,0,MF_BYCOMMAND); /* a separator */
243: DeleteMenu(sysmenu,0,MF_BYCOMMAND); /* a separator */
244: #endif
245: }
246: return 0;
247: case WM_DESTROY:
248: GetWindowRect(hwnd, &rect);
249: lppw->Origin.x = (rect.right+rect.left)/2;
250: lppw->Origin.y = (rect.bottom+rect.top)/2;
251: lppw->bPause = FALSE;
252: if (GetParent(hwnd))
253: EnableWindow(GetParent(hwnd),TRUE);
254: break;
255: }
256: return DefWindowProc(hwnd, message, wParam, lParam);
257: }
258:
259:
260: LRESULT CALLBACK WINEXPORT
261: PauseButtonProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
262: {
263: LPPW lppw;
264: #ifdef WIN32
265: LONG n = GetWindowLong(hwnd, GWL_ID);
266: #else
267: WORD n = GetWindowWord(hwnd, GWW_ID);
268: #endif
269: lppw = (LPPW)GetWindowLong(GetParent(hwnd), 0);
270: switch(message) {
271: case WM_KEYDOWN:
272: switch(wParam) {
273: case VK_TAB:
274: case VK_BACK:
275: case VK_LEFT:
276: case VK_RIGHT:
277: case VK_UP:
278: case VK_DOWN:
279: lppw->bDefOK = !(n == IDOK);
280: if (lppw->bDefOK) {
281: SendMessage(lppw->hOK, BM_SETSTYLE, (WPARAM)BS_DEFPUSHBUTTON, (LPARAM)TRUE);
282: SendMessage(lppw->hCancel, BM_SETSTYLE, (WPARAM)BS_PUSHBUTTON, (LPARAM)TRUE);
283: SetFocus(lppw->hOK);
284: }
285: else {
286: SendMessage(lppw->hOK, BM_SETSTYLE, (WPARAM)BS_PUSHBUTTON, (LPARAM)TRUE);
287: SendMessage(lppw->hCancel, BM_SETSTYLE, (WPARAM)BS_DEFPUSHBUTTON, (LPARAM)TRUE);
288: SetFocus(lppw->hCancel);
289: }
290: break;
291: default:
292: SendMessage(GetParent(hwnd), message, wParam, lParam);
293: }
294: break;
295: }
296: return CallWindowProc(((n == IDOK) ? lppw->lpfnOK : lppw->lpfnCancel),
297: hwnd, message, wParam, lParam);
298: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to wpause.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / win