ui/motif/list.c

Sun, 22 Jan 2017 11:16:21 +0100

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Sun, 22 Jan 2017 11:16:21 +0100
changeset 133
6dd780cbc8c6
parent 122
e82b01d17a78
child 153
ee49d1852a5f
permissions
-rw-r--r--

using GtkApplication now

34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
1 /*
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
2 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
3 *
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
4 * Copyright 2014 Olaf Wintermann. All rights reserved.
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
5 *
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
6 * Redistribution and use in source and binary forms, with or without
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
7 * modification, are permitted provided that the following conditions are met:
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
8 *
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
9 * 1. Redistributions of source code must retain the above copyright
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
10 * notice, this list of conditions and the following disclaimer.
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
11 *
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
12 * 2. Redistributions in binary form must reproduce the above copyright
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
13 * notice, this list of conditions and the following disclaimer in the
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
14 * documentation and/or other materials provided with the distribution.
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
15 *
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
20 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
0ec8a5f17782 added listview and sidebar (Motif)
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
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
26 * POSSIBILITY OF SUCH DAMAGE.
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
27 */
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
28
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
29 #include <stdio.h>
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
30 #include <stdlib.h>
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
31
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
32 #include "container.h"
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
33
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
34 #include "list.h"
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
35 #include "../common/object.h"
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
36
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
37
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
38 void* ui_strmodel_getvalue(void *elm, int column) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
39 return column == 0 ? elm : NULL;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
40 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
41
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
42
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
43 UIWIDGET ui_listview_str(UiObject *obj, UiList *list, ui_callback f, void *udata) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
44 return ui_listview(obj, list, ui_strmodel_getvalue, f, udata);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
45 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
46
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
47 UIWIDGET ui_listview_var(UiObject *obj, UiListPtr *list, ui_model_getvalue_f getvalue, ui_callback f, void *udata) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
48 UiList *ls = list->list;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
49
36
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
50 int count;
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
51 XmStringTable items = ui_create_stringlist(list->list, getvalue, &count);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
52
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
53 Arg args[8];
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
54 int n = 0;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
55 XtSetArg(args[n], XmNitemCount, count);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
56 n++;
36
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
57 XtSetArg(args[n], XmNitems, count == 0 ? NULL : items);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
58 n++;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
59
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
60 UiContainer *ct = uic_get_current_container(obj);
60
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
61 Widget parent = ct->prepare(ct, args, &n, TRUE);
7cd1b8890302 added vbox container (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
62 Widget widget = XmCreateScrolledList(parent, "listview", args, n);
63
46a42f0c4f93 added textfield and some container fixes (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 60
diff changeset
63 ct->add(ct, XtParent(widget));
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
64 XtManageChild(widget);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
65
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
66 UiListView *listview = ucx_mempool_malloc(obj->ctx->mempool, sizeof(UiListView));
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
67 listview->widget = widget;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
68 listview->list = list;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
69 listview->getvalue = getvalue;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
70
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
71 list->list->observers = ui_add_observer(
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
72 list->list->observers,
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
73 (ui_callback)ui_listview_update,
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
74 listview);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
75
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
76 for (int i=0;i<count;i++) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
77 XmStringFree(items[i]);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
78 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
79 XtFree((char *)items);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
80
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
81 if(f) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
82 UiListViewEventData *event = ucx_mempool_malloc(
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
83 obj->ctx->mempool,
77
bc0ed99e49c7 fixed memory allocation bug
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 63
diff changeset
84 sizeof(UiListViewEventData));
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
85 event->event.obj = obj;
98
efaae97bd95b added mouse event handler (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 77
diff changeset
86 event->event.userdata = udata;
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
87 event->event.callback = f;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
88 event->event.value = 0;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
89 event->list = list;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
90 XtAddCallback(
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
91 widget,
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
92 XmNdefaultActionCallback,
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
93 (XtCallbackProc)ui_list_selection_callback,
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
94 event);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
95 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
96
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
97 return widget;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
98 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
99
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
100 UIWIDGET ui_listview(UiObject *obj, UiList *list, ui_model_getvalue_f getvalue, ui_callback f, void *udata) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
101 UiListPtr *listptr = ucx_mempool_malloc(obj->ctx->mempool, sizeof(UiListPtr));
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
102 listptr->list = list;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
103 return ui_listview_var(obj, listptr, getvalue, f, udata);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
104 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
105
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
106 UIWIDGET ui_listview_nv(UiObject *obj, char *varname, ui_model_getvalue_f getvalue, ui_callback f, void *udata) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
107 UiVar *var = uic_connect_var(obj->ctx, varname, UI_VAR_LIST);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
108 if(var) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
109 UiListVar *value = var->value;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
110 return ui_listview_var(obj, value->listptr, getvalue, f, udata);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
111 } else {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
112 // TODO: error
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
113 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
114 return NULL;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
115 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
116
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
117
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
118 XmStringTable ui_create_stringlist(UiList *list, ui_model_getvalue_f getvalue, int *count) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
119 int num = list->count(list);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
120 XmStringTable items = (XmStringTable)XtMalloc(num * sizeof(XmString));
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
121 void *data = list->first(list);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
122 for(int i=0;i<num;i++) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
123 items[i] = XmStringCreateLocalized(getvalue(data, 0));
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
124 data = list->next(list);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
125 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
126
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
127 *count = num;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
128 return items;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
129 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
130
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
131
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
132 void ui_listview_update(UiEvent *event, UiListView *view) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
133 int count;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
134 XmStringTable items = ui_create_stringlist(
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
135 view->list->list,
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
136 view->getvalue,
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
137 &count);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
138
36
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
139 XtVaSetValues(
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
140 view->widget,
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
141 XmNitems, count == 0 ? NULL : items,
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
142 XmNitemCount,
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
143 count,
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
144 NULL);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
145
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
146 for (int i=0;i<count;i++) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
147 XmStringFree(items[i]);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
148 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
149 XtFree((char *)items);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
150 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
151
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
152 void ui_list_selection_callback (Widget widget, UiListViewEventData *event, XtPointer data) {
43
157a21a914ac added table view events (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
153 XmListCallbackStruct *cbs = (XmListCallbackStruct *)data;
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
154
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
155 UiEvent e;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
156 e.obj = event->event.obj;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
157 e.window = event->event.obj->window;
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 43
diff changeset
158 e.document = event->event.obj->ctx->document;
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
159 e.eventdata = event->list->list->get(event->list->list, cbs->item_position - 1);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
160 e.intval = cbs->item_position - 1;
98
efaae97bd95b added mouse event handler (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 77
diff changeset
161 event->event.callback(&e, event->event.userdata);
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
162 }
117
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
163
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
164
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
165 /* --------------------------- ComboBox --------------------------- */
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
166
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
167 UIWIDGET ui_combobox_str(UiObject *obj, UiList *list, ui_callback f, void *udata) {
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
168 return ui_combobox(obj, list, ui_strmodel_getvalue, f, udata);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
169 }
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
170
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
171 UIWIDGET ui_combobox(UiObject *obj, UiList *list, ui_model_getvalue_f getvalue, ui_callback f, void *udata) {
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
172 UiListPtr *listptr = ucx_mempool_malloc(obj->ctx->mempool, sizeof(UiListPtr));
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
173 listptr->list = list;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
174 return ui_combobox_var(obj, listptr, getvalue, f, udata);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
175 }
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
176
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
177 UIWIDGET ui_combobox_nv(UiObject *obj, char *varname, ui_model_getvalue_f getvalue, ui_callback f, void *udata) {
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
178 UiVar *var = uic_connect_var(obj->ctx, varname, UI_VAR_LIST);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
179 if(var) {
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
180 UiListVar *value = var->value;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
181 return ui_combobox_var(obj, value->listptr, getvalue, f, udata);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
182 } else {
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
183 // TODO: error
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
184 }
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
185 return NULL;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
186 }
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
187
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
188 UIWIDGET ui_combobox_var(UiObject *obj, UiListPtr *list, ui_model_getvalue_f getvalue, ui_callback f, void *udata) {
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
189 UiListView *listview = ucx_mempool_malloc(
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
190 obj->ctx->mempool,
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
191 sizeof(UiListView));
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
192
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
193 UiContainer *ct = uic_get_current_container(obj);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
194 Arg args[16];
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
195 int n = 0;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
196 XtSetArg(args[n], XmNindicatorOn, XmINDICATOR_NONE);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
197 n++;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
198 XtSetArg(args[n], XmNtraversalOn, FALSE);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
199 n++;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
200 XtSetArg(args[n], XmNwidth, 160);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
201 n++;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
202 Widget parent = ct->prepare(ct, args, &n, FALSE);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
203 Widget combobox = XmCreateDropDownList(parent, "combobox", args, n);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
204 XtManageChild(combobox);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
205 listview->widget = combobox;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
206 listview->list = list;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
207 listview->getvalue = getvalue;
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
208
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
209 ui_listview_update(NULL, listview);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
210
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
211 list->list->observers = ui_add_observer(
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
212 list->list->observers,
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
213 (ui_callback)ui_listview_update,
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
214 listview);
38c53b8a6139 added combobox (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 98
diff changeset
215
122
e82b01d17a78 added some special textfields (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 117
diff changeset
216 }

mercurial