lib/widget/dialog.c

   1 /*
   2    Dialog box features module for the Midnight Commander
   3
   4    Copyright (C) 1994, 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   5    2005, 2007, 2009, 2010, 2011, 2013
   6    The Free Software Foundation, Inc.
   7
   8    This file is part of the Midnight Commander.
   9
  10    The Midnight Commander is free software: you can redistribute it
  11    and/or modify it under the terms of the GNU General Public License as
  12    published by the Free Software Foundation, either version 3 of the License,
  13    or (at your option) any later version.
  14
  15    The Midnight Commander is distributed in the hope that it will be useful,
  16    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18    GNU General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  22  */
  23
  24 /** \file dialog.c
  25  *  \brief Source: dialog box features module
  26  */
  27
  28 #include <config.h>
  29
  30 #include <ctype.h>
  31 #include <errno.h>
  32 #include <stdlib.h>
  33 #include <stdio.h>
  34 #include <string.h>
  35 #include <sys/types.h>
  36 #include <sys/stat.h>
  37 #include <fcntl.h>              /* open() */
  38
  39 #include "lib/global.h"
  40
  41 #include "lib/tty/tty.h"
  42 #include "lib/skin.h"
  43 #include "lib/tty/key.h"
  44 #include "lib/strutil.h"
  45 #include "lib/widget.h"
  46 #include "lib/fileloc.h"        /* MC_HISTORY_FILE */
  47 #include "lib/event.h"          /* mc_event_raise() */
  48
  49 /*** global variables ****************************************************************************/
  50
  51 /* Color styles for normal and error dialogs */
  52 dlg_colors_t dialog_colors;
  53 dlg_colors_t alarm_colors;
  54
  55 /* Primitive way to check if the the current dialog is our dialog */
  56 /* This is needed by async routines like load_prompt */
  57 GList *top_dlg = NULL;
  58
  59 /* A hook list for idle events */
  60 hook_t *idle_hook = NULL;
  61
  62 /* If set then dialogs just clean the screen when refreshing, else */
  63 /* they do a complete refresh, refreshing all the parts of the program */
  64 int fast_refresh = 0;
  65
  66 /* left click outside of dialog closes it */
  67 int mouse_close_dialog = 0;
  68
  69 const global_keymap_t *dialog_map = NULL;
  70
  71 /*** file scope macro definitions ****************************************************************/
  72
  73 /*** file scope type declarations ****************************************************************/
  74
  75 /** What to do if the requested widget doesn't take focus */
  76 typedef enum
  77 {
  78     SELECT_NEXT,                /* go the the next widget */
  79     SELECT_PREV,                /* go the the previous widget */
  80     SELECT_EXACT                /* use current widget */
  81 } select_dir_t;
  82
  83 /*** file scope variables ************************************************************************/
  84
  85 /*** file scope functions ************************************************************************/
  86
  87 static GList *
  88 dlg_widget_next (WDialog * h, GList * l)
  89 {
  90     GList *next;
  91
  92     next = g_list_next (l);
  93     if (next == NULL)
  94         next = h->widgets;
  95
  96     return next;
  97 }
  98
  99 /* --------------------------------------------------------------------------------------------- */
 100
 101 static GList *
 102 dlg_widget_prev (WDialog * h, GList * l)
 103 {
 104     GList *prev;
 105
 106     prev = g_list_previous (l);
 107     if (prev == NULL)
 108         prev = g_list_last (h->widgets);
 109
 110     return prev;
 111 }
 112
 113 /* --------------------------------------------------------------------------------------------- */
 114 /**
 115  * broadcast a message to all the widgets in a dialog that have
 116  * the options set to flags. If flags is zero, the message is sent
 117  * to all widgets.
 118  */
 119
 120 static void
 121 dlg_broadcast_msg_to (WDialog * h, widget_msg_t msg, gboolean reverse, int flags)
 122 {
 123     GList *p, *first;
 124
 125     if (h->widgets == NULL)
 126         return;
 127
 128     if (h->current == NULL)
 129         h->current = h->widgets;
 130
 131     if (reverse)
 132         p = dlg_widget_prev (h, h->current);
 133     else
 134         p = dlg_widget_next (h, h->current);
 135
 136     first = p;
 137
 138     do
 139     {
 140         Widget *w = WIDGET (p->data);
 141
 142         if (reverse)
 143             p = dlg_widget_prev (h, p);
 144         else
 145             p = dlg_widget_next (h, p);
 146
 147         if ((flags == 0) || ((flags & w->options) != 0))
 148             send_message (w, NULL, msg, 0, NULL);
 149     }
 150     while (first != p);
 151 }
 152
 153 /* --------------------------------------------------------------------------------------------- */
 154
 155 /**
 156   * Read histories from the ${XDG_CACHE_HOME}/mc/history file
 157   */
 158 static void
 159 dlg_read_history (WDialog * h)
 160 {
 161     char *profile;
 162     ev_history_load_save_t event_data;
 163
 164     if (num_history_items_recorded == 0)        /* this is how to disable */
 165         return;
 166
 167     profile = mc_config_get_full_path (MC_HISTORY_FILE);
 168     event_data.cfg = mc_config_init (profile, TRUE);
 169     event_data.receiver = NULL;
 170
 171     /* create all histories in dialog */
 172     mc_event_raise (h->event_group, MCEVENT_HISTORY_LOAD, &event_data);
 173
 174     mc_config_deinit (event_data.cfg);
 175     g_free (profile);
 176 }
 177
 178 /* --------------------------------------------------------------------------------------------- */
 179
 180 static gboolean
 181 dlg_unfocus (WDialog * h)
 182 {
 183     /* we can unfocus disabled widget */
 184     if ((h->current != NULL) && (h->state == DLG_CONSTRUCT || h->state == DLG_ACTIVE))
 185     {
 186         Widget *current = WIDGET (h->current->data);
 187
 188         if (send_message (current, NULL, MSG_UNFOCUS, 0, NULL) == MSG_HANDLED)
 189         {
 190             send_message (h, current, MSG_UNFOCUS, 0, NULL);
 191             return TRUE;
 192         }
 193     }
 194
 195     return FALSE;
 196 }
 197
 198 /* --------------------------------------------------------------------------------------------- */
 199
 200 static int
 201 dlg_find_widget_callback (const void *a, const void *b)
 202 {
 203     const Widget *w = WIDGET (a);
 204     widget_cb_fn f = (widget_cb_fn) b;
 205
 206     return (w->callback == f) ? 0 : 1;
 207 }
 208
 209 /* --------------------------------------------------------------------------------------------- */
 210 /**
 211  * Try to select another widget.  If forward is set, follow tab order.
 212  * Otherwise go to the previous widget.
 213  */
 214
 215 static void
 216 do_select_widget (WDialog * h, GList * w, select_dir_t dir)
 217 {
 218     Widget *w0 = WIDGET (h->current->data);
 219
 220     if (!dlg_unfocus (h))
 221         return;
 222
 223     h->current = w;
 224
 225     do
 226     {
 227         if (dlg_focus (h))
 228             break;
 229
 230         switch (dir)
 231         {
 232         case SELECT_EXACT:
 233             h->current = g_list_find (h->widgets, w0);
 234             if (dlg_focus (h))
 235                 return;
 236             /* try find another widget that can take focus */
 237             dir = SELECT_NEXT;
 238             /* fallthrough */
 239         case SELECT_NEXT:
 240             h->current = dlg_widget_next (h, h->current);
 241             break;
 242         case SELECT_PREV:
 243             h->current = dlg_widget_prev (h, h->current);
 244             break;
 245         }
 246     }
 247     while (h->current != w /* && (WIDGET (h->current->data)->options & W_DISABLED) == 0 */ );
 248
 249     if (dlg_overlap (w0, WIDGET (h->current->data)))
 250     {
 251         send_message (h->current->data, NULL, MSG_DRAW, 0, NULL);
 252         send_message (h->current->data, NULL, MSG_FOCUS, 0, NULL);
 253     }
 254 }
 255
 256 /* --------------------------------------------------------------------------------------------- */
 257
 258 static void
 259 refresh_cmd (void)
 260 {
 261 #ifdef HAVE_SLANG
 262     tty_touch_screen ();
 263     mc_refresh ();
 264 #else
 265     /* Use this if the refreshes fail */
 266     clr_scr ();
 267     repaint_screen ();
 268 #endif /* HAVE_SLANG */
 269 }
 270
 271 /* --------------------------------------------------------------------------------------------- */
 272
 273 static cb_ret_t
 274 dlg_execute_cmd (WDialog * h, unsigned long command)
 275 {
 276     cb_ret_t ret = MSG_HANDLED;
 277     switch (command)
 278     {
 279     case CK_Ok:
 280         h->ret_value = B_ENTER;
 281         dlg_stop (h);
 282         break;
 283     case CK_Cancel:
 284         h->ret_value = B_CANCEL;
 285         dlg_stop (h);
 286         break;
 287
 288     case CK_Up:
 289     case CK_Left:
 290         dlg_one_up (h);
 291         break;
 292     case CK_Down:
 293     case CK_Right:
 294         dlg_one_down (h);
 295         break;
 296
 297     case CK_Help:
 298         {
 299             ev_help_t event_data = { NULL, h->help_ctx };
 300             mc_event_raise (MCEVENT_GROUP_CORE, "help", &event_data);
 301         }
 302         break;
 303
 304     case CK_Suspend:
 305         mc_event_raise (MCEVENT_GROUP_CORE, "suspend", NULL);
 306         refresh_cmd ();
 307         break;
 308     case CK_Refresh:
 309         refresh_cmd ();
 310         break;
 311
 312     case CK_ScreenList:
 313         if (!h->modal)
 314             dialog_switch_list ();
 315         else
 316             ret = MSG_NOT_HANDLED;
 317         break;
 318     case CK_ScreenNext:
 319         if (!h->modal)
 320             dialog_switch_next ();
 321         else
 322             ret = MSG_NOT_HANDLED;
 323         break;
 324     case CK_ScreenPrev:
 325         if (!h->modal)
 326             dialog_switch_prev ();
 327         else
 328             ret = MSG_NOT_HANDLED;
 329         break;
 330
 331     default:
 332         ret = MSG_NOT_HANDLED;
 333     }
 334
 335     return ret;
 336 }
 337
 338 /* --------------------------------------------------------------------------------------------- */
 339
 340 static cb_ret_t
 341 dlg_handle_key (WDialog * h, int d_key)
 342 {
 343     unsigned long command;
 344
 345     command = keybind_lookup_keymap_command (dialog_map, d_key);
 346
 347     if (command == CK_IgnoreKey)
 348         return MSG_NOT_HANDLED;
 349
 350     if (send_message (h, NULL, MSG_ACTION, command, NULL) == MSG_HANDLED
 351         || dlg_execute_cmd (h, command) == MSG_HANDLED)
 352         return MSG_HANDLED;
 353
 354     return MSG_NOT_HANDLED;
 355 }
 356
 357 /* --------------------------------------------------------------------------------------------- */
 358
 359 static int
 360 dlg_mouse_event (WDialog * h, Gpm_Event * event)
 361 {
 362     Widget *wh = WIDGET (h);
 363
 364     GList *p, *first;
 365
 366     /* close the dialog by mouse left click out of dialog area */
 367     if (mouse_close_dialog && !h->fullscreen && ((event->buttons & GPM_B_LEFT) != 0)
 368         && ((event->type & GPM_DOWN) != 0) && !mouse_global_in_widget (event, wh))
 369     {
 370         h->ret_value = B_CANCEL;
 371         dlg_stop (h);
 372         return MOU_NORMAL;
 373     }
 374
 375     if (wh->mouse != NULL)
 376     {
 377         int mou;
 378
 379         mou = wh->mouse (event, wh);
 380         if (mou != MOU_UNHANDLED)
 381             return mou;
 382     }
 383
 384     first = h->current;
 385     p = first;
 386
 387     do
 388     {
 389         Widget *w = WIDGET (p->data);
 390
 391         p = dlg_widget_prev (h, p);
 392
 393         if ((w->options & W_DISABLED) == 0 && w->mouse != NULL)
 394         {
 395             /* put global cursor position to the widget */
 396             int ret;
 397
 398             ret = w->mouse (event, w);
 399             if (ret != MOU_UNHANDLED)
 400                 return ret;
 401         }
 402     }
 403     while (p != first);
 404
 405     return MOU_UNHANDLED;
 406 }
 407
 408 /* --------------------------------------------------------------------------------------------- */
 409
 410 static cb_ret_t
 411 dlg_try_hotkey (WDialog * h, int d_key)
 412 {
 413     GList *hot_cur;
 414     Widget *current;
 415     cb_ret_t handled;
 416     int c;
 417
 418     if (h->widgets == NULL)
 419         return MSG_NOT_HANDLED;
 420
 421     if (h->current == NULL)
 422         h->current = h->widgets;
 423
 424     /*
 425      * Explanation: we don't send letter hotkeys to other widgets if
 426      * the currently selected widget is an input line
 427      */
 428
 429     current = WIDGET (h->current->data);
 430
 431     if ((current->options & W_DISABLED) != 0)
 432         return MSG_NOT_HANDLED;
 433
 434     if (current->options & W_IS_INPUT)
 435     {
 436         /* skip ascii control characters, anything else can valid character in
 437          * some encoding */
 438         if (d_key >= 32 && d_key < 256)
 439             return MSG_NOT_HANDLED;
 440     }
 441
 442     /* If it's an alt key, send the message */
 443     c = d_key & ~ALT (0);
 444     if (d_key & ALT (0) && g_ascii_isalpha (c))
 445         d_key = g_ascii_tolower (c);
 446
 447     handled = MSG_NOT_HANDLED;
 448     if ((current->options & W_WANT_HOTKEY) != 0)
 449         handled = send_message (current, NULL, MSG_HOTKEY, d_key, NULL);
 450
 451     /* If not used, send hotkey to other widgets */
 452     if (handled == MSG_HANDLED)
 453         return MSG_HANDLED;
 454
 455     hot_cur = dlg_widget_next (h, h->current);
 456
 457     /* send it to all widgets */
 458     while (h->current != hot_cur && handled == MSG_NOT_HANDLED)
 459     {
 460         current = WIDGET (hot_cur->data);
 461
 462         if ((current->options & W_WANT_HOTKEY) != 0 && (current->options & W_DISABLED) == 0)
 463             handled = send_message (current, NULL, MSG_HOTKEY, d_key, NULL);
 464
 465         if (handled == MSG_NOT_HANDLED)
 466             hot_cur = dlg_widget_next (h, hot_cur);
 467     }
 468
 469     if (handled == MSG_HANDLED)
 470         do_select_widget (h, hot_cur, SELECT_EXACT);
 471
 472     return handled;
 473 }
 474
 475 /* --------------------------------------------------------------------------------------------- */
 476
 477 static void
 478 dlg_key_event (WDialog * h, int d_key)
 479 {
 480     cb_ret_t handled;
 481
 482     if (h->widgets == NULL)
 483         return;
 484
 485     if (h->current == NULL)
 486         h->current = h->widgets;
 487
 488     /* TAB used to cycle */
 489     if ((h->flags & DLG_WANT_TAB) == 0)
 490     {
 491         if (d_key == '\t')
 492         {
 493             dlg_one_down (h);
 494             return;
 495         }
 496         else if (d_key == KEY_BTAB)
 497         {
 498             dlg_one_up (h);
 499             return;
 500         }
 501     }
 502
 503     /* first can dlg_callback handle the key */
 504     handled = send_message (h, NULL, MSG_KEY, d_key, NULL);
 505
 506     /* next try the hotkey */
 507     if (handled == MSG_NOT_HANDLED)
 508         handled = dlg_try_hotkey (h, d_key);
 509
 510     if (handled == MSG_HANDLED)
 511         send_message (h, NULL, MSG_HOTKEY_HANDLED, 0, NULL);
 512     else
 513         /* not used - then try widget_callback */
 514         handled = send_message (h->current->data, NULL, MSG_KEY, d_key, NULL);
 515
 516     /* not used- try to use the unhandled case */
 517     if (handled == MSG_NOT_HANDLED)
 518         handled = send_message (h, NULL, MSG_UNHANDLED_KEY, d_key, NULL);
 519
 520     if (handled == MSG_NOT_HANDLED)
 521         handled = dlg_handle_key (h, d_key);
 522
 523     send_message (h, NULL, MSG_POST_KEY, d_key, NULL);
 524 }
 525
 526 /* --------------------------------------------------------------------------------------------- */
 527
 528 static void
 529 frontend_run_dlg (WDialog * h)
 530 {
 531     int d_key;
 532     Gpm_Event event;
 533
 534     event.x = -1;
 535
 536     /* close opened editors, viewers, etc */
 537     if (!h->modal && mc_global.midnight_shutdown)
 538     {
 539         send_message (h, NULL, MSG_VALIDATE, 0, NULL);
 540         return;
 541     }
 542
 543     while (h->state == DLG_ACTIVE)
 544     {
 545         if (mc_global.tty.winch_flag != 0)
 546             dialog_change_screen_size ();
 547
 548         if (is_idle ())
 549         {
 550             if (idle_hook)
 551                 execute_hooks (idle_hook);
 552
 553             while ((WIDGET (h)->options & W_WANT_IDLE) != 0 && is_idle ())
 554                 send_message (h, NULL, MSG_IDLE, 0, NULL);
 555
 556             /* Allow terminating the dialog from the idle handler */
 557             if (h->state != DLG_ACTIVE)
 558                 break;
 559         }
 560
 561         update_cursor (h);
 562
 563         /* Clear interrupt flag */
 564         tty_got_interrupt ();
 565         d_key = tty_get_event (&event, h->mouse_status == MOU_REPEAT, TRUE);
 566
 567         dlg_process_event (h, d_key, &event);
 568
 569         if (h->state == DLG_CLOSED)
 570             send_message (h, NULL, MSG_VALIDATE, 0, NULL);
 571     }
 572 }
 573
 574 /* --------------------------------------------------------------------------------------------- */
 575
 576 static int
 577 dlg_find_widget_by_id (gconstpointer a, gconstpointer b)
 578 {
 579     Widget *w = WIDGET (a);
 580     unsigned long id = GPOINTER_TO_UINT (b);
 581
 582     return w->id == id ? 0 : 1;
 583 }
 584
 585 /* --------------------------------------------------------------------------------------------- */
 586 /*** public functions ****************************************************************************/
 587 /* --------------------------------------------------------------------------------------------- */
 588
 589 /** Clean the dialog area, draw the frame and the title */
 590 void
 591 dlg_default_repaint (WDialog * h)
 592 {
 593     Widget *wh = WIDGET (h);
 594
 595     int space;
 596
 597     if (h->state != DLG_ACTIVE)
 598         return;
 599
 600     space = (h->flags & DLG_COMPACT) ? 0 : 1;
 601
 602     tty_setcolor (h->color[DLG_COLOR_NORMAL]);
 603     dlg_erase (h);
 604     tty_draw_box (wh->y + space, wh->x + space, wh->lines - 2 * space, wh->cols - 2 * space, FALSE);
 605
 606     if (h->title != NULL)
 607     {
 608         tty_setcolor (h->color[DLG_COLOR_TITLE]);
 609         widget_move (h, space, (wh->cols - str_term_width1 (h->title)) / 2);
 610         tty_print_string (h->title);
 611     }
 612 }
 613
 614 /* --------------------------------------------------------------------------------------------- */
 615 /** this function allows to set dialog position */
 616
 617 void
 618 dlg_set_position (WDialog * h, int y1, int x1, int y2, int x2)
 619 {
 620     Widget *wh = WIDGET (h);
 621
 622     /* save old positions, will be used to reposition childs */
 623     int ox, oy, oc, ol;
 624     int shift_x, shift_y, scale_x, scale_y;
 625
 626     /* save old positions, will be used to reposition childs */
 627     ox = wh->x;
 628     oy = wh->y;
 629     oc = wh->cols;
 630     ol = wh->lines;
 631
 632     wh->x = x1;
 633     wh->y = y1;
 634     wh->lines = y2 - y1;
 635     wh->cols = x2 - x1;
 636
 637     /* dialog is empty */
 638     if (h->widgets == NULL)
 639         return;
 640
 641     if (h->current == NULL)
 642         h->current = h->widgets;
 643
 644     /* values by which controls should be moved */
 645     shift_x = wh->x - ox;
 646     shift_y = wh->y - oy;
 647     scale_x = wh->cols - oc;
 648     scale_y = wh->lines - ol;
 649
 650     if ((shift_x != 0) || (shift_y != 0) || (scale_x != 0) || (scale_y != 0))
 651     {
 652         GList *w;
 653
 654         for (w = h->widgets; w != NULL; w = g_list_next (w))
 655         {
 656             /* there are, mainly, 2 generally possible
 657                situations:
 658
 659                1. control sticks to one side - it
 660                should be moved
 661
 662                2. control sticks to two sides of
 663                one direction - it should be sized */
 664
 665             Widget *c = WIDGET (w->data);
 666             int x = c->x;
 667             int y = c->y;
 668             int cols = c->cols;
 669             int lines = c->lines;
 670
 671             if ((c->pos_flags & WPOS_CENTER_HORZ) != 0)
 672                 x = wh->x + (wh->cols - c->cols) / 2;
 673             else if ((c->pos_flags & WPOS_KEEP_LEFT) != 0 && (c->pos_flags & WPOS_KEEP_RIGHT) != 0)
 674             {
 675                 x += shift_x;
 676                 cols += scale_x;
 677             }
 678             else if ((c->pos_flags & WPOS_KEEP_LEFT) != 0)
 679                 x += shift_x;
 680             else if ((c->pos_flags & WPOS_KEEP_RIGHT) != 0)
 681                 x += shift_x + scale_x;
 682
 683             if ((c->pos_flags & WPOS_CENTER_VERT) != 0)
 684                 y = wh->y + (wh->lines - c->lines) / 2;
 685             else if ((c->pos_flags & WPOS_KEEP_TOP) != 0 && (c->pos_flags & WPOS_KEEP_BOTTOM) != 0)
 686             {
 687                 y += shift_y;
 688                 lines += scale_y;
 689             }
 690             else if ((c->pos_flags & WPOS_KEEP_TOP) != 0)
 691                 y += shift_y;
 692             else if ((c->pos_flags & WPOS_KEEP_BOTTOM) != 0)
 693                 y += shift_y + scale_y;
 694
 695             widget_set_size (c, y, x, lines, cols);
 696         }
 697     }
 698 }
 699
 700 /* --------------------------------------------------------------------------------------------- */
 701 /** this function sets only size, leaving positioning to automatic methods */
 702
 703 void
 704 dlg_set_size (WDialog * h, int lines, int cols)
 705 {
 706     int x = WIDGET (h)->x;
 707     int y = WIDGET (h)->y;
 708
 709     if (h->flags & DLG_CENTER)
 710     {
 711         y = (LINES - lines) / 2;
 712         x = (COLS - cols) / 2;
 713     }
 714
 715     if ((h->flags & DLG_TRYUP) && (y > 3))
 716         y -= 2;
 717
 718     dlg_set_position (h, y, x, y + lines, x + cols);
 719 }
 720
 721 /* --------------------------------------------------------------------------------------------- */
 722 /** Default dialog callback */
 723
 724 cb_ret_t
 725 dlg_default_callback (Widget * w, Widget * sender, widget_msg_t msg, int parm, void *data)
 726 {
 727     WDialog *h = DIALOG (w);
 728
 729     (void) sender;
 730     (void) parm;
 731     (void) data;
 732
 733     switch (msg)
 734     {
 735     case MSG_DRAW:
 736         if (h->color != NULL)
 737         {
 738             dlg_default_repaint (h);
 739             return MSG_HANDLED;
 740         }
 741         return MSG_NOT_HANDLED;
 742
 743     case MSG_IDLE:
 744         dlg_broadcast_msg_to (h, MSG_IDLE, FALSE, W_WANT_IDLE);
 745         return MSG_HANDLED;
 746
 747     case MSG_RESIZE:
 748         /* this is default resizing mechanism */
 749         /* the main idea of this code is to resize dialog
 750            according to flags (if any of flags require automatic
 751            resizing, like DLG_CENTER, end after that reposition
 752            controls in dialog according to flags of widget) */
 753         dlg_set_size (h, w->lines, w->cols);
 754         return MSG_HANDLED;
 755
 756     default:
 757         break;
 758     }
 759
 760     return MSG_NOT_HANDLED;
 761 }
 762
 763 /* --------------------------------------------------------------------------------------------- */
 764
 765 WDialog *
 766 create_dlg (gboolean modal, int y1, int x1, int lines, int cols,
 767             const int *colors, widget_cb_fn callback, mouse_h mouse_handler,
 768             const char *help_ctx, const char *title, dlg_flags_t flags)
 769 {
 770     WDialog *new_d;
 771     Widget *w;
 772
 773     new_d = g_new0 (WDialog, 1);
 774     w = WIDGET (new_d);
 775     init_widget (w, y1, x1, lines, cols, (callback != NULL) ? callback : dlg_default_callback,
 776                  mouse_handler);
 777     widget_want_cursor (w, FALSE);
 778
 779     new_d->state = DLG_CONSTRUCT;
 780     new_d->modal = modal;
 781     if (colors != NULL)
 782         memmove (new_d->color, colors, sizeof (dlg_colors_t));
 783     new_d->help_ctx = help_ctx;
 784     new_d->flags = flags;
 785     new_d->data = NULL;
 786
 787     dlg_set_size (new_d, lines, cols);
 788     new_d->fullscreen = (w->x == 0 && w->y == 0 && w->cols == COLS && w->lines == LINES);
 789
 790     new_d->mouse_status = MOU_UNHANDLED;
 791
 792     /* Strip existing spaces, add one space before and after the title */
 793     if (title != NULL && *title != '\0')
 794     {
 795         char *t;
 796
 797         t = g_strstrip (g_strdup (title));
 798         if (*t != '\0')
 799             new_d->title = g_strdup_printf (" %s ", t);
 800         g_free (t);
 801     }
 802
 803     /* unique name got event group for this dialog */
 804     new_d->event_group = g_strdup_printf ("%s_%p", MCEVENT_GROUP_DIALOG, (void *) new_d);
 805
 806     return new_d;
 807 }
 808
 809 /* --------------------------------------------------------------------------------------------- */
 810
 811 void
 812 dlg_set_default_colors (void)
 813 {
 814     dialog_colors[DLG_COLOR_NORMAL] = COLOR_NORMAL;
 815     dialog_colors[DLG_COLOR_FOCUS] = COLOR_FOCUS;
 816     dialog_colors[DLG_COLOR_HOT_NORMAL] = COLOR_HOT_NORMAL;
 817     dialog_colors[DLG_COLOR_HOT_FOCUS] = COLOR_HOT_FOCUS;
 818     dialog_colors[DLG_COLOR_TITLE] = COLOR_TITLE;
 819
 820     alarm_colors[DLG_COLOR_NORMAL] = ERROR_COLOR;
 821     alarm_colors[DLG_COLOR_FOCUS] = ERROR_FOCUS;
 822     alarm_colors[DLG_COLOR_HOT_NORMAL] = ERROR_HOT_NORMAL;
 823     alarm_colors[DLG_COLOR_HOT_FOCUS] = ERROR_HOT_FOCUS;
 824     alarm_colors[DLG_COLOR_TITLE] = ERROR_TITLE;
 825 }
 826
 827 /* --------------------------------------------------------------------------------------------- */
 828
 829 void
 830 dlg_erase (WDialog * h)
 831 {
 832     if ((h != NULL) && (h->state == DLG_ACTIVE))
 833     {
 834         Widget *wh = WIDGET (h);
 835
 836         tty_fill_region (wh->y, wh->x, wh->lines, wh->cols, ' ');
 837     }
 838 }
 839
 840 /* --------------------------------------------------------------------------------------------- */
 841 /**
 842  * Insert widget to dialog before requested widget. Make the widget current. Return widget ID.
 843  */
 844
 845 unsigned long
 846 add_widget_autopos (WDialog * h, void *w, widget_pos_flags_t pos_flags, const void *before)
 847 {
 848     Widget *wh = WIDGET (h);
 849     Widget *widget;
 850
 851     /* Don't accept 0 widgets */
 852     if (w == NULL)
 853         abort ();
 854
 855     widget = WIDGET (w);
 856
 857     if ((pos_flags & WPOS_CENTER_HORZ) != 0)
 858         widget->x = (wh->cols - widget->cols) / 2;
 859     widget->x += wh->x;
 860
 861     if ((pos_flags & WPOS_CENTER_VERT) != 0)
 862         widget->y = (wh->lines - widget->lines) / 2;
 863     widget->y += wh->y;
 864
 865     widget->owner = h;
 866     widget->pos_flags = pos_flags;
 867     widget->id = h->widget_id++;
 868
 869     if (h->widgets == NULL || before == NULL)
 870     {
 871         h->widgets = g_list_append (h->widgets, widget);
 872         h->current = g_list_last (h->widgets);
 873     }
 874     else
 875     {
 876         GList *b;
 877
 878         b = g_list_find (h->widgets, before);
 879
 880         /* don't accept widget not from dialog. This shouldn't happen */
 881         if (b == NULL)
 882             abort ();
 883
 884         b = g_list_next (b);
 885         h->widgets = g_list_insert_before (h->widgets, b, widget);
 886         if (b != NULL)
 887             h->current = g_list_previous (b);
 888         else
 889             h->current = g_list_last (h->widgets);
 890     }
 891
 892     /* widget has been added in runtime */
 893     if (h->state == DLG_ACTIVE)
 894     {
 895         send_message (widget, NULL, MSG_INIT, 0, NULL);
 896         send_message (widget, NULL, MSG_DRAW, 0, NULL);
 897         send_message (widget, NULL, MSG_FOCUS, 0, NULL);
 898     }
 899
 900     return widget->id;
 901 }
 902
 903 /* --------------------------------------------------------------------------------------------- */
 904 /** wrapper to simply add lefttop positioned controls */
 905
 906 unsigned long
 907 add_widget (WDialog * h, void *w)
 908 {
 909     return add_widget_autopos (h, w, WPOS_KEEP_DEFAULT,
 910                                h->current != NULL ? h->current->data : NULL);
 911 }
 912
 913 /* --------------------------------------------------------------------------------------------- */
 914
 915 unsigned long
 916 add_widget_before (WDialog * h, void *w, void *before)
 917 {
 918     return add_widget_autopos (h, w, WPOS_KEEP_DEFAULT, before);
 919 }
 920
 921 /* --------------------------------------------------------------------------------------------- */
 922
 923 /** delete widget from dialog */
 924 void
 925 del_widget (void *w)
 926 {
 927     WDialog *h;
 928     GList *d;
 929
 930     /* Don't accept NULL widget. This shouldn't happen */
 931     if (w == NULL)
 932         abort ();
 933
 934     h = WIDGET (w)->owner;
 935
 936     d = g_list_find (h->widgets, w);
 937     if (d == h->current)
 938         h->current = dlg_widget_next (h, d);
 939
 940     h->widgets = g_list_remove_link (h->widgets, d);
 941     send_message (d->data, NULL, MSG_DESTROY, 0, NULL);
 942     g_free (d->data);
 943     g_list_free_1 (d);
 944
 945     /* widget has been deleted in runtime */
 946     if (h->state == DLG_ACTIVE)
 947     {
 948         dlg_redraw (h);
 949         dlg_focus (h);
 950     }
 951 }
 952
 953 /* --------------------------------------------------------------------------------------------- */
 954
 955 void
 956 do_refresh (void)
 957 {
 958     GList *d = top_dlg;
 959
 960     if (fast_refresh)
 961     {
 962         if ((d != NULL) && (d->data != NULL))
 963             dlg_redraw (DIALOG (d->data));
 964     }
 965     else
 966     {
 967         /* Search first fullscreen dialog */
 968         for (; d != NULL; d = g_list_next (d))
 969             if (d->data != NULL && DIALOG (d->data)->fullscreen)
 970                 break;
 971         /* back to top dialog */
 972         for (; d != NULL; d = g_list_previous (d))
 973             if (d->data != NULL)
 974                 dlg_redraw (DIALOG (d->data));
 975     }
 976 }
 977
 978 /* --------------------------------------------------------------------------------------------- */
 979 /** broadcast a message to all the widgets in a dialog */
 980
 981 void
 982 dlg_broadcast_msg (WDialog * h, widget_msg_t msg)
 983 {
 984     dlg_broadcast_msg_to (h, msg, FALSE, 0);
 985 }
 986
 987 /* --------------------------------------------------------------------------------------------- */
 988
 989 gboolean
 990 dlg_focus (WDialog * h)
 991 {
 992     /* cannot focus disabled widget */
 993     if ((h->current != NULL) && (h->state == DLG_CONSTRUCT || h->state == DLG_ACTIVE))
 994     {
 995         Widget *current = WIDGET (h->current->data);
 996
 997         if (((current->options & W_DISABLED) == 0)
 998             && (send_message (current, NULL, MSG_FOCUS, 0, NULL) == MSG_HANDLED))
 999         {
1000             send_message (h, current, MSG_FOCUS, 0, NULL);
1001             return TRUE;
1002         }
1003     }
1004
1005     return FALSE;
1006 }
1007
1008 /* --------------------------------------------------------------------------------------------- */
1009 /** Return true if the windows overlap */
1010
1011 int
1012 dlg_overlap (Widget * a, Widget * b)
1013 {
1014     return !((b->x >= a->x + a->cols)
1015              || (a->x >= b->x + b->cols) || (b->y >= a->y + a->lines) || (a->y >= b->y + b->lines));
1016 }
1017
1018
1019 /* --------------------------------------------------------------------------------------------- */
1020 /** Find the widget with the given callback in the dialog h */
1021
1022 Widget *
1023 find_widget_type (const WDialog * h, widget_cb_fn callback)
1024 {
1025     GList *w;
1026
1027     w = g_list_find_custom (h->widgets, callback, dlg_find_widget_callback);
1028
1029     return (w == NULL) ? NULL : WIDGET (w->data);
1030 }
1031
1032 /* --------------------------------------------------------------------------------------------- */
1033 /** Find the widget with the given id */
1034
1035 Widget *
1036 dlg_find_by_id (const WDialog * h, unsigned long id)
1037 {
1038     GList *w;
1039
1040     w = g_list_find_custom (h->widgets, GUINT_TO_POINTER (id), dlg_find_widget_by_id);
1041     return w != NULL ? WIDGET (w->data) : NULL;
1042 }
1043
1044 /* --------------------------------------------------------------------------------------------- */
1045 /** Find the widget with the given id in the dialog h and select it */
1046
1047 void
1048 dlg_select_by_id (const WDialog * h, unsigned long id)
1049 {
1050     Widget *w;
1051
1052     w = dlg_find_by_id (h, id);
1053     if (w != NULL)
1054         dlg_select_widget (w);
1055 }
1056
1057 /* --------------------------------------------------------------------------------------------- */
1058 /**
1059  * Try to select widget in the dialog.
1060  */
1061
1062 void
1063 dlg_select_widget (void *w)
1064 {
1065     Widget *widget = WIDGET (w);
1066     WDialog *h = widget->owner;
1067
1068     do_select_widget (h, g_list_find (h->widgets, widget), SELECT_EXACT);
1069 }
1070
1071 /* --------------------------------------------------------------------------------------------- */
1072
1073 /**
1074  * Set widget at top of widget list and make it current.
1075  */
1076
1077 void
1078 dlg_set_top_widget (void *w)
1079 {
1080     Widget *widget = WIDGET (w);
1081     WDialog *h = widget->owner;
1082     GList *l;
1083
1084     l = g_list_find (h->widgets, w);
1085     if (l == NULL)
1086         abort ();               /* widget is not in dialog, this should not happen */
1087
1088     /* unfocus prevoius widget and focus current one before widget reordering */
1089     if (h->state == DLG_ACTIVE)
1090         do_select_widget (h, l, SELECT_EXACT);
1091
1092     /* widget reordering */
1093     h->widgets = g_list_remove_link (h->widgets, l);
1094     h->widgets = g_list_concat (h->widgets, l);
1095     h->current = l;
1096 }
1097
1098 /* --------------------------------------------------------------------------------------------- */
1099 /** Try to select previous widget in the tab order */
1100
1101 void
1102 dlg_one_up (WDialog * h)
1103 {
1104     if (h->widgets != NULL)
1105         do_select_widget (h, dlg_widget_prev (h, h->current), SELECT_PREV);
1106 }
1107
1108 /* --------------------------------------------------------------------------------------------- */
1109 /** Try to select next widget in the tab order */
1110
1111 void
1112 dlg_one_down (WDialog * h)
1113 {
1114     if (h->widgets != NULL)
1115         do_select_widget (h, dlg_widget_next (h, h->current), SELECT_NEXT);
1116 }
1117
1118 /* --------------------------------------------------------------------------------------------- */
1119
1120 void
1121 update_cursor (WDialog * h)
1122 {
1123     GList *p = h->current;
1124
1125     if ((p != NULL) && (h->state == DLG_ACTIVE))
1126     {
1127         Widget *w;
1128
1129         w = WIDGET (p->data);
1130
1131         if (((w->options & W_DISABLED) == 0) && ((w->options & W_WANT_CURSOR) != 0))
1132             send_message (w, NULL, MSG_CURSOR, 0, NULL);
1133         else
1134             do
1135             {
1136                 p = dlg_widget_next (h, p);
1137                 if (p == h->current)
1138                     break;
1139
1140                 w = WIDGET (p->data);
1141
1142                 if (((w->options & W_DISABLED) == 0) && ((w->options & W_WANT_CURSOR) != 0))
1143                     if (send_message (w, NULL, MSG_CURSOR, 0, NULL) == MSG_HANDLED)
1144                         break;
1145             }
1146             while (TRUE);
1147     }
1148 }
1149
1150 /* --------------------------------------------------------------------------------------------- */
1151 /**
1152  * Redraw the widgets in reverse order, leaving the current widget
1153  * as the last one
1154  */
1155
1156 void
1157 dlg_redraw (WDialog * h)
1158 {
1159     if (h->state != DLG_ACTIVE)
1160         return;
1161
1162     if (h->winch_pending)
1163     {
1164         h->winch_pending = FALSE;
1165         send_message (h, NULL, MSG_RESIZE, 0, NULL);
1166     }
1167
1168     send_message (h, NULL, MSG_DRAW, 0, NULL);
1169     dlg_broadcast_msg (h, MSG_DRAW);
1170     update_cursor (h);
1171 }
1172
1173 /* --------------------------------------------------------------------------------------------- */
1174
1175 void
1176 dlg_stop (WDialog * h)
1177 {
1178     h->state = DLG_CLOSED;
1179 }
1180
1181 /* --------------------------------------------------------------------------------------------- */
1182 /** Init the process */
1183
1184 void
1185 init_dlg (WDialog * h)
1186 {
1187     if (top_dlg != NULL && DIALOG (top_dlg->data)->modal)
1188         h->modal = TRUE;
1189
1190     /* add dialog to the stack */
1191     top_dlg = g_list_prepend (top_dlg, h);
1192
1193     /* Initialize dialog manager and widgets */
1194     if (h->state == DLG_CONSTRUCT)
1195     {
1196         if (!h->modal)
1197             dialog_switch_add (h);
1198
1199         send_message (h, NULL, MSG_INIT, 0, NULL);
1200         dlg_broadcast_msg (h, MSG_INIT);
1201         dlg_read_history (h);
1202     }
1203
1204     h->state = DLG_ACTIVE;
1205
1206     /* Select the first widget that takes focus */
1207     while (h->current != NULL && !dlg_focus (h))
1208         h->current = dlg_widget_next (h, h->current);
1209
1210     dlg_redraw (h);
1211
1212     h->ret_value = 0;
1213 }
1214
1215 /* --------------------------------------------------------------------------------------------- */
1216
1217 void
1218 dlg_process_event (WDialog * h, int key, Gpm_Event * event)
1219 {
1220     if (key == EV_NONE)
1221     {
1222         if (tty_got_interrupt ())
1223             if (send_message (h, NULL, MSG_ACTION, CK_Cancel, NULL) != MSG_HANDLED)
1224                 dlg_execute_cmd (h, CK_Cancel);
1225
1226         return;
1227     }
1228
1229     if (key == EV_MOUSE)
1230         h->mouse_status = dlg_mouse_event (h, event);
1231     else
1232         dlg_key_event (h, key);
1233 }
1234
1235 /* --------------------------------------------------------------------------------------------- */
1236 /** Shutdown the run_dlg */
1237
1238 void
1239 dlg_run_done (WDialog * h)
1240 {
1241     top_dlg = g_list_remove (top_dlg, h);
1242
1243     if (h->state == DLG_CLOSED)
1244     {
1245         send_message (h, h->current->data, MSG_END, 0, NULL);
1246         if (!h->modal)
1247             dialog_switch_remove (h);
1248     }
1249 }
1250
1251 /* --------------------------------------------------------------------------------------------- */
1252 /**
1253  * Standard run dialog routine
1254  * We have to keep this routine small so that we can duplicate it's
1255  * behavior on complex routines like the file routines, this way,
1256  * they can call the dlg_process_event without rewriting all the code
1257  */
1258
1259 int
1260 run_dlg (WDialog * h)
1261 {
1262     init_dlg (h);
1263     frontend_run_dlg (h);
1264     dlg_run_done (h);
1265     return h->ret_value;
1266 }
1267
1268 /* --------------------------------------------------------------------------------------------- */
1269
1270 void
1271 destroy_dlg (WDialog * h)
1272 {
1273     /* if some widgets have history, save all history at one moment here */
1274     dlg_save_history (h);
1275     dlg_broadcast_msg (h, MSG_DESTROY);
1276     g_list_foreach (h->widgets, (GFunc) g_free, NULL);
1277     g_list_free (h->widgets);
1278     mc_event_group_del (h->event_group);
1279     g_free (h->event_group);
1280     g_free (h->title);
1281     g_free (h);
1282
1283     do_refresh ();
1284 }
1285
1286 /* --------------------------------------------------------------------------------------------- */
1287
1288 /**
1289   * Write history to the ${XDG_CACHE_HOME}/mc/history file
1290   */
1291 void
1292 dlg_save_history (WDialog * h)
1293 {
1294     char *profile;
1295     int i;
1296
1297     if (num_history_items_recorded == 0)        /* this is how to disable */
1298         return;
1299
1300     profile = mc_config_get_full_path (MC_HISTORY_FILE);
1301     i = open (profile, O_CREAT | O_EXCL, S_IRUSR | S_IWUSR);
1302     if (i != -1)
1303         close (i);
1304
1305     /* Make sure the history is only readable by the user */
1306     if (chmod (profile, S_IRUSR | S_IWUSR) != -1 || errno == ENOENT)
1307     {
1308         ev_history_load_save_t event_data;
1309
1310         event_data.cfg = mc_config_init (profile, FALSE);
1311         event_data.receiver = NULL;
1312
1313         /* get all histories in dialog */
1314         mc_event_raise (h->event_group, MCEVENT_HISTORY_SAVE, &event_data);
1315
1316         mc_config_save_file (event_data.cfg, NULL);
1317         mc_config_deinit (event_data.cfg);
1318     }
1319
1320     g_free (profile);
1321 }
1322
1323 /* --------------------------------------------------------------------------------------------- */
1324
1325 char *
1326 dlg_get_title (const WDialog * h, size_t len)
1327 {
1328     char *t;
1329
1330     if (h == NULL)
1331         abort ();
1332
1333     if (h->get_title != NULL)
1334         t = h->get_title (h, len);
1335     else
1336         t = g_strdup ("");
1337
1338     return t;
1339 }
1340
1341 /* --------------------------------------------------------------------------------------------- */