ui/motif/container.c

Mon, 04 Feb 2019 17:49:50 +0100

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Mon, 04 Feb 2019 17:49:50 +0100
changeset 157
0b33b9396851
parent 153
ee49d1852a5f
child 169
fe49cff3c571
permissions
-rw-r--r--

ucx update

4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
1 /*
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
2 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
3 *
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
4 * Copyright 2014 Olaf Wintermann. All rights reserved.
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
5 *
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
6 * Redistribution and use in source and binary forms, with or without
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
7 * modification, are permitted provided that the following conditions are met:
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
8 *
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
9 * 1. Redistributions of source code must retain the above copyright
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
10 * notice, this list of conditions and the following disclaimer.
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
11 *
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
12 * 2. Redistributions in binary form must reproduce the above copyright
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
13 * notice, this list of conditions and the following disclaimer in the
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
14 * documentation and/or other materials provided with the distribution.
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
15 *
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
20 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
39b9b86ec452 added simple container
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
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
26 * POSSIBILITY OF SUCH DAMAGE.
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
27 */
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
28
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
29 #include <stdio.h>
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
30 #include <stdlib.h>
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
31 #include <inttypes.h>
4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
32
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
33 #include "container.h"
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
34 #include "../common/context.h"
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
35 #include "../common/object.h"
4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
36
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
37 #define UI_GRID_MAX_COLUMNS 512
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
38
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
39 static UiBool ui_lb2bool(UiLayoutBool b) {
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
40 return b == UI_LAYOUT_TRUE ? TRUE : FALSE;
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
41 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
42
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
43 static UiLayoutBool ui_bool2lb(UiBool b) {
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
44 return b ? UI_LAYOUT_TRUE : UI_LAYOUT_FALSE;
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
45 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
46
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
47
4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
48 UiContainer* ui_frame_container(UiObject *obj, Widget frame) {
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
49 UiContainer *ct = ucx_mempool_calloc(
4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
50 obj->ctx->mempool,
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
51 1,
4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
52 sizeof(UiContainer));
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
53 ct->widget = frame;
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
54 ct->prepare = ui_frame_container_prepare;
4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
55 ct->add = ui_frame_container_add;
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
56 return ct;
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
57 }
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
58
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
59 Widget ui_frame_container_prepare(UiContainer *ct, Arg *args, int *n, UiBool fill) {
4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
60 return ct->widget;
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
61 }
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
62
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
63 void ui_frame_container_add(UiContainer *ct, Widget widget) {
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
64 ui_reset_layout(ct->layout);
76
3782827378ab added context menus (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 65
diff changeset
65 ct->current = widget;
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
66 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
67
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
68
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
69 UiContainer* ui_box_container(UiObject *obj, Widget box, int margin, int spacing, UiBoxOrientation orientation) {
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
70 UiBoxContainer *ct = ucx_mempool_calloc(
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
71 obj->ctx->mempool,
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
72 1,
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
73 sizeof(UiBoxContainer));
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
74 ct->container.widget = box;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
75 ct->container.prepare = ui_box_container_prepare;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
76 ct->container.add = ui_box_container_add;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
77 ct->orientation = orientation;
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
78 ct->margin = margin;
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
79 ct->spacing = spacing;
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
80 return (UiContainer*)ct;
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
81 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
82
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
83 Widget ui_box_container_prepare(UiContainer *ct, Arg *args, int *n, UiBool fill) {
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
84 UiBoxContainer *bc = (UiBoxContainer*)ct;
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
85 if(ct->layout.fill != UI_LAYOUT_UNDEFINED) {
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
86 fill = ui_lb2bool(ct->layout.fill);
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
87 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
88
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
89 if(bc->has_fill && fill) {
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
90 fprintf(stderr, "UiError: container has 2 filled widgets");
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
91 fill = FALSE;
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
92 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
93 if(fill) {
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
94 bc->has_fill = TRUE;
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
95 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
96
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
97 int a = *n;
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
98 // determine fixed and dynamic attachments
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
99 void *f1;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
100 void *f2;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
101 void *d1;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
102 void *d2;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
103 void *w1;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
104 void *w2;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
105 if(bc->orientation == UI_BOX_VERTICAL) {
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
106 f1 = XmNleftAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
107 f2 = XmNrightAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
108 d1 = XmNtopAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
109 d2 = XmNbottomAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
110 w1 = XmNtopWidget;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
111 w2 = XmNbottomWidget;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
112
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
113 // margin/spacing
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
114 XtSetArg(args[a], XmNleftOffset, bc->margin); a++;
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
115 XtSetArg(args[a], XmNrightOffset, bc->margin); a++;
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
116
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
117 XtSetArg(args[a], XmNtopOffset, bc->prev_widget ? bc->spacing : bc->margin); a++;
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
118 } else {
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
119 f1 = XmNtopAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
120 f2 = XmNbottomAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
121 d1 = XmNleftAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
122 d2 = XmNrightAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
123 w1 = XmNleftWidget;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
124 w2 = XmNrightWidget;
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
125
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
126 // margin/spacing
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
127 XtSetArg(args[a], XmNtopOffset, bc->margin); a++;
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
128 XtSetArg(args[a], XmNbottomOffset, bc->margin); a++;
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
129
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
130 XtSetArg(args[a], XmNleftOffset, bc->prev_widget ? bc->spacing : bc->margin); a++;
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
131 }
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
132 XtSetArg(args[a], f1, XmATTACH_FORM); a++;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
133 XtSetArg(args[a], f2, XmATTACH_FORM); a++;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
134
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
135 if(fill) {
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
136 XtSetArg(args[a], d2, XmATTACH_FORM); a++;
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
137 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
138 if(bc->prev_widget) {
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
139 XtSetArg(args[a], d1, XmATTACH_WIDGET); a++;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
140 XtSetArg(args[a], w1, bc->prev_widget); a++;
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
141 } else {
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
142 XtSetArg(args[a], d1, XmATTACH_FORM); a++;
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
143 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
144
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
145 *n = a;
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
146 return ct->widget;
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
147 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
148
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
149 void ui_box_container_add(UiContainer *ct, Widget widget) {
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
150 UiBoxContainer *bc = (UiBoxContainer*)ct;
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
151 // determine dynamic attachments
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
152 void *d1;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
153 void *d2;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
154 void *w1;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
155 void *w2;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
156 if(bc->orientation == UI_BOX_VERTICAL) {
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
157 d1 = XmNtopAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
158 d2 = XmNbottomAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
159 w1 = XmNtopWidget;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
160 w2 = XmNbottomWidget;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
161
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
162 } else {
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
163 d1 = XmNleftAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
164 d2 = XmNrightAttachment;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
165 w1 = XmNleftWidget;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
166 w2 = XmNrightWidget;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
167 }
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
168
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
169 if(bc->prev_widget) {
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
170 int v = 0;
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
171 XtVaGetValues(bc->prev_widget, d2, &v, 0);
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
172 if(v == XmATTACH_FORM) {
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
173 XtVaSetValues(
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
174 bc->prev_widget,
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
175 d2,
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
176 XmATTACH_WIDGET,
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
177 w2,
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
178 widget,
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
179 0);
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
180 XtVaSetValues(
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
181 widget,
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
182 d1,
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
183 XmATTACH_NONE,
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
184 d2,
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
185 XmATTACH_FORM,
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
186 0);
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
187 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
188 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
189 bc->prev_widget = widget;
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
190
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
191 ui_reset_layout(ct->layout);
76
3782827378ab added context menus (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 65
diff changeset
192 ct->current = widget;
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
193 }
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
194
99
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 93
diff changeset
195 UiContainer* ui_grid_container(UiObject *obj, Widget form, int columnspacing, int rowspacing) {
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
196 UiGridContainer *ct = ucx_mempool_calloc(
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
197 obj->ctx->mempool,
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
198 1,
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
199 sizeof(UiGridContainer));
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
200 ct->container.widget = form;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
201 ct->container.prepare = ui_grid_container_prepare;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
202 ct->container.add = ui_grid_container_add;
99
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 93
diff changeset
203 ct->columnspacing = columnspacing;
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 93
diff changeset
204 ct->rowspacing = rowspacing;
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
205 return (UiContainer*)ct;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
206 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
207
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
208 void ui_grid_newline(UiGridContainer *grid) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
209 if(grid->current) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
210 grid->current = NULL;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
211 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
212 grid->container.layout.newline = FALSE;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
213 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
214
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
215 Widget ui_grid_container_prepare(UiContainer *ct, Arg *args, int *n, UiBool fill) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
216 UiGridContainer *grid = (UiGridContainer*)ct;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
217 if(ct->layout.newline) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
218 ui_grid_newline(grid);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
219 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
220 return ct->widget;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
221 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
222
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
223 void ui_grid_container_add(UiContainer *ct, Widget widget) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
224 UiGridContainer *grid = (UiGridContainer*)ct;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
225
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
226 if(grid->current) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
227 grid->current = ucx_list_append(grid->current, widget);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
228 } else {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
229 grid->current = ucx_list_append(grid->current, widget);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
230 grid->lines = ucx_list_append(grid->lines, grid->current);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
231 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
232
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
233 ui_reset_layout(ct->layout);
76
3782827378ab added context menus (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 65
diff changeset
234 ct->current = widget;
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
235 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
236
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
237 static void ui_grid_resize(Widget widget, XtPointer udata, XtPointer cdata) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
238 UiGridContainer *grid = udata;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
239
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
240 UcxList *rowdim = NULL;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
241 int coldim[UI_GRID_MAX_COLUMNS];
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
242 memset(coldim, 0, UI_GRID_MAX_COLUMNS*sizeof(int));
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
243 int numcol = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
244
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
245 // get the minimum size of the columns and rows
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
246 int sumw = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
247 int sumh = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
248 UCX_FOREACH(row, grid->lines) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
249 int rheight = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
250 int i=0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
251 int sum_width = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
252 UCX_FOREACH(elm, row->data) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
253 Widget w = elm->data;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
254 int widget_width = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
255 int widget_height = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
256 XtVaGetValues(
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
257 w,
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
258 XmNwidth,
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
259 &widget_width,
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
260 XmNheight,
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
261 &widget_height,
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
262 0);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
263
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
264 // get the maximum height in this row
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
265 if(widget_height > rheight) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
266 rheight = widget_height;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
267 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
268
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
269 // get the maximum width in this column
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
270 if(widget_width > coldim[i]) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
271 coldim[i] = widget_width;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
272 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
273 sum_width += widget_width;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
274 if(sum_width > sumw) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
275 sumw = sum_width;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
276 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
277
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
278 i++;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
279 if(i > numcol) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
280 numcol = i;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
281 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
282 }
63
46a42f0c4f93 added textfield and some container fixes (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 62
diff changeset
283 rowdim = ucx_list_append(rowdim, (void*)(intptr_t)rheight);
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
284 sumh += rheight;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
285 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
286
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
287 // check container size
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
288 int gwidth = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
289 int gheight = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
290 XtVaGetValues(widget, XmNwidth, &gwidth, XmNheight, &gheight, NULL);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
291 if(gwidth < sumw || gheight < sumh) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
292 XtVaSetValues(widget, XmNwidth, sumw, XmNheight, sumh, NULL);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
293 ucx_list_free(rowdim);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
294 return;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
295 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
296
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
297
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
298 // adjust the positions of all children
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
299 int y = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
300 UCX_FOREACH(row, grid->lines) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
301 int x = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
302 int i=0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
303 UCX_FOREACH(elm, row->data) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
304 Widget w = elm->data;
63
46a42f0c4f93 added textfield and some container fixes (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 62
diff changeset
305 XtVaSetValues(
46a42f0c4f93 added textfield and some container fixes (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 62
diff changeset
306 w,
46a42f0c4f93 added textfield and some container fixes (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 62
diff changeset
307 XmNx, x,
46a42f0c4f93 added textfield and some container fixes (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 62
diff changeset
308 XmNy, y,
46a42f0c4f93 added textfield and some container fixes (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 62
diff changeset
309 XmNwidth, coldim[i],
46a42f0c4f93 added textfield and some container fixes (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 62
diff changeset
310 XmNheight, rowdim->data,
46a42f0c4f93 added textfield and some container fixes (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 62
diff changeset
311 NULL);
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
312
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
313 x += coldim[i];
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
314 i++;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
315 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
316 y += (intptr_t)rowdim->data;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
317 rowdim = rowdim->next;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
318 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
319
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
320 ucx_list_free(rowdim);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
321 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
322
124
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
323 UiContainer* ui_scrolledwindow_container(UiObject *obj, Widget scrolledwindow) {
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
324 UiContainer *ct = ucx_mempool_calloc(
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
325 obj->ctx->mempool,
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
326 1,
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
327 sizeof(UiContainer));
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
328 ct->widget = scrolledwindow;
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
329 ct->prepare = ui_scrolledwindow_container_prepare;
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
330 ct->add = ui_scrolledwindow_container_add;
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
331 return ct;
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
332 }
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
333
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
334 Widget ui_scrolledwindow_container_prepare(UiContainer *ct, Arg *args, int *n, UiBool fill) {
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
335 return ct->widget;
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
336 }
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
337
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
338 void ui_scrolledwindow_container_add(UiContainer *ct, Widget widget) {
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
339 ui_reset_layout(ct->layout);
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
340 ct->current = widget;
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
341 }
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
342
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
343
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
344 UiContainer* ui_tabview_container(UiObject *obj, Widget frame) {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
345 UiTabViewContainer *ct = ucx_mempool_calloc(
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
346 obj->ctx->mempool,
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
347 1,
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
348 sizeof(UiTabViewContainer));
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
349 ct->context = obj->ctx;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
350 ct->container.widget = frame;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
351 ct->container.prepare = ui_tabview_container_prepare;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
352 ct->container.add = ui_tabview_container_add;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
353 return (UiContainer*)ct;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
354 }
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
355
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
356 Widget ui_tabview_container_prepare(UiContainer *ct, Arg *args, int *n, UiBool fill) {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
357 int a = *n;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
358 XtSetArg(args[a], XmNleftAttachment, XmATTACH_FORM); a++;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
359 XtSetArg(args[a], XmNrightAttachment, XmATTACH_FORM); a++;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
360 XtSetArg(args[a], XmNtopAttachment, XmATTACH_FORM); a++;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
361 XtSetArg(args[a], XmNbottomAttachment, XmATTACH_FORM); a++;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
362 *n = a;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
363 return ct->widget;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
364 }
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
365
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
366 void ui_tabview_container_add(UiContainer *ct, Widget widget) {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
367 UiTabViewContainer *tabview = (UiTabViewContainer*)ct;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
368
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
369 if(tabview->current) {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
370 XtUnmanageChild(tabview->current);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
371 }
65
4697592e24ba added label, grid container, simple tabview and textfield (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 64
diff changeset
372
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
373 tabview->current = widget;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
374 tabview->tabs = ucx_list_append(tabview->tabs, widget);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
375
65
4697592e24ba added label, grid container, simple tabview and textfield (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 64
diff changeset
376 ui_select_tab(ct->widget, 0);
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
377 ui_reset_layout(ct->layout);
76
3782827378ab added context menus (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 65
diff changeset
378 ct->current = widget;
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
379 }
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
380
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
381 UIWIDGET ui_box(UiObject *obj, int margin, int spacing, UiBoxOrientation orientation) {
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
382 UiContainer *ct = uic_get_current_container(obj);
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
383
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
384 Arg args[16];
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
385 int n = 0;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
386 Widget parent = ct->prepare(ct, args, &n, TRUE);
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
387 Widget form = XmCreateForm(parent, "vbox", args, n);
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
388 ct->add(ct, form);
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
389 XtManageChild(form);
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
390
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
391 UiObject *newobj = uic_object_new(obj, form);
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
392 newobj->container = ui_box_container(obj, form, margin, spacing, orientation);
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
393 uic_obj_add(obj, newobj);
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
394
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
395 return form;
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
396 }
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
397
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
398 UIWIDGET ui_vbox(UiObject *obj) {
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
399 return ui_box(obj, 0, 0, UI_BOX_VERTICAL);
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
400 }
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
401
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
402 UIWIDGET ui_hbox(UiObject *obj) {
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
403 return ui_box(obj, 0, 0, UI_BOX_HORIZONTAL);
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
404 }
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
405
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
406 UIWIDGET ui_vbox_sp(UiObject *obj, int margin, int spacing) {
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
407 return ui_box(obj, margin, spacing, UI_BOX_VERTICAL);
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
408 }
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
409
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
410 UIWIDGET ui_hbox_sp(UiObject *obj, int margin, int spacing) {
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
411 return ui_box(obj, margin, spacing, UI_BOX_HORIZONTAL);
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
412 }
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
413
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
414 UIWIDGET ui_grid(UiObject *obj) {
106
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
415 return ui_grid_sp(obj, 0, 0, 0);
99
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 93
diff changeset
416 }
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 93
diff changeset
417
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 93
diff changeset
418 UIWIDGET ui_grid_sp(UiObject *obj, int margin, int columnspacing, int rowspacing) {
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
419 UiContainer *ct = uic_get_current_container(obj);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
420
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
421 Arg args[16];
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
422 int n = 0;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
423 Widget parent = ct->prepare(ct, args, &n, TRUE);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
424 Widget grid = XmCreateDrawingArea(parent, "grid", args, n);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
425 ct->add(ct, grid);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
426 XtManageChild(grid);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
427
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
428 UiObject *newobj = uic_object_new(obj, grid);
99
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 93
diff changeset
429 newobj->container = ui_grid_container(obj, grid, columnspacing, rowspacing);
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
430 uic_obj_add(obj, newobj);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
431
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
432 XtAddCallback (grid, XmNresizeCallback , ui_grid_resize, newobj->container);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
433
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
434 return grid;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
435 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
436
124
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
437 UIWIDGET ui_scrolledwindow(UiObject *obj) {
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
438 UiContainer *ct = uic_get_current_container(obj);
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
439
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
440 Arg args[16];
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
441 int n = 0;
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
442 XtSetArg(args[n], XmNscrollingPolicy, XmAUTOMATIC); // TODO: dosn't work, use XmAPPLICATION_DEFINED
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
443 n++;
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
444 Widget parent = ct->prepare(ct, args, &n, TRUE);
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
445 Widget scrolledwindow = XmCreateScrolledWindow(parent, "scrolledwindow", args, n);
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
446 ct->add(ct, scrolledwindow);
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
447 XtManageChild(scrolledwindow);
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
448
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
449 UiObject *newobj = uic_object_new(obj, scrolledwindow);
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
450 newobj->container = ui_scrolledwindow_container(obj, scrolledwindow);
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
451 uic_obj_add(obj, newobj);
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
452
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
453 return scrolledwindow;
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
454 }
80609f9675f1 added support for icons for the table widget (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 113
diff changeset
455
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
456 UIWIDGET ui_sidebar(UiObject *obj) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
457 UiContainer *ct = uic_get_current_container(obj);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
458
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
459 Arg args[16];
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
460 int n = 0;
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
461
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
462 XtSetArg(args[n], XmNorientation, XmHORIZONTAL);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
463 n++;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
464
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
465 Widget parent = ct->prepare(ct, args, &n, TRUE);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
466 Widget pane = XmCreatePanedWindow(parent, "pane", args, n);
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
467 ct->add(ct, pane);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
468 XtManageChild(pane);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
469
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
470 // add sidebar widget
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
471 Widget sidebar = XmCreateForm(pane, "sidebar", args, 0);
36
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
472 XtManageChild(sidebar);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
473
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
474 UiObject *left = uic_object_new(obj, sidebar);
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
475 left->container = ui_box_container(left, sidebar, 0, 0, UI_BOX_VERTICAL);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
476
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
477 // add content widget
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
478 XtSetArg (args[0], XmNpaneMaximum, 8000);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
479 Widget content = XmCreateForm(pane, "content_area", args, 1);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
480 XtManageChild(content);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
481
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
482 UiObject *right = uic_object_new(obj, content);
113
500c085d2133 added box spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 111
diff changeset
483 right->container = ui_box_container(right, content, 0, 0, UI_BOX_VERTICAL);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
484
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
485 uic_obj_add(obj, right);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
486 uic_obj_add(obj, left);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
487
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
488 return sidebar;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
489 }
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
490
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
491 UIWIDGET ui_tabview(UiObject *obj) {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
492 UiContainer *ct = uic_get_current_container(obj);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
493
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
494 // create a simple frame as container widget
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
495 // when tabs are selected, the current child will be replaced by the
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
496 // the new tab widget
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
497 Arg args[16];
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
498 int n = 0;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
499 XtSetArg(args[n], XmNshadowType, XmSHADOW_ETCHED_OUT);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
500 n++;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
501 XtSetArg(args[n], XmNshadowThickness, 0);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
502 n++;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
503 Widget parent = ct->prepare(ct, args, &n, TRUE);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
504 Widget form = XmCreateForm(parent, "tabview", args, n);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
505 ct->add(ct, form);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
506 XtManageChild(form);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
507
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
508 UiObject *tabviewobj = uic_object_new(obj, form);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
509 tabviewobj->container = ui_tabview_container(obj, form);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
510 uic_obj_add(obj, tabviewobj);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
511
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
512 XtVaSetValues(form, XmNuserData, tabviewobj->container, NULL);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
513
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
514 return form;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
515 }
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
516
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
517 void ui_tab(UiObject *obj, char *title) {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
518 UiContainer *ct = uic_get_current_container(obj);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
519 ct->layout.label = title;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
520
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
521 ui_vbox(obj);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
522 }
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
523
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
524 void ui_select_tab(UIWIDGET tabview, int tab) {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
525 UiTabViewContainer *ct = NULL;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
526 XtVaGetValues(tabview, XmNuserData, &ct, NULL);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
527 if(ct) {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
528 XtUnmanageChild(ct->current);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
529 UcxList *elm = ucx_list_get(ct->tabs, tab);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
530 if(elm) {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
531 XtManageChild(elm->data);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
532 ct->current = elm->data;
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
533 } else {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
534 fprintf(stderr, "UiError: front tab index: %d\n", tab);
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
535 }
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
536 } else {
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
537 fprintf(stderr, "UiError: widget is not a tabview\n");
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
538 }
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
539 }
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
540
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
541
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
542 /* document tabview */
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
543
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
544 static void ui_tabbar_resize(Widget widget, XtPointer udata, XtPointer cdata) {
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
545 MotifTabbedPane *v = (MotifTabbedPane*)udata;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
546
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
547 int width = 0;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
548 int height = 0;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
549 XtVaGetValues(widget, XmNwidth, &width, XmNheight, &height, NULL);
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
550 int button_width = width / 4;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
551 int x = 0;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
552 UCX_FOREACH(elm, v->tabs) {
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
553 UiTab *tab = elm->data;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
554 XtVaSetValues(
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
555 tab->tab_button,
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
556 XmNx, x,
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
557 XmNy, 0,
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
558 XmNwidth,
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
559 button_width,
93
5223de7979e2 motif tabview fix
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 92
diff changeset
560
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
561 NULL);
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
562 x += button_width;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
563 }
92
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
564
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
565 if(height <= v->height) {
93
5223de7979e2 motif tabview fix
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 92
diff changeset
566 XtVaSetValues(widget, XmNheight, v->height + 4, NULL);
92
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
567 }
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
568 }
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
569
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
570 static void ui_tabbar_expose(Widget widget, XtPointer udata, XtPointer cdata) {
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
571 MotifTabbedPane *v = (MotifTabbedPane*)udata;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
572 XmDrawingAreaCallbackStruct *cbs = (XmDrawingAreaCallbackStruct *)cdata;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
573 XEvent *event = cbs->event;
92
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
574 Display *dpy = XtDisplay(widget);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
575
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
576 XGCValues gcvals;
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
577 GC gc;
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
578 Pixel fgpix;
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
579
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
580 int tab_x;
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
581 int tab_width;
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
582 XtVaGetValues(v->current->tab_button, XmNx, &tab_x, XmNwidth, &tab_width, XmNhighlightColor, &fgpix, NULL);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
583
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
584 gcvals.foreground = v->bg1;
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
585 gc = XCreateGC( dpy, XtWindow(widget), (GCForeground), &gcvals);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
586
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
587 int width = 0;
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
588 int height = 0;
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
589 XtVaGetValues(widget, XmNwidth, &width, XmNheight, &height, NULL);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
590 XFillRectangle(dpy, XtWindow(widget), gc, 0, 0, width, height);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
591
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
592 gcvals.foreground = fgpix;
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
593 gc = XCreateGC( dpy, XtWindow(widget), (GCForeground), &gcvals);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
594
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
595 XFillRectangle(dpy, XtWindow(widget), gc, tab_x, 0, tab_width, height);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
596
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
597 }
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
598
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
599 UiTabbedPane* ui_tabbed_document_view(UiObject *obj) {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
600 int n = 0;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
601 Arg args[16];
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
602
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
603 UiContainer *ct = uic_get_current_container(obj);
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
604 Widget parent = ct->prepare(ct, args, &n, TRUE);
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
605
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
606 Widget tabview = XmCreateForm(parent, "tabview_form", args, n);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
607 XtManageChild(tabview);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
608
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
609 XtSetArg(args[0], XmNorientation, XmHORIZONTAL);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
610 XtSetArg(args[1], XmNpacking, XmPACK_TIGHT);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
611 XtSetArg(args[2], XmNspacing, 1);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
612 XtSetArg(args[3], XmNleftAttachment, XmATTACH_FORM);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
613 XtSetArg(args[4], XmNrightAttachment, XmATTACH_FORM);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
614 XtSetArg(args[5], XmNtopAttachment, XmATTACH_FORM);
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
615 XtSetArg(args[6], XmNmarginWidth, 0);
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
616 XtSetArg(args[7], XmNmarginHeight, 0);
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
617 Widget tabbar = XmCreateDrawingArea(tabview, "tabbar", args, 8);
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
618 XtManageChild(tabbar);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
619
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
620 XtSetArg(args[0], XmNleftAttachment, XmATTACH_FORM);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
621 XtSetArg(args[1], XmNrightAttachment, XmATTACH_FORM);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
622 XtSetArg(args[2], XmNtopAttachment, XmATTACH_WIDGET);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
623 XtSetArg(args[3], XmNtopWidget, tabbar);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
624 XtSetArg(args[4], XmNbottomAttachment, XmATTACH_FORM);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
625 XtSetArg(args[5], XmNshadowThickness, 0);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
626 Widget tabct = XmCreateForm(tabview, "tabview", args, 6);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
627 XtManageChild(tabct);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
628
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
629 MotifTabbedPane *tabbedpane = ui_malloc(obj->ctx, sizeof(MotifTabbedPane));
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
630 tabbedpane->view.ctx = uic_current_obj(obj)->ctx;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
631 tabbedpane->view.widget = tabct;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
632 tabbedpane->view.document = NULL;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
633 tabbedpane->tabbar = tabbar;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
634 tabbedpane->tabs = NULL;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
635 tabbedpane->current = NULL;
92
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
636 tabbedpane->height = 0;
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
637
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
638 XtAddCallback(tabbar, XmNresizeCallback , ui_tabbar_resize, tabbedpane);
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
639 XtAddCallback(tabbar, XmNexposeCallback, ui_tabbar_expose, tabbedpane);
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
640
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
641 return &tabbedpane->view;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
642 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
643
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
644 UiObject* ui_document_tab(UiTabbedPane *view) {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
645 MotifTabbedPane *v = (MotifTabbedPane*)view;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
646 int n = 0;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
647 Arg args[16];
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
648
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
649 // hide the current tab content
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
650 if(v->current) {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
651 XtUnmanageChild(v->current->content->widget);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
652 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
653
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
654 UiTab *tab = ui_malloc(view->ctx, sizeof(UiTab));
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
655
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
656 // create the new tab content
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
657 XtSetArg(args[0], XmNshadowThickness, 0);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
658 XtSetArg(args[1], XmNleftAttachment, XmATTACH_FORM);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
659 XtSetArg(args[2], XmNrightAttachment, XmATTACH_FORM);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
660 XtSetArg(args[3], XmNtopAttachment, XmATTACH_FORM);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
661 XtSetArg(args[4], XmNbottomAttachment, XmATTACH_FORM);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
662 XtSetArg(args[5], XmNuserData, tab);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
663 Widget frame = XmCreateFrame(view->widget, "tab", args, 6);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
664 XtManageChild(frame);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
665
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
666 UiObject *content = ui_malloc(view->ctx, sizeof(UiObject));
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
667 content->widget = NULL; // initialization for uic_context()
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
668 content->ctx = uic_context(content, view->ctx->mempool);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
669 content->ctx->parent = view->ctx;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
670 content->ctx->set_document = ui_tab_set_document;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
671 content->ctx->detach_document = ui_tab_detach_document;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
672 content->widget = frame;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
673 content->window = view->ctx->obj->window;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
674 content->container = ui_frame_container(content, frame);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
675 content->next = NULL;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
676
53
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
677 // add tab button
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
678 v->tabs = ucx_list_append_a(view->ctx->mempool->allocator, v->tabs, tab);
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
679
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
680 XmString label = XmStringCreateLocalized("tab");
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
681 XtSetArg(args[0], XmNlabelString, label);
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
682 XtSetArg(args[1], XmNshadowThickness, 0);
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
683 XtSetArg(args[2], XmNhighlightThickness, 0);
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
684
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
685 Widget button = XmCreatePushButton(v->tabbar, "tab_button", args, 3);
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
686 tab->tabbedpane = v;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
687 tab->content = content;
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
688 tab->tab_button = button;
53
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
689 XtManageChild(button);
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
690 XtAddCallback(
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
691 button,
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
692 XmNactivateCallback,
53
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
693 (XtCallbackProc)ui_tab_button_callback,
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
694 tab);
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
695
92
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
696 if(v->height == 0) {
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
697 XtVaGetValues(
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
698 button,
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
699 XmNarmColor,
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
700 &v->bg1,
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
701 XmNbackground,
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
702 &v->bg2,
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
703 XmNheight,
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
704 &v->height,
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
705 NULL);
93
5223de7979e2 motif tabview fix
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 92
diff changeset
706 v->height += 2; // border
92
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
707 }
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
708
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
709 ui_change_tab(v, tab);
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
710 ui_tabbar_resize(v->tabbar, v, NULL);
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
711
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
712 return content;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
713 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
714
53
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
715 void ui_tab_button_callback(Widget widget, UiTab *tab, XtPointer d) {
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
716 MotifTabbedPane *t = tab->tabbedpane;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
717 if(t->current) {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
718 XtUnmanageChild(t->current->content->widget);
53
62205699cd0e improved motif tabs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
719 XtVaSetValues(t->current->tab_button, XmNset, 0, NULL);
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
720 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
721 XtManageChild(tab->content->widget);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
722
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
723 ui_change_tab(t, tab);
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
724
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
725 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
726
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
727 void ui_change_tab(MotifTabbedPane *pane, UiTab *tab) {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
728 UiContext *ctx = tab->content->ctx;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
729 ctx->parent->set_document(ctx->parent, ctx->document);
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
730
92
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
731 if(pane->current) {
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
732 XtVaSetValues(pane->current->tab_button, XmNshadowThickness, 0, XmNbackground, pane->bg1, NULL);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
733 }
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
734 XtVaSetValues(tab->tab_button, XmNshadowThickness, 1, XmNbackground, pane->bg2, NULL);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
735
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
736 pane->current = tab;
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
737 pane->index = ucx_list_find(pane->tabs, tab, NULL, NULL);
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
738 printf("index: %d\n", pane->index);
92
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
739
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
740 // redraw tabbar
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
741 Display *dpy = XtDisplay(pane->tabbar);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
742 Window window = XtWindow(pane->tabbar);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
743 if(dpy && window) {
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
744 XClearArea(dpy, XtWindow(pane->tabbar), 0, 0, 0, 0, TRUE);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
745 XFlush(dpy);
d56175dd931e improved motif tab look
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 91
diff changeset
746 }
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
747 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
748
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
749 void ui_tab_set_document(UiContext *ctx, void *document) {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
750 if(ctx->parent->document) {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
751 //ctx->parent->detach_document(ctx->parent, ctx->parent->document);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
752 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
753 uic_context_set_document(ctx, document);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
754 //uic_context_set_document(ctx->parent, document);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
755 //ctx->parent->document = document;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
756
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
757 UiTab *tab = NULL;
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
758 XtVaGetValues(
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
759 ctx->obj->widget,
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
760 XmNuserData,
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
761 &tab,
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
762 NULL);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
763 if(tab) {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
764 if(tab->tabbedpane->current == tab) {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
765 ctx->parent->set_document(ctx->parent, ctx->document);
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
766 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
767 } else {
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
768 fprintf(stderr, "UiError: ui_bar_set_document: Cannot set document");
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
769 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
770 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
771
153
ee49d1852a5f applies value binding refactoring and text refactoring to motif implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 124
diff changeset
772 void ui_tab_detach_document(UiContext *ctx) {
ee49d1852a5f applies value binding refactoring and text refactoring to motif implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 124
diff changeset
773 uic_context_detach_document(ctx->parent);
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
774 }
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
775
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
776
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
777 /*
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
778 * -------------------- Layout Functions --------------------
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
779 *
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
780 * functions for setting layout attributes for the current container
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
781 *
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
782 */
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
783
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
784 void ui_layout_fill(UiObject *obj, UiBool fill) {
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
785 UiContainer *ct = uic_get_current_container(obj);
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
786 ct->layout.fill = ui_bool2lb(fill);
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
787 }
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
788
106
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
789 void ui_layout_hexpand(UiObject *obj, UiBool expand) {
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
790 UiContainer *ct = uic_get_current_container(obj);
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
791 ct->layout.hexpand = expand;
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
792 }
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
793
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
794 void ui_layout_vexpand(UiObject *obj, UiBool expand) {
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
795 UiContainer *ct = uic_get_current_container(obj);
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
796 ct->layout.vexpand = expand;
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
797 }
a4f4123ca12a added simple window and open/save file dialogs for Qt
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
798
111
40dbf1a7526a added close handler to UiContext (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 106
diff changeset
799 void ui_layout_gridwidth(UiObject *obj, int width) {
40dbf1a7526a added close handler to UiContext (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 106
diff changeset
800 UiContainer *ct = uic_get_current_container(obj);
40dbf1a7526a added close handler to UiContext (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 106
diff changeset
801 ct->layout.gridwidth = width;
40dbf1a7526a added close handler to UiContext (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 106
diff changeset
802 }
40dbf1a7526a added close handler to UiContext (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 106
diff changeset
803
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
804 void ui_newline(UiObject *obj) {
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
805 UiContainer *ct = uic_get_current_container(obj);
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
806 ct->layout.newline = TRUE;
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
807 }

mercurial