![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to de_win.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gc / cord|
Return to de_win.c CVS log | Up to [local] / OpenXM_contrib / gc / cord |
1.1 maekawa 1: /*
2: * Copyright (c) 1994 by Xerox Corporation. All rights reserved.
3: *
4: * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
5: * OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
6: *
7: * Permission is hereby granted to use or copy this program
8: * for any purpose, provided the above notices are retained on all copies.
9: * Permission to modify the code and to distribute modified code is granted,
10: * provided the above notices are retained, and a notice that the code was
11: * modified is included with the above copyright notice.
12: */
13: /* Boehm, February 6, 1995 12:29 pm PST */
14:
15: /*
16: * The MS Windows specific part of de.
17: * This started as the generic Windows application template
18: * made available by Rob Haack (rhaack@polaris.unm.edu), but
19: * significant parts didn't survive to the final version.
20: *
21: * This was written by a nonexpert windows programmer.
22: */
23:
24:
25: #include "windows.h"
26: #include "gc.h"
27: #include "cord.h"
28: #include "de_cmds.h"
29: #include "de_win.h"
30:
31: int LINES = 0;
32: int COLS = 0;
33:
34: char szAppName[] = "DE";
35: char FullAppName[] = "Demonstration Editor";
36:
37: HWND hwnd;
38:
39: void de_error(char *s)
40: {
41: MessageBox( hwnd, (LPSTR) s,
42: (LPSTR) FullAppName,
43: MB_ICONINFORMATION | MB_OK );
44: InvalidateRect(hwnd, NULL, TRUE);
45: }
46:
47: int APIENTRY WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
48: LPSTR command_line, int nCmdShow)
49: {
50: MSG msg;
51: WNDCLASS wndclass;
52: HANDLE hAccel;
53:
54: if (!hPrevInstance)
55: {
56: wndclass.style = CS_HREDRAW | CS_VREDRAW;
57: wndclass.lpfnWndProc = WndProc;
58: wndclass.cbClsExtra = 0;
59: wndclass.cbWndExtra = DLGWINDOWEXTRA;
60: wndclass.hInstance = hInstance;
61: wndclass.hIcon = LoadIcon (hInstance, szAppName);
62: wndclass.hCursor = LoadCursor (NULL, IDC_ARROW);
63: wndclass.hbrBackground = GetStockObject(WHITE_BRUSH);
64: wndclass.lpszMenuName = "DE";
65: wndclass.lpszClassName = szAppName;
66:
67: if (RegisterClass (&wndclass) == 0) {
68: char buf[50];
69:
70: sprintf(buf, "RegisterClass: error code: 0x%X", GetLastError());
71: de_error(buf);
72: return(0);
73: }
74: }
75:
76: /* Empirically, the command line does not include the command name ...
77: if (command_line != 0) {
78: while (isspace(*command_line)) command_line++;
79: while (*command_line != 0 && !isspace(*command_line)) command_line++;
80: while (isspace(*command_line)) command_line++;
81: } */
82:
83: if (command_line == 0 || *command_line == 0) {
84: de_error("File name argument required");
85: return( 0 );
86: } else {
87: char *p = command_line;
88:
89: while (*p != 0 && !isspace(*p)) p++;
90: arg_file_name = CORD_to_char_star(
91: CORD_substr(command_line, 0, p - command_line));
92: }
93:
94: hwnd = CreateWindow (szAppName,
95: FullAppName,
96: WS_OVERLAPPEDWINDOW | WS_CAPTION, /* Window style */
97: CW_USEDEFAULT, 0, /* default pos. */
98: CW_USEDEFAULT, 0, /* default width, height */
99: NULL, /* No parent */
100: NULL, /* Window class menu */
101: hInstance, NULL);
102: if (hwnd == NULL) {
103: char buf[50];
104:
105: sprintf(buf, "CreateWindow: error code: 0x%X", GetLastError());
106: de_error(buf);
107: return(0);
108: }
109:
110: ShowWindow (hwnd, nCmdShow);
111:
112: hAccel = LoadAccelerators( hInstance, szAppName );
113:
114: while (GetMessage (&msg, NULL, 0, 0))
115: {
116: if( !TranslateAccelerator( hwnd, hAccel, &msg ) )
117: {
118: TranslateMessage (&msg);
119: DispatchMessage (&msg);
120: }
121: }
122: return msg.wParam;
123: }
124:
125: /* Return the argument with all control characters replaced by blanks. */
126: char * plain_chars(char * text, size_t len)
127: {
128: char * result = GC_MALLOC_ATOMIC(len + 1);
129: register size_t i;
130:
131: for (i = 0; i < len; i++) {
132: if (iscntrl(text[i])) {
133: result[i] = ' ';
134: } else {
135: result[i] = text[i];
136: }
137: }
138: result[len] = '\0';
139: return(result);
140: }
141:
142: /* Return the argument with all non-control-characters replaced by */
143: /* blank, and all control characters c replaced by c + 32. */
144: char * control_chars(char * text, size_t len)
145: {
146: char * result = GC_MALLOC_ATOMIC(len + 1);
147: register size_t i;
148:
149: for (i = 0; i < len; i++) {
150: if (iscntrl(text[i])) {
151: result[i] = text[i] + 0x40;
152: } else {
153: result[i] = ' ';
154: }
155: }
156: result[len] = '\0';
157: return(result);
158: }
159:
160: int char_width;
161: int char_height;
162:
163: void get_line_rect(int line, int win_width, RECT * rectp)
164: {
165: rectp -> top = line * char_height;
166: rectp -> bottom = rectp->top + char_height;
167: rectp -> left = 0;
168: rectp -> right = win_width;
169: }
170:
171: int caret_visible = 0; /* Caret is currently visible. */
172:
173: int screen_was_painted = 0;/* Screen has been painted at least once. */
174:
175: void update_cursor(void);
176:
177: LRESULT CALLBACK WndProc (HWND hwnd, UINT message,
178: WPARAM wParam, LPARAM lParam)
179: {
180: static FARPROC lpfnAboutBox;
181: static HANDLE hInstance;
182: HDC dc;
183: PAINTSTRUCT ps;
184: RECT client_area;
185: RECT this_line;
186: RECT dummy;
187: TEXTMETRIC tm;
188: register int i;
189: int id;
190:
191: switch (message)
192: {
193: case WM_CREATE:
194: hInstance = ( (LPCREATESTRUCT) lParam)->hInstance;
195: lpfnAboutBox = MakeProcInstance( (FARPROC) AboutBox, hInstance );
196: dc = GetDC(hwnd);
197: SelectObject(dc, GetStockObject(SYSTEM_FIXED_FONT));
198: GetTextMetrics(dc, &tm);
199: ReleaseDC(hwnd, dc);
200: char_width = tm.tmAveCharWidth;
201: char_height = tm.tmHeight + tm.tmExternalLeading;
202: GetClientRect(hwnd, &client_area);
203: COLS = (client_area.right - client_area.left)/char_width;
204: LINES = (client_area.bottom - client_area.top)/char_height;
205: generic_init();
206: return(0);
207:
208: case WM_CHAR:
209: if (wParam == QUIT) {
210: SendMessage( hwnd, WM_CLOSE, 0, 0L );
211: } else {
212: do_command(wParam);
213: }
214: return(0);
215:
216: case WM_SETFOCUS:
217: CreateCaret(hwnd, NULL, char_width, char_height);
218: ShowCaret(hwnd);
219: caret_visible = 1;
220: update_cursor();
221: return(0);
222:
223: case WM_KILLFOCUS:
224: HideCaret(hwnd);
225: DestroyCaret();
226: caret_visible = 0;
227: return(0);
228:
229: case WM_LBUTTONUP:
230: {
231: unsigned xpos = LOWORD(lParam); /* From left */
232: unsigned ypos = HIWORD(lParam); /* from top */
233:
234: set_position( xpos/char_width, ypos/char_height );
235: return(0);
236: }
237:
238: case WM_COMMAND:
239: id = LOWORD(wParam);
240: if (id & EDIT_CMD_FLAG) {
241: if (id & REPEAT_FLAG) do_command(REPEAT);
242: do_command(CHAR_CMD(id));
243: return( 0 );
244: } else {
245: switch(id) {
246: case IDM_FILEEXIT:
247: SendMessage( hwnd, WM_CLOSE, 0, 0L );
248: return( 0 );
249:
250: case IDM_HELPABOUT:
251: if( DialogBox( hInstance, "ABOUTBOX",
252: hwnd, lpfnAboutBox ) );
253: InvalidateRect( hwnd, NULL, TRUE );
254: return( 0 );
255: case IDM_HELPCONTENTS:
256: de_error(
257: "Cursor keys: ^B(left) ^F(right) ^P(up) ^N(down)\n"
258: "Undo: ^U Write: ^W Quit:^D Repeat count: ^R[n]\n"
259: "Top: ^T Locate (search, find): ^L text ^L\n");
260: return( 0 );
261: }
262: }
263: break;
264:
265: case WM_CLOSE:
266: DestroyWindow( hwnd );
267: return 0;
268:
269: case WM_DESTROY:
270: PostQuitMessage (0);
271: GC_win32_free_heap();
272: return 0;
273:
274: case WM_PAINT:
275: dc = BeginPaint(hwnd, &ps);
276: GetClientRect(hwnd, &client_area);
277: COLS = (client_area.right - client_area.left)/char_width;
278: LINES = (client_area.bottom - client_area.top)/char_height;
279: SelectObject(dc, GetStockObject(SYSTEM_FIXED_FONT));
280: for (i = 0; i < LINES; i++) {
281: get_line_rect(i, client_area.right, &this_line);
282: if (IntersectRect(&dummy, &this_line, &ps.rcPaint)) {
283: CORD raw_line = retrieve_screen_line(i);
284: size_t len = CORD_len(raw_line);
285: char * text = CORD_to_char_star(raw_line);
286: /* May contain embedded NULLs */
287: char * plain = plain_chars(text, len);
288: char * blanks = CORD_to_char_star(CORD_chars(' ',
289: COLS - len));
290: char * control = control_chars(text, len);
291: # define RED RGB(255,0,0)
292:
293: SetBkMode(dc, OPAQUE);
294: SetTextColor(dc, GetSysColor(COLOR_WINDOWTEXT));
295:
296: TextOut(dc, this_line.left, this_line.top,
297: plain, len);
298: TextOut(dc, this_line.left + len * char_width, this_line.top,
299: blanks, COLS - len);
300: SetBkMode(dc, TRANSPARENT);
301: SetTextColor(dc, RED);
302: TextOut(dc, this_line.left, this_line.top,
303: control, strlen(control));
304: }
305: }
306: EndPaint(hwnd, &ps);
307: screen_was_painted = 1;
308: return 0;
309: }
310: return DefWindowProc (hwnd, message, wParam, lParam);
311: }
312:
313: int last_col;
314: int last_line;
315:
316: void move_cursor(int c, int l)
317: {
318: last_col = c;
319: last_line = l;
320:
321: if (caret_visible) update_cursor();
322: }
323:
324: void update_cursor(void)
325: {
326: SetCaretPos(last_col * char_width, last_line * char_height);
327: ShowCaret(hwnd);
328: }
329:
330: void invalidate_line(int i)
331: {
332: RECT line;
333:
334: if (!screen_was_painted) return;
335: /* Invalidating a rectangle before painting seems result in a */
336: /* major performance problem. */
337: get_line_rect(i, COLS*char_width, &line);
338: InvalidateRect(hwnd, &line, FALSE);
339: }
340:
341: LRESULT CALLBACK AboutBox( HWND hDlg, UINT message,
342: WPARAM wParam, LPARAM lParam )
343: {
344: switch( message )
345: {
346: case WM_INITDIALOG:
347: SetFocus( GetDlgItem( hDlg, IDOK ) );
348: break;
349:
350: case WM_COMMAND:
351: switch( wParam )
352: {
353: case IDOK:
354: EndDialog( hDlg, TRUE );
355: break;
356: }
357: break;
358:
359: case WM_CLOSE:
360: EndDialog( hDlg, TRUE );
361: return TRUE;
362:
363: }
364: return FALSE;
365: }
366: