ui/motif/graphics.c

Mon, 10 Nov 2025 21:52:51 +0100

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Mon, 10 Nov 2025 21:52:51 +0100
changeset 113
dde28a806552
parent 100
d2bd73d28ff1
permissions
-rw-r--r--

update ucx

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

mercurial