?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Found a way for all drivers to work the same in mp.pipes().
[mp-5.x.git] / mpv_gtk.c
blob3abba2432af167399aa6ad775a0f14b348058ba2
1 /*
2
3 Minimum Profit - Programmer Text Editor
4
5 GTK driver.
6
7 Copyright (C) 1991-2011 Angel Ortega <angel@triptico.com>
8
9 This program is free software; you can redistribute it and/or
10 modify it under the terms of the GNU General Public License
11 as published by the Free Software Foundation; either version 2
12 of the License, or (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
22
23 http://www.triptico.com
24
25 */
26
27 #include "config.h"
28
29 #ifdef CONFOPT_GTK
30
31 #include <stdio.h>
32 #include <wchar.h>
33 #include <string.h>
34 #include <stdlib.h>
35 #include <ctype.h>
36 #include <unistd.h>
37 #include <sys/stat.h>
38 #include <gtk/gtk.h>
39 #include <gdk/gdkkeysyms.h>
40
41 #include "mpdm.h"
42 #include "mpsl.h"
43
44 #include "mp.h"
45
46 #include "mp.xpm"
47
48 /** data **/
49
50 /* global data */
51
52 static GtkWidget *window = NULL;
53 static GtkWidget *file_tabs = NULL;
54 static GtkWidget *area = NULL;
55 static GtkWidget *scrollbar = NULL;
56 static GtkWidget *status = NULL;
57 static GtkWidget *menu_bar = NULL;
58 static GtkIMContext *im = NULL;
59
60 /* character read from the keyboard */
61 static wchar_t im_char[2];
62
63 /* font information */
64 static int font_width = 0;
65 static int font_height = 0;
66 static PangoFontDescription *font = NULL;
67
68 /* the attributes */
69 static GdkColor *inks = NULL;
70 static GdkColor *papers = NULL;
71 static int *underlines = NULL;
72
73 /* true if the selection is ours */
74 static int got_selection = 0;
75
76 /* hack for active waiting for the selection */
77 static int wait_for_selection = 0;
78
79 /* global modal status */
80 /* code for the 'normal' attribute */
81 static int normal_attr = 0;
82
83 /* mp.drv.form() controls */
84
85 static GtkWidget **form_widgets = NULL;
86 static mpdm_t form_args = NULL;
87 static mpdm_t form_values = NULL;
88
89 /* mouse down flag */
90 static int mouse_down = 0;
91
92 /* timer function */
93 static mpdm_t timer_func = NULL;
94
95 /* maximize wanted? */
96 static int maximize = 0;
97
98 /** code **/
99
100 /** support functions **/
101
102 #define LL(m) (m)
103
104 static char *wcs_to_utf8(const wchar_t * wptr)
105 /* converts a wcs to utf-8 */
106 {
107 char *ptr;
108 gsize i, o;
109
110 i = wcslen(wptr);
111
112 /* do the conversion */
113 ptr = g_convert((const gchar *) wptr, (i + 1) * sizeof(wchar_t),
114 "UTF-8", "WCHAR_T", NULL, &o, NULL);
115
116 return ptr;
117 }
118
119
120 static char *v_to_utf8(mpdm_t v)
121 {
122 char *ptr = NULL;
123
124 if (v != NULL) {
125 mpdm_ref(v);
126 ptr = wcs_to_utf8(mpdm_string(v));
127 mpdm_unref(v);
128 }
129
130 return ptr;
131 }
132
133 static wchar_t *utf8_to_wcs(const char *ptr)
134 /* converts utf-8 to wcs */
135 {
136 wchar_t *wptr;
137 gsize i, o;
138
139 i = strlen(ptr);
140
141 /* do the conversion */
142 wptr = (wchar_t *) g_convert((gchar *) ptr, i + 1,
143 "WCHAR_T", "UTF-8", NULL, &o, NULL);
144
145 return wptr;
146 }
147
148
149 static void update_window_size(void)
150 /* updates the viewport size in characters */
151 {
152 PangoLayout *pa;
153 int tx, ty;
154 mpdm_t v;
155
156 /* get font metrics */
157 pa = gtk_widget_create_pango_layout(area, "m");
158 pango_layout_set_font_description(pa, font);
159 pango_layout_get_pixel_size(pa, &font_width, &font_height);
160 g_object_unref(pa);
161
162 /* calculate the size in chars */
163 #if CONFOPT_GTK == 2
164 tx = (area->allocation.width / font_width);
165 ty = (area->allocation.height / font_height) + 1;
166 #endif
167
168 #if CONFOPT_GTK == 3
169 tx = (gtk_widget_get_allocated_width(area) / font_width);
170 ty = (gtk_widget_get_allocated_height(area) / font_height) + 1;
171 #endif
172
173 /* store the 'window' size */
174 v = mpdm_hget_s(mp, L"window");
175 mpdm_hset_s(v, L"tx", MPDM_I(tx));
176 mpdm_hset_s(v, L"ty", MPDM_I(ty));
177
178 /* rebuild the pixmap for the double buffer */
179 }
180
181
182 static void build_fonts(void)
183 /* builds the fonts */
184 {
185 char tmp[128];
186 int font_size = 12;
187 const char *font_face = "Mono";
188 mpdm_t c;
189 mpdm_t w = NULL;
190
191 if (font != NULL)
192 pango_font_description_free(font);
193
194 /* get current configuration */
195 if ((c = mpdm_hget_s(mp, L"config")) != NULL) {
196 mpdm_t v;
197
198 if ((v = mpdm_hget_s(c, L"font_size")) != NULL)
199 font_size = mpdm_ival(v);
200 else
201 mpdm_hset_s(c, L"font_size", MPDM_I(font_size));
202
203 if ((v = mpdm_hget_s(c, L"font_face")) != NULL) {
204 w = mpdm_ref(MPDM_2MBS(v->data));
205 font_face = w->data;
206 }
207 else
208 mpdm_hset_s(c, L"font_face", MPDM_MBS(font_face));
209 }
210
211 snprintf(tmp, sizeof(tmp) - 1, "%s %d", font_face, font_size);
212 tmp[sizeof(tmp) - 1] = '\0';
213
214 font = pango_font_description_from_string(tmp);
215 update_window_size();
216
217 mpdm_unref(w);
218 }
219
220
221 static void build_color(GdkColor * gdkcolor, int rgb)
222 /* builds a color */
223 {
224 gdkcolor->pixel = 0;
225 gdkcolor->blue = (rgb & 0x000000ff) << 8;
226 gdkcolor->green = (rgb & 0x0000ff00);
227 gdkcolor->red = (rgb & 0x00ff0000) >> 8;
228
229 #if CONFOPT_GTK == 2
230 gdk_colormap_alloc_color(gdk_colormap_get_system(), gdkcolor, FALSE,
231 TRUE);
232 #endif
233 }
234
235
236 static void build_colors(void)
237 /* builds the colors */
238 {
239 mpdm_t colors;
240 mpdm_t l;
241 mpdm_t c;
242 int n, s;
243
244 /* gets the color definitions and attribute names */
245 colors = mpdm_hget_s(mp, L"colors");
246 l = mpdm_ref(mpdm_keys(colors));
247 s = mpdm_size(l);
248
249 /* redim the structures */
250 inks = realloc(inks, sizeof(GdkColor) * s);
251 papers = realloc(papers, sizeof(GdkColor) * s);
252 underlines = realloc(underlines, sizeof(int) * s);
253
254 /* loop the colors */
255 for (n = 0; n < s && (c = mpdm_aget(l, n)) != NULL; n++) {
256 mpdm_t d = mpdm_hget(colors, c);
257 mpdm_t v = mpdm_hget_s(d, L"gui");
258
259 /* store the 'normal' attribute */
260 if (wcscmp(mpdm_string(c), L"normal") == 0)
261 normal_attr = n;
262
263 /* store the attr */
264 mpdm_hset_s(d, L"attr", MPDM_I(n));
265
266 build_color(&inks[n], mpdm_ival(mpdm_aget(v, 0)));
267 build_color(&papers[n], mpdm_ival(mpdm_aget(v, 1)));
268
269 /* flags */
270 v = mpdm_hget_s(d, L"flags");
271 underlines[n] = mpdm_seek_s(v, L"underline", 1) != -1 ? 1 : 0;
272
273 if (mpdm_seek_s(v, L"reverse", 1) != -1) {
274 GdkColor t;
275
276 t = inks[n];
277 inks[n] = papers[n];
278 papers[n] = t;
279 }
280 }
281
282 mpdm_unref(l);
283 }
284
285
286 /** menu functions **/
287
288 static void redraw(void);
289
290 static void menu_item_callback(mpdm_t action)
291 /* menu click callback */
292 {
293 mp_process_action(action);
294 redraw();
295
296 if (mp_exit_requested)
297 gtk_main_quit();
298 }
299
300
301 static void build_submenu(GtkWidget * menu, mpdm_t labels)
302 /* build a submenu */
303 {
304 int n;
305 GtkWidget *menu_item;
306
307 mpdm_ref(labels);
308
309 for (n = 0; n < mpdm_size(labels); n++) {
310 /* get the action */
311 mpdm_t v = mpdm_aget(labels, n);
312
313 /* if the action is a separator... */
314 if (*((wchar_t *) v->data) == L'-')
315 menu_item = gtk_menu_item_new();
316 else {
317 char *ptr;
318
319 ptr = v_to_utf8(mp_menu_label(v));
320 menu_item = gtk_menu_item_new_with_label(ptr);
321 g_free(ptr);
322 }
323
324 #if CONFOPT_GTK == 2
325 gtk_menu_append(GTK_MENU(menu), menu_item);
326 #endif
327 #if CONFOPT_GTK == 3
328 gtk_menu_shell_append(GTK_MENU_SHELL(menu), menu_item);
329 #endif
330
331 g_signal_connect_swapped(G_OBJECT(menu_item), "activate",
332 G_CALLBACK(menu_item_callback), v);
333 gtk_widget_show(menu_item);
334 }
335
336 mpdm_unref(labels);
337 }
338
339
340 static void build_menu(void)
341 /* builds the menu */
342 {
343 static mpdm_t prev_menu = NULL;
344 int n;
345 mpdm_t m;
346
347 /* gets the current menu */
348 if ((m = mpdm_hget_s(mp, L"menu")) == NULL)
349 return;
350
351 /* if it's the same, do nothing */
352 if (mpdm_cmp(m, prev_menu) == 0)
353 return;
354
355 /* create a new menu */
356 menu_bar = gtk_menu_bar_new();
357
358 for (n = 0; n < mpdm_size(m); n++) {
359 char *ptr;
360 mpdm_t mi;
361 mpdm_t v;
362 GtkWidget *menu;
363 GtkWidget *menu_item;
364 int i;
365
366 /* get the label and the items */
367 mi = mpdm_aget(m, n);
368 v = mpdm_aget(mi, 0);
369
370 if ((ptr = v_to_utf8(mpdm_gettext(v))) == NULL)
371 continue;
372
373 /* change the & by _ for the mnemonic */
374 for (i = 0; ptr[i]; i++)
375 if (ptr[i] == '&')
376 ptr[i] = '_';
377
378 /* add the menu and the label */
379 menu = gtk_menu_new();
380 menu_item = gtk_menu_item_new_with_mnemonic(ptr);
381 g_free(ptr);
382
383 gtk_widget_show(menu_item);
384 gtk_menu_item_set_submenu(GTK_MENU_ITEM(menu_item), menu);
385
386 #if CONFOPT_GTK == 2
387 gtk_menu_bar_append(GTK_MENU_BAR(menu_bar), menu_item);
388 #endif
389 #if CONFOPT_GTK == 3
390 gtk_menu_shell_append(GTK_MENU_SHELL(menu_bar), menu_item);
391 #endif
392
393 /* now loop the items */
394 build_submenu(menu, mpdm_aget(mi, 1));
395 }
396 }
397
398
399 /** main area drawing functions **/
400
401 static void switch_page(GtkNotebook * notebook, gpointer * page,
402 gint pg_num, gpointer data)
403 /* 'switch_page' handler (filetabs) */
404 {
405 /* sets the active one */
406 mpdm_hset_s(mp, L"active_i", MPDM_I(pg_num));
407
408 gtk_widget_grab_focus(area);
409 redraw();
410 }
411
412
413 static void draw_filetabs(void)
414 /* draws the filetabs */
415 {
416 static mpdm_t last = NULL;
417 mpdm_t names;
418 int n;
419
420 names = mpdm_ref(mp_get_doc_names());
421
422 /* disconnect redraw signal to avoid infinite loops */
423 g_signal_handlers_disconnect_by_func(G_OBJECT(file_tabs),
424 G_CALLBACK(switch_page), NULL);
425
426 /* is the list different from the previous one? */
427 if (mpdm_cmp(names, last) != 0) {
428
429 /* delete the current tabs */
430 for (n = 0; n < mpdm_size(last); n++)
431 gtk_notebook_remove_page(GTK_NOTEBOOK(file_tabs), 0);
432
433 /* create the new ones */
434 for (n = 0; n < mpdm_size(names); n++) {
435 GtkWidget *p;
436 GtkWidget *f;
437 char *ptr;
438 mpdm_t v = mpdm_aget(names, n);
439
440 if ((ptr = v_to_utf8(v)) != NULL) {
441 p = gtk_label_new(ptr);
442 gtk_widget_show(p);
443
444 f = gtk_frame_new(NULL);
445 gtk_widget_show(f);
446
447 gtk_notebook_append_page(GTK_NOTEBOOK(file_tabs), f, p);
448
449 g_free(ptr);
450 }
451 }
452
453 /* store for the next time */
454 mpdm_unref(last);
455 last = mpdm_ref(names);
456 }
457
458 mpdm_unref(names);
459
460 /* set the active one */
461 gtk_notebook_set_current_page(GTK_NOTEBOOK(file_tabs),
462 mpdm_ival(mpdm_hget_s(mp, L"active_i")));
463
464 /* reconnect signal */
465 g_signal_connect(G_OBJECT(file_tabs), "switch_page",
466 G_CALLBACK(switch_page), NULL);
467
468 gtk_widget_grab_focus(area);
469 }
470
471
472 static void draw_status(void)
473 /* draws the status line */
474 {
475 char *ptr;
476
477 if ((ptr = v_to_utf8(mp_build_status_line())) != NULL) {
478 gtk_label_set_text(GTK_LABEL(status), ptr);
479 g_free(ptr);
480 }
481 }
482
483
484 static gint scroll_event(GtkWidget * widget, GdkEventScroll * event)
485 /* 'scroll_event' handler (mouse wheel) */
486 {
487 wchar_t *ptr = NULL;
488
489 switch (event->direction) {
490 case GDK_SCROLL_UP:
491 ptr = L"mouse-wheel-up";
492 break;
493 case GDK_SCROLL_DOWN:
494 ptr = L"mouse-wheel-down";
495 break;
496 case GDK_SCROLL_LEFT:
497 ptr = L"mouse-wheel-left";
498 break;
499 case GDK_SCROLL_RIGHT:
500 ptr = L"mouse-wheel-right";
501 break;
502 }
503
504 if (ptr != NULL)
505 mp_process_event(MPDM_S(ptr));
506
507 redraw();
508
509 return 0;
510 }
511
512
513 static void value_changed(GtkAdjustment * adj, gpointer * data)
514 /* 'value_changed' handler (scrollbar) */
515 {
516 int i = (int) gtk_adjustment_get_value(adj);
517 mpdm_t doc;
518 mpdm_t txt;
519 int y;
520
521 /* get current y position */
522 doc = mp_active();
523 txt = mpdm_hget_s(doc, L"txt");
524 y = mpdm_ival(mpdm_hget_s(txt, L"y"));
525
526 /* if it's different, set and redraw */
527 if (y != i) {
528 mp_set_y(doc, i);
529 mpdm_hset_s(txt, L"vy", MPDM_I(i));
530 redraw();
531 }
532 }
533
534
535 static void draw_scrollbar(void)
536 /* updates the scrollbar */
537 {
538 GtkAdjustment *adjustment;
539 mpdm_t d;
540 mpdm_t v;
541 int pos, size, max;
542
543 /* gets the active document */
544 if ((d = mp_active()) == NULL)
545 return;
546
547 /* get the coordinates */
548 v = mpdm_hget_s(d, L"txt");
549 pos = mpdm_ival(mpdm_hget_s(v, L"vy"));
550 max = mpdm_size(mpdm_hget_s(v, L"lines"));
551
552 v = mpdm_hget_s(mp, L"window");
553 size = mpdm_ival(mpdm_hget_s(v, L"ty"));
554
555 adjustment = gtk_range_get_adjustment(GTK_RANGE(scrollbar));
556
557 /* disconnect to avoid infinite loops */
558 g_signal_handlers_disconnect_by_func(G_OBJECT(adjustment),
559 G_CALLBACK(value_changed), NULL);
560
561 gtk_adjustment_set_step_increment(adjustment, (gdouble) 1);
562 gtk_adjustment_set_upper(adjustment, (gdouble) max);
563 gtk_adjustment_set_page_size(adjustment, (gdouble) size);
564 gtk_adjustment_set_page_increment(adjustment, (gdouble) size);
565 gtk_adjustment_set_value(adjustment, (gdouble) pos);
566
567 gtk_range_set_adjustment(GTK_RANGE(scrollbar), adjustment);
568
569 gtk_adjustment_changed(adjustment);
570 gtk_adjustment_value_changed(adjustment);
571
572 /* reattach again */
573 g_signal_connect(G_OBJECT
574 (gtk_range_get_adjustment(GTK_RANGE(scrollbar))),
575 "value_changed", G_CALLBACK(value_changed), NULL);
576 }
577
578
579 static void gtk_drv_paint(mpdm_t doc, int optimize)
580 /* GTK document draw function */
581 {
582 GdkRectangle gr;
583 cairo_t *cr;
584 mpdm_t d = NULL;
585 int n, m;
586
587 if (maximize)
588 gtk_window_maximize(GTK_WINDOW(window));
589
590 /* no gc? create it */
591 if (font == NULL)
592 build_fonts();
593
594 if ((d = mp_draw(doc, optimize)) == NULL)
595 return;
596
597 mpdm_ref(d);
598
599 gr.x = 0;
600 gr.y = 0;
601
602 #if CONFOPT_GTK == 2
603 gr.width = area->allocation.width;
604 #endif
605 #if CONFOPT_GTK == 3
606 gr.width = gtk_widget_get_allocated_width(area);
607 #endif
608
609 gr.height = font_height;
610
611 cr = gdk_cairo_create(gtk_widget_get_window(area));
612 for (n = 0; n < mpdm_size(d); n++) {
613 PangoLayout *pl;
614 PangoAttrList *pal;
615 mpdm_t l = mpdm_aget(d, n);
616 char *str = NULL;
617 int u, p;
618
619 if (l == NULL)
620 continue;
621
622 /* create the pango stuff */
623 pl = gtk_widget_create_pango_layout(area, NULL);
624 pango_layout_set_font_description(pl, font);
625 pal = pango_attr_list_new();
626
627 for (m = u = p = 0; m < mpdm_size(l); m++, u = p) {
628 PangoAttribute *pa;
629 int attr;
630 mpdm_t s;
631 char *ptr;
632
633 /* get the attribute and the string */
634 attr = mpdm_ival(mpdm_aget(l, m++));
635 s = mpdm_aget(l, m);
636
637 /* convert the string to utf8 */
638 ptr = v_to_utf8(s);
639
640 /* add to the full line */
641 str = mpdm_poke(str, &p, ptr, strlen(ptr), 1);
642
643 g_free(ptr);
644
645 /* create the background if it's
646 different from the default */
647 if (papers[attr].red != papers[normal_attr].red ||
648 papers[attr].green != papers[normal_attr].green ||
649 papers[attr].blue != papers[normal_attr].blue) {
650 pa = pango_attr_background_new(papers[attr].red,
651 papers[attr].green,
652 papers[attr].blue);
653
654 pa->start_index = u;
655 pa->end_index = p;
656
657 pango_attr_list_insert(pal, pa);
658 }
659
660 /* underline? */
661 if (underlines[attr]) {
662 pa = pango_attr_underline_new(TRUE);
663
664 pa->start_index = u;
665 pa->end_index = p;
666
667 pango_attr_list_insert(pal, pa);
668 }
669
670 /* foreground color */
671 pa = pango_attr_foreground_new(inks[attr].red,
672 inks[attr].green,
673 inks[attr].blue);
674
675 pa->start_index = u;
676 pa->end_index = p;
677
678 pango_attr_list_insert(pal, pa);
679 }
680
681 /* store the attributes */
682 pango_layout_set_attributes(pl, pal);
683 pango_attr_list_unref(pal);
684
685 /* store and free the text */
686 pango_layout_set_text(pl, str, p);
687 free(str);
688
689 /* draw the background */
690 gdk_cairo_set_source_color(cr, &papers[normal_attr]);
691 cairo_rectangle(cr, 0, n * font_height, gr.width, gr.height);
692 cairo_fill(cr);
693
694 /* draw the text */
695 cairo_move_to(cr, 2, n * font_height);
696 pango_cairo_show_layout(cr, pl);
697
698 g_object_unref(pl);
699 }
700
701 cairo_destroy(cr);
702 mpdm_unref(d);
703
704 draw_filetabs();
705 draw_scrollbar();
706 draw_status();
707 }
708
709
710 static void redraw(void)
711 {
712 if (mpdm_size(mpdm_hget_s(mp, L"docs")))
713 gtk_drv_paint(mp_active(), 0);
714 }
715
716
717 static gint delete_event(GtkWidget * w, GdkEvent * e, gpointer data)
718 /* 'delete_event' handler */
719 {
720 mp_process_event(MPDM_LS(L"close-window"));
721
722 return mp_exit_requested ? FALSE : TRUE;
723 }
724
725
726 static void destroy(GtkWidget * w, gpointer data)
727 /* 'destroy' handler */
728 {
729 gtk_main_quit();
730 }
731
732
733 static gint key_release_event(GtkWidget * widget, GdkEventKey * event,
734 gpointer data)
735 /* 'key_release_event' handler */
736 {
737 if (mp_keypress_throttle(0))
738 gtk_drv_paint(mp_active(), 0);
739
740 return 0;
741 }
742
743
744 #if CONFOPT_GTK == 2
745 #define MP_KEY_Up GDK_Up
746 #define MP_KEY_Down GDK_Down
747 #define MP_KEY_Left GDK_Left
748 #define MP_KEY_Right GDK_Right
749 #define MP_KEY_Prior GDK_Prior
750 #define MP_KEY_Next GDK_Next
751 #define MP_KEY_Home GDK_Home
752 #define MP_KEY_End GDK_End
753 #define MP_KEY_space GDK_space
754 #define MP_KEY_KP_Add GDK_KP_Add
755 #define MP_KEY_KP_Subtract GDK_KP_Subtract
756 #define MP_KEY_KP_Multiply GDK_KP_Multiply
757 #define MP_KEY_KP_Divide GDK_KP_Divide
758 #define MP_KEY_F1 GDK_F1
759 #define MP_KEY_F2 GDK_F2
760 #define MP_KEY_F3 GDK_F3
761 #define MP_KEY_F4 GDK_F4
762 #define MP_KEY_F5 GDK_F5
763 #define MP_KEY_F6 GDK_F6
764 #define MP_KEY_F7 GDK_F7
765 #define MP_KEY_F8 GDK_F8
766 #define MP_KEY_F9 GDK_F9
767 #define MP_KEY_F10 GDK_F10
768 #define MP_KEY_F11 GDK_F11
769 #define MP_KEY_F12 GDK_F12
770 #define MP_KEY_KP_Enter GDK_KP_Enter
771 #define MP_KEY_Return GDK_Return
772 #define MP_KEY_Cyrillic_ve GDK_Cyrillic_ve
773 #define MP_KEY_Cyrillic_a GDK_Cyrillic_a
774 #define MP_KEY_Cyrillic_tse GDK_Cyrillic_tse
775 #define MP_KEY_Cyrillic_de GDK_Cyrillic_de
776 #define MP_KEY_Cyrillic_ie GDK_Cyrillic_ie
777 #define MP_KEY_Cyrillic_ef GDK_Cyrillic_ef
778 #define MP_KEY_Cyrillic_ghe GDK_Cyrillic_ghe
779 #define MP_KEY_Cyrillic_i GDK_Cyrillic_i
780 #define MP_KEY_Cyrillic_shorti GDK_Cyrillic_shorti
781 #define MP_KEY_Cyrillic_ka GDK_Cyrillic_ka
782 #define MP_KEY_Cyrillic_el GDK_Cyrillic_el
783 #define MP_KEY_Cyrillic_em GDK_Cyrillic_em
784 #define MP_KEY_Cyrillic_en GDK_Cyrillic_en
785 #define MP_KEY_Cyrillic_o GDK_Cyrillic_o
786 #define MP_KEY_Cyrillic_pe GDK_Cyrillic_pe
787 #define MP_KEY_Cyrillic_ya GDK_Cyrillic_ya
788 #define MP_KEY_Cyrillic_er GDK_Cyrillic_er
789 #define MP_KEY_Cyrillic_es GDK_Cyrillic_es
790 #define MP_KEY_Cyrillic_te GDK_Cyrillic_te
791 #define MP_KEY_Cyrillic_softsign GDK_Cyrillic_softsign
792 #define MP_KEY_Cyrillic_yeru GDK_Cyrillic_yeru
793 #define MP_KEY_Cyrillic_ze GDK_Cyrillic_ze
794 #define MP_KEY_Cyrillic_sha GDK_Cyrillic_sha
795 #define MP_KEY_Cyrillic_e GDK_Cyrillic_e
796 #define MP_KEY_Cyrillic_shcha GDK_Cyrillic_shcha
797 #define MP_KEY_Cyrillic_che GDK_Cyrillic_che
798 #define MP_KEY_Up GDK_Up
799 #define MP_KEY_Down GDK_Down
800 #define MP_KEY_Left GDK_Left
801 #define MP_KEY_Right GDK_Right
802 #define MP_KEY_Prior GDK_Prior
803 #define MP_KEY_Next GDK_Next
804 #define MP_KEY_Home GDK_Home
805 #define MP_KEY_End GDK_End
806 #define MP_KEY_space GDK_space
807 #define MP_KEY_KP_Add GDK_KP_Add
808 #define MP_KEY_KP_Subtract GDK_KP_Subtract
809 #define MP_KEY_KP_Multiply GDK_KP_Multiply
810 #define MP_KEY_KP_Divide GDK_KP_Divide
811 #define MP_KEY_F1 GDK_F1
812 #define MP_KEY_F2 GDK_F2
813 #define MP_KEY_F3 GDK_F3
814 #define MP_KEY_F4 GDK_F4
815 #define MP_KEY_F5 GDK_F5
816 #define MP_KEY_F6 GDK_F6
817 #define MP_KEY_F7 GDK_F7
818 #define MP_KEY_F8 GDK_F8
819 #define MP_KEY_F9 GDK_F9
820 #define MP_KEY_F10 GDK_F10
821 #define MP_KEY_F11 GDK_F11
822 #define MP_KEY_F12 GDK_F12
823 #define MP_KEY_KP_Enter GDK_KP_Enter
824 #define MP_KEY_Return GDK_Return
825 #define MP_KEY_Cyrillic_ve GDK_Cyrillic_ve
826 #define MP_KEY_Cyrillic_a GDK_Cyrillic_a
827 #define MP_KEY_Cyrillic_tse GDK_Cyrillic_tse
828 #define MP_KEY_Cyrillic_de GDK_Cyrillic_de
829 #define MP_KEY_Cyrillic_ie GDK_Cyrillic_ie
830 #define MP_KEY_Cyrillic_ef GDK_Cyrillic_ef
831 #define MP_KEY_Cyrillic_ghe GDK_Cyrillic_ghe
832 #define MP_KEY_Cyrillic_i GDK_Cyrillic_i
833 #define MP_KEY_Cyrillic_shorti GDK_Cyrillic_shorti
834 #define MP_KEY_Cyrillic_ka GDK_Cyrillic_ka
835 #define MP_KEY_Cyrillic_el GDK_Cyrillic_el
836 #define MP_KEY_Cyrillic_em GDK_Cyrillic_em
837 #define MP_KEY_Cyrillic_en GDK_Cyrillic_en
838 #define MP_KEY_Cyrillic_o GDK_Cyrillic_o
839 #define MP_KEY_Cyrillic_pe GDK_Cyrillic_pe
840 #define MP_KEY_Cyrillic_ya GDK_Cyrillic_ya
841 #define MP_KEY_Cyrillic_er GDK_Cyrillic_er
842 #define MP_KEY_Cyrillic_es GDK_Cyrillic_es
843 #define MP_KEY_Cyrillic_te GDK_Cyrillic_te
844 #define MP_KEY_Cyrillic_softsign GDK_Cyrillic_softsign
845 #define MP_KEY_Cyrillic_yeru GDK_Cyrillic_yeru
846 #define MP_KEY_Cyrillic_ze GDK_Cyrillic_ze
847 #define MP_KEY_Cyrillic_sha GDK_Cyrillic_sha
848 #define MP_KEY_Cyrillic_e GDK_Cyrillic_e
849 #define MP_KEY_Cyrillic_shcha GDK_Cyrillic_shcha
850 #define MP_KEY_Cyrillic_che GDK_Cyrillic_che
851 #define MP_KEY_Up GDK_Up
852 #define MP_KEY_Down GDK_Down
853 #define MP_KEY_Left GDK_Left
854 #define MP_KEY_Right GDK_Right
855 #define MP_KEY_Prior GDK_Prior
856 #define MP_KEY_Next GDK_Next
857 #define MP_KEY_Home GDK_Home
858 #define MP_KEY_End GDK_End
859 #define MP_KEY_space GDK_space
860 #define MP_KEY_KP_Add GDK_KP_Add
861 #define MP_KEY_KP_Subtract GDK_KP_Subtract
862 #define MP_KEY_KP_Multiply GDK_KP_Multiply
863 #define MP_KEY_KP_Divide GDK_KP_Divide
864 #define MP_KEY_F1 GDK_F1
865 #define MP_KEY_F2 GDK_F2
866 #define MP_KEY_F3 GDK_F3
867 #define MP_KEY_F4 GDK_F4
868 #define MP_KEY_F5 GDK_F5
869 #define MP_KEY_F6 GDK_F6
870 #define MP_KEY_F7 GDK_F7
871 #define MP_KEY_F8 GDK_F8
872 #define MP_KEY_F9 GDK_F9
873 #define MP_KEY_F10 GDK_F10
874 #define MP_KEY_F11 GDK_F11
875 #define MP_KEY_F12 GDK_F12
876 #define MP_KEY_Insert GDK_Insert
877 #define MP_KEY_BackSpace GDK_BackSpace
878 #define MP_KEY_Delete GDK_Delete
879 #define MP_KEY_KP_Enter GDK_KP_Enter
880 #define MP_KEY_Return GDK_Return
881 #define MP_KEY_Tab GDK_Tab
882 #define MP_KEY_ISO_Left_Tab GDK_ISO_Left_Tab
883 #define MP_KEY_Escape GDK_Escape
884 #endif /* CONFOPT_GTK == 2 */
885
886 #if CONFOPT_GTK == 3
887 #define MP_KEY_Up GDK_KEY_Up
888 #define MP_KEY_Down GDK_KEY_Down
889 #define MP_KEY_Left GDK_KEY_Left
890 #define MP_KEY_Right GDK_KEY_Right
891 #define MP_KEY_Prior GDK_KEY_Prior
892 #define MP_KEY_Next GDK_KEY_Next
893 #define MP_KEY_Home GDK_KEY_Home
894 #define MP_KEY_End GDK_KEY_End
895 #define MP_KEY_space GDK_KEY_space
896 #define MP_KEY_KP_Add GDK_KEY_KP_Add
897 #define MP_KEY_KP_Subtract GDK_KEY_KP_Subtract
898 #define MP_KEY_KP_Multiply GDK_KEY_KP_Multiply
899 #define MP_KEY_KP_Divide GDK_KEY_KP_Divide
900 #define MP_KEY_F1 GDK_KEY_F1
901 #define MP_KEY_F2 GDK_KEY_F2
902 #define MP_KEY_F3 GDK_KEY_F3
903 #define MP_KEY_F4 GDK_KEY_F4
904 #define MP_KEY_F5 GDK_KEY_F5
905 #define MP_KEY_F6 GDK_KEY_F6
906 #define MP_KEY_F7 GDK_KEY_F7
907 #define MP_KEY_F8 GDK_KEY_F8
908 #define MP_KEY_F9 GDK_KEY_F9
909 #define MP_KEY_F10 GDK_KEY_F10
910 #define MP_KEY_F11 GDK_KEY_F11
911 #define MP_KEY_F12 GDK_KEY_F12
912 #define MP_KEY_KP_Enter GDK_KEY_KP_Enter
913 #define MP_KEY_Return GDK_KEY_Return
914 #define MP_KEY_Cyrillic_ve GDK_KEY_Cyrillic_ve
915 #define MP_KEY_Cyrillic_a GDK_KEY_Cyrillic_a
916 #define MP_KEY_Cyrillic_tse GDK_KEY_Cyrillic_tse
917 #define MP_KEY_Cyrillic_de GDK_KEY_Cyrillic_de
918 #define MP_KEY_Cyrillic_ie GDK_KEY_Cyrillic_ie
919 #define MP_KEY_Cyrillic_ef GDK_KEY_Cyrillic_ef
920 #define MP_KEY_Cyrillic_ghe GDK_KEY_Cyrillic_ghe
921 #define MP_KEY_Cyrillic_i GDK_KEY_Cyrillic_i
922 #define MP_KEY_Cyrillic_shorti GDK_KEY_Cyrillic_shorti
923 #define MP_KEY_Cyrillic_ka GDK_KEY_Cyrillic_ka
924 #define MP_KEY_Cyrillic_el GDK_KEY_Cyrillic_el
925 #define MP_KEY_Cyrillic_em GDK_KEY_Cyrillic_em
926 #define MP_KEY_Cyrillic_en GDK_KEY_Cyrillic_en
927 #define MP_KEY_Cyrillic_o GDK_KEY_Cyrillic_o
928 #define MP_KEY_Cyrillic_pe GDK_KEY_Cyrillic_pe
929 #define MP_KEY_Cyrillic_ya GDK_KEY_Cyrillic_ya
930 #define MP_KEY_Cyrillic_er GDK_KEY_Cyrillic_er
931 #define MP_KEY_Cyrillic_es GDK_KEY_Cyrillic_es
932 #define MP_KEY_Cyrillic_te GDK_KEY_Cyrillic_te
933 #define MP_KEY_Cyrillic_softsign GDK_KEY_Cyrillic_softsign
934 #define MP_KEY_Cyrillic_yeru GDK_KEY_Cyrillic_yeru
935 #define MP_KEY_Cyrillic_ze GDK_KEY_Cyrillic_ze
936 #define MP_KEY_Cyrillic_sha GDK_KEY_Cyrillic_sha
937 #define MP_KEY_Cyrillic_e GDK_KEY_Cyrillic_e
938 #define MP_KEY_Cyrillic_shcha GDK_KEY_Cyrillic_shcha
939 #define MP_KEY_Cyrillic_che GDK_KEY_Cyrillic_che
940 #define MP_KEY_Up GDK_KEY_Up
941 #define MP_KEY_Down GDK_KEY_Down
942 #define MP_KEY_Left GDK_KEY_Left
943 #define MP_KEY_Right GDK_KEY_Right
944 #define MP_KEY_Prior GDK_KEY_Prior
945 #define MP_KEY_Next GDK_KEY_Next
946 #define MP_KEY_Home GDK_KEY_Home
947 #define MP_KEY_End GDK_KEY_End
948 #define MP_KEY_space GDK_KEY_space
949 #define MP_KEY_KP_Add GDK_KEY_KP_Add
950 #define MP_KEY_KP_Subtract GDK_KEY_KP_Subtract
951 #define MP_KEY_KP_Multiply GDK_KEY_KP_Multiply
952 #define MP_KEY_KP_Divide GDK_KEY_KP_Divide
953 #define MP_KEY_F1 GDK_KEY_F1
954 #define MP_KEY_F2 GDK_KEY_F2
955 #define MP_KEY_F3 GDK_KEY_F3
956 #define MP_KEY_F4 GDK_KEY_F4
957 #define MP_KEY_F5 GDK_KEY_F5
958 #define MP_KEY_F6 GDK_KEY_F6
959 #define MP_KEY_F7 GDK_KEY_F7
960 #define MP_KEY_F8 GDK_KEY_F8
961 #define MP_KEY_F9 GDK_KEY_F9
962 #define MP_KEY_F10 GDK_KEY_F10
963 #define MP_KEY_F11 GDK_KEY_F11
964 #define MP_KEY_F12 GDK_KEY_F12
965 #define MP_KEY_KP_Enter GDK_KEY_KP_Enter
966 #define MP_KEY_Return GDK_KEY_Return
967 #define MP_KEY_Cyrillic_ve GDK_KEY_Cyrillic_ve
968 #define MP_KEY_Cyrillic_a GDK_KEY_Cyrillic_a
969 #define MP_KEY_Cyrillic_tse GDK_KEY_Cyrillic_tse
970 #define MP_KEY_Cyrillic_de GDK_KEY_Cyrillic_de
971 #define MP_KEY_Cyrillic_ie GDK_KEY_Cyrillic_ie
972 #define MP_KEY_Cyrillic_ef GDK_KEY_Cyrillic_ef
973 #define MP_KEY_Cyrillic_ghe GDK_KEY_Cyrillic_ghe
974 #define MP_KEY_Cyrillic_i GDK_KEY_Cyrillic_i
975 #define MP_KEY_Cyrillic_shorti GDK_KEY_Cyrillic_shorti
976 #define MP_KEY_Cyrillic_ka GDK_KEY_Cyrillic_ka
977 #define MP_KEY_Cyrillic_el GDK_KEY_Cyrillic_el
978 #define MP_KEY_Cyrillic_em GDK_KEY_Cyrillic_em
979 #define MP_KEY_Cyrillic_en GDK_KEY_Cyrillic_en
980 #define MP_KEY_Cyrillic_o GDK_KEY_Cyrillic_o
981 #define MP_KEY_Cyrillic_pe GDK_KEY_Cyrillic_pe
982 #define MP_KEY_Cyrillic_ya GDK_KEY_Cyrillic_ya
983 #define MP_KEY_Cyrillic_er GDK_KEY_Cyrillic_er
984 #define MP_KEY_Cyrillic_es GDK_KEY_Cyrillic_es
985 #define MP_KEY_Cyrillic_te GDK_KEY_Cyrillic_te
986 #define MP_KEY_Cyrillic_softsign GDK_KEY_Cyrillic_softsign
987 #define MP_KEY_Cyrillic_yeru GDK_KEY_Cyrillic_yeru
988 #define MP_KEY_Cyrillic_ze GDK_KEY_Cyrillic_ze
989 #define MP_KEY_Cyrillic_sha GDK_KEY_Cyrillic_sha
990 #define MP_KEY_Cyrillic_e GDK_KEY_Cyrillic_e
991 #define MP_KEY_Cyrillic_shcha GDK_KEY_Cyrillic_shcha
992 #define MP_KEY_Cyrillic_che GDK_KEY_Cyrillic_che
993 #define MP_KEY_Up GDK_KEY_Up
994 #define MP_KEY_Down GDK_KEY_Down
995 #define MP_KEY_Left GDK_KEY_Left
996 #define MP_KEY_Right GDK_KEY_Right
997 #define MP_KEY_Prior GDK_KEY_Prior
998 #define MP_KEY_Next GDK_KEY_Next
999 #define MP_KEY_Home GDK_KEY_Home
1000 #define MP_KEY_End GDK_KEY_End
1001 #define MP_KEY_space GDK_KEY_space
1002 #define MP_KEY_KP_Add GDK_KEY_KP_Add
1003 #define MP_KEY_KP_Subtract GDK_KEY_KP_Subtract
1004 #define MP_KEY_KP_Multiply GDK_KEY_KP_Multiply
1005 #define MP_KEY_KP_Divide GDK_KEY_KP_Divide
1006 #define MP_KEY_F1 GDK_KEY_F1
1007 #define MP_KEY_F2 GDK_KEY_F2
1008 #define MP_KEY_F3 GDK_KEY_F3
1009 #define MP_KEY_F4 GDK_KEY_F4
1010 #define MP_KEY_F5 GDK_KEY_F5
1011 #define MP_KEY_F6 GDK_KEY_F6
1012 #define MP_KEY_F7 GDK_KEY_F7
1013 #define MP_KEY_F8 GDK_KEY_F8
1014 #define MP_KEY_F9 GDK_KEY_F9
1015 #define MP_KEY_F10 GDK_KEY_F10
1016 #define MP_KEY_F11 GDK_KEY_F11
1017 #define MP_KEY_F12 GDK_KEY_F12
1018 #define MP_KEY_Insert GDK_KEY_Insert
1019 #define MP_KEY_BackSpace GDK_KEY_BackSpace
1020 #define MP_KEY_Delete GDK_KEY_Delete
1021 #define MP_KEY_KP_Enter GDK_KEY_KP_Enter
1022 #define MP_KEY_Return GDK_KEY_Return
1023 #define MP_KEY_Tab GDK_KEY_Tab
1024 #define MP_KEY_ISO_Left_Tab GDK_KEY_ISO_Left_Tab
1025 #define MP_KEY_Escape GDK_KEY_Escape
1026 #endif /* CONFOPT_GTK == 3 */
1027
1028 static gint key_press_event(GtkWidget * widget, GdkEventKey * event,
1029 gpointer data)
1030 /* 'key_press_event' handler */
1031 {
1032 wchar_t *ptr = NULL;
1033
1034 gtk_im_context_filter_keypress(im, event);
1035
1036 /* set mp.shift_pressed */
1037 if (event->state & (GDK_SHIFT_MASK))
1038 mpdm_hset_s(mp, L"shift_pressed", MPDM_I(1));
1039
1040 /* reserve alt for menu mnemonics */
1041 /* if (GDK_MOD1_MASK & event->state)
1042 return(0);*/
1043
1044 if (event->state & (GDK_CONTROL_MASK)) {
1045 switch (event->keyval) {
1046 case MP_KEY_Up:
1047 ptr = L"ctrl-cursor-up";
1048 break;
1049 case MP_KEY_Down:
1050 ptr = L"ctrl-cursor-down";
1051 break;
1052 case MP_KEY_Left:
1053 ptr = L"ctrl-cursor-left";
1054 break;
1055 case MP_KEY_Right:
1056 ptr = L"ctrl-cursor-right";
1057 break;
1058 case MP_KEY_Prior:
1059 ptr = L"ctrl-page-up";
1060 break;
1061 case MP_KEY_Next:
1062 ptr = L"ctrl-page-down";
1063 break;
1064 case MP_KEY_Home:
1065 ptr = L"ctrl-home";
1066 break;
1067 case MP_KEY_End:
1068 ptr = L"ctrl-end";
1069 break;
1070 case MP_KEY_space:
1071 ptr = L"ctrl-space";
1072 break;
1073 case MP_KEY_KP_Add:
1074 ptr = L"ctrl-kp-plus";
1075 break;
1076 case MP_KEY_KP_Subtract:
1077 ptr = L"ctrl-kp-minus";
1078 break;
1079 case MP_KEY_KP_Multiply:
1080 ptr = L"ctrl-kp-multiply";
1081 break;
1082 case MP_KEY_KP_Divide:
1083 ptr = L"ctrl-kp-divide";
1084 break;
1085 case MP_KEY_F1:
1086 ptr = L"ctrl-f1";
1087 break;
1088 case MP_KEY_F2:
1089 ptr = L"ctrl-f2";
1090 break;
1091 case MP_KEY_F3:
1092 ptr = L"ctrl-f3";
1093 break;
1094 case MP_KEY_F4:
1095 ptr = L"ctrl-f4";
1096 break;
1097 case MP_KEY_F5:
1098 ptr = L"ctrl-f5";
1099 break;
1100 case MP_KEY_F6:
1101 ptr = L"ctrl-f6";
1102 break;
1103 case MP_KEY_F7:
1104 ptr = L"ctrl-f7";
1105 break;
1106 case MP_KEY_F8:
1107 ptr = L"ctrl-f8";
1108 break;
1109 case MP_KEY_F9:
1110 ptr = L"ctrl-f9";
1111 break;
1112 case MP_KEY_F10:
1113 ptr = L"ctrl-f10";
1114 break;
1115 case MP_KEY_F11:
1116 ptr = L"ctrl-f11";
1117 break;
1118 case MP_KEY_F12:
1119 ptr = L"ctrl-f12";
1120 break;
1121 case MP_KEY_KP_Enter:
1122 case MP_KEY_Return:
1123 ptr = L"ctrl-enter";
1124 break;
1125 case MP_KEY_Cyrillic_ve:
1126 ptr = L"ctrl-d";
1127 break;
1128 case MP_KEY_Cyrillic_a:
1129 ptr = L"ctrl-f";
1130 break;
1131 case MP_KEY_Cyrillic_tse:
1132 ptr = L"ctrl-w";
1133 break;
1134 case MP_KEY_Cyrillic_de:
1135 ptr = L"ctrl-l";
1136 break;
1137 case MP_KEY_Cyrillic_ie:
1138 ptr = L"ctrl-t";
1139 break;
1140 case MP_KEY_Cyrillic_ef:
1141 ptr = L"ctrl-a";
1142 break;
1143 case MP_KEY_Cyrillic_ghe:
1144 ptr = L"ctrl-u";
1145 break;
1146 case MP_KEY_Cyrillic_i:
1147 ptr = L"ctrl-b";
1148 break;
1149 case MP_KEY_Cyrillic_shorti:
1150 ptr = L"ctrl-q";
1151 break;
1152 case MP_KEY_Cyrillic_ka:
1153 ptr = L"ctrl-r";
1154 break;
1155 case MP_KEY_Cyrillic_el:
1156 ptr = L"ctrl-k";
1157 break;
1158 case MP_KEY_Cyrillic_em:
1159 ptr = L"ctrl-v";
1160 break;
1161 case MP_KEY_Cyrillic_en:
1162 ptr = L"ctrl-y";
1163 break;
1164 case MP_KEY_Cyrillic_o:
1165 ptr = L"ctrl-j";
1166 break;
1167 case MP_KEY_Cyrillic_pe:
1168 ptr = L"ctrl-g";
1169 break;
1170 case MP_KEY_Cyrillic_ya:
1171 ptr = L"ctrl-z";
1172 break;
1173 case MP_KEY_Cyrillic_er:
1174 ptr = L"ctrl-h";
1175 break;
1176 case MP_KEY_Cyrillic_es:
1177 ptr = L"ctrl-c";
1178 break;
1179 case MP_KEY_Cyrillic_te:
1180 ptr = L"ctrl-n";
1181 break;
1182 case MP_KEY_Cyrillic_softsign:
1183 ptr = L"ctrl-m";
1184 break;
1185 case MP_KEY_Cyrillic_yeru:
1186 ptr = L"ctrl-s";
1187 break;
1188 case MP_KEY_Cyrillic_ze:
1189 ptr = L"ctrl-p";
1190 break;
1191 case MP_KEY_Cyrillic_sha:
1192 ptr = L"ctrl-i";
1193 break;
1194 case MP_KEY_Cyrillic_e:
1195 ptr = L"ctrl-t";
1196 break;
1197 case MP_KEY_Cyrillic_shcha:
1198 ptr = L"ctrl-o";
1199 break;
1200 case MP_KEY_Cyrillic_che:
1201 ptr = L"ctrl-x";
1202 break;
1203 }
1204
1205 if (ptr == NULL) {
1206 char c = event->keyval & 0xdf;
1207
1208 switch (c) {
1209 case 'A':
1210 ptr = L"ctrl-a";
1211 break;
1212 case 'B':
1213 ptr = L"ctrl-b";
1214 break;
1215 case 'C':
1216 ptr = L"ctrl-c";
1217 break;
1218 case 'D':
1219 ptr = L"ctrl-d";
1220 break;
1221 case 'E':
1222 ptr = L"ctrl-e";
1223 break;
1224 case 'F':
1225 ptr = L"ctrl-f";
1226 break;
1227 case 'G':
1228 ptr = L"ctrl-g";
1229 break;
1230 case 'H':
1231 ptr = L"ctrl-h";
1232 break;
1233 case 'I':
1234 ptr = L"ctrl-i";
1235 break;
1236 case 'J':
1237 ptr = L"ctrl-j";
1238 break;
1239 case 'K':
1240 ptr = L"ctrl-k";
1241 break;
1242 case 'L':
1243 ptr = L"ctrl-l";
1244 break;
1245 case 'M':
1246 ptr = L"ctrl-m";
1247 break;
1248 case 'N':
1249 ptr = L"ctrl-n";
1250 break;
1251 case 'O':
1252 ptr = L"ctrl-o";
1253 break;
1254 case 'P':
1255 ptr = L"ctrl-p";
1256 break;
1257 case 'Q':
1258 ptr = L"ctrl-q";
1259 break;
1260 case 'R':
1261 ptr = L"ctrl-r";
1262 break;
1263 case 'S':
1264 ptr = L"ctrl-s";
1265 break;
1266 case 'T':
1267 ptr = L"ctrl-t";
1268 break;
1269 case 'U':
1270 ptr = L"ctrl-u";
1271 break;
1272 case 'V':
1273 ptr = L"ctrl-v";
1274 break;
1275 case 'W':
1276 ptr = L"ctrl-w";
1277 break;
1278 case 'X':
1279 ptr = L"ctrl-x";
1280 break;
1281 case 'Y':
1282 ptr = L"ctrl-y";
1283 break;
1284 case 'Z':
1285 ptr = L"ctrl-z";
1286 break;
1287 }
1288 }
1289 }
1290 else
1291 if (event->state & (GDK_MOD1_MASK)) {
1292 switch (event->keyval) {
1293 case MP_KEY_Up:
1294 ptr = L"alt-cursor-up";
1295 break;
1296 case MP_KEY_Down:
1297 ptr = L"alt-cursor-down";
1298 break;
1299 case MP_KEY_Left:
1300 ptr = L"alt-cursor-left";
1301 break;
1302 case MP_KEY_Right:
1303 ptr = L"alt-cursor-right";
1304 break;
1305 case MP_KEY_Prior:
1306 ptr = L"alt-page-up";
1307 break;
1308 case MP_KEY_Next:
1309 ptr = L"alt-page-down";
1310 break;
1311 case MP_KEY_Home:
1312 ptr = L"alt-home";
1313 break;
1314 case MP_KEY_End:
1315 ptr = L"alt-end";
1316 break;
1317 case MP_KEY_space:
1318 ptr = L"alt-space";
1319 break;
1320 case MP_KEY_KP_Add:
1321 ptr = L"alt-kp-plus";
1322 break;
1323 case MP_KEY_KP_Subtract:
1324 ptr = L"alt-kp-minus";
1325 break;
1326 case MP_KEY_KP_Multiply:
1327 ptr = L"alt-kp-multiply";
1328 break;
1329 case MP_KEY_KP_Divide:
1330 ptr = L"alt-kp-divide";
1331 break;
1332 case MP_KEY_F1:
1333 ptr = L"alt-f1";
1334 break;
1335 case MP_KEY_F2:
1336 ptr = L"alt-f2";
1337 break;
1338 case MP_KEY_F3:
1339 ptr = L"alt-f3";
1340 break;
1341 case MP_KEY_F4:
1342 ptr = L"alt-f4";
1343 break;
1344 case MP_KEY_F5:
1345 ptr = L"alt-f5";
1346 break;
1347 case MP_KEY_F6:
1348 ptr = L"alt-f6";
1349 break;
1350 case MP_KEY_F7:
1351 ptr = L"alt-f7";
1352 break;
1353 case MP_KEY_F8:
1354 ptr = L"alt-f8";
1355 break;
1356 case MP_KEY_F9:
1357 ptr = L"alt-f9";
1358 break;
1359 case MP_KEY_F10:
1360 ptr = L"alt-f10";
1361 break;
1362 case MP_KEY_F11:
1363 ptr = L"alt-f11";
1364 break;
1365 case MP_KEY_F12:
1366 ptr = L"alt-f12";
1367 break;
1368 case MP_KEY_KP_Enter:
1369 case MP_KEY_Return:
1370 ptr = L"alt-enter";
1371 break;
1372 case MP_KEY_Cyrillic_ve:
1373 ptr = L"alt-d";
1374 break;
1375 case MP_KEY_Cyrillic_a:
1376 ptr = L"alt-f";
1377 break;
1378 case MP_KEY_Cyrillic_tse:
1379 ptr = L"alt-w";
1380 break;
1381 case MP_KEY_Cyrillic_de:
1382 ptr = L"alt-l";
1383 break;
1384 case MP_KEY_Cyrillic_ie:
1385 ptr = L"alt-t";
1386 break;
1387 case MP_KEY_Cyrillic_ef:
1388 ptr = L"alt-a";
1389 break;
1390 case MP_KEY_Cyrillic_ghe:
1391 ptr = L"alt-u";
1392 break;
1393 case MP_KEY_Cyrillic_i:
1394 ptr = L"alt-b";
1395 break;
1396 case MP_KEY_Cyrillic_shorti:
1397 ptr = L"alt-q";
1398 break;
1399 case MP_KEY_Cyrillic_ka:
1400 ptr = L"alt-r";
1401 break;
1402 case MP_KEY_Cyrillic_el:
1403 ptr = L"alt-k";
1404 break;
1405 case MP_KEY_Cyrillic_em:
1406 ptr = L"alt-v";
1407 break;
1408 case MP_KEY_Cyrillic_en:
1409 ptr = L"alt-y";
1410 break;
1411 case MP_KEY_Cyrillic_o:
1412 ptr = L"alt-j";
1413 break;
1414 case MP_KEY_Cyrillic_pe:
1415 ptr = L"alt-g";
1416 break;
1417 case MP_KEY_Cyrillic_ya:
1418 ptr = L"alt-z";
1419 break;
1420 case MP_KEY_Cyrillic_er:
1421 ptr = L"alt-h";
1422 break;
1423 case MP_KEY_Cyrillic_es:
1424 ptr = L"alt-c";
1425 break;
1426 case MP_KEY_Cyrillic_te:
1427 ptr = L"alt-n";
1428 break;
1429 case MP_KEY_Cyrillic_softsign:
1430 ptr = L"alt-m";
1431 break;
1432 case MP_KEY_Cyrillic_yeru:
1433 ptr = L"alt-s";
1434 break;
1435 case MP_KEY_Cyrillic_ze:
1436 ptr = L"alt-p";
1437 break;
1438 case MP_KEY_Cyrillic_sha:
1439 ptr = L"alt-i";
1440 break;
1441 case MP_KEY_Cyrillic_e:
1442 ptr = L"alt-t";
1443 break;
1444 case MP_KEY_Cyrillic_shcha:
1445 ptr = L"alt-o";
1446 break;
1447 case MP_KEY_Cyrillic_che:
1448 ptr = L"alt-x";
1449 break;
1450 }
1451
1452 if (ptr == NULL) {
1453 char c = event->keyval & 0xdf;
1454
1455 switch (c) {
1456 case 'A':
1457 ptr = L"alt-a";
1458 break;
1459 case 'B':
1460 ptr = L"alt-b";
1461 break;
1462 case 'C':
1463 ptr = L"alt-c";
1464 break;
1465 case 'D':
1466 ptr = L"alt-d";
1467 break;
1468 case 'E':
1469 ptr = L"alt-e";
1470 break;
1471 case 'F':
1472 ptr = L"alt-f";
1473 break;
1474 case 'G':
1475 ptr = L"alt-g";
1476 break;
1477 case 'H':
1478 ptr = L"alt-h";
1479 break;
1480 case 'I':
1481 ptr = L"alt-i";
1482 break;
1483 case 'J':
1484 ptr = L"alt-j";
1485 break;
1486 case 'K':
1487 ptr = L"alt-k";
1488 break;
1489 case 'L':
1490 ptr = L"alt-l";
1491 break;
1492 case 'M':
1493 ptr = L"alt-m";
1494 break;
1495 case 'N':
1496 ptr = L"alt-n";
1497 break;
1498 case 'O':
1499 ptr = L"alt-o";
1500 break;
1501 case 'P':
1502 ptr = L"alt-p";
1503 break;
1504 case 'Q':
1505 ptr = L"alt-q";
1506 break;
1507 case 'R':
1508 ptr = L"alt-r";
1509 break;
1510 case 'S':
1511 ptr = L"alt-s";
1512 break;
1513 case 'T':
1514 ptr = L"alt-t";
1515 break;
1516 case 'U':
1517 ptr = L"alt-u";
1518 break;
1519 case 'V':
1520 ptr = L"alt-v";
1521 break;
1522 case 'W':
1523 ptr = L"alt-w";
1524 break;
1525 case 'X':
1526 ptr = L"alt-x";
1527 break;
1528 case 'Y':
1529 ptr = L"alt-y";
1530 break;
1531 case 'Z':
1532 ptr = L"alt-z";
1533 break;
1534 }
1535 }
1536 }
1537 else {
1538 switch (event->keyval) {
1539 case MP_KEY_Up:
1540 ptr = L"cursor-up";
1541 break;
1542 case MP_KEY_Down:
1543 ptr = L"cursor-down";
1544 break;
1545 case MP_KEY_Left:
1546 ptr = L"cursor-left";
1547 break;
1548 case MP_KEY_Right:
1549 ptr = L"cursor-right";
1550 break;
1551 case MP_KEY_Prior:
1552 ptr = L"page-up";
1553 break;
1554 case MP_KEY_Next:
1555 ptr = L"page-down";
1556 break;
1557 case MP_KEY_Home:
1558 ptr = L"home";
1559 break;
1560 case MP_KEY_End:
1561 ptr = L"end";
1562 break;
1563 case MP_KEY_space:
1564 ptr = L"space";
1565 break;
1566 case MP_KEY_KP_Add:
1567 ptr = L"kp-plus";
1568 break;
1569 case MP_KEY_KP_Subtract:
1570 ptr = L"kp-minus";
1571 break;
1572 case MP_KEY_KP_Multiply:
1573 ptr = L"kp-multiply";
1574 break;
1575 case MP_KEY_KP_Divide:
1576 ptr = L"kp-divide";
1577 break;
1578 case MP_KEY_F1:
1579 ptr = L"f1";
1580 break;
1581 case MP_KEY_F2:
1582 ptr = L"f2";
1583 break;
1584 case MP_KEY_F3:
1585 ptr = L"f3";
1586 break;
1587 case MP_KEY_F4:
1588 ptr = L"f4";
1589 break;
1590 case MP_KEY_F5:
1591 ptr = L"f5";
1592 break;
1593 case MP_KEY_F6:
1594 ptr = L"f6";
1595 break;
1596 case MP_KEY_F7:
1597 ptr = L"f7";
1598 break;
1599 case MP_KEY_F8:
1600 ptr = L"f8";
1601 break;
1602 case MP_KEY_F9:
1603 ptr = L"f9";
1604 break;
1605 case MP_KEY_F10:
1606 ptr = L"f10";
1607 break;
1608 case MP_KEY_F11:
1609 ptr = L"f11";
1610 break;
1611 case MP_KEY_F12:
1612 ptr = L"f12";
1613 break;
1614 case MP_KEY_Insert:
1615 ptr = L"insert";
1616 break;
1617 case MP_KEY_BackSpace:
1618 ptr = L"backspace";
1619 break;
1620 case MP_KEY_Delete:
1621 ptr = L"delete";
1622 break;
1623 case MP_KEY_KP_Enter:
1624 case MP_KEY_Return:
1625 ptr = L"enter";
1626 break;
1627 case MP_KEY_Tab:
1628 ptr = L"tab";
1629 break;
1630 case MP_KEY_ISO_Left_Tab:
1631 ptr = L"shift-tab";
1632 break;
1633 case MP_KEY_Escape:
1634 ptr = L"escape";
1635 break;
1636 }
1637 }
1638
1639 /* if there is a pending char in im_char, use it */
1640 if (ptr == NULL && im_char[0] != L'\0')
1641 ptr = im_char;
1642
1643 /* finally process */
1644 if (ptr != NULL)
1645 mp_process_event(MPDM_S(ptr));
1646
1647 /* delete the pending char */
1648 im_char[0] = L'\0';
1649
1650 if (mp_exit_requested)
1651 gtk_main_quit();
1652
1653 if (mp_keypress_throttle(1))
1654 gtk_drv_paint(mp_active(), 1);
1655
1656 return 0;
1657 }
1658
1659
1660 static gint button_press_event(GtkWidget * widget, GdkEventButton * event,
1661 gpointer data)
1662 /* 'button_press_event' handler (mouse buttons) */
1663 {
1664 int x, y;
1665 wchar_t *ptr = NULL;
1666
1667 mouse_down = 1;
1668
1669 /* mouse instant positioning */
1670 x = ((int) event->x) / font_width;
1671 y = ((int) event->y) / font_height;
1672
1673 mpdm_hset_s(mp, L"mouse_x", MPDM_I(x));
1674 mpdm_hset_s(mp, L"mouse_y", MPDM_I(y));
1675
1676 switch (event->button) {
1677 case 1:
1678 ptr = L"mouse-left-button";
1679 break;
1680 case 2:
1681 ptr = L"mouse-middle-button";
1682 break;
1683 case 3:
1684 ptr = L"mouse-right-button";
1685 break;
1686 case 4:
1687 ptr = L"mouse-wheel-up";
1688 break;
1689 case 5:
1690 ptr = L"mouse-wheel-down";
1691 break;
1692 }
1693
1694 if (ptr != NULL)
1695 mp_process_event(MPDM_S(ptr));
1696
1697 redraw();
1698
1699 return 0;
1700 }
1701
1702
1703 static gint button_release_event(GtkWidget * widget,
1704 GdkEventButton * event, gpointer data)
1705 /* 'button_release_event' handle (mouse buttons) */
1706 {
1707 mouse_down = 0;
1708
1709 return TRUE;
1710 }
1711
1712
1713 static gint motion_notify_event(GtkWidget * widget, GdkEventMotion * event,
1714 gpointer data)
1715 /* 'motion_notify_event' handler (mouse movement) */
1716 {
1717 static int ox = 0;
1718 static int oy = 0;
1719
1720 if (mouse_down) {
1721 int x, y;
1722
1723 /* mouse dragging */
1724 x = ((int) event->x) / font_width;
1725 y = ((int) event->y) / font_height;
1726
1727 if (ox != x && oy != y) {
1728 mpdm_hset_s(mp, L"mouse_to_x", MPDM_I(x));
1729 mpdm_hset_s(mp, L"mouse_to_y", MPDM_I(y));
1730
1731 mp_process_event(MPDM_LS(L"mouse-drag"));
1732 gtk_drv_paint(mp_active(), 1);
1733 }
1734 }
1735
1736 return TRUE;
1737 }
1738
1739
1740 static void drag_data_received(GtkWidget * widget, GdkDragContext * dc,
1741 gint x, gint y, GtkSelectionData * data,
1742 guint info, guint time)
1743 /* 'drag_data_received' handler */
1744 {
1745 printf("drag_data_received (unsupported)\n");
1746 }
1747
1748
1749 /** clipboard functions **/
1750
1751 static void commit(GtkIMContext * i, char *str, gpointer u)
1752 /* 'commit' handler */
1753 {
1754 wchar_t *wstr;
1755
1756 wstr = (wchar_t *) g_convert(str, -1,
1757 "WCHAR_T", "UTF-8", NULL, NULL, NULL);
1758
1759 im_char[0] = *wstr;
1760 im_char[1] = L'\0';
1761
1762 g_free(wstr);
1763 }
1764
1765
1766 static void realize(GtkWidget * widget)
1767 /* 'realize' handler */
1768 {
1769 im = gtk_im_multicontext_new();
1770 g_signal_connect(im, "commit", G_CALLBACK(commit), NULL);
1771 gtk_im_context_set_client_window(im, gtk_widget_get_window(widget));
1772 }
1773
1774
1775 static gint expose_event(GtkWidget * widget, cairo_t *event)
1776 /* 'expose_event' handler */
1777 {
1778 redraw();
1779
1780 return FALSE;
1781 }
1782
1783
1784 static gint configure_event(GtkWidget * widget, GdkEventConfigure * event)
1785 /* 'configure_event' handler */
1786 {
1787 static GdkEventConfigure o;
1788
1789 if (memcmp(&o, event, sizeof(o)) == 0)
1790 return TRUE;
1791
1792 memcpy(&o, event, sizeof(o));
1793
1794 update_window_size();
1795 redraw();
1796
1797 return TRUE;
1798 }
1799
1800
1801 static gint selection_clear_event(GtkWidget * widget,
1802 GdkEventSelection * event, gpointer data)
1803 /* 'selection_clear_event' handler */
1804 {
1805 got_selection = 0;
1806
1807 return TRUE;
1808 }
1809
1810
1811 static void selection_get(GtkWidget * widget,
1812 GtkSelectionData * sel, guint info, guint tm)
1813 /* 'selection_get' handler */
1814 {
1815 mpdm_t d;
1816 unsigned char *ptr;
1817 int s;
1818
1819 if (!got_selection)
1820 return;
1821
1822 /* gets the clipboard and joins */
1823 d = mpdm_hget_s(mp, L"clipboard");
1824
1825 if (mpdm_size(d) == 0)
1826 return;
1827
1828 d = mpdm_ref(mpdm_join_s(d, L"\n"));
1829
1830 /* convert to current locale */
1831 ptr = (unsigned char *) mpdm_wcstombs(d->data, &s);
1832
1833 /* pastes into primary selection */
1834 gtk_selection_data_set(sel, GDK_SELECTION_TYPE_STRING, 8, ptr,
1835 (gsize) s);
1836
1837 free(ptr);
1838
1839 mpdm_unref(d);
1840 }
1841
1842
1843 static void selection_received(GtkWidget * widget,
1844 GtkSelectionData * sel, gpointer data)
1845 /* 'selection_received' handler */
1846 {
1847 mpdm_t d;
1848
1849 if (gtk_selection_data_get_data(sel) != NULL) {
1850 /* get selection */
1851 wchar_t *wptr = utf8_to_wcs((char *) gtk_selection_data_get_data(sel));
1852 d = MPDM_S(wptr);
1853 g_free(wptr);
1854
1855 /* split and set as the clipboard */
1856 mpdm_hset_s(mp, L"clipboard", mpdm_split_s(d, L"\n"));
1857 mpdm_hset_s(mp, L"clipboard_vertical", MPDM_I(0));
1858
1859 /* wait no more for the selection */
1860 wait_for_selection = 0;
1861 }
1862 else
1863 wait_for_selection = -1;
1864 }
1865
1866
1867 static mpdm_t gtk_drv_clip_to_sys(mpdm_t a, mpdm_t ctxt)
1868 /* driver-dependent mp to system clipboard */
1869 {
1870 got_selection = gtk_selection_owner_set(area,
1871 GDK_SELECTION_PRIMARY,
1872 GDK_CURRENT_TIME);
1873
1874 return NULL;
1875 }
1876
1877
1878 static mpdm_t gtk_drv_sys_to_clip(mpdm_t a, mpdm_t ctxt)
1879 /* driver-dependent system to mp clipboard */
1880 {
1881 if (!got_selection) {
1882 int n;
1883 char *formats[] = { "UTF8_STRING", "STRING", NULL };
1884
1885 for (n = 0; formats[n] != NULL; n++) {
1886
1887 /* triggers a selection capture */
1888 if (gtk_selection_convert(area, GDK_SELECTION_PRIMARY,
1889 gdk_atom_intern(formats[n], FALSE),
1890 GDK_CURRENT_TIME)) {
1891
1892 /* processes the pending events
1893 (i.e., the 'selection_received' handler) */
1894 wait_for_selection = 1;
1895
1896 while (wait_for_selection == 1)
1897 gtk_main_iteration();
1898
1899 if (!wait_for_selection)
1900 break;
1901 }
1902 }
1903 }
1904
1905 return NULL;
1906 }
1907
1908
1909 /** interface functions **/
1910
1911 static void clicked_ok(GtkWidget * widget, gpointer data)
1912 /* 'clicked_on' signal handler (for gtk_drv_form) */
1913 {
1914 int n;
1915
1916 for (n = 0; n < mpdm_size(form_args); n++) {
1917 GtkWidget *widget = form_widgets[n];
1918 mpdm_t w = mpdm_aget(form_args, n);
1919 wchar_t *wptr = mpdm_string(mpdm_hget_s(w, L"type"));
1920 mpdm_t v = NULL;
1921
1922 /* if there is already a value there, if was
1923 previously set from a callback */
1924 if (mpdm_aget(form_values, n) != NULL)
1925 continue;
1926
1927 if (wcscmp(wptr, L"text") == 0 || wcscmp(wptr, L"password") == 0) {
1928 char *ptr;
1929 GtkWidget *gw = widget;
1930 mpdm_t h;
1931
1932 if (wcscmp(wptr, L"text") == 0)
1933 #if CONFOPT_GTK == 2
1934 gw = GTK_COMBO(widget)->entry;
1935 #endif
1936 #if CONFOPT_GTK == 3
1937 gw = gtk_bin_get_child(GTK_BIN(widget));
1938 #endif
1939
1940 if ((ptr =
1941 gtk_editable_get_chars(GTK_EDITABLE(gw), 0, -1)) != NULL
1942 && (wptr = utf8_to_wcs(ptr)) != NULL) {
1943 v = MPDM_S(wptr);
1944 g_free(wptr);
1945 g_free(ptr);
1946 }
1947
1948 mpdm_ref(v);
1949
1950 /* if it has history, fill it */
1951 if ((h = mpdm_hget_s(w, L"history")) != NULL &&
1952 v != NULL && mpdm_cmp_s(v, L"") != 0) {
1953 h = mp_get_history(h);
1954
1955 if (mpdm_cmp(v, mpdm_aget(h, -1)) != 0)
1956 mpdm_push(h, v);
1957 }
1958
1959 mpdm_unrefnd(v);
1960 }
1961 else
1962 if (wcscmp(wptr, L"checkbox") == 0) {
1963 v = MPDM_I(gtk_toggle_button_get_active
1964 (GTK_TOGGLE_BUTTON(widget)));
1965 }
1966 else
1967 if (wcscmp(wptr, L"list") == 0) {
1968 GtkWidget *list = gtk_bin_get_child(GTK_BIN(widget));
1969 GtkTreeSelection *selection =
1970 gtk_tree_view_get_selection(GTK_TREE_VIEW(list));
1971 GList *selected =
1972 gtk_tree_selection_get_selected_rows(selection, NULL);
1973 GtkTreePath *path = selected->data;
1974
1975 v = MPDM_I(gtk_tree_path_get_indices(path)[0]);
1976 gtk_tree_path_free(path);
1977 g_list_free(selected);
1978
1979 }
1980
1981 mpdm_aset(form_values, v, n);
1982 }
1983 }
1984
1985
1986 static gint timer_callback(gpointer data)
1987 {
1988 mpdm_void(mpdm_exec(timer_func, NULL, NULL));
1989 redraw();
1990
1991 return TRUE;
1992 }
1993
1994
1995 static void build_form_data(mpdm_t widget_list)
1996 /* builds the necessary information for a list of widgets */
1997 {
1998 mpdm_unref(form_args);
1999 form_args = mpdm_ref(widget_list);
2000
2001 mpdm_unref(form_values);
2002 form_values = widget_list == NULL ? NULL :
2003 mpdm_ref(MPDM_A(mpdm_size(form_args)));
2004
2005 /* resize the widget array */
2006 form_widgets = (GtkWidget **) realloc(form_widgets,
2007 mpdm_size(form_args) *
2008 sizeof(GtkWidget *));
2009 }
2010
2011
2012 /** dialog functions **/
2013
2014 #define DIALOG_BUTTON(l,f) do { GtkWidget * btn; \
2015 ptr = localize(l); btn = gtk_button_new_with_label(ptr); \
2016 g_signal_connect_swapped(G_OBJECT(btn), "clicked", \
2017 G_CALLBACK(f), G_OBJECT(dlg)); \
2018 gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dlg)->action_area), \
2019 btn, TRUE, TRUE, 0); \
2020 g_free(ptr); \
2021 } while (0);
2022
2023 static mpdm_t gtk_drv_alert(mpdm_t a, mpdm_t ctxt)
2024 /* alert driver function */
2025 {
2026 gchar *ptr;
2027 GtkWidget *dlg;
2028
2029 build_form_data(NULL);
2030
2031 /* 1# arg: prompt */
2032 if ((ptr = v_to_utf8(mpdm_aget(a, 0))) == NULL)
2033 return NULL;
2034
2035 dlg = gtk_message_dialog_new(GTK_WINDOW(window), GTK_DIALOG_MODAL,
2036 GTK_MESSAGE_WARNING, GTK_BUTTONS_OK, "%s", ptr);
2037 gtk_window_set_title(GTK_WINDOW(dlg), "mp " VERSION);
2038 g_free(ptr);
2039
2040 gtk_dialog_run(GTK_DIALOG(dlg));
2041 gtk_widget_destroy(dlg);
2042
2043 return NULL;
2044 }
2045
2046
2047 static mpdm_t gtk_drv_confirm(mpdm_t a, mpdm_t ctxt)
2048 /* confirm driver function */
2049 {
2050 char *ptr;
2051 GtkWidget *dlg;
2052 gint response;
2053
2054 build_form_data(NULL);
2055
2056 /* 1# arg: prompt */
2057 if ((ptr = v_to_utf8(mpdm_aget(a, 0))) == NULL)
2058 return NULL;
2059
2060 dlg = gtk_message_dialog_new(GTK_WINDOW(window), GTK_DIALOG_MODAL,
2061 GTK_MESSAGE_QUESTION, GTK_BUTTONS_NONE,
2062 "%s", ptr);
2063 gtk_window_set_title(GTK_WINDOW(dlg), "mp " VERSION);
2064 g_free(ptr);
2065
2066 gtk_dialog_add_button(GTK_DIALOG(dlg), GTK_STOCK_YES, 1);
2067 gtk_dialog_add_button(GTK_DIALOG(dlg), GTK_STOCK_NO, 2);
2068 gtk_dialog_add_button(GTK_DIALOG(dlg), GTK_STOCK_CANCEL, 0);
2069
2070 response = gtk_dialog_run(GTK_DIALOG(dlg));
2071 gtk_widget_destroy(dlg);
2072
2073 if (response == GTK_RESPONSE_DELETE_EVENT)
2074 response = 0;
2075
2076 return MPDM_I(response);
2077 }
2078
2079
2080 static mpdm_t gtk_drv_form(mpdm_t a, mpdm_t ctxt)
2081 /* 'form' driver function */
2082 {
2083 GtkWidget *dlg;
2084 GtkWidget *table;
2085 GtkWidget *content_area;
2086 int n;
2087 mpdm_t ret = NULL;
2088
2089 /* first argument: list of widgets */
2090 build_form_data(mpdm_aget(a, 0));
2091
2092 dlg = gtk_dialog_new_with_buttons("mp " VERSION, GTK_WINDOW(window),
2093 GTK_DIALOG_MODAL,
2094 GTK_STOCK_CANCEL,
2095 GTK_RESPONSE_CANCEL, GTK_STOCK_OK,
2096 GTK_RESPONSE_OK, NULL);
2097 gtk_dialog_set_default_response(GTK_DIALOG(dlg), GTK_RESPONSE_OK);
2098 gtk_container_set_border_width(GTK_CONTAINER(dlg), 5);
2099
2100 content_area = gtk_dialog_get_content_area(GTK_DIALOG(dlg));
2101 gtk_box_set_spacing(GTK_BOX(content_area), 2);
2102
2103 table = gtk_table_new(mpdm_size(a), 2, FALSE);
2104 gtk_container_set_border_width(GTK_CONTAINER(table), 5);
2105 gtk_table_set_col_spacings(GTK_TABLE(table), 12);
2106 gtk_table_set_row_spacings(GTK_TABLE(table), 6);
2107
2108 for (n = 0; n < mpdm_size(form_args); n++) {
2109 mpdm_t w = mpdm_aget(form_args, n);
2110 GtkWidget *widget = NULL;
2111 wchar_t *type;
2112 char *ptr;
2113 mpdm_t t;
2114 int col = 0;
2115
2116 type = mpdm_string(mpdm_hget_s(w, L"type"));
2117
2118 if ((t = mpdm_hget_s(w, L"label")) != NULL) {
2119 GtkWidget *label;
2120
2121 if ((ptr = v_to_utf8(mpdm_gettext(t))) != NULL) {
2122 label = gtk_label_new(ptr);
2123 gtk_misc_set_alignment(GTK_MISC(label), 0, .5);
2124
2125 gtk_table_attach_defaults(GTK_TABLE(table),
2126 label, 0, wcscmp(type,
2127 L"label") ==
2128 0 ? 2 : 1, n, n + 1);
2129
2130 g_free(ptr);
2131
2132 col++;
2133 }
2134 }
2135
2136 t = mpdm_hget_s(w, L"value");
2137
2138 if (wcscmp(type, L"text") == 0) {
2139 GList *combo_items = NULL;
2140 mpdm_t h;
2141
2142 #if CONFOPT_GTK == 2
2143 widget = gtk_combo_new();
2144 gtk_combo_set_use_arrows_always(GTK_COMBO(widget), TRUE);
2145 gtk_combo_set_case_sensitive(GTK_COMBO(widget), TRUE);
2146 gtk_entry_set_activates_default(GTK_ENTRY
2147 (GTK_COMBO(widget)->entry),
2148 TRUE);
2149 #endif
2150 #if CONFOPT_GTK == 3
2151 widget = gtk_combo_box_text_new_with_entry();
2152 gtk_entry_set_activates_default(GTK_ENTRY
2153 (gtk_bin_get_child(GTK_BIN(widget))),
2154 TRUE);
2155 #endif
2156
2157 gtk_widget_set_size_request(widget, 300, -1);
2158
2159 if ((h = mpdm_hget_s(w, L"history")) != NULL) {
2160 int i;
2161
2162 /* has history; fill it */
2163 h = mp_get_history(h);
2164
2165 for (i = 0; i < mpdm_size(h); i++) {
2166 ptr = v_to_utf8(mpdm_aget(h, i));
2167
2168 combo_items = g_list_prepend(combo_items, ptr);
2169
2170 #if CONFOPT_GTK == 3
2171 gtk_combo_box_text_prepend_text(GTK_COMBO_BOX_TEXT(widget), ptr);
2172 #endif
2173 }
2174 }
2175
2176 if (t != NULL) {
2177 ptr = v_to_utf8(t);
2178
2179 combo_items = g_list_prepend(combo_items, ptr);
2180 #if CONFOPT_GTK == 3
2181 gtk_combo_box_text_prepend_text(GTK_COMBO_BOX_TEXT(widget), ptr);
2182 #endif
2183 }
2184
2185 #if CONFOPT_GTK == 2
2186 gtk_combo_set_popdown_strings(GTK_COMBO(widget), combo_items);
2187 #endif
2188 g_list_free(combo_items);
2189 }
2190 else
2191 if (wcscmp(type, L"password") == 0) {
2192 widget = gtk_entry_new();
2193 gtk_widget_set_size_request(widget, 300, -1);
2194 gtk_entry_set_visibility(GTK_ENTRY(widget), FALSE);
2195 }
2196 else
2197 if (wcscmp(type, L"checkbox") == 0) {
2198 widget = gtk_check_button_new();
2199
2200 gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(widget),
2201 mpdm_ival(t) ? TRUE : FALSE);
2202 }
2203 else
2204 if (wcscmp(type, L"list") == 0) {
2205 GtkWidget *list;
2206 GtkListStore *list_store;
2207 GtkCellRenderer *renderer;
2208 GtkTreeViewColumn *column;
2209 GtkTreePath *path;
2210 mpdm_t l;
2211 gint i;
2212
2213 if ((i = 450 / mpdm_size(form_args)) < 100)
2214 i = 100;
2215
2216 widget = gtk_scrolled_window_new(NULL, NULL);
2217 gtk_widget_set_size_request(widget, 500, i);
2218 gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(widget),
2219 GTK_POLICY_NEVER,
2220 GTK_POLICY_AUTOMATIC);
2221 gtk_scrolled_window_set_shadow_type(GTK_SCROLLED_WINDOW
2222 (widget), GTK_SHADOW_IN);
2223
2224 list_store = gtk_list_store_new(1, G_TYPE_STRING);
2225 list =
2226 gtk_tree_view_new_with_model(GTK_TREE_MODEL(list_store));
2227 gtk_tree_view_set_headers_visible(GTK_TREE_VIEW(list), FALSE);
2228 renderer = gtk_cell_renderer_text_new();
2229 column = gtk_tree_view_column_new_with_attributes("", renderer,
2230 "text", 0,
2231 NULL);
2232 gtk_tree_view_append_column(GTK_TREE_VIEW(list), column);
2233 gtk_container_add(GTK_CONTAINER(widget), list);
2234
2235 l = mpdm_hget_s(w, L"list");
2236
2237 for (i = 0; i < mpdm_size(l); i++) {
2238 if ((ptr = v_to_utf8(mpdm_aget(l, i))) != NULL) {
2239 GtkTreeIter iter;
2240 gtk_list_store_append(list_store, &iter);
2241 gtk_list_store_set(list_store, &iter, 0, ptr, -1);
2242 g_free(ptr);
2243 }
2244 }
2245
2246 /* initial position */
2247 i = mpdm_ival(t);
2248
2249 path = gtk_tree_path_new_from_indices(i, -1);
2250 gtk_tree_view_set_cursor(GTK_TREE_VIEW(list), path, NULL,
2251 FALSE);
2252 gtk_tree_path_free(path);
2253
2254 g_signal_connect_swapped(G_OBJECT(list), "row-activated",
2255 G_CALLBACK
2256 (gtk_window_activate_default), dlg);
2257 }
2258
2259 if (widget != NULL) {
2260 form_widgets[n] = widget;
2261 gtk_table_attach_defaults(GTK_TABLE(table),
2262 widget, col, 2, n, n + 1);
2263 }
2264 }
2265
2266 gtk_widget_show_all(table);
2267
2268 gtk_box_pack_start(GTK_BOX(content_area), table, TRUE, TRUE, 0);
2269
2270 if (gtk_dialog_run(GTK_DIALOG(dlg)) == GTK_RESPONSE_OK) {
2271 clicked_ok(NULL, NULL);
2272 ret = form_values;
2273 }
2274 gtk_widget_destroy(dlg);
2275
2276 return ret;
2277 }
2278
2279
2280 static mpdm_t run_filechooser(mpdm_t a, gboolean save)
2281 /* openfile driver function */
2282 {
2283 GtkWidget *dlg;
2284 char *ptr;
2285 mpdm_t ret = NULL;
2286 gint response;
2287
2288 /* 1# arg: prompt */
2289 if ((ptr = v_to_utf8(mpdm_aget(a, 0))) == NULL)
2290 return (NULL);
2291
2292 if (!save) {
2293 dlg = gtk_file_chooser_dialog_new(ptr, GTK_WINDOW(window),
2294 GTK_FILE_CHOOSER_ACTION_OPEN,
2295 GTK_STOCK_CANCEL,
2296 GTK_RESPONSE_CANCEL,
2297 GTK_STOCK_OK, GTK_RESPONSE_OK,
2298 NULL);
2299 }
2300 else {
2301 dlg = gtk_file_chooser_dialog_new(ptr, GTK_WINDOW(window),
2302 GTK_FILE_CHOOSER_ACTION_SAVE,
2303 GTK_STOCK_CANCEL,
2304 GTK_STOCK_CANCEL, GTK_STOCK_OK,
2305 GTK_RESPONSE_OK, NULL);
2306 gtk_file_chooser_set_do_overwrite_confirmation(GTK_FILE_CHOOSER
2307 (dlg), TRUE);
2308 }
2309 g_free(ptr);
2310
2311 build_form_data(NULL);
2312
2313 gtk_file_chooser_set_local_only(GTK_FILE_CHOOSER(dlg), TRUE);
2314 response = gtk_dialog_run(GTK_DIALOG(dlg));
2315
2316 if (response == GTK_RESPONSE_OK) {
2317 gchar *filename;
2318 gchar *utf8name;
2319 wchar_t *wfilename;
2320
2321 filename = gtk_file_chooser_get_filename(GTK_FILE_CHOOSER(dlg));
2322 utf8name = g_filename_to_utf8(filename, -1, NULL, NULL, NULL);
2323 g_free(filename);
2324 wfilename = utf8_to_wcs(utf8name);
2325 g_free(utf8name);
2326 ret = MPDM_S(wfilename);
2327 g_free(wfilename);
2328 }
2329 gtk_widget_destroy(dlg);
2330
2331 return ret;
2332 }
2333
2334
2335 static mpdm_t gtk_drv_openfile(mpdm_t a, mpdm_t ctxt)
2336 /* openfile driver function */
2337 {
2338 return run_filechooser(a, FALSE);
2339 }
2340
2341
2342 static mpdm_t gtk_drv_savefile(mpdm_t a, mpdm_t ctxt)
2343 /* savefile driver function */
2344 {
2345 return run_filechooser(a, TRUE);
2346 }
2347
2348
2349 static mpdm_t gtk_drv_update_ui(mpdm_t a, mpdm_t ctxt)
2350 {
2351 build_fonts();
2352 build_colors();
2353 build_menu();
2354
2355 redraw();
2356
2357 return NULL;
2358 }
2359
2360
2361 static mpdm_t gtk_drv_timer(mpdm_t a, mpdm_t ctxt)
2362 {
2363 static guint prev = 0;
2364 int msecs = mpdm_ival(mpdm_aget(a, 0));
2365 mpdm_t func = mpdm_aget(a, 1);
2366
2367 /* previously defined one? remove */
2368 if (timer_func != NULL)
2369 g_source_remove(prev);
2370
2371 /* if msecs and func are set, program timer */
2372 if (msecs > 0 && func != NULL)
2373 prev = g_timeout_add(msecs, timer_callback, NULL);
2374
2375 mpdm_ref(func);
2376 mpdm_unref(timer_func);
2377 timer_func = func;
2378
2379 return NULL;
2380 }
2381
2382
2383 static mpdm_t gtk_drv_busy(mpdm_t a, mpdm_t ctxt)
2384 {
2385 int onoff = mpdm_ival(mpdm_aget(a, 0));
2386
2387 gdk_window_set_cursor(gtk_widget_get_window(window),
2388 gdk_cursor_new(onoff ? GDK_WATCH :
2389 GDK_LEFT_PTR));
2390
2391 while (gtk_events_pending())
2392 gtk_main_iteration();
2393
2394 return NULL;
2395 }
2396
2397
2398 static mpdm_t gtk_drv_main_loop(mpdm_t a, mpdm_t ctxt)
2399 /* main loop */
2400 {
2401 if (!mp_exit_requested) {
2402 gtk_drv_paint(mp_active(), 0);
2403
2404 gtk_main();
2405 }
2406
2407 return NULL;
2408 }
2409
2410
2411 static mpdm_t gtk_drv_shutdown(mpdm_t a, mpdm_t ctxt)
2412 /* shutdown */
2413 {
2414 mpdm_t v;
2415
2416 if ((v = mpdm_hget_s(mp, L"exit_message")) != NULL) {
2417 mpdm_write_wcs(stdout, mpdm_string(v));
2418 printf("\n");
2419 }
2420
2421 return NULL;
2422 }
2423
2424
2425 static void register_functions(void)
2426 {
2427 mpdm_t drv;
2428
2429 drv = mpdm_hget_s(mp, L"drv");
2430 mpdm_hset_s(drv, L"main_loop", MPDM_X(gtk_drv_main_loop));
2431 mpdm_hset_s(drv, L"shutdown", MPDM_X(gtk_drv_shutdown));
2432 mpdm_hset_s(drv, L"clip_to_sys", MPDM_X(gtk_drv_clip_to_sys));
2433 mpdm_hset_s(drv, L"sys_to_clip", MPDM_X(gtk_drv_sys_to_clip));
2434 mpdm_hset_s(drv, L"update_ui", MPDM_X(gtk_drv_update_ui));
2435 mpdm_hset_s(drv, L"timer", MPDM_X(gtk_drv_timer));
2436 mpdm_hset_s(drv, L"busy", MPDM_X(gtk_drv_busy));
2437 mpdm_hset_s(drv, L"alert", MPDM_X(gtk_drv_alert));
2438 mpdm_hset_s(drv, L"confirm", MPDM_X(gtk_drv_confirm));
2439 mpdm_hset_s(drv, L"openfile", MPDM_X(gtk_drv_openfile));
2440 mpdm_hset_s(drv, L"savefile", MPDM_X(gtk_drv_savefile));
2441 mpdm_hset_s(drv, L"form", MPDM_X(gtk_drv_form));
2442 }
2443
2444
2445 static mpdm_t gtk_drv_startup(mpdm_t a, mpdm_t ctxt)
2446 /* driver initialization */
2447 {
2448 GtkWidget *vbox;
2449 GtkWidget *hbox;
2450 #if CONFOPT_GTK == 2
2451 GdkPixmap *pixmap;
2452 GdkPixmap *mask;
2453 #endif
2454 #if CONFOPT_GTK == 3
2455 GdkPixbuf *pixmap;
2456 #endif
2457 GdkScreen *screen;
2458 mpdm_t v;
2459 int w, h;
2460 GtkTargetEntry targets[] = {
2461 {"text/plain", 0, 0},
2462 {"text/uri-list", 0, 1}
2463 };
2464
2465 register_functions();
2466
2467 window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
2468
2469 gtk_window_set_title(GTK_WINDOW(window), "mp " VERSION);
2470
2471 /* get real screen and pick a usable size for the main area */
2472 screen = gtk_window_get_screen(GTK_WINDOW(window));
2473 if (gdk_screen_get_n_monitors(screen) > 1) {
2474 GdkRectangle monitor_one_size;
2475 gdk_screen_get_monitor_geometry(screen, 0, &monitor_one_size);
2476
2477 w = (monitor_one_size.width * 3) / 4;
2478 h = (monitor_one_size.height * 2) / 3;
2479 } else {
2480 w = (gdk_screen_get_width(screen) * 3) / 4;
2481 h = (gdk_screen_get_height(screen) * 2) / 3;
2482 }
2483
2484 g_signal_connect(G_OBJECT(window), "delete_event",
2485 G_CALLBACK(delete_event), NULL);
2486
2487 g_signal_connect(G_OBJECT(window), "destroy",
2488 G_CALLBACK(destroy), NULL);
2489
2490 /* file tabs */
2491 file_tabs = gtk_notebook_new();
2492 gtk_notebook_set_tab_pos(GTK_NOTEBOOK(file_tabs), GTK_POS_TOP);
2493
2494 #if CONFOPT_GTK == 2
2495 GTK_WIDGET_UNSET_FLAGS(file_tabs, GTK_CAN_FOCUS);
2496 #endif
2497 #if CONFOPT_GTK == 3
2498 gtk_widget_set_can_focus(file_tabs, FALSE);
2499 #endif
2500 gtk_notebook_set_scrollable(GTK_NOTEBOOK(file_tabs), 1);
2501
2502 vbox = gtk_vbox_new(FALSE, 2);
2503 gtk_container_add(GTK_CONTAINER(window), vbox);
2504
2505 build_menu();
2506
2507 hbox = gtk_hbox_new(FALSE, 0);
2508 gtk_box_pack_start(GTK_BOX(vbox), hbox, FALSE, FALSE, 0);
2509 gtk_box_pack_start(GTK_BOX(hbox), menu_bar, FALSE, FALSE, 0);
2510 gtk_box_pack_start(GTK_BOX(hbox), file_tabs, TRUE, TRUE, 0);
2511
2512 gtk_notebook_popup_enable(GTK_NOTEBOOK(file_tabs));
2513
2514 /* horizontal box holding the text and the scrollbar */
2515 hbox = gtk_hbox_new(FALSE, 2);
2516 gtk_box_pack_start(GTK_BOX(vbox), hbox, TRUE, TRUE, 0);
2517
2518 /* the Minimum Profit area */
2519 area = gtk_drawing_area_new();
2520 gtk_box_pack_start(GTK_BOX(hbox), area, TRUE, TRUE, 0);
2521 gtk_widget_set_size_request(GTK_WIDGET(area), w, h);
2522 gtk_widget_set_events(GTK_WIDGET(area), GDK_BUTTON_PRESS_MASK |
2523 GDK_BUTTON_RELEASE_MASK | GDK_POINTER_MOTION_MASK
2524 | GDK_LEAVE_NOTIFY_MASK);
2525
2526 gtk_widget_set_double_buffered(area, FALSE);
2527
2528 g_signal_connect(G_OBJECT(area), "configure_event",
2529 G_CALLBACK(configure_event), NULL);
2530
2531 #if CONFOPT_GTK == 2
2532 g_signal_connect(G_OBJECT(area), "expose_event",
2533 #endif
2534 #if CONFOPT_GTK == 3
2535 g_signal_connect(G_OBJECT(area), "draw",
2536 #endif
2537 G_CALLBACK(expose_event), NULL);
2538
2539 g_signal_connect(G_OBJECT(area), "realize", G_CALLBACK(realize), NULL);
2540
2541 g_signal_connect(G_OBJECT(window), "key_press_event",
2542 G_CALLBACK(key_press_event), NULL);
2543
2544 g_signal_connect(G_OBJECT(window), "key_release_event",
2545 G_CALLBACK(key_release_event), NULL);
2546
2547 g_signal_connect(G_OBJECT(area), "button_press_event",
2548 G_CALLBACK(button_press_event), NULL);
2549
2550 g_signal_connect(G_OBJECT(area), "button_release_event",
2551 G_CALLBACK(button_release_event), NULL);
2552
2553 g_signal_connect(G_OBJECT(area), "motion_notify_event",
2554 G_CALLBACK(motion_notify_event), NULL);
2555
2556 g_signal_connect(G_OBJECT(area), "selection_clear_event",
2557 G_CALLBACK(selection_clear_event), NULL);
2558
2559 g_signal_connect(G_OBJECT(area), "selection_get",
2560 G_CALLBACK(selection_get), NULL);
2561
2562 g_signal_connect(G_OBJECT(area), "selection_received",
2563 G_CALLBACK(selection_received), NULL);
2564
2565 g_signal_connect(G_OBJECT(area), "scroll_event",
2566 G_CALLBACK(scroll_event), NULL);
2567
2568 gtk_drag_dest_set(area, GTK_DEST_DEFAULT_ALL, targets,
2569 sizeof(targets) / sizeof(GtkTargetEntry),
2570 GDK_ACTION_COPY);
2571 g_signal_connect(G_OBJECT(area), "drag_data_received",
2572 G_CALLBACK(drag_data_received), NULL);
2573
2574 gtk_selection_add_target(area, GDK_SELECTION_PRIMARY,
2575 GDK_SELECTION_TYPE_STRING, 1);
2576
2577 g_signal_connect(G_OBJECT(file_tabs), "switch_page",
2578 G_CALLBACK(switch_page), NULL);
2579
2580 /* the scrollbar */
2581 scrollbar = gtk_vscrollbar_new(NULL);
2582 gtk_box_pack_start(GTK_BOX(hbox), scrollbar, FALSE, FALSE, 0);
2583
2584 g_signal_connect(G_OBJECT
2585 (gtk_range_get_adjustment(GTK_RANGE(scrollbar))),
2586 "value_changed", G_CALLBACK(value_changed), NULL);
2587
2588 /* the status bar */
2589 status = gtk_label_new("mp " VERSION);
2590 gtk_box_pack_start(GTK_BOX(vbox), status, FALSE, FALSE, 0);
2591 gtk_misc_set_alignment(GTK_MISC(status), 0, 0.5);
2592 gtk_label_set_justify(GTK_LABEL(status), GTK_JUSTIFY_LEFT);
2593
2594 gtk_widget_show_all(window);
2595
2596 /* set application icon */
2597 #if CONFOPT_GTK == 2
2598 pixmap = gdk_pixmap_create_from_xpm_d(window->window,
2599 &mask, NULL, mp_xpm);
2600 gdk_window_set_icon(window->window, NULL, pixmap, mask);
2601 #endif
2602 #if CONFOPT_GTK == 3
2603 pixmap = gdk_pixbuf_new_from_xpm_data((const char **)mp_xpm);
2604 gtk_window_set_icon(GTK_WINDOW(window), pixmap);
2605 #endif
2606
2607 build_colors();
2608
2609 if ((v = mpdm_hget_s(mp, L"config")) != NULL &&
2610 mpdm_ival(mpdm_hget_s(v, L"maximize")) > 0)
2611 maximize = 1;
2612
2613 return NULL;
2614 }
2615
2616 int gtk_drv_detect(int *argc, char ***argv)
2617 {
2618 mpdm_t drv;
2619 int n;
2620
2621 for (n = 0; n < *argc; n++) {
2622 if (strcmp(argv[0][n], "-txt") == 0 ||
2623 strcmp(argv[0][n], "-h") == 0)
2624 return 0;
2625 }
2626
2627 if (!gtk_init_check(argc, argv))
2628 return 0;
2629
2630 drv = mpdm_hget_s(mp, L"drv");
2631
2632 #if CONFOPT_GTK == 3
2633 mpdm_hset_s(drv, L"id", MPDM_LS(L"gtk3"));
2634 #else
2635 mpdm_hset_s(drv, L"id", MPDM_LS(L"gtk2"));
2636 #endif
2637
2638 mpdm_hset_s(drv, L"startup", MPDM_X(gtk_drv_startup));
2639
2640 return 1;
2641 }
2642
2643 #endif /* CONFOPT_GTK */
Minimum Profit Text Editor