ui/motif/toolkit.c

Sat, 11 Nov 2017 11:59:06 +0100

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Sat, 11 Nov 2017 11:59:06 +0100
changeset 143
d499b29d7cb6
parent 134
69e8e0936858
child 157
0b33b9396851
permissions
-rw-r--r--

adds observer support for textarea and textfield (GTK)

0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
1 /*
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
2 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
3 *
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
4 * Copyright 2014 Olaf Wintermann. All rights reserved.
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
5 *
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
6 * Redistribution and use in source and binary forms, with or without
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
7 * modification, are permitted provided that the following conditions are met:
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
8 *
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
9 * 1. Redistributions of source code must retain the above copyright
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
10 * notice, this list of conditions and the following disclaimer.
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
11 *
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
12 * 2. Redistributions in binary form must reproduce the above copyright
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
13 * notice, this list of conditions and the following disclaimer in the
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
14 * documentation and/or other materials provided with the distribution.
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
15 *
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
20 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
1f419bd32da1 added files
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
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
26 * POSSIBILITY OF SUCH DAMAGE.
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
27 */
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
28
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
29 #include <stdio.h>
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
30 #include <stdlib.h>
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
31 #include <unistd.h>
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
32 #include <pthread.h>
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
33
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
34 #include "toolkit.h"
3
c1a75454b444 added toolbar
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1
diff changeset
35 #include "toolbar.h"
c1a75454b444 added toolbar
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1
diff changeset
36 #include "stock.h"
1
eb5269000bc8 added some document functions
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 0
diff changeset
37 #include "../common/document.h"
24
06bceda81a03 added application properties
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 21
diff changeset
38 #include "../common/properties.h"
27
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
39 #include "../../ucx/buffer.h"
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
40
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
41 static XtAppContext app;
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
42 static Display *display;
27
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
43 static Widget active_window;
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
44 static char *application_name;
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
45
134
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
46 static ui_callback startup_func;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
47 static void *startup_data;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
48 static ui_callback open_func;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
49 void *open_data;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
50 static ui_callback exit_func;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
51 void *exit_data;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
52
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
53 static ui_callback appclose_fnc;
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
54 static void *appclose_udata;
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
55
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
56 static int is_toplevel_realized = 0;
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
57
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
58 int event_pipe[2];
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
59
86
3c63f57a8f77 added toolbar combobox (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 64
diff changeset
60 ///*
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
61 static String fallback[] = {
46
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
62 //"*fontList: -dt-interface system-medium-r-normal-s*utf*:",
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
63 "*renderTable: rt",
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
64 "*rt*fontType: FONT_IS_FONTSET",
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
65 "*rt*fontName: -dt-interface system-medium-r-normal-s*utf*:,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
66 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-iso8859-1,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
67 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-iso8859-10,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
68 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-iso8859-15,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
69 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-iso8859-2,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
70 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-iso8859-3,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
71 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-iso8859-4,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
72 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-iso8859-5,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
73 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-iso8859-9,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
74 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-koi8-e,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
75 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-koi8-r,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
76 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-koi8-ru,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
77 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-koi8-u,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
78 "-misc-liberation sans-medium-r-normal--0-0-0-0-p-0-koi8-uni,"
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
79 "-misc-fixed-medium-r-normal--14-130-75-75-c-140-jisx0208",
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
80 "*rt*fontSize: 10",
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
81 NULL
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
82 };
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
83 //*/
86
3c63f57a8f77 added toolbar combobox (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 64
diff changeset
84 /*
59
eb6611be50c7 added box container (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
85 static String fallback[] = {
eb6611be50c7 added box container (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
86 //"*fontList: -dt-interface system-medium-r-normal-s*utf*:",
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
87 "*text_area*renderTable: f1",
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
88 "*f1*fontType: FONT_IS_XFT",
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
89 "*f1*fontName: Monospace",
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
90 "*f1*fontSize: 11",
59
eb6611be50c7 added box container (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
91 "*renderTable: rt",
eb6611be50c7 added box container (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
92 "*rt*fontType: FONT_IS_XFT",
eb6611be50c7 added box container (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
93 "*rt*fontName: Cantarell",
eb6611be50c7 added box container (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
94 "*rt*fontSize: 11",
eb6611be50c7 added box container (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
95 NULL
eb6611be50c7 added box container (GTK)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 52
diff changeset
96 };
64
6ef2c7f73a30 added simple tabview (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 59
diff changeset
97 //*/
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
98
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
99 void input_proc(XtPointer data, int *source, XtInputId *iid) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
100 void *ptr;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
101 read(event_pipe[0], &ptr, sizeof(void*));
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
102 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
103
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
104 void ui_init(char *appname, int argc, char **argv) {
27
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
105 application_name = appname;
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
106
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
107 XtToolkitInitialize();
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
108 XtSetLanguageProc(NULL, NULL, NULL);
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
109 app = XtCreateApplicationContext();
46
4a5e0b9b6992 fixed fonts (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 36
diff changeset
110 XtAppSetFallbackResources(app, fallback);
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
111
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
112 display = XtOpenDisplay(app, NULL, appname, appname, NULL, 0, &argc, argv);
30
34513f76d5a8 added locale support (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 29
diff changeset
113 char **missing = NULL;
34513f76d5a8 added locale support (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 29
diff changeset
114 int nm = 0;
34513f76d5a8 added locale support (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 29
diff changeset
115 char *def = NULL;
34513f76d5a8 added locale support (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 29
diff changeset
116 XCreateFontSet(display, "-dt-interface system-medium-r-normal-s*utf*", &missing, &nm, &def);
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
117
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
118 uic_docmgr_init();
3
c1a75454b444 added toolbar
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1
diff changeset
119 ui_toolbar_init();
c1a75454b444 added toolbar
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 1
diff changeset
120 ui_stock_init();
24
06bceda81a03 added application properties
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 21
diff changeset
121
06bceda81a03 added application properties
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 21
diff changeset
122 uic_load_app_properties();
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
123
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
124 if(pipe(event_pipe)) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
125 fprintf(stderr, "UiError: Cannot create event pipe\n");
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
126 exit(-1);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
127 }
36
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
128 XtAppAddInput(
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
129 app,
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
130 event_pipe[0],
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
131 (XtPointer)XtInputReadMask,
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
132 input_proc,
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
133 NULL);
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
134 }
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
135
27
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
136 char* ui_appname() {
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
137 return application_name;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
138 }
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
139
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
140 Display* ui_get_display() {
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
141 return display;
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
142 }
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
143
134
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
144 void ui_onstartup(ui_callback f, void *userdata) {
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
145 startup_func = f;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
146 startup_data = userdata;
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
147 }
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
148
134
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
149 void ui_onopen(ui_callback f, void *userdata) {
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
150 open_func = f;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
151 open_data = userdata;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
152 }
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
153
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
154 void ui_onexit(ui_callback f, void *userdata) {
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
155 exit_func = f;
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
156 exit_data = userdata;
29
c96169444d88 added locale support (Cocoa) and ucx update
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 28
diff changeset
157 }
c96169444d88 added locale support (Cocoa) and ucx update
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 28
diff changeset
158
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
159 void ui_main() {
134
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
160 if(startup_func) {
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
161 startup_func(NULL, startup_data);
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
162 }
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
163 XtAppMainLoop(app);
134
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
164 if(exit_func) {
69e8e0936858 adds new app callbacks (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 122
diff changeset
165 exit_func(NULL, exit_data);
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
166 }
24
06bceda81a03 added application properties
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 21
diff changeset
167 uic_store_app_properties();
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
168 }
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
169
36
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
170 void ui_exit_mainloop() {
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
171 XtAppSetExitFlag(app);
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
172 }
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
173
28
794a5c91c479 added open/save dialogs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 27
diff changeset
174 void ui_secondary_event_loop(int *loop) {
794a5c91c479 added open/save dialogs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 27
diff changeset
175 while(*loop && !XtAppGetExitFlag(app)) {
794a5c91c479 added open/save dialogs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 27
diff changeset
176 XEvent event;
794a5c91c479 added open/save dialogs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 27
diff changeset
177 XtAppNextEvent(app, &event);
794a5c91c479 added open/save dialogs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 27
diff changeset
178 XtDispatchEvent(&event);
794a5c91c479 added open/save dialogs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 27
diff changeset
179 }
794a5c91c479 added open/save dialogs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 27
diff changeset
180 }
794a5c91c479 added open/save dialogs
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 27
diff changeset
181
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
182 void ui_show(UiObject *obj) {
21
012418e7dc90 added groups for menu items (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 3
diff changeset
183 uic_check_group_widgets(obj->ctx);
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
184 XtRealizeWidget(obj->widget);
99
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
185 ui_window_dark_theme(XtDisplay(obj->widget), XtWindow(obj->widget)); // TODO: if
0
1f419bd32da1 added files
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
186 }
21
012418e7dc90 added groups for menu items (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 3
diff changeset
187
36
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
188 // implemented in window.c
e4198fc2ead4 fixed list, text and added ui_close (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 34
diff changeset
189 //void ui_close(UiObject *obj)
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
190
21
012418e7dc90 added groups for menu items (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 3
diff changeset
191 void ui_set_enabled(UIWIDGET widget, int enabled) {
012418e7dc90 added groups for menu items (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 3
diff changeset
192 XtSetSensitive(widget, enabled);
012418e7dc90 added groups for menu items (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 3
diff changeset
193 }
27
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
194
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
195 void ui_set_show_all(UIWIDGET widget, int value) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
196 if(!value) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
197 XtUnmanageChild(widget);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
198 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
199 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
200
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
201 void ui_set_visible(UIWIDGET widget, int visible) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
202 if(visible) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
203 XtManageChild(widget);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
204 } else {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
205 XtUnmanageChild(widget);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
206 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
207 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
208
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
209 static Boolean ui_job_finished(void *data) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
210 printf("WorkProc\n");
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
211 UiJob *job = data;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
212
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
213 UiEvent event;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
214 event.obj = job->obj;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
215 event.window = job->obj->window;
52
25e5390cce41 added document tabview (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 46
diff changeset
216 event.document = job->obj->ctx->document;
34
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
217 event.intval = 0;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
218 event.eventdata = NULL;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
219
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
220 job->finish_callback(&event, job->finish_data);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
221 free(job);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
222 return TRUE;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
223 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
224
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
225 static void* ui_jobthread(void *data) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
226 UiJob *job = data;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
227 int result = job->job_func(job->job_data);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
228 if(!result) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
229 printf("XtAppAddWorkProc\n");
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
230 write(event_pipe[1], &job, sizeof(void*)); // hack
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
231 XtAppAddWorkProc(app, ui_job_finished, job);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
232
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
233 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
234 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
235
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
236 void ui_job(UiObject *obj, ui_threadfunc tf, void *td, ui_callback f, void *fd) {
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
237 UiJob *job = malloc(sizeof(UiJob));
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
238 job->obj = obj;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
239 job->job_func = tf;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
240 job->job_data = td;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
241 job->finish_callback = f;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
242 job->finish_data = fd;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
243 pthread_t pid;
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
244 pthread_create(&pid, NULL, ui_jobthread, job);
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
245 }
0ec8a5f17782 added listview and sidebar (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 30
diff changeset
246
27
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
247 void ui_clipboard_set(char *str) {
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
248 printf("copy: {%s}\n", str);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
249 int length = strlen(str) + 1;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
250
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
251 Display *dp = XtDisplayOfObject(active_window);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
252 Window window = XtWindowOfObject(active_window);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
253
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
254 XmString label = XmStringCreateLocalized("toolkit_clipboard");
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
255 long id = 0;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
256
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
257 while(XmClipboardStartCopy(
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
258 dp,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
259 window,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
260 label,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
261 CurrentTime,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
262 NULL,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
263 NULL,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
264 &id) == ClipboardLocked);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
265 XmStringFree(label);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
266
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
267 while(XmClipboardCopy(
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
268 dp,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
269 window,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
270 id,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
271 "STRING",
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
272 str,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
273 length,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
274 1,
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
275 NULL) == ClipboardLocked);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
276
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
277 while(XmClipboardEndCopy(dp, window, id) == ClipboardLocked);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
278 }
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
279
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
280 char* ui_clipboard_get() {
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
281 Display *dp = XtDisplayOfObject(active_window);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
282 Window window = XtWindowOfObject(active_window);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
283
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
284 long id;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
285 size_t size = 128;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
286 char *buf = malloc(size);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
287
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
288 int r;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
289 for(;;) {
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
290 r = XmClipboardRetrieve(dp, window, "STRING", buf, size, NULL, &id);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
291 if(r == ClipboardSuccess) {
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
292 break;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
293 } else if(r == ClipboardTruncate) {
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
294 size *= 2;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
295 buf = realloc(buf, size);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
296 } else if(r == ClipboardNoData) {
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
297 free(buf);
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
298 buf = NULL;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
299 break;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
300 }
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
301 }
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
302
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
303 return buf;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
304 }
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
305
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
306 void ui_set_active_window(Widget w) {
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
307 active_window = w;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
308 }
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
309
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
310 Widget ui_get_active_window() {
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
311 return active_window;
77b09bb52ca0 added groups for toolbar items and copy & paste (GTK, Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 24
diff changeset
312 }
99
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
313
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
314 void ui_window_dark_theme(Display *dp, Window window) {
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
315 Atom atom = XInternAtom(dp, "_GTK_THEME_VARIANT", False);
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
316 Atom type = XInternAtom(dp, "UTF8_STRING", False);
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
317 XChangeProperty(
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
318 dp,
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
319 window,
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
320 atom,
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
321 type,
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
322 8,
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
323 PropModeReplace,
122
e82b01d17a78 added some special textfields (Motif)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 99
diff changeset
324 (const unsigned char*)"dark",
99
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
325 4);
ea1a2d5de765 improved grid container (Gtk)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 86
diff changeset
326 }

mercurial