ui/motif/graphics.c

Sun, 07 Dec 2025 15:50:20 +0100

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Sun, 07 Dec 2025 15:50:20 +0100
changeset 971
0224108bd8c2
parent 888
1bb3a6641857
permissions
-rw-r--r--

rename tree.h to list.h

96
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
1 /*
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
2 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
3 *
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
4 * Copyright 2015 Olaf Wintermann. All rights reserved.
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
5 *
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
6 * Redistribution and use in source and binary forms, with or without
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
7 * modification, are permitted provided that the following conditions are met:
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
8 *
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
9 * 1. Redistributions of source code must retain the above copyright
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
10 * notice, this list of conditions and the following disclaimer.
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
11 *
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
12 * 2. Redistributions in binary form must reproduce the above copyright
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
13 * notice, this list of conditions and the following disclaimer in the
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
14 * documentation and/or other materials provided with the distribution.
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
15 *
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
20 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
25 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
26 * POSSIBILITY OF SUCH DAMAGE.
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
27 */
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
28
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
29 #include <stdio.h>
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
30 #include <stdlib.h>
119
d7a7fb79b5f7 added scrollbar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 115
diff changeset
31 #include <X11/Intrinsic.h>
d7a7fb79b5f7 added scrollbar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 115
diff changeset
32 #include <X11/IntrinsicP.h>
96
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
33
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
34 #include "graphics.h"
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
35
93785a7bda56 added drawing area (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
36 #include "container.h"
888
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
37
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
38 UIWIDGET ui_drawingarea_create(UiObject *obj, UiDrawingAreaArgs *args) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
39 Arg xargs[16];
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
40 int n = 0;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
41
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
42 UiContainerPrivate *ctn = ui_obj_container(obj);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
43 UiLayout layout = UI_ARGS2LAYOUT(args);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
44
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
45 Widget parent = ui_container_prepare(ctn, &layout, xargs, &n);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
46 char *name = args->name ? (char*)args->name : "drawingarea";
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
47
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
48 Widget widget = XmCreateDrawingArea(parent, name, xargs, n);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
49 XtManageChild(widget);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
50 ui_container_add(ctn, widget);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
51
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
52 UiDrawingArea *drawingarea = malloc(sizeof(UiDrawingArea));
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
53 drawingarea->obj = obj;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
54 drawingarea->draw = args->draw;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
55 drawingarea->drawdata = args->drawdata;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
56 drawingarea->onclick = args->onclick;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
57 drawingarea->onclickdata = args->onclickdata;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
58 drawingarea->onmotion = args->onmotion;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
59 drawingarea->onmotiondata = args->onmotiondata;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
60 drawingarea->gc = NULL;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
61
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
62 XtAddCallback(
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
63 widget,
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
64 XmNdestroyCallback,
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
65 (XtCallbackProc)ui_drawingarea_destroy,
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
66 drawingarea);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
67 XtAddCallback(
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
68 widget,
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
69 XmNexposeCallback,
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
70 (XtCallbackProc)ui_drawingarea_expose,
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
71 drawingarea);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
72
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
73 return widget;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
74 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
75
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
76 void ui_drawingarea_destroy(Widget w, UiDrawingArea *drawingarea, XtPointer d) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
77 if(drawingarea->gc) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
78 XFreeGC(XtDisplay(w), drawingarea->gc);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
79 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
80 free(drawingarea);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
81 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
82
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
83 void ui_drawingarea_expose(Widget w, UiDrawingArea *drawingarea, XtPointer d) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
84 Display *dp = XtDisplay(w);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
85
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
86 if(!drawingarea->gc) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
87 XGCValues gcvals;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
88 gcvals.foreground = BlackPixelOfScreen(XtScreen(w));
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
89 drawingarea->gc = XCreateGC(dp, XtWindow(w), (GCForeground), &gcvals);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
90 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
91
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
92 if(drawingarea->draw) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
93 UiEvent event;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
94 event.obj = drawingarea->obj;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
95 event.window = event.obj->window;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
96 event.document = event.obj->ctx->document;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
97 event.eventdata = NULL;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
98 event.eventdatatype = 0;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
99 event.intval = 0;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
100 event.set = 0;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
101
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
102 UiXlibGraphics g;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
103 g.g.width = w->core.width;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
104 g.g.height = w->core.height;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
105 g.widget = w;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
106 g.display = dp;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
107 g.colormap = w->core.colormap;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
108 g.gc = drawingarea->gc;
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
109
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
110 drawingarea->draw(&event, (UiGraphics*)&g, drawingarea->drawdata);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
111 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
112 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
113
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
114 void ui_drawingarea_getsize(UIWIDGET drawingarea, int *width, int *height) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
115
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
116 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
117
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
118 void ui_drawingarea_redraw(UIWIDGET drawingarea) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
119
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
120 }

mercurial