blob: b3f1f334f0e4d4585ee02c6e059f57e91e02b06f [file] [log] [blame]
adamdunkels60612e72004-08-09 20:21:30 +00001/*
2 * Copyright (c) 2002, Adam Dunkels.
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above
11 * copyright notice, this list of conditions and the following
12 * disclaimer in the documentation and/or other materials provided
13 * with the distribution.
14 * 3. The name of the author may not be used to endorse or promote
15 * products derived from this software without specific prior
16 * written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
19 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
20 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
22 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
24 * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
26 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
27 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
28 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29 *
30 * This file is part of the "ctk" console GUI toolkit for cc65
31 *
32 * $Id: ctk-conio-service.c,v 1.1 2004/08/09 20:21:30 adamdunkels Exp $
33 *
34 */
35
36#include <conio.h>
37
38#include "ctk.h"
39#include "ctk-draw.h"
40
41#include "ctk-draw-service.h"
42
43#include "ctk-conio-conf.h"
44#include <string.h>
45
46#ifndef NULL
47#define NULL (void *)0
48#endif /* NULL */
49
50static unsigned char sizex, sizey;
51
52/*unsigned char ctk_draw_windowborder_height = 1;
53unsigned char ctk_draw_windowborder_width = 1;
54unsigned char ctk_draw_windowtitle_height = 1;*/
55
56
57/*-----------------------------------------------------------------------------------*/
58static void
59cputsn(char *str, unsigned char len)
60{
61 char c;
62
63 while(len > 0) {
64 --len;
65 c = *str;
66 if(c == 0) {
67 break;
68 }
69 cputc(c);
70 ++str;
71 }
72}
73/*-----------------------------------------------------------------------------------*/
74static void
75s_ctk_draw_init(void)
76{
77 bgcolor(SCREENCOLOR);
78 bordercolor(BORDERCOLOR);
79 screensize(&sizex, &sizey);
80 ctk_draw_clear(0, sizey);
81}
82/*-----------------------------------------------------------------------------------*/
83static void
84draw_widget(struct ctk_widget *w,
85 unsigned char x, unsigned char y,
86 unsigned char clipx,
87 unsigned char clipy,
88 unsigned char clipy1, unsigned char clipy2,
89 unsigned char focus)
90{
91 unsigned char xpos, ypos, xscroll;
92 unsigned char i, j;
93 char c, *text;
94 unsigned char len, wfocus;
95
96 wfocus = 0;
97 if(focus & CTK_FOCUS_WINDOW) {
98 textcolor(WIDGETCOLOR_FWIN);
99 if(focus & CTK_FOCUS_WIDGET) {
100 textcolor(WIDGETCOLOR_FOCUS);
101 wfocus = 1;
102 }
103 } else if(focus & CTK_FOCUS_DIALOG) {
104 textcolor(WIDGETCOLOR_DIALOG);
105 if(focus & CTK_FOCUS_WIDGET) {
106 textcolor(WIDGETCOLOR_FOCUS);
107 wfocus = 1;
108 }
109 } else {
110 textcolor(WIDGETCOLOR);
111 }
112
113 xpos = x + w->x;
114 ypos = y + w->y;
115
116 switch(w->type) {
117 case CTK_WIDGET_SEPARATOR:
118 if(ypos >= clipy1 && ypos < clipy2) {
119 chlinexy(xpos, ypos, w->w);
120 }
121 break;
122 case CTK_WIDGET_LABEL:
123 text = w->widget.label.text;
124 for(i = 0; i < w->h; ++i) {
125 if(ypos >= clipy1 && ypos < clipy2) {
126 gotoxy(xpos, ypos);
127 cputsn(text, w->w);
128 if(w->w - (wherex() - xpos) > 0) {
129 cclear(w->w - (wherex() - xpos));
130 }
131 }
132 ++ypos;
133 text += w->w;
134 }
135 break;
136 case CTK_WIDGET_BUTTON:
137 if(ypos >= clipy1 && ypos < clipy2) {
138 if(wfocus != 0) {
139 revers(1);
140 } else {
141 revers(0);
142 }
143 cputcxy(xpos, ypos, '[');
144 cputsn(w->widget.button.text, w->w);
145 cputc(']');
146 revers(0);
147 }
148 break;
149 case CTK_WIDGET_HYPERLINK:
150 if(ypos >= clipy1 && ypos < clipy2) {
151 if(wfocus != 0) {
152 revers(0);
153 } else {
154 revers(1);
155 }
156 gotoxy(xpos, ypos);
157 textcolor(WIDGETCOLOR_HLINK);
158 cputsn(w->widget.button.text, w->w);
159 revers(0);
160 }
161 break;
162 case CTK_WIDGET_TEXTENTRY:
163 text = w->widget.textentry.text;
164 if(wfocus != 0) {
165 revers(1);
166 } else {
167 revers(0);
168 }
169 xscroll = 0;
170 if(w->widget.textentry.xpos >= w->w - 1) {
171 xscroll = w->widget.textentry.xpos - w->w + 1;
172 }
173 for(j = 0; j < w->h; ++j) {
174 if(ypos >= clipy1 && ypos < clipy2) {
175 if(w->widget.textentry.state == CTK_TEXTENTRY_EDIT &&
176 w->widget.textentry.ypos == j) {
177 revers(0);
178 cputcxy(xpos, ypos, '>');
179 for(i = 0; i < w->w; ++i) {
180 c = text[i + xscroll];
181 if(i == w->widget.textentry.xpos - xscroll) {
182 revers(1);
183 } else {
184 revers(0);
185 }
186 if(c == 0) {
187 cputc(' ');
188 } else {
189 cputc(c);
190 }
191 revers(0);
192 }
193 cputc('<');
194 } else {
195 cvlinexy(xpos, ypos, 1);
196 gotoxy(xpos + 1, ypos);
197 cputsn(text, w->w);
198 i = wherex();
199 if(i - xpos - 1 < w->w) {
200 cclear(w->w - (i - xpos) + 1);
201 }
202 cvline(1);
203 }
204 }
205 ++ypos;
206 text += w->w;
207 }
208 revers(0);
209 break;
210 case CTK_WIDGET_ICON:
211 if(ypos >= clipy1 && ypos < clipy2) {
212 if(focus & 1) {
213 revers(1);
214 } else {
215 revers(0);
216 }
217 gotoxy(xpos, ypos);
218 if(w->widget.icon.textmap != NULL) {
219 for(i = 0; i < 3; ++i) {
220 gotoxy(xpos, ypos);
221 if(ypos >= clipy1 && ypos < clipy2) {
222 cputc(w->widget.icon.textmap[0 + 3 * i]);
223 cputc(w->widget.icon.textmap[1 + 3 * i]);
224 cputc(w->widget.icon.textmap[2 + 3 * i]);
225 }
226 ++ypos;
227 }
228 }
229 x = xpos;
230
231 len = strlen(w->widget.icon.title);
232 if(x + len >= sizex) {
233 x = sizex - len;
234 }
235
236 gotoxy(x, ypos);
237 if(ypos >= clipy1 && ypos < clipy2) {
238 cputs(w->widget.icon.title);
239 }
240 revers(0);
241 }
242 break;
243
244 default:
245 break;
246 }
247}
248/*-----------------------------------------------------------------------------------*/
249static void
250s_ctk_draw_widget(struct ctk_widget *w,
251 unsigned char focus,
252 unsigned char clipy1,
253 unsigned char clipy2)
254{
255 struct ctk_window *win = w->window;
256 unsigned char posx, posy;
257
258 posx = win->x + 1;
259 posy = win->y + 2;
260
261 if(w == win->focused) {
262 focus |= CTK_FOCUS_WIDGET;
263 }
264
265 draw_widget(w, posx, posy,
266 posx + win->w,
267 posy + win->h,
268 clipy1, clipy2,
269 focus);
270
271#ifdef CTK_CONIO_CONF_UPDATE
272 CTK_CONIO_CONF_UPDATE();
273#endif /* CTK_CONIO_CONF_UPDATE */
274}
275/*-----------------------------------------------------------------------------------*/
276static void
277s_ctk_draw_clear_window(struct ctk_window *window,
278 unsigned char focus,
279 unsigned char clipy1,
280 unsigned char clipy2)
281{
282 unsigned char i;
283 unsigned char h;
284
285
286 h = window->y + 2 + window->h;
287 /* Clear window contents. */
288 for(i = window->y + 2; i < h; ++i) {
289 if(i >= clipy1 && i < clipy2) {
290 cclearxy(window->x + 1, i, window->w);
291 }
292 }
293}
294/*-----------------------------------------------------------------------------------*/
295static void
296draw_window_contents(struct ctk_window *window, unsigned char focus,
297 unsigned char clipy1, unsigned char clipy2,
298 unsigned char x1, unsigned char x2,
299 unsigned char y1, unsigned char y2)
300{
301 struct ctk_widget *w;
302 unsigned char wfocus;
303
304 /* Draw inactive widgets. */
305 for(w = window->inactive; w != NULL; w = w->next) {
306 draw_widget(w, x1, y1, x2, y2,
307 clipy1, clipy2,
308 focus);
309 }
310
311 /* Draw active widgets. */
312 for(w = window->active; w != NULL; w = w->next) {
313 wfocus = focus;
314 if(w == window->focused) {
315 wfocus |= CTK_FOCUS_WIDGET;
316 }
317
318 draw_widget(w, x1, y1, x2, y2,
319 clipy1, clipy2,
320 wfocus);
321 }
322
323#ifdef CTK_CONIO_CONF_UPDATE
324 CTK_CONIO_CONF_UPDATE();
325#endif /* CTK_CONIO_CONF_UPDATE */
326
327}
328/*-----------------------------------------------------------------------------------*/
329static void
330s_ctk_draw_window(struct ctk_window *window, unsigned char focus,
331 unsigned char clipy1, unsigned char clipy2)
332{
333 unsigned char x, y;
334 unsigned char h;
335 unsigned char x1, y1, x2, y2;
336
337 if(window->y + 1 >= clipy2) {
338 return;
339 }
340
341 x = window->x;
342 y = window->y + 1;
343
344 if(focus & CTK_FOCUS_WINDOW) {
345 textcolor(WINDOWCOLOR_FOCUS);
346 } else {
347 textcolor(WINDOWCOLOR);
348 }
349
350 x1 = x + 1;
351 y1 = y + 1;
352 x2 = x1 + window->w;
353 y2 = y1 + window->h;
354
355 /* Draw window frame. */
356 if(y >= clipy1) {
357 cputcxy(x, y, CH_ULCORNER);
358 gotoxy(wherex() + window->titlelen + 2, wherey());
359 chline(window->w - (wherex() - x) - 2);
360 cputcxy(x2, y, CH_URCORNER);
361 }
362
363 h = window->h;
364
365 if(clipy1 > y1) {
366 if(clipy1 - y1 < h) {
367 h = clipy1 - y1;
368 y1 = clipy1;
369 } else {
370 h = 0;
371 }
372 }
373
374 if(clipy2 < y1 + h) {
375 if(y1 >= clipy2) {
376 h = 0;
377 } else {
378 h = clipy2 - y1;
379 }
380 }
381
382 cvlinexy(x, y1, h);
383 cvlinexy(x2, y1, h);
384
385 if(y + window->h >= clipy1 &&
386 y + window->h < clipy2) {
387 cputcxy(x, y2, CH_LLCORNER);
388 chlinexy(x1, y2, window->w);
389 cputcxy(x2, y2, CH_LRCORNER);
390 }
391
392 draw_window_contents(window, focus & CTK_FOCUS_WINDOW, clipy1, clipy2,
393 x1, x2, y + 1, y2);
394}
395/*-----------------------------------------------------------------------------------*/
396static void
397s_ctk_draw_dialog(struct ctk_window *dialog)
398{
399 unsigned char x, y;
400 unsigned char i;
401 unsigned char x1, y1, x2, y2;
402
403 textcolor(DIALOGCOLOR);
404
405 x = dialog->x;
406 y = dialog->y + 1;
407
408
409 x1 = x + 1;
410 y1 = y + 1;
411 x2 = x1 + dialog->w;
412 y2 = y1 + dialog->h;
413
414
415 /* Draw dialog frame. */
416
417 cvlinexy(x, y1,
418 dialog->h);
419 cvlinexy(x2, y1,
420 dialog->h);
421
422 chlinexy(x1, y,
423 dialog->w);
424 chlinexy(x1, y2,
425 dialog->w);
426
427 cputcxy(x, y, CH_ULCORNER);
428 cputcxy(x, y2, CH_LLCORNER);
429 cputcxy(x2, y, CH_URCORNER);
430 cputcxy(x2, y2, CH_LRCORNER);
431
432
433 /* Clear dialog contents. */
434 for(i = y1; i < y2; ++i) {
435 cclearxy(x1, i, dialog->w);
436 }
437
438 draw_window_contents(dialog, CTK_FOCUS_DIALOG, 0, sizey,
439 x1, x2, y1, y2);
440}
441/*-----------------------------------------------------------------------------------*/
442static void
443s_ctk_draw_clear(unsigned char y1, unsigned char y2)
444{
445 unsigned char i;
446
447 for(i = y1; i < y2; ++i) {
448 cclearxy(0, i, sizex);
449 }
450}
451/*-----------------------------------------------------------------------------------*/
452static void
453draw_menu(struct ctk_menu *m)
454{
455 unsigned char x, x2, y;
456 textcolor(OPENMENUCOLOR);
457 revers(0);
458 x = wherex();
459 cputs(m->title);
460 cputc(' ');
461 x2 = wherex();
462 if(x + CTK_CONF_MENUWIDTH > sizex) {
463 x = sizex - CTK_CONF_MENUWIDTH;
464 }
465
466
467 for(y = 0; y < m->nitems; ++y) {
468 if(y == m->active) {
469 textcolor(ACTIVEMENUITEMCOLOR);
470 revers(0);
471 } else {
472 textcolor(MENUCOLOR);
473 revers(1);
474 }
475 gotoxy(x, y + 1);
476 if(m->items[y].title[0] == '-') {
477 chline(CTK_CONF_MENUWIDTH);
478 } else {
479 cputs(m->items[y].title);
480 }
481 if(x + CTK_CONF_MENUWIDTH > wherex()) {
482 cclear(x + CTK_CONF_MENUWIDTH - wherex());
483 }
484
485 }
486 gotoxy(x2, 0);
487 textcolor(MENUCOLOR);
488 revers(1);
489}
490/*-----------------------------------------------------------------------------------*/
491static void
492s_ctk_draw_menus(struct ctk_menus *menus)
493{
494 struct ctk_menu *m;
495
496 /* Draw menus */
497 textcolor(MENUCOLOR);
498 gotoxy(0, 0);
499 revers(1);
500 cputc(' ');
501 for(m = menus->menus->next; m != NULL; m = m->next) {
502 if(m != menus->open) {
503 cputs(m->title);
504 cputc(' ');
505 } else {
506 draw_menu(m);
507 }
508 }
509
510
511 if(wherex() + strlen(menus->desktopmenu->title) + 1>= sizex) {
512 gotoxy(sizex - strlen(menus->desktopmenu->title) - 1, 0);
513 } else {
514 cclear(sizex - wherex() -
515 strlen(menus->desktopmenu->title) - 1);
516 }
517
518 /* Draw desktopmenu */
519 if(menus->desktopmenu != menus->open) {
520 cputs(menus->desktopmenu->title);
521 cputc(' ');
522 } else {
523 draw_menu(menus->desktopmenu);
524 }
525
526 revers(0);
527}
528/*-----------------------------------------------------------------------------------*/
529static unsigned char
530s_ctk_draw_height(void)
531{
532 return sizey;
533}
534/*-----------------------------------------------------------------------------------*/
535static unsigned char
536s_ctk_draw_width(void)
537{
538 return sizex;
539}
540/*-----------------------------------------------------------------------------------*/
541static unsigned short
542s_ctk_mouse_xtoc(unsigned short x)
543{
544 return x / 8;
545}
546/*-----------------------------------------------------------------------------------*/
547static unsigned short
548s_ctk_mouse_ytoc(unsigned short y)
549{
550 return y / 8;
551}
552/*-----------------------------------------------------------------------------------*/
553static const struct ctk_draw_service_interface interface =
554 {CTK_DRAW_SERVICE_VERSION,
555 1,
556 1,
557 1,
558 s_ctk_draw_init,
559 s_ctk_draw_clear,
560 s_ctk_draw_clear_window,
561 s_ctk_draw_window,
562 s_ctk_draw_dialog,
563 s_ctk_draw_widget,
564 s_ctk_draw_menus,
565 s_ctk_draw_width,
566 s_ctk_draw_height,
567 s_ctk_mouse_xtoc,
568 s_ctk_mouse_ytoc,
569 };
570
571EK_EVENTHANDLER(eventhandler, ev, data);
572EK_PROCESS(proc, CTK_DRAW_SERVICE_NAME ": text", EK_PRIO_NORMAL,
573 eventhandler, NULL, (void *)&interface);
574
575/*--------------------------------------------------------------------------*/
576LOADER_INIT_FUNC(ctk_conio_service_init, arg)
577{
578 ek_service_start(CTK_DRAW_SERVICE_NAME, &proc);
579}
580/*--------------------------------------------------------------------------*/
581EK_EVENTHANDLER(eventhandler, ev, data)
582{
583 EK_EVENTHANDLER_ARGS(ev, data);
584
585 switch(ev) {
586 case EK_EVENT_INIT:
587 case EK_EVENT_REPLACE:
588 ctk_restore();
589 break;
590 case EK_EVENT_REQUEST_REPLACE:
591 ek_replace((struct ek_proc *)data, NULL);
592 LOADER_UNLOAD();
593 break;
594 }
595}
596/*--------------------------------------------------------------------------*/