2 weeks ago
move ui_customwidget to separate file
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 | |
480
7dfd5e546b99
move ui_customwidget to separate file
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
475
diff
changeset
|
42 | |
443
3379c8a5b6bb
implement ui_customwidget_create for Motif
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
426
diff
changeset
|
43 | |
407
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
44 | /* ---------------------------- Box Container ---------------------------- */ |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
45 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
46 | 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
|
47 | UiContainerPrivate *ctn = ui_obj_container(obj); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
48 | UI_APPLY_LAYOUT(ctn->layout, args); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
49 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
50 | Arg xargs[16]; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
51 | int n = 0; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
52 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
53 | if(orientation == UI_BOX_VERTICAL) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
54 | //XtSetArg(xargs[n], gridRowSpacing, args.spacing); n++; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
55 | } else { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
56 | //XtSetArg(xargs[n], gridColumnSpacing, args.spacing); n++; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
57 | } |
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 | Widget parent = ctn->prepare(ctn, xargs, &n); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
60 | 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
|
61 | ctn->add(ctn, grid); |
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 | UiContainerX *container = ui_box_container(obj, grid, orientation); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
64 | uic_object_push_container(obj, container); |
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 | return grid; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
67 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
68 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
69 | // public |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
70 | UIWIDGET ui_vbox_create(UiObject *obj, UiContainerArgs args) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
71 | return box_create(obj, args, UI_BOX_VERTICAL); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
72 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
73 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
74 | // public |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
75 | UIWIDGET ui_hbox_create(UiObject *obj, UiContainerArgs args) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
76 | return box_create(obj, args, UI_BOX_HORIZONTAL); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
77 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
78 | |
406
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
79 | 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
|
80 | 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
|
81 | 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
|
82 | 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
|
83 | 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
|
84 | 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
|
85 | ctn->n = 0; |
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
86 | return (UiContainerX*)ctn; |
62
70d2aee84432
added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
61
diff
changeset
|
87 | } |
70d2aee84432
added grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
61
diff
changeset
|
88 | |
406
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
89 | 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
|
90 | 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
|
91 | box->n++; |
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
92 | return box->container.widget; |
61
7ee124a58fe3
improved box (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
60
diff
changeset
|
93 | } |
34
0ec8a5f17782
added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
4
diff
changeset
|
94 | |
406
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
95 | 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
|
96 | 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
|
97 | int a = *n; |
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
98 | 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
|
99 | 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
|
100 | 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
|
101 | XtSetArg(args[a], gridVFill, TRUE); a++; |
64
6ef2c7f73a30
added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
63
diff
changeset
|
102 | } |
406
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
103 | 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
|
104 | 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
|
105 | *n = a; |
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
106 | 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
|
107 | } |
c13e344fa55f
drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
76
diff
changeset
|
108 | |
406
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
109 | 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
|
110 | 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
|
111 | int a = *n; |
407
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
112 | 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
|
113 | 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
|
114 | XtSetArg(args[a], gridHExpand, TRUE); a++; |
407
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
115 | 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
|
116 | } |
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], gridVExpand, TRUE); a++; |
407
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
118 | 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
|
119 | *n = a; |
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
120 | 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
|
121 | } |
25e5390cce41
added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
36
diff
changeset
|
122 | |
406
0ebf9d7b23e8
add first code of the new Motif implementation, implement buttons
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
253
diff
changeset
|
123 | 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
|
124 | ui_reset_layout(ctn->layout); |
91
c13e344fa55f
drawingarea based tab widget (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
76
diff
changeset
|
125 | |
52
25e5390cce41
added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
36
diff
changeset
|
126 | } |
407
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
127 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
128 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
129 | /* ---------------------------- Grid Container ---------------------------- */ |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
130 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
131 | // public |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
132 | UIWIDGET ui_grid_create(UiObject *obj, UiContainerArgs args) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
133 | Arg xargs[16]; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
134 | int n = 0; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
135 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
136 | UiContainerPrivate *ctn = ui_obj_container(obj); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
137 | UI_APPLY_LAYOUT(ctn->layout, args); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
138 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
139 | 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
|
140 | XtSetArg(xargs[n], gridMargin, args.margin); n++; |
3eb26df703bf
implement Grid col/row spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
424
diff
changeset
|
141 | XtSetArg(xargs[n], gridColumnSpacing, args.columnspacing); n++; |
3eb26df703bf
implement Grid col/row spacing (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
424
diff
changeset
|
142 | XtSetArg(xargs[n], gridRowSpacing, args.rowspacing); n++; |
407
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
143 | 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
|
144 | ctn->add(ctn, grid); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
145 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
146 | UiContainerX *container = ui_grid_container(obj, grid); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
147 | uic_object_push_container(obj, container); |
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 | return grid; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
150 | } |
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 | UiContainerX* ui_grid_container(UiObject *obj, Widget grid) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
153 | UiGridContainer *ctn = ui_malloc(obj->ctx, sizeof(UiGridContainer)); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
154 | memset(ctn, 0, sizeof(UiBoxContainer)); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
155 | ctn->container.prepare = ui_grid_container_prepare; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
156 | ctn->container.add = ui_grid_container_add; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
157 | ctn->container.widget = grid; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
158 | ctn->x = 0; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
159 | ctn->y = 0; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
160 | return (UiContainerX*)ctn; |
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 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
163 | 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
|
164 | UiGridContainer *grid = (UiGridContainer*)ctn; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
165 | if(ctn->layout.newline) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
166 | grid->y++; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
167 | grid->x = 0; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
168 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
169 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
170 | int a = *n; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
171 | XtSetArg(args[a], gridColumn, grid->x); a++; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
172 | XtSetArg(args[a], gridRow, grid->y); a++; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
173 | if(ctn->layout.colspan > 0) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
174 | XtSetArg(args[a], gridColspan, ctn->layout.colspan); a++; |
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 | if(ctn->layout.rowspan > 0) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
177 | XtSetArg(args[a], gridRowspan, ctn->layout.rowspan); a++; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
178 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
179 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
180 | if(grid->container.layout.fill == UI_ON) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
181 | grid->container.layout.hfill = TRUE; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
182 | grid->container.layout.vfill = TRUE; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
183 | grid->container.layout.hexpand = TRUE; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
184 | grid->container.layout.vexpand = TRUE; |
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 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
187 | if(grid->container.layout.hfill) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
188 | XtSetArg(args[a], gridHFill, TRUE); a++; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
189 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
190 | if(grid->container.layout.vfill) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
191 | XtSetArg(args[a], gridVFill, TRUE); a++; |
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.hexpand) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
194 | XtSetArg(args[a], gridHExpand, TRUE); a++; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
195 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
196 | if(grid->container.layout.vexpand) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
197 | XtSetArg(args[a], gridVExpand, TRUE); a++; |
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 | *n = a; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
201 | return ctn->widget; |
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 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
204 | 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
|
205 | UiGridContainer *grid = (UiGridContainer*)ctn; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
206 | grid->x++; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
207 | ui_reset_layout(ctn->layout); |
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 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
210 | |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
211 | /* -------------------------- TabView Container -------------------------- */ |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
212 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
213 | 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
|
214 | UiMotifTabView *tabview = udata; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
215 | |
475
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
216 | if(tabview->tabview == UI_TABVIEW_INVISIBLE) { |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
217 | return; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
218 | } |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
219 | |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
220 | int width = 0; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
221 | int height = 0; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
222 | XtVaGetValues(widget, XmNwidth, &width, XmNheight, &height, NULL); |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
223 | int numbuttons = cxListSize(tabview->tabs); |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
224 | if(numbuttons == 0) { |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
225 | return; |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
226 | } |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
227 | int button_width = width / numbuttons; |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
228 | int x = 0; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
229 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
230 | CxIterator i = cxListIterator(tabview->tabs); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
231 | cx_foreach(UiTab *, tab, i) { |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
232 | if(i.index + 1 == numbuttons) { |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
233 | button_width = width - x; |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
234 | } |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
235 | XtVaSetValues( |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
236 | tab->tab_button, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
237 | XmNx, x, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
238 | XmNy, 0, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
239 | XmNwidth, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
240 | button_width, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
241 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
242 | NULL); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
243 | x += button_width; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
244 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
245 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
246 | if(height <= tabview->height) { |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
247 | 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
|
248 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
249 | } |
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 | 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
|
252 | UiMotifTabView *tabview = udata; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
253 | XmDrawingAreaCallbackStruct *cbs = (XmDrawingAreaCallbackStruct *)cdata; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
254 | XEvent *event = cbs->event; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
255 | Display *dpy = XtDisplay(widget); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
256 | |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
257 | if(!tabview->gc_initialized) { |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
258 | XGCValues gcvals; |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
259 | gcvals.foreground = tabview->fg1; |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
260 | 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
|
261 | } |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
262 | |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
263 | if(tabview->current_tab) { |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
264 | Widget tab = tabview->current_tab->tab_button; |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
265 | 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
|
266 | } |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
267 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
268 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
269 | 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
|
270 | Arg xargs[16]; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
271 | int n = 0; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
272 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
273 | UiContainerPrivate *ctn = ui_obj_container(obj); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
274 | UI_APPLY_LAYOUT(ctn->layout, args); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
275 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
276 | // create widgets |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
277 | // form |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
278 | // - tabbar (Drawing Area) |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
279 | // - content (Frame) |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
280 | UiMotifTabView *tabview = malloc(sizeof(UiMotifTabView)); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
281 | memset(tabview, 0, sizeof(UiMotifTabView)); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
282 | 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
|
283 | XtSetArg(xargs[n], XmNuserData, tabview); n++; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
284 | 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
|
285 | 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
|
286 | XtManageChild(form); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
287 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
288 | n = 0; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
289 | 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
|
290 | 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
|
291 | 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
|
292 | XtSetArg(xargs[n], XmNorientation, XmHORIZONTAL); n++; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
293 | 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
|
294 | XtSetArg(xargs[n], XmNspacing, 1); n++; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
295 | XtSetArg(xargs[n], XmNmarginWidth, 0); n++; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
296 | XtSetArg(xargs[n], XmNmarginHeight, 0); n++; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
297 | 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
|
298 | XtManageChild(tabbar); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
299 | 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
|
300 | 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
|
301 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
302 | n = 0; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
303 | 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
|
304 | 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
|
305 | 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
|
306 | 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
|
307 | XtSetArg(xargs[n], XmNtopWidget, tabbar); n++; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
308 | 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
|
309 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
310 | // 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
|
311 | tabview->obj = obj; |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
312 | tabview->form = form; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
313 | tabview->tabbar = tabbar; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
314 | tabview->content = content; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
315 | tabview->tabview = args.tabview; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
316 | tabview->subcontainer = args.subcontainer; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
317 | tabview->select = ui_motif_tabview_select; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
318 | 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
|
319 | tabview->remove = ui_motif_tabview_remove; |
475
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
320 | tabview->tabs = cxArrayListCreate(obj->ctx->allocator, cx_cmp_ptr, sizeof(UiTab), 8); |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
321 | tabview->current_index = -1; |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
322 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
323 | 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
|
324 | ct->container.widget = form; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
325 | ct->container.type = UI_CONTAINER_TABVIEW; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
326 | 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
|
327 | 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
|
328 | ct->tabview = tabview; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
329 | |
475
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
330 | UiVar* var = uic_widget_var(obj->ctx, obj->ctx, args.value, args.varname, UI_VAR_INTEGER); |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
331 | if(var) { |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
332 | UiInteger *i = var->value; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
333 | i->obj = tabview; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
334 | i->get = ui_tabview_get; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
335 | i->set = ui_tabview_set; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
336 | } |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
337 | |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
338 | 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
|
339 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
340 | return form; |
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 | |
475
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
343 | int64_t ui_tabview_get(UiInteger *i) { |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
344 | UiMotifTabView *tabview = i->obj; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
345 | i->value = tabview->current_index; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
346 | return i->value; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
347 | } |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
348 | |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
349 | 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
|
350 | UiMotifTabView *tabview = i->obj; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
351 | if(value < cxListSize(tabview->tabs)) { |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
352 | ui_motif_tabview_select(tabview, value); |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
353 | i->value = value; |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
354 | } |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
355 | } |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
356 | |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
357 | 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
|
358 | UiContainerPrivate *ctn = ui_obj_container(obj); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
359 | if(ctn->type != UI_CONTAINER_TABVIEW) { |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
360 | 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
|
361 | return; |
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 | UiMotifTabView *tabview = NULL; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
365 | XtVaGetValues(ctn->widget, XmNuserData, &tabview, NULL); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
366 | if(!tabview) { |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
367 | 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
|
368 | return; |
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 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
371 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
372 | 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
|
373 | if(tabview->current) { |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
374 | XtUnmanageChild(child); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
375 | } else { |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
376 | tabview->current = child; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
377 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
378 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
379 | tabview->add(tabview, -1, title, child); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
380 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
381 | |
461
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
382 | void ui_tabview_select(UIWIDGET tabview, int tab) { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
383 | UiMotifTabView *tabviewdata = NULL; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
384 | XtVaGetValues(tabview, XmNuserData, &tabviewdata, NULL); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
385 | if(tabviewdata) { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
386 | ui_motif_tabview_select(tabviewdata, tab); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
387 | } else { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
388 | 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
|
389 | } |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
390 | } |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
391 | |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
392 | void ui_tabview_remove(UIWIDGET tabview, int tab) { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
393 | UiMotifTabView *tabviewdata = NULL; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
394 | XtVaGetValues(tabview, XmNuserData, &tabviewdata, NULL); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
395 | if(tabviewdata) { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
396 | ui_motif_tabview_remove(tabviewdata, tab); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
397 | } else { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
398 | 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
|
399 | } |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
400 | } |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
401 | |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
402 | 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
|
403 | UiMotifTabView *tabviewdata = NULL; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
404 | XtVaGetValues(tabview, XmNuserData, &tabviewdata, NULL); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
405 | if(tabviewdata) { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
406 | Arg args[16]; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
407 | int n = 0; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
408 | |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
409 | XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
410 | XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
411 | XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
412 | XtSetArg(args[n], XmNtopAttachment, XmATTACH_WIDGET); n++; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
413 | XtSetArg(args[n], XmNtopWidget, tabviewdata->tabbar); n++; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
414 | |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
415 | 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
|
416 | |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
417 | 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
|
418 | newobj->ctx = tabviewdata->obj->ctx; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
419 | newobj->widget = grid; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
420 | 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
|
421 | newobj->container_begin = container; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
422 | newobj->container_end = container; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
423 | return newobj; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
424 | } else { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
425 | 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
|
426 | return NULL; |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
427 | } |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
428 | } |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
429 | |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
430 | 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
|
431 | UiTab *t = cxListAt(tabview->tabs, tab); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
432 | if(t) { |
475
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
433 | tabview->current_index = tab; |
461
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
434 | ui_motif_tabview_change_tab(tabview, t); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
435 | } |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
436 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
437 | |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
438 | 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
|
439 | UiMotifTabView *tabview = NULL; |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
440 | XtVaGetValues(widget, XmNuserData, &tabview, NULL); |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
441 | ui_motif_tabview_change_tab(tabview, tab); |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
442 | } |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
443 | |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
444 | 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
|
445 | UiTab tab; |
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 | Arg args[16]; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
448 | int n = 0; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
449 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
450 | XmString label = XmStringCreateLocalized((char*)name); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
451 | XtSetArg(args[n], XmNlabelString, label); n++; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
452 | XtSetArg(args[n], XmNshadowThickness, 0); n++; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
453 | XtSetArg(args[n], XmNhighlightThickness, 0); n++; |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
454 | 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
|
455 | |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
456 | 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
|
457 | if(tabview->tabview != UI_TABVIEW_INVISIBLE) { |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
458 | XtManageChild(button); |
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
459 | } |
452
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 | if(tabview->height == 0) { |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
462 | Dimension h; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
463 | XtVaGetValues( |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
464 | button, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
465 | XmNarmColor, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
466 | &tabview->bg1, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
467 | XmNbackground, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
468 | &tabview->bg2, |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
469 | XmNhighlightColor, |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
470 | &tabview->fg1, |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
471 | XmNheight, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
472 | &h, |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
473 | NULL); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
474 | tabview->height = h + 2; // border |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
475 | |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
476 | 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
|
477 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
478 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
479 | tab.tab_button = button; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
480 | tab.child = child; |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
481 | 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
|
482 | cxListAdd(tabview->tabs, &tab); |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
483 | UiTab *newtab = cxListAt(tabview->tabs, newtab_index); |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
484 | |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
485 | XtAddCallback( |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
486 | button, |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
487 | XmNactivateCallback, |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
488 | (XtCallbackProc)ui_tab_button_callback, |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
489 | newtab); |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
490 | |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
491 | if(newtab_index == 0) { |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
492 | ui_motif_tabview_change_tab(tabview, newtab); |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
493 | } else { |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
494 | XtVaSetValues(button, XmNbackground, tabview->bg1, NULL); |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
495 | } |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
496 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
497 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
498 | 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
|
499 | UiTab *tab = cxListAt(tabview->tabs, index); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
500 | if(tab) { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
501 | if(tab == tabview->current_tab) { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
502 | if(index > 0) { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
503 | ui_motif_tabview_select(tabview, index-1); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
504 | } else { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
505 | if(index < cxListSize(tabview->tabs)) { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
506 | ui_motif_tabview_select(tabview, index+1); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
507 | } else { |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
508 | tabview->current_tab = NULL; |
475
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
509 | tabview->current_index = -1; |
461
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
510 | } |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
511 | } |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
512 | } |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
513 | XtDestroyWidget(tab->tab_button); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
514 | XtDestroyWidget(tab->child); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
515 | cxListRemove(tabview->tabs, index); |
b480e133b576
implement missing tabview functions (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
460
diff
changeset
|
516 | } |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
517 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
518 | |
460
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
519 | 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
|
520 | if(tabview->current_tab) { |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
521 | 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
|
522 | XtUnmanageChild(tabview->current_tab->child); |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
523 | } |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
524 | 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
|
525 | tabview->current_tab = tab; |
475
8e06a446d552
implement tabview UiInteger binding (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
461
diff
changeset
|
526 | 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
|
527 | XtManageChild(tab->child); |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
528 | } |
1274d84f44de
finish minimal tabview implementation (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
452
diff
changeset
|
529 | |
452
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
530 | 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
|
531 | UiTabViewContainer *ct = (UiTabViewContainer*)ctn; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
532 | UiMotifTabView *tabview = ct->tabview; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
533 | int a = *n; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
534 | 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
|
535 | 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
|
536 | 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
|
537 | 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
|
538 | 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
|
539 | *n = a; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
540 | return tabview->form; |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
541 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
542 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
543 | 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
|
544 | ui_reset_layout(ctn->layout); |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
545 | } |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
546 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
547 | |
a0620cf552a6
add first code for motif tabview (incomplete)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
443
diff
changeset
|
548 | |
407
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
549 | /* -------------------- Container Helper Functions -------------------- */ |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
550 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
551 | void ui_container_begin_close(UiObject *obj) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
552 | UiContainerPrivate *ct = ui_obj_container(obj); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
553 | ct->container.close = 1; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
554 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
555 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
556 | int ui_container_finish(UiObject *obj) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
557 | UiContainerPrivate *ct = ui_obj_container(obj); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
558 | if(ct->container.close) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
559 | ui_end_new(obj); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
560 | return 0; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
561 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
562 | return 1; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
563 | } |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
564 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
565 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
566 | /* |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
567 | * -------------------- Layout Functions -------------------- |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
568 | * |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
569 | * 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
|
570 | * |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
571 | */ |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
572 | |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
573 | void ui_newline(UiObject *obj) { |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
574 | UiContainerPrivate *ct = ui_obj_container(obj); |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
575 | ct->layout.newline = TRUE; |
8ea123dd89db
semi functional grid container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
406
diff
changeset
|
576 | } |