ui/motif/container.c

5 weeks ago

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Thu, 06 Feb 2025 22:36:29 +0100 (5 weeks ago)
changeset 460
1274d84f44de
parent 452
a0620cf552a6
child 461
b480e133b576
permissions
-rw-r--r--

finish minimal tabview implementation (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"
4
39b9b86ec452 added simple container
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
36
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
37 #include <cx/array_list.h>
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
38
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
39 #include "Grid.h"
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
40
443
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
41
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
42 UIWIDGET ui_customwidget_create(UiObject *obj, ui_createwidget_func create_widget, void *userdata, UiWidgetArgs args) {
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
43 Arg xargs[64];
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
44 int n = 0;
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
45
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
46 UiContainerPrivate *ctn = ui_obj_container(obj);
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
47 UI_APPLY_LAYOUT(ctn->layout, args);
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
48
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
49 Widget parent = ctn->prepare(ctn, xargs, &n);
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
50 Widget widget = create_widget(obj, args, userdata, parent, xargs, n);
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
51 XtManageChild(widget);
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
52 ctn->add(ctn, widget);
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
53
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
54 return widget;
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
55 }
3379c8a5b6bb implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 426
diff changeset
56
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
57 /* ---------------------------- Box Container ---------------------------- */
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
58
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
59 static UIWIDGET box_create(UiObject *obj, UiContainerArgs args, UiBoxOrientation orientation) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
60 UiContainerPrivate *ctn = ui_obj_container(obj);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
61 UI_APPLY_LAYOUT(ctn->layout, args);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
62
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
63 Arg xargs[16];
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
64 int n = 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
65
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
66 if(orientation == UI_BOX_VERTICAL) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
67 //XtSetArg(xargs[n], gridRowSpacing, args.spacing); n++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
68 } else {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
69 //XtSetArg(xargs[n], gridColumnSpacing, args.spacing); n++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
70 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
71
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
72 Widget parent = ctn->prepare(ctn, xargs, &n);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
73 Widget grid = XtCreateManagedWidget(args.name ? args.name : "boxcontainer", gridClass, parent, xargs, n);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
74 ctn->add(ctn, grid);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
75
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
76 UiContainerX *container = ui_box_container(obj, grid, orientation);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
77 uic_object_push_container(obj, container);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
78
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
79 return grid;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
80 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
81
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
82 // public
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
83 UIWIDGET ui_vbox_create(UiObject *obj, UiContainerArgs args) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
84 return box_create(obj, args, UI_BOX_VERTICAL);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
85 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
86
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
87 // public
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
88 UIWIDGET ui_hbox_create(UiObject *obj, UiContainerArgs args) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
89 return box_create(obj, args, UI_BOX_HORIZONTAL);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
90 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
91
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
92 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
93 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
94 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
95 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
96 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
97 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
98 ctn->n = 0;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
99 return (UiContainerX*)ctn;
62
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
100 }
70d2aee84432 added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 61
diff changeset
101
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
102 static Widget ui_box_container_prepare(UiBoxContainer *box, Arg *args, int *n) {
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
103 int a = *n;
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
104 box->n++;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
105 return box->container.widget;
61
7ee124a58fe3 improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
106 }
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 4
diff changeset
107
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
108 Widget ui_vbox_prepare(UiContainerPrivate *ctn, Arg *args, int *n) {
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
109 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
110 int a = *n;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
111 XtSetArg(args[a], gridRow, box->n); a++;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
112 if(box->container.layout.fill == UI_ON) {
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
113 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
114 XtSetArg(args[a], gridVFill, TRUE); a++;
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
115 }
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
116 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
117 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
118 *n = a;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
119 return ui_box_container_prepare(box, args, n);
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
120 }
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
121
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
122 Widget ui_hbox_prepare(UiContainerPrivate *ctn, Arg *args, int *n) {
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
123 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
124 int a = *n;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
125 XtSetArg(args[a], gridColumn, box->n); a++;
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
126 if(box->container.layout.fill == UI_ON) {
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
127 XtSetArg(args[a], gridHExpand, TRUE); a++;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
128 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
129 }
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], gridVExpand, TRUE); a++;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
131 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
132 *n = a;
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
133 return ui_box_container_prepare(box, args, n);
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
134 }
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
135
406
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
136 void ui_box_container_add(UiContainerPrivate *ctn, Widget widget) {
0ebf9d7b23e8 add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 253
diff changeset
137 ui_reset_layout(ctn->layout);
91
c13e344fa55f drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 76
diff changeset
138
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
139 }
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
140
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
141
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
142 /* ---------------------------- Grid Container ---------------------------- */
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
143
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
144 // public
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
145 UIWIDGET ui_grid_create(UiObject *obj, UiContainerArgs args) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
146 Arg xargs[16];
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
147 int n = 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
148
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
149 UiContainerPrivate *ctn = ui_obj_container(obj);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
150 UI_APPLY_LAYOUT(ctn->layout, args);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
151
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
152 Widget parent = ctn->prepare(ctn, xargs, &n);
426
3eb26df703bf implement Grid col/row spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 424
diff changeset
153 XtSetArg(xargs[n], gridMargin, args.margin); n++;
3eb26df703bf implement Grid col/row spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 424
diff changeset
154 XtSetArg(xargs[n], gridColumnSpacing, args.columnspacing); n++;
3eb26df703bf implement Grid col/row spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 424
diff changeset
155 XtSetArg(xargs[n], gridRowSpacing, args.rowspacing); n++;
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
156 Widget grid = XtCreateManagedWidget(args.name ? args.name : "gridcontainer", gridClass, parent, xargs, n);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
157 ctn->add(ctn, grid);
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 UiContainerX *container = ui_grid_container(obj, grid);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
160 uic_object_push_container(obj, 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 return grid;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
163 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
164
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
165 UiContainerX* ui_grid_container(UiObject *obj, Widget grid) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
166 UiGridContainer *ctn = ui_malloc(obj->ctx, sizeof(UiGridContainer));
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
167 memset(ctn, 0, sizeof(UiBoxContainer));
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
168 ctn->container.prepare = ui_grid_container_prepare;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
169 ctn->container.add = ui_grid_container_add;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
170 ctn->container.widget = grid;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
171 ctn->x = 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
172 ctn->y = 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
173 return (UiContainerX*)ctn;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
174 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
175
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
176 Widget ui_grid_container_prepare(UiContainerPrivate *ctn, Arg *args, int *n) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
177 UiGridContainer *grid = (UiGridContainer*)ctn;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
178 if(ctn->layout.newline) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
179 grid->y++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
180 grid->x = 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
181 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
182
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
183 int a = *n;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
184 XtSetArg(args[a], gridColumn, grid->x); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
185 XtSetArg(args[a], gridRow, grid->y); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
186 if(ctn->layout.colspan > 0) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
187 XtSetArg(args[a], gridColspan, ctn->layout.colspan); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
188 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
189 if(ctn->layout.rowspan > 0) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
190 XtSetArg(args[a], gridRowspan, ctn->layout.rowspan); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
191 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
192
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
193 if(grid->container.layout.fill == UI_ON) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
194 grid->container.layout.hfill = TRUE;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
195 grid->container.layout.vfill = TRUE;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
196 grid->container.layout.hexpand = TRUE;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
197 grid->container.layout.vexpand = TRUE;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
198 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
199
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
200 if(grid->container.layout.hfill) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
201 XtSetArg(args[a], gridHFill, TRUE); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
202 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
203 if(grid->container.layout.vfill) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
204 XtSetArg(args[a], gridVFill, TRUE); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
205 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
206 if(grid->container.layout.hexpand) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
207 XtSetArg(args[a], gridHExpand, TRUE); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
208 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
209 if(grid->container.layout.vexpand) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
210 XtSetArg(args[a], gridVExpand, TRUE); a++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
211 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
212
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
213 *n = a;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
214 return ctn->widget;
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
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
217 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
218 UiGridContainer *grid = (UiGridContainer*)ctn;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
219 grid->x++;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
220 ui_reset_layout(ctn->layout);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
221 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
222
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
223
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
224 /* -------------------------- TabView Container -------------------------- */
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
225
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
226 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
227 UiMotifTabView *tabview = udata;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
228
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
229 int width = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
230 int height = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
231 XtVaGetValues(widget, XmNwidth, &width, XmNheight, &height, NULL);
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
232 int numbuttons = cxListSize(tabview->tabs);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
233 if(numbuttons == 0) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
234 return;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
235 }
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
236 int button_width = width / numbuttons;
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
237 int x = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
238
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
239 CxIterator i = cxListIterator(tabview->tabs);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
240 cx_foreach(UiTab *, tab, i) {
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
241 if(i.index + 1 == numbuttons) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
242 button_width = width - x;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
243 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
244 XtVaSetValues(
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
245 tab->tab_button,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
246 XmNx, x,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
247 XmNy, 0,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
248 XmNwidth,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
249 button_width,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
250
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
251 NULL);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
252 x += button_width;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
253 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
254
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
255 if(height <= tabview->height) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
256 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
257 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
258 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
259
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
260 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
261 UiMotifTabView *tabview = udata;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
262 XmDrawingAreaCallbackStruct *cbs = (XmDrawingAreaCallbackStruct *)cdata;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
263 XEvent *event = cbs->event;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
264 Display *dpy = XtDisplay(widget);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
265
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
266 if(!tabview->gc_initialized) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
267 XGCValues gcvals;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
268 gcvals.foreground = tabview->fg1;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
269 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
270 }
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
271
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
272 if(tabview->current_tab) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
273 Widget tab = tabview->current_tab->tab_button;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
274 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
275 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
276 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
277
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
278 UIWIDGET ui_tabview_create(UiObject *obj, UiTabViewArgs args) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
279 Arg xargs[16];
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
280 int n = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
281
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
282 UiContainerPrivate *ctn = ui_obj_container(obj);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
283 UI_APPLY_LAYOUT(ctn->layout, args);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
284
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
285 // create widgets
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
286 // form
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
287 // - tabbar (Drawing Area)
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
288 // - content (Frame)
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
289 UiMotifTabView *tabview = malloc(sizeof(UiMotifTabView));
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
290 memset(tabview, 0, sizeof(UiMotifTabView));
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
291 char *name = args.name ? (char*)args.name : "tabview";
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
292 XtSetArg(xargs[n], XmNuserData, tabview); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
293 Widget parent = ctn->prepare(ctn, xargs, &n);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
294 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
295 XtManageChild(form);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
296
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
297 n = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
298 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
299 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
300 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
301 XtSetArg(xargs[n], XmNorientation, XmHORIZONTAL); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
302 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
303 XtSetArg(xargs[n], XmNspacing, 1); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
304 XtSetArg(xargs[n], XmNmarginWidth, 0); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
305 XtSetArg(xargs[n], XmNmarginHeight, 0); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
306 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
307 XtManageChild(tabbar);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
308 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
309 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
310
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
311 n = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
312 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
313 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
314 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
315 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
316 XtSetArg(xargs[n], XmNtopWidget, tabbar); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
317 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
318
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
319 // setup tabview object, that holds all relevant objects
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
320 tabview->form = form;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
321 tabview->tabbar = tabbar;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
322 tabview->content = content;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
323 tabview->tabview = args.tabview;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
324 tabview->subcontainer = args.subcontainer;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
325 tabview->select = ui_motif_tabview_select;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
326 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
327 tabview->remove = ui_motif_tabview_remove;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
328 tabview->tabs = cxArrayListCreateSimple(sizeof(UiTab), 8);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
329
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
330 UiTabViewContainer *ct = ui_malloc(obj->ctx, sizeof(UiTabViewContainer));
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
331 ct->container.widget = form;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
332 ct->container.type = UI_CONTAINER_TABVIEW;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
333 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
334 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
335 ct->tabview = tabview;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
336
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
337 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
338
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
339 return form;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
340 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
341
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
342 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
343 UiContainerPrivate *ctn = ui_obj_container(obj);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
344 if(ctn->type != UI_CONTAINER_TABVIEW) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
345 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
346 return;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
347 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
348
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
349 UiMotifTabView *tabview = NULL;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
350 XtVaGetValues(ctn->widget, XmNuserData, &tabview, NULL);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
351 if(!tabview) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
352 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
353 return;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
354 }
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
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
357 Widget child = ui_vbox_create(obj, (UiContainerArgs) { 0 });
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
358 if(tabview->current) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
359 XtUnmanageChild(child);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
360 } else {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
361 tabview->current = child;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
362 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
363
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
364 tabview->add(tabview, -1, title, child);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
365 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
366
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
367 void ui_motif_tabview_select(UiMotifTabView *tabview, int tab) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
368
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
369 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
370
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
371 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
372 UiMotifTabView *tabview = NULL;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
373 XtVaGetValues(widget, XmNuserData, &tabview, NULL);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
374 ui_motif_tabview_change_tab(tabview, tab);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
375 }
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
376
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
377 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
378 UiTab tab;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
379
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
380 Arg args[16];
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
381 int n = 0;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
382
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
383 XmString label = XmStringCreateLocalized((char*)name);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
384 XtSetArg(args[n], XmNlabelString, label); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
385 XtSetArg(args[n], XmNshadowThickness, 0); n++;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
386 XtSetArg(args[n], XmNhighlightThickness, 0); n++;
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
387 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
388
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
389 Widget button = XmCreatePushButton(tabview->tabbar, "tab_button", args, n);
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
390 XtManageChild(button);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
391
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
392 if(tabview->height == 0) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
393 Dimension h;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
394 XtVaGetValues(
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
395 button,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
396 XmNarmColor,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
397 &tabview->bg1,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
398 XmNbackground,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
399 &tabview->bg2,
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
400 XmNhighlightColor,
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
401 &tabview->fg1,
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
402 XmNheight,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
403 &h,
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
404 NULL);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
405 tabview->height = h + 2; // border
460
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 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
408 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
409
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
410 tab.tab_button = button;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
411 tab.child = child;
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
412 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
413 cxListAdd(tabview->tabs, &tab);
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
414 UiTab *newtab = cxListAt(tabview->tabs, newtab_index);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
415
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
416 XtAddCallback(
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
417 button,
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
418 XmNactivateCallback,
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
419 (XtCallbackProc)ui_tab_button_callback,
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
420 newtab);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
421
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
422 if(newtab_index == 0) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
423 ui_motif_tabview_change_tab(tabview, newtab);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
424 } else {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
425 XtVaSetValues(button, XmNbackground, tabview->bg1, NULL);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
426 }
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
427 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
428
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
429 void ui_motif_tabview_remove(UiMotifTabView *tabview, int index) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
430
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
431 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
432
460
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
433 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
434 if(tabview->current_tab) {
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
435 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
436 XtUnmanageChild(tabview->current_tab->child);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
437 }
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
438 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
439 tabview->current_tab = tab;
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
440 XtManageChild(tab->child);
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
441 }
1274d84f44de finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 452
diff changeset
442
452
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
443 Widget ui_tabview_container_prepare(UiContainerPrivate *ctn, Arg *args, int *n) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
444 UiTabViewContainer *ct = (UiTabViewContainer*)ctn;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
445 UiMotifTabView *tabview = ct->tabview;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
446 int a = *n;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
447 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
448 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
449 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
450 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
451 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
452 *n = a;
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
453 return tabview->form;
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
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
456 void ui_tabview_container_add(UiContainerPrivate *ctn, Widget widget) {
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
457 ui_reset_layout(ctn->layout);
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
458 }
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
459
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
460
a0620cf552a6 add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 443
diff changeset
461
407
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
462 /* -------------------- Container Helper Functions -------------------- */
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
463
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
464 void ui_container_begin_close(UiObject *obj) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
465 UiContainerPrivate *ct = ui_obj_container(obj);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
466 ct->container.close = 1;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
467 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
468
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
469 int ui_container_finish(UiObject *obj) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
470 UiContainerPrivate *ct = ui_obj_container(obj);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
471 if(ct->container.close) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
472 ui_end_new(obj);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
473 return 0;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
474 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
475 return 1;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
476 }
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
477
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
478
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
479 /*
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
480 * -------------------- Layout Functions --------------------
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
481 *
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
482 * functions for setting layout attributes for the current container
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
483 *
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
484 */
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
485
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
486 void ui_newline(UiObject *obj) {
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
487 UiContainerPrivate *ct = ui_obj_container(obj);
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
488 ct->layout.newline = TRUE;
8ea123dd89db semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 406
diff changeset
489 }

mercurial