ui/motif/container.c

Tue, 27 Jan 2026 20:15:48 +0100

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Tue, 27 Jan 2026 20:15:48 +0100
changeset 1062
988665ad8dd5
parent 1016
ccde46662db7
permissions
-rw-r--r--

add visibility_states arg to containers (Motif)

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 *
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
4 * Copyright 2024 Olaf Wintermann. All rights reserved.
4
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"
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
36 #include "../common/container.h"
4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
37
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
38 #include <cx/array_list.h>
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
39
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
40 #include "Grid.h"
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
41
443
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
42
480
7dfd5e546b99 move ui_customwidget to separate file
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 475
diff changeset
43
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
44 Widget ui_container_prepare(UiContainerPrivate *container, UiLayout *layout, Arg *args, int *n) {
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
45 if(layout->margin != 0) {
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
46 layout->margin_left = layout->margin;
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
47 layout->margin_right = layout->margin;
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
48 layout->margin_top = layout->margin;
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
49 layout->margin_bottom = layout->margin;
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
50 }
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
51 return container->prepare(container, layout, args, n);
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
52 }
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
53
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
54 void ui_container_add(UiContainerPrivate *container, Widget widget) {
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
55 container->add(container, widget);
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
56 }
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
57
901
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
58 void ui_container_apply_grid_margin(
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
59 Arg *args,
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
60 int *n,
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
61 int margin_left, int margin_right, int margin_top, int margin_bottom)
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
62 {
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
63 int c = *n;
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
64 XtSetArg(args[c], gridMarginLeft, margin_left); c++;
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
65 XtSetArg(args[c], gridMarginRight, margin_right); c++;
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
66 XtSetArg(args[c], gridMarginTop, margin_top); c++;
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
67 XtSetArg(args[c], gridMarginBottom, margin_bottom); c++;
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
68 *n = c;
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
69 }
443
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
70
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
71 /* ---------------------------- Box Container ---------------------------- */
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
72
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
73 static UIWIDGET box_create(UiObject *obj, UiContainerArgs *args, UiBoxOrientation orientation) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
74 UiContainerPrivate *ctn = ui_obj_container(obj);
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
75 UiLayout layout = UI_ARGS2LAYOUT(args);
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
76
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
77 Arg xargs[16];
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
78 int n = 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
79
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
80 if(orientation == UI_BOX_VERTICAL) {
920
10a783120051 enable box container spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 914
diff changeset
81 XtSetArg(xargs[n], gridRowSpacing, args->spacing); n++;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
82 } else {
920
10a783120051 enable box container spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 914
diff changeset
83 XtSetArg(xargs[n], gridColumnSpacing, args->spacing); n++;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
84 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
85
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
86 Widget parent = ui_container_prepare(ctn, &layout, xargs, &n);
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
87 Widget grid = XtCreateManagedWidget(args->name ? args->name : "boxcontainer", gridClass, parent, xargs, n);
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
88 ctn->add(ctn, grid);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
89
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
90 UiContainerX *container = ui_box_container(obj, grid, orientation);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
91 uic_object_push_container(obj, container);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
92
1062
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
93 if(args->visibility_states) {
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
94 size_t nstates = uic_state_array_size(args->visibility_states);
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
95 ui_widget_set_visibility_states(obj->ctx, grid, args->visibility_states, (int)nstates);
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
96 }
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
97
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
98 return grid;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
99 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
100
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
101 // public
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
102 UIWIDGET ui_vbox_create(UiObject *obj, UiContainerArgs *args) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
103 return box_create(obj, args, UI_BOX_VERTICAL);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
104 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
105
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
106 // public
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
107 UIWIDGET ui_hbox_create(UiObject *obj, UiContainerArgs *args) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
108 return box_create(obj, args, UI_BOX_HORIZONTAL);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
109 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
110
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
111 UiContainerX* ui_box_container(UiObject *obj, Widget grid, UiBoxOrientation orientation) {
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
112 UiBoxContainer *ctn = ui_malloc(obj->ctx, sizeof(UiBoxContainer));
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
113 memset(ctn, 0, sizeof(UiBoxContainer));
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
114 ctn->container.prepare = orientation == UI_BOX_VERTICAL ? ui_vbox_prepare : ui_hbox_prepare;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
115 ctn->container.add = ui_box_container_add;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
116 ctn->container.widget = grid;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
117 ctn->n = 0;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
118 return (UiContainerX*)ctn;
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
119 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
120
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
121 static Widget ui_box_container_prepare(UiBoxContainer *box, UiLayout *layout, Arg *args, int *n) {
901
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
122 ui_container_apply_grid_margin(args, n, layout->margin_left, layout->margin_right, layout->margin_top, layout->margin_bottom);
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
123 box->n++;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
124 return box->container.widget;
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
125 }
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
126
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
127 Widget ui_vbox_prepare(UiContainerPrivate *ctn, UiLayout *layout, Arg *args, int *n) {
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
128 UiBoxContainer *box = (UiBoxContainer*)ctn;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
129 int a = *n;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
130 XtSetArg(args[a], gridRow, box->n); a++;
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
131 if(layout->fill) {
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
132 XtSetArg(args[a], gridVExpand, TRUE); a++;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
133 XtSetArg(args[a], gridVFill, TRUE); a++;
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
134 }
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
135 XtSetArg(args[a], gridHExpand, TRUE); a++;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
136 XtSetArg(args[a], gridHFill, TRUE); a++;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
137 *n = a;
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
138 return ui_box_container_prepare(box, layout, args, n);
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
139 }
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
140
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
141 Widget ui_hbox_prepare(UiContainerPrivate *ctn, UiLayout *layout, Arg *args, int *n) {
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
142 UiBoxContainer *box = (UiBoxContainer*)ctn;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
143 int a = *n;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
144 XtSetArg(args[a], gridColumn, box->n); a++;
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
145 if(layout->fill) {
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
146 XtSetArg(args[a], gridHExpand, TRUE); a++;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
147 XtSetArg(args[a], gridHFill, TRUE); a++;
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
148 }
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
149 XtSetArg(args[a], gridVExpand, TRUE); a++;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
150 XtSetArg(args[a], gridVFill, TRUE); a++;
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
151 *n = a;
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
152 return ui_box_container_prepare(box, layout, args, n);
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
153 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
154
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
155 void ui_box_container_add(UiContainerPrivate *ctn, Widget widget) {
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
156
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
157 }
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
158
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
159
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
160 /* ---------------------------- Grid Container ---------------------------- */
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
161
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
162 // public
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
163 UIWIDGET ui_grid_create(UiObject *obj, UiContainerArgs *args) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
164 Arg xargs[16];
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
165 int n = 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
166
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
167 UiContainerPrivate *ctn = ui_obj_container(obj);
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
168 UiLayout layout = UI_ARGS2LAYOUT(args);
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
169
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
170 Widget parent = ui_container_prepare(ctn, &layout, xargs, &n);
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
171 XtSetArg(xargs[n], gridColumnSpacing, args->columnspacing); n++;
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
172 XtSetArg(xargs[n], gridRowSpacing, args->rowspacing); n++;
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
173 Widget grid = XtCreateManagedWidget(args->name ? args->name : "gridcontainer", gridClass, parent, xargs, n);
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
174 ui_container_add(ctn, grid);
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
175
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
176 UiContainerX *container = ui_grid_container(obj, grid, args->def_hexpand, args->def_vexpand, args->def_hfill, args->def_vfill);
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
177 uic_object_push_container(obj, container);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
178
1062
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
179 if(args->visibility_states) {
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
180 size_t nstates = uic_state_array_size(args->visibility_states);
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
181 ui_widget_set_visibility_states(obj->ctx, grid, args->visibility_states, (int)nstates);
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
182 }
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
183
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
184 return grid;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
185 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
186
482
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
187 UiContainerX* ui_grid_container(
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
188 UiObject *obj,
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
189 Widget grid,
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
190 UiBool def_hexpand,
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
191 UiBool def_vexpand,
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
192 UiBool def_hfill,
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
193 UiBool def_vfill)
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
194 {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
195 UiGridContainer *ctn = ui_malloc(obj->ctx, sizeof(UiGridContainer));
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
196 memset(ctn, 0, sizeof(UiBoxContainer));
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
197 ctn->container.prepare = ui_grid_container_prepare;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
198 ctn->container.add = ui_grid_container_add;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
199 ctn->container.widget = grid;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
200 ctn->x = 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
201 ctn->y = 0;
482
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
202 ctn->def_hexpand = def_hexpand;
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
203 ctn->def_vexpand = def_vexpand;
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
204 ctn->def_hfill = def_hfill;
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
205 ctn->def_vfill = def_vfill;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
206 return (UiContainerX*)ctn;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
207 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
208
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
209 Widget ui_grid_container_prepare(UiContainerPrivate *ctn, UiLayout *layout, Arg *args, int *n) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
210 UiGridContainer *grid = (UiGridContainer*)ctn;
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
211 if(ctn->container.newline) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
212 grid->y++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
213 grid->x = 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
214 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
215
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
216 int a = *n;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
217 XtSetArg(args[a], gridColumn, grid->x); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
218 XtSetArg(args[a], gridRow, grid->y); a++;
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
219 if(layout->colspan > 0) {
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
220 XtSetArg(args[a], gridColspan, layout->colspan); a++;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
221 }
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
222 if(layout->rowspan > 0) {
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
223 XtSetArg(args[a], gridRowspan, layout->rowspan); a++;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
224 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
225
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
226 uic_layout_setup_expand_fill(layout, grid->def_hexpand, grid->def_vexpand, grid->def_hfill, grid->def_vfill);
482
5bc95a6228b0 implement grid default expand/fill (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 480
diff changeset
227
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
228 if(layout->hfill) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
229 XtSetArg(args[a], gridHFill, TRUE); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
230 }
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
231 if(layout->vfill) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
232 XtSetArg(args[a], gridVFill, TRUE); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
233 }
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
234 if(layout->hexpand) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
235 XtSetArg(args[a], gridHExpand, TRUE); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
236 }
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
237 if(layout->vexpand) {
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
238 XtSetArg(args[a], gridVExpand, TRUE); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
239 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
240
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
241 *n = a;
901
884d70e847a3 implement grid margin (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 900
diff changeset
242 ui_container_apply_grid_margin(args, n, layout->margin_left, layout->margin_right, layout->margin_top, layout->margin_bottom);
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
243 return ctn->widget;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
244 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
245
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
246 void ui_grid_container_add(UiContainerPrivate *ctn, Widget widget) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
247 UiGridContainer *grid = (UiGridContainer*)ctn;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
248 grid->x++;
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
249 grid->container.container.newline = FALSE;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
250 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
251
886
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
252 /* -------------------------- Frame Container -------------------------- */
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
253
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
254 UIWIDGET ui_frame_create(UiObject *obj, UiFrameArgs *args) {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
255 Arg xargs[16];
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
256 int n = 0;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
257
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
258 UiContainerPrivate *ctn = ui_obj_container(obj);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
259 UiLayout layout = UI_ARGS2LAYOUT(args);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
260
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
261 Widget parent = ui_container_prepare(ctn, &layout, xargs, &n);
922
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
262 if(args->width > 0) {
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
263 XtSetArg(xargs[n], XmNwidth, args->width); n++;
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
264 }
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
265 if(args->height > 0) {
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
266 XtSetArg(xargs[n], XmNheight, args->height); n++;
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
267 }
886
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
268
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
269 char *name = args->name ? (char*)args->name : "frame";
914
4d5aa85bc5ed fix wrong arg count in frame creation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 913
diff changeset
270 Widget frame = XmCreateFrame(parent, name, xargs, n);
886
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
271 XtManageChild(frame);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
272 ui_container_add(ctn, frame);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
273
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
274 if(args->label) {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
275 XmString s = XmStringCreateLocalized((char*)args->label);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
276 n = 0;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
277 XtSetArg(xargs[n], XmNlabelString, s); n++;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
278 XtSetArg(xargs[n], XmNchildType, XmFRAME_TITLE_CHILD); n++;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
279 Widget label = XmCreateLabel(frame, "frame_label", xargs, n);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
280 XtManageChild(label);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
281 XmStringFree(s);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
282 }
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
283
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
284 UiContainerX *container = ui_frame_container(obj, frame);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
285 uic_object_push_container(obj, container);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
286
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
287 UiContainerArgs sub_args = {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
288 .spacing = args->spacing,
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
289 .columnspacing = args->columnspacing,
914
4d5aa85bc5ed fix wrong arg count in frame creation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 913
diff changeset
290 .rowspacing = args->rowspacing,
4d5aa85bc5ed fix wrong arg count in frame creation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 913
diff changeset
291 .margin = args->padding
886
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
292 };
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
293 switch(args->subcontainer) {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
294 default: break;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
295 case UI_CONTAINER_VBOX: {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
296 ui_vbox_create(obj, &sub_args);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
297 uic_object_remove_second_last_container(obj);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
298 break;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
299 }
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
300 case UI_CONTAINER_HBOX: {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
301 ui_hbox_create(obj, &sub_args);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
302 uic_object_remove_second_last_container(obj);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
303 break;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
304 }
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
305 case UI_CONTAINER_GRID: {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
306 ui_grid_create(obj, &sub_args);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
307 uic_object_remove_second_last_container(obj);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
308 break;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
309 }
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
310 }
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
311
1062
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
312 if(args->visibility_states) {
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
313 size_t nstates = uic_state_array_size(args->visibility_states);
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
314 ui_widget_set_visibility_states(obj->ctx, frame, args->visibility_states, (int)nstates);
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
315 }
886
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
316
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
317 return frame;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
318 }
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
319
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
320 UiContainerX* ui_frame_container(UiObject *obj, Widget frame) {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
321 UiContainerPrivate *ctn = ui_malloc(obj->ctx, sizeof(UiContainerPrivate));
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
322 memset(ctn, 0, sizeof(UiContainerPrivate));
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
323 ctn->prepare = ui_frame_container_prepare;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
324 ctn->add = ui_frame_container_add;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
325 ctn->widget = frame;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
326 return (UiContainerX*)ctn;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
327 }
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
328
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
329 Widget ui_frame_container_prepare(UiContainerPrivate *ctn, UiLayout *layout, Arg *args, int *n) {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
330 int a = *n;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
331 XtSetArg(args[a], XmNchildType, XmFRAME_WORKAREA_CHILD);
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
332 *n = a+1;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
333 return ctn->widget;
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
334 }
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
335
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
336 void ui_frame_container_add(UiContainerPrivate *ctn, Widget widget) {
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
337 // NOOP
6f5e02fcb7b9 implement frame container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 808
diff changeset
338 }
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
339
888
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
340 /* -------------------------- SplitPane -------------------------- */
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
341
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
342 UIWIDGET ui_splitpane_create(UiObject *obj, UiSplitPaneArgs *args, int orientation) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
343 return NULL; // TODO
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
344 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
345
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
346 UIWIDGET ui_hsplitpane_create(UiObject *obj, UiSplitPaneArgs *args) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
347 return ui_splitpane_create(obj, args, XmHORIZONTAL);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
348 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
349
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
350 UIWIDGET ui_vsplitpane_create(UiObject *obj, UiSplitPaneArgs *args) {
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
351 return ui_splitpane_create(obj, args, XmVERTICAL);
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
352 }
1bb3a6641857 add drawingarea (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 886
diff changeset
353
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
354 /* -------------------------- TabView Container -------------------------- */
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
355
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
356 static void ui_tabbar_resize(Widget widget, XtPointer udata, XtPointer cdata) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
357 UiMotifTabView *tabview = udata;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
358
475
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
359 if(tabview->tabview == UI_TABVIEW_INVISIBLE) {
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
360 return;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
361 }
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
362
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
363 int width = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
364 int height = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
365 XtVaGetValues(widget, XmNwidth, &width, XmNheight, &height, NULL);
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
366 int numbuttons = cxListSize(tabview->tabs);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
367 if(numbuttons == 0) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
368 return;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
369 }
900
6e1485d5451a fix tabbar resizing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 888
diff changeset
370 width--;
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
371 int button_width = width / numbuttons;
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
372 int x = 0;
900
6e1485d5451a fix tabbar resizing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 888
diff changeset
373
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
374 CxIterator i = cxListIterator(tabview->tabs);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
375 cx_foreach(UiTab *, tab, i) {
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
376 if(i.index + 1 == numbuttons) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
377 button_width = width - x;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
378 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
379 XtVaSetValues(
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
380 tab->tab_button,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
381 XmNx, x,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
382 XmNy, 0,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
383 XmNwidth,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
384 button_width,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
385
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
386 NULL);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
387 x += button_width;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
388 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
389
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
390 if(height <= tabview->height) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
391 XtVaSetValues(widget, XmNheight, tabview->height + 4, NULL);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
392 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
393 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
394
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
395 static void ui_tabbar_expose(Widget widget, XtPointer udata, XtPointer cdata) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
396 UiMotifTabView *tabview = udata;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
397 XmDrawingAreaCallbackStruct *cbs = (XmDrawingAreaCallbackStruct *)cdata;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
398 XEvent *event = cbs->event;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
399 Display *dpy = XtDisplay(widget);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
400
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
401 if(!tabview->gc_initialized) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
402 XGCValues gcvals;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
403 gcvals.foreground = tabview->fg1;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
404 tabview->gc = XCreateGC(XtDisplay(tabview->tabbar), XtWindow(tabview->tabbar), (GCForeground), &gcvals);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
405 }
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
406
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
407 if(tabview->current_tab) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
408 Widget tab = tabview->current_tab->tab_button;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
409 XFillRectangle(dpy, XtWindow(widget), tabview->gc, tab->core.x, tab->core.height, tab->core.width, 4);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
410 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
411 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
412
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
413 UIWIDGET ui_tabview_create(UiObject *obj, UiTabViewArgs *args) {
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
414 Arg xargs[16];
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
415 int n = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
416
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
417 UiContainerPrivate *ctn = ui_obj_container(obj);
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
418 UiLayout layout = UI_ARGS2LAYOUT(args);
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
419
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
420 // create widgets
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
421 // form
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
422 // - tabbar (Drawing Area)
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
423 // - content (Frame)
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
424 UiMotifTabView *tabview = malloc(sizeof(UiMotifTabView));
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
425 memset(tabview, 0, sizeof(UiMotifTabView));
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
426 char *name = args->name ? (char*)args->name : "tabview";
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
427 XtSetArg(xargs[n], XmNuserData, tabview); n++;
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
428 Widget parent = ui_container_prepare(ctn, &layout, xargs, &n);
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
429 Widget form = XmCreateForm(parent, name, xargs, n);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
430 XtManageChild(form);
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
431 ui_container_add(ctn, parent);
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
432
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
433 n = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
434 XtSetArg(xargs[n], XmNleftAttachment, XmATTACH_FORM); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
435 XtSetArg(xargs[n], XmNrightAttachment, XmATTACH_FORM); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
436 XtSetArg(xargs[n], XmNtopAttachment, XmATTACH_FORM); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
437 XtSetArg(xargs[n], XmNorientation, XmHORIZONTAL); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
438 XtSetArg(xargs[n], XmNpacking, XmPACK_TIGHT); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
439 XtSetArg(xargs[n], XmNspacing, 1); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
440 XtSetArg(xargs[n], XmNmarginWidth, 0); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
441 XtSetArg(xargs[n], XmNmarginHeight, 0); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
442 Widget tabbar = XmCreateDrawingArea(form, "ui_test", xargs, n);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
443 XtManageChild(tabbar);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
444 XtAddCallback(tabbar, XmNresizeCallback , ui_tabbar_resize, tabview);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
445 XtAddCallback(tabbar, XmNexposeCallback, ui_tabbar_expose, tabview);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
446
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
447 n = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
448 XtSetArg(xargs[n], XmNleftAttachment, XmATTACH_FORM); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
449 XtSetArg(xargs[n], XmNrightAttachment, XmATTACH_FORM); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
450 XtSetArg(xargs[n], XmNbottomAttachment, XmATTACH_FORM); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
451 XtSetArg(xargs[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
452 XtSetArg(xargs[n], XmNtopWidget, tabbar); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
453 Widget content = XmCreateFrame(form, "tabviewcontent", xargs, n);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
454
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
455 // setup tabview object, that holds all relevant objects
461
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
456 tabview->obj = obj;
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
457 tabview->form = form;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
458 tabview->tabbar = tabbar;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
459 tabview->content = content;
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
460 tabview->tabview = args->tabview;
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
461 tabview->subcontainer = args->subcontainer;
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
462 tabview->select = ui_motif_tabview_select;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
463 tabview->add = ui_motif_tabview_add_tab;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
464 tabview->remove = ui_motif_tabview_remove;
1016
ccde46662db7 update ucx
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 922
diff changeset
465 tabview->tabs = cxArrayListCreate(obj->ctx->allocator, sizeof(UiTab), 8);
475
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
466 tabview->current_index = -1;
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
467
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
468 UiTabViewContainer *ct = ui_malloc(obj->ctx, sizeof(UiTabViewContainer));
903
019d078d665e fix tabview container initialization (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 901
diff changeset
469 memset(ct, 0, sizeof(UiTabViewContainer));
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
470 ct->container.widget = form;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
471 ct->container.type = UI_CONTAINER_TABVIEW;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
472 ct->container.prepare = ui_tabview_container_prepare;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
473 ct->container.add = ui_tabview_container_add;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
474 ct->tabview = tabview;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
475
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
476 UiVar* var = uic_widget_var(obj->ctx, obj->ctx, args->value, args->varname, UI_VAR_INTEGER);
475
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
477 if(var) {
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
478 UiInteger *i = var->value;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
479 i->obj = tabview;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
480 i->get = ui_tabview_get;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
481 i->set = ui_tabview_set;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
482 }
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
483
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
484 uic_object_push_container(obj, (UiContainerX*)ct);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
485
1062
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
486 if(args->visibility_states) {
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
487 size_t nstates = uic_state_array_size(args->visibility_states);
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
488 ui_widget_set_visibility_states(obj->ctx, form, args->visibility_states, (int)nstates);
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
489 }
988665ad8dd5 add visibility_states arg to containers (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1016
diff changeset
490
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
491 return form;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
492 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
493
475
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
494 int64_t ui_tabview_get(UiInteger *i) {
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
495 UiMotifTabView *tabview = i->obj;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
496 i->value = tabview->current_index;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
497 return i->value;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
498 }
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
499
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
500 void ui_tabview_set(UiInteger *i, int64_t value) {
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
501 UiMotifTabView *tabview = i->obj;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
502 if(value < cxListSize(tabview->tabs)) {
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
503 ui_motif_tabview_select(tabview, value);
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
504 i->value = value;
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
505 }
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
506 }
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
507
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
508 void ui_tab_create(UiObject *obj, const char* title) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
509 UiContainerPrivate *ctn = ui_obj_container(obj);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
510 if(ctn->type != UI_CONTAINER_TABVIEW) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
511 fprintf(stderr, "UI Error: container is not a tabview\n");
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
512 return;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
513 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
514
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
515 UiMotifTabView *tabview = NULL;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
516 XtVaGetValues(ctn->widget, XmNuserData, &tabview, NULL);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
517 if(!tabview) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
518 fprintf(stderr, "UI Error: no tabview\n");
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
519 return;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
520 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
521
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
522
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
523 Widget child = ui_vbox_create(obj, &(UiContainerArgs) { 0 });
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
524 if(tabview->current) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
525 XtUnmanageChild(child);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
526 } else {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
527 tabview->current = child;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
528 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
529
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
530 tabview->add(tabview, -1, title, child);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
531 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
532
461
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
533 void ui_tabview_select(UIWIDGET tabview, int tab) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
534 UiMotifTabView *tabviewdata = NULL;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
535 XtVaGetValues(tabview, XmNuserData, &tabviewdata, NULL);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
536 if(tabviewdata) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
537 ui_motif_tabview_select(tabviewdata, tab);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
538 } else {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
539 fprintf(stderr, "ui_tabview_select: widget is not a tabview\n");
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
540 }
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
541 }
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
542
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
543 void ui_tabview_remove(UIWIDGET tabview, int tab) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
544 UiMotifTabView *tabviewdata = NULL;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
545 XtVaGetValues(tabview, XmNuserData, &tabviewdata, NULL);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
546 if(tabviewdata) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
547 ui_motif_tabview_remove(tabviewdata, tab);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
548 } else {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
549 fprintf(stderr, "ui_tabview_select: widget is not a tabview\n");
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
550 }
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
551 }
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
552
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
553 UiObject* ui_tabview_add(UIWIDGET tabview, const char *name, int tab_index) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
554 UiMotifTabView *tabviewdata = NULL;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
555 XtVaGetValues(tabview, XmNuserData, &tabviewdata, NULL);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
556 if(tabviewdata) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
557 Arg args[16];
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
558 int n = 0;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
559
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
560 XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
561 XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
562 XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
563 XtSetArg(args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
564 XtSetArg(args[n], XmNtopWidget, tabviewdata->tabbar); n++;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
565
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
566 Widget grid = XtCreateManagedWidget("vbox", gridClass, tabviewdata->content, args, n);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
567
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
568 UiObject *newobj = ui_calloc(tabviewdata->obj->ctx, 1, sizeof(UiObject));
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
569 newobj->ctx = tabviewdata->obj->ctx;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
570 newobj->widget = grid;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
571 UiContainerX *container = ui_box_container(newobj, grid, UI_BOX_VERTICAL);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
572 newobj->container_begin = container;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
573 newobj->container_end = container;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
574 return newobj;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
575 } else {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
576 fprintf(stderr, "ui_tabview_select: widget is not a tabview\n");
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
577 return NULL;
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
578 }
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
579 }
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
580
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
581 void ui_motif_tabview_select(UiMotifTabView *tabview, int tab) {
461
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
582 UiTab *t = cxListAt(tabview->tabs, tab);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
583 if(t) {
475
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
584 tabview->current_index = tab;
461
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
585 ui_motif_tabview_change_tab(tabview, t);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
586 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
587 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
588
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
589 static void ui_tab_button_callback(Widget widget, UiTab *tab, XtPointer d) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
590 UiMotifTabView *tabview = NULL;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
591 XtVaGetValues(widget, XmNuserData, &tabview, NULL);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
592 ui_motif_tabview_change_tab(tabview, tab);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
593 }
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
594
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
595 void ui_motif_tabview_add_tab(UiMotifTabView *tabview, int index, const char *name, Widget child) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
596 UiTab tab;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
597
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
598 Arg args[16];
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
599 int n = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
600
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
601 XmString label = XmStringCreateLocalized((char*)name);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
602 XtSetArg(args[n], XmNlabelString, label); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
603 XtSetArg(args[n], XmNshadowThickness, 0); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
604 XtSetArg(args[n], XmNhighlightThickness, 0); n++;
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
605 XtSetArg(args[n], XmNuserData, tabview); n++;
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
606
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
607 Widget button = XmCreatePushButton(tabview->tabbar, "tab_button", args, n);
475
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
608 if(tabview->tabview != UI_TABVIEW_INVISIBLE) {
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
609 XtManageChild(button);
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
610 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
611
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
612 if(tabview->height == 0) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
613 Dimension h;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
614 XtVaGetValues(
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
615 button,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
616 XmNarmColor,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
617 &tabview->bg1,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
618 XmNbackground,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
619 &tabview->bg2,
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
620 XmNhighlightColor,
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
621 &tabview->fg1,
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
622 XmNheight,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
623 &h,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
624 NULL);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
625 tabview->height = h + 2; // border
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
626
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
627 XtVaSetValues(tabview->tabbar, XmNbackground, tabview->bg1, NULL);
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
628 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
629
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
630 tab.tab_button = button;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
631 tab.child = child;
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
632 size_t newtab_index = cxListSize(tabview->tabs);
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
633 cxListAdd(tabview->tabs, &tab);
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
634 UiTab *newtab = cxListAt(tabview->tabs, newtab_index);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
635
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
636 XtAddCallback(
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
637 button,
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
638 XmNactivateCallback,
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
639 (XtCallbackProc)ui_tab_button_callback,
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
640 newtab);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
641
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
642 if(newtab_index == 0) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
643 ui_motif_tabview_change_tab(tabview, newtab);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
644 } else {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
645 XtVaSetValues(button, XmNbackground, tabview->bg1, NULL);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
646 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
647 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
648
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
649 void ui_motif_tabview_remove(UiMotifTabView *tabview, int index) {
461
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
650 UiTab *tab = cxListAt(tabview->tabs, index);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
651 if(tab) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
652 if(tab == tabview->current_tab) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
653 if(index > 0) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
654 ui_motif_tabview_select(tabview, index-1);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
655 } else {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
656 if(index < cxListSize(tabview->tabs)) {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
657 ui_motif_tabview_select(tabview, index+1);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
658 } else {
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
659 tabview->current_tab = NULL;
475
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
660 tabview->current_index = -1;
461
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
661 }
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
662 }
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
663 }
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
664 XtDestroyWidget(tab->tab_button);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
665 XtDestroyWidget(tab->child);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
666 cxListRemove(tabview->tabs, index);
b480e133b576 implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 460
diff changeset
667 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
668 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
669
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
670 void ui_motif_tabview_change_tab(UiMotifTabView *tabview, UiTab *tab) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
671 if(tabview->current_tab) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
672 XtVaSetValues(tabview->current_tab->tab_button, XmNshadowThickness, 0, XmNbackground, tabview->bg1, NULL);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
673 XtUnmanageChild(tabview->current_tab->child);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
674 }
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
675 XtVaSetValues(tab->tab_button, XmNshadowThickness, 1, XmNbackground, tabview->bg2, NULL);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
676 tabview->current_tab = tab;
475
8e06a446d552 implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 461
diff changeset
677 tabview->current_index = (int)cxListFind(tabview->tabs, tab);;
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
678 XtManageChild(tab->child);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
679 }
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
680
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
681 Widget ui_tabview_container_prepare(UiContainerPrivate *ctn, UiLayout *layout, Arg *args, int *n) {
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
682 UiTabViewContainer *ct = (UiTabViewContainer*)ctn;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
683 UiMotifTabView *tabview = ct->tabview;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
684 int a = *n;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
685 XtSetArg(args[a], XmNleftAttachment, XmATTACH_FORM); a++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
686 XtSetArg(args[a], XmNrightAttachment, XmATTACH_FORM); a++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
687 XtSetArg(args[a], XmNbottomAttachment, XmATTACH_FORM); a++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
688 XtSetArg(args[a], XmNtopAttachment, XmATTACH_WIDGET); a++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
689 XtSetArg(args[a], XmNtopWidget, tabview->tabbar); a++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
690 *n = a;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
691 return tabview->form;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
692 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
693
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
694 void ui_tabview_container_add(UiContainerPrivate *ctn, Widget widget) {
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
695
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
696 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
697
484
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
698 /* -------------------- ScrolledWindow -------------------- */
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
699
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
700 Widget ui_scrolledwindow_prepare(UiContainerPrivate *ctn, UiLayout *layout, Arg *args, int *n) {
484
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
701 return ctn->widget;
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
702 }
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
703
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
704 void ui_scrolledwindow_add(UiContainerPrivate *ctn, Widget widget) {
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
705
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
706 }
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
707
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
708 static UiContainerX* ui_scrolledwindow_container(UiObject *obj, Widget scrolledwindow) {
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
709 UiContainerPrivate *ctn = ui_malloc(obj->ctx, sizeof(UiContainerPrivate));
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
710 memset(ctn, 0, sizeof(UiContainerPrivate));
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
711 ctn->prepare = ui_scrolledwindow_prepare;
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
712 ctn->add = ui_scrolledwindow_add;
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
713 ctn->widget = scrolledwindow;
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
714 return (UiContainerX*)ctn;
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
715 }
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
716
595
e62047c59658 refactore widget args passing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 484
diff changeset
717 UIWIDGET ui_scrolledwindow_create(UiObject* obj, UiFrameArgs *args) {
484
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
718 UiContainerPrivate *ctn = ui_obj_container(obj);
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
719 UiLayout layout = UI_ARGS2LAYOUT(args);
484
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
720
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
721 Arg xargs[16];
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
722 int n = 0;
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
723
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
724 XtSetArg(xargs[n], XmNscrollingPolicy, XmAUTOMATIC); n++;
922
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
725 if(args->width > 0) {
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
726 XtSetArg(xargs[n], XmNwidth, args->width); n++;
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
727 }
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
728 if(args->height > 0) {
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
729 XtSetArg(xargs[n], XmNheight, args->height); n++;
20dff5f878e1 add frame container width/height args (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 920
diff changeset
730 }
484
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
731
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
732 Widget parent = ui_container_prepare(ctn, &layout, xargs, &n);
484
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
733 Widget scrolledwindow = XmCreateScrolledWindow(parent, "scrolledwindow", xargs, n);
808
2b0ecad00872 refactor motif containers
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 595
diff changeset
734 ui_container_add(ctn, scrolledwindow);
484
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
735
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
736 UiContainerX *container = ui_scrolledwindow_container(obj, scrolledwindow);
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
737 uic_object_push_container(obj, container);
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
738
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
739 return scrolledwindow;
07055fcc5e2c add ui_scrolledwindow_create (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 482
diff changeset
740 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
741
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
742 /* -------------------- Container Helper Functions -------------------- */
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
743
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
744 void ui_container_begin_close(UiObject *obj) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
745 UiContainerPrivate *ct = ui_obj_container(obj);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
746 ct->container.close = 1;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
747 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
748
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
749 int ui_container_finish(UiObject *obj) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
750 UiContainerPrivate *ct = ui_obj_container(obj);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
751 if(ct->container.close) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
752 ui_end_new(obj);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
753 return 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
754 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
755 return 1;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
756 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
757

mercurial