lib/widget/listbox.c

   1 /*
   2    Widgets for the Midnight Commander
   3
   4    Copyright (C) 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003,
   5    2004, 2005, 2006, 2007, 2009, 2010, 2011
   6    The Free Software Foundation, Inc.
   7
   8    Authors:
   9    Radek Doulik, 1994, 1995
  10    Miguel de Icaza, 1994, 1995
  11    Jakub Jelinek, 1995
  12    Andrej Borsenkow, 1996
  13    Norbert Warmuth, 1997
  14    Andrew Borodin <aborodin@vmail.ru>, 2009, 2010
  15
  16    This file is part of the Midnight Commander.
  17
  18    The Midnight Commander is free software: you can redistribute it
  19    and/or modify it under the terms of the GNU General Public License as
  20    published by the Free Software Foundation, either version 3 of the License,
  21    or (at your option) any later version.
  22
  23    The Midnight Commander is distributed in the hope that it will be useful,
  24    but WITHOUT ANY WARRANTY; without even the implied warranty of
  25    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26    GNU General Public License for more details.
  27
  28    You should have received a copy of the GNU General Public License
  29    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  30  */
  31
  32 /** \file listbox.c
  33  *  \brief Source: WListbox widget
  34  */
  35
  36 #include <config.h>
  37
  38 #include <stdlib.h>
  39
  40 #include "lib/global.h"
  41
  42 #include "lib/tty/tty.h"
  43 #include "lib/tty/mouse.h"
  44 #include "lib/skin.h"
  45 #include "lib/strutil.h"
  46 #include "lib/util.h"           /* Q_() */
  47 #include "lib/keybind.h"        /* global_keymap_t */
  48 #include "lib/widget.h"
  49
  50 /*** global variables ****************************************************************************/
  51
  52 const global_keymap_t *listbox_map = NULL;
  53
  54 /*** file scope macro definitions ****************************************************************/
  55
  56 /*** file scope type declarations ****************************************************************/
  57
  58 /*** file scope variables ************************************************************************/
  59
  60 /*** file scope functions ************************************************************************/
  61
  62 static int
  63 listbox_entry_cmp (const void *a, const void *b)
  64 {
  65     const WLEntry *ea = (const WLEntry *) a;
  66     const WLEntry *eb = (const WLEntry *) b;
  67
  68     return strcmp (ea->text, eb->text);
  69 }
  70
  71 /* --------------------------------------------------------------------------------------------- */
  72
  73 static void
  74 listbox_entry_free (void *data)
  75 {
  76     WLEntry *e = data;
  77     g_free (e->text);
  78     g_free (e);
  79 }
  80
  81 /* --------------------------------------------------------------------------------------------- */
  82
  83 static void
  84 listbox_drawscroll (WListbox * l)
  85 {
  86     const int max_line = l->widget.lines - 1;
  87     int line = 0;
  88     int i;
  89
  90     /* Are we at the top? */
  91     widget_move (&l->widget, 0, l->widget.cols);
  92     if (l->top == 0)
  93         tty_print_one_vline (TRUE);
  94     else
  95         tty_print_char ('^');
  96
  97     /* Are we at the bottom? */
  98     widget_move (&l->widget, max_line, l->widget.cols);
  99     if ((l->top + l->widget.lines == l->count) || (l->widget.lines >= l->count))
 100         tty_print_one_vline (TRUE);
 101     else
 102         tty_print_char ('v');
 103
 104     /* Now draw the nice relative pointer */
 105     if (l->count != 0)
 106         line = 1 + ((l->pos * (l->widget.lines - 2)) / l->count);
 107
 108     for (i = 1; i < max_line; i++)
 109     {
 110         widget_move (&l->widget, i, l->widget.cols);
 111         if (i != line)
 112             tty_print_one_vline (TRUE);
 113         else
 114             tty_print_char ('*');
 115     }
 116 }
 117
 118 /* --------------------------------------------------------------------------------------------- */
 119
 120 static void
 121 listbox_draw (WListbox * l, gboolean focused)
 122 {
 123     const Dlg_head *h = l->widget.owner;
 124     const gboolean disabled = (((Widget *) l)->options & W_DISABLED) != 0;
 125     const int normalc = disabled ? DISABLED_COLOR : h->color[DLG_COLOR_NORMAL];
 126     int selc =
 127         disabled ? DISABLED_COLOR : focused ? h->
 128         color[DLG_COLOR_HOT_FOCUS] : h->color[DLG_COLOR_FOCUS];
 129
 130     GList *le;
 131     int pos;
 132     int i;
 133     int sel_line = -1;
 134
 135     le = g_list_nth (l->list, l->top);
 136     /*    pos = (le == NULL) ? 0 : g_list_position (l->list, le); */
 137     pos = (le == NULL) ? 0 : l->top;
 138
 139     for (i = 0; i < l->widget.lines; i++)
 140     {
 141         const char *text;
 142
 143         /* Display the entry */
 144         if (pos == l->pos && sel_line == -1)
 145         {
 146             sel_line = i;
 147             tty_setcolor (selc);
 148         }
 149         else
 150             tty_setcolor (normalc);
 151
 152         widget_move (&l->widget, i, 1);
 153
 154         if ((i > 0 && pos >= l->count) || (l->list == NULL) || (le == NULL))
 155             text = "";
 156         else
 157         {
 158             WLEntry *e = (WLEntry *) le->data;
 159             text = e->text;
 160             le = g_list_next (le);
 161             pos++;
 162         }
 163
 164         tty_print_string (str_fit_to_term (text, l->widget.cols - 2, J_LEFT_FIT));
 165     }
 166
 167     l->cursor_y = sel_line;
 168
 169     if (l->scrollbar && (l->count > l->widget.lines))
 170     {
 171         tty_setcolor (normalc);
 172         listbox_drawscroll (l);
 173     }
 174 }
 175
 176 /* --------------------------------------------------------------------------------------------- */
 177
 178 static int
 179 listbox_check_hotkey (WListbox * l, int key)
 180 {
 181     int i;
 182     GList *le;
 183
 184     for (i = 0, le = l->list; le != NULL; i++, le = g_list_next (le))
 185     {
 186         WLEntry *e = (WLEntry *) le->data;
 187
 188         if (e->hotkey == key)
 189             return i;
 190     }
 191
 192     return (-1);
 193 }
 194
 195 /* --------------------------------------------------------------------------------------------- */
 196
 197 /* Selects from base the pos element */
 198 static int
 199 listbox_select_pos (WListbox * l, int base, int pos)
 200 {
 201     int last = l->count - 1;
 202
 203     base += pos;
 204     base = min (base, last);
 205
 206     return base;
 207 }
 208
 209 /* --------------------------------------------------------------------------------------------- */
 210
 211 static void
 212 listbox_fwd (WListbox * l)
 213 {
 214     if (l->pos + 1 >= l->count)
 215         listbox_select_first (l);
 216     else
 217         listbox_select_entry (l, l->pos + 1);
 218 }
 219
 220 /* --------------------------------------------------------------------------------------------- */
 221
 222 static void
 223 listbox_back (WListbox * l)
 224 {
 225     if (l->pos <= 0)
 226         listbox_select_last (l);
 227     else
 228         listbox_select_entry (l, l->pos - 1);
 229 }
 230
 231 /* --------------------------------------------------------------------------------------------- */
 232
 233 static cb_ret_t
 234 listbox_execute_cmd (WListbox * l, unsigned long command)
 235 {
 236     cb_ret_t ret = MSG_HANDLED;
 237     int i;
 238
 239     switch (command)
 240     {
 241     case CK_Up:
 242         listbox_back (l);
 243         break;
 244     case CK_Down:
 245         listbox_fwd (l);
 246         break;
 247     case CK_Top:
 248         listbox_select_first (l);
 249         break;
 250     case CK_Bottom:
 251         listbox_select_last (l);
 252         break;
 253     case CK_PageUp:
 254         for (i = 0; (i < l->widget.lines - 1) && (l->pos > 0); i++)
 255             listbox_back (l);
 256         break;
 257     case CK_PageDown:
 258         for (i = 0; (i < l->widget.lines - 1) && (l->pos < l->count - 1); i++)
 259             listbox_fwd (l);
 260         break;
 261     case CK_Delete:
 262         if (l->deletable)
 263         {
 264             gboolean is_last = (l->pos + 1 >= l->count);
 265             gboolean is_more = (l->top + l->widget.lines >= l->count);
 266
 267             listbox_remove_current (l);
 268             if ((l->top > 0) && (is_last || is_more))
 269                 l->top--;
 270         }
 271         break;
 272     case CK_Clear:
 273         if (l->deletable && mc_global.widget.confirm_history_cleanup
 274             /* TRANSLATORS: no need to translate 'DialogTitle', it's just a context prefix */
 275             && (query_dialog (Q_ ("DialogTitle|History cleanup"),
 276                               _("Do you want clean this history?"),
 277                               D_ERROR, 2, _("&Yes"), _("&No")) == 0))
 278             listbox_remove_list (l);
 279         break;
 280     default:
 281         ret = MSG_NOT_HANDLED;
 282     }
 283
 284     return ret;
 285 }
 286
 287 /* --------------------------------------------------------------------------------------------- */
 288
 289 /* Return MSG_HANDLED if we want a redraw */
 290 static cb_ret_t
 291 listbox_key (WListbox * l, int key)
 292 {
 293     unsigned long command;
 294
 295     if (l->list == NULL)
 296         return MSG_NOT_HANDLED;
 297
 298     /* focus on listbox item N by '0'..'9' keys */
 299     if (key >= '0' && key <= '9')
 300     {
 301         int oldpos = l->pos;
 302         listbox_select_entry (l, key - '0');
 303
 304         /* need scroll to item? */
 305         if (abs (oldpos - l->pos) > l->widget.lines)
 306             l->top = l->pos;
 307
 308         return MSG_HANDLED;
 309     }
 310
 311     command = keybind_lookup_keymap_command (listbox_map, key);
 312     if (command == CK_IgnoreKey)
 313         return MSG_NOT_HANDLED;
 314     return listbox_execute_cmd (l, command);
 315 }
 316
 317 /* --------------------------------------------------------------------------------------------- */
 318
 319 /* Listbox item adding function */
 320 static inline void
 321 listbox_append_item (WListbox * l, WLEntry * e, listbox_append_t pos)
 322 {
 323     switch (pos)
 324     {
 325     case LISTBOX_APPEND_AT_END:
 326         l->list = g_list_append (l->list, e);
 327         break;
 328
 329     case LISTBOX_APPEND_BEFORE:
 330         l->list = g_list_insert_before (l->list, g_list_nth (l->list, l->pos), e);
 331         if (l->pos > 0)
 332             l->pos--;
 333         break;
 334
 335     case LISTBOX_APPEND_AFTER:
 336         l->list = g_list_insert (l->list, e, l->pos + 1);
 337         break;
 338
 339     case LISTBOX_APPEND_SORTED:
 340         l->list = g_list_insert_sorted (l->list, e, (GCompareFunc) listbox_entry_cmp);
 341         break;
 342
 343     default:
 344         return;
 345     }
 346
 347     l->count++;
 348 }
 349
 350 /* --------------------------------------------------------------------------------------------- */
 351
 352 static inline void
 353 listbox_destroy (WListbox * l)
 354 {
 355     listbox_remove_list (l);
 356 }
 357
 358 /* --------------------------------------------------------------------------------------------- */
 359
 360 static cb_ret_t
 361 listbox_callback (Widget * w, widget_msg_t msg, int parm)
 362 {
 363     WListbox *l = (WListbox *) w;
 364     Dlg_head *h = l->widget.owner;
 365     cb_ret_t ret_code;
 366
 367     switch (msg)
 368     {
 369     case WIDGET_INIT:
 370         return MSG_HANDLED;
 371
 372     case WIDGET_HOTKEY:
 373         {
 374             int pos, action;
 375
 376             pos = listbox_check_hotkey (l, parm);
 377             if (pos < 0)
 378                 return MSG_NOT_HANDLED;
 379
 380             listbox_select_entry (l, pos);
 381             h->callback (h, w, DLG_ACTION, l->pos, NULL);
 382
 383             if (l->callback != NULL)
 384                 action = l->callback (l);
 385             else
 386                 action = LISTBOX_DONE;
 387
 388             if (action == LISTBOX_DONE)
 389             {
 390                 h->ret_value = B_ENTER;
 391                 dlg_stop (h);
 392             }
 393
 394             return MSG_HANDLED;
 395         }
 396
 397     case WIDGET_KEY:
 398         ret_code = listbox_key (l, parm);
 399         if (ret_code != MSG_NOT_HANDLED)
 400         {
 401             listbox_draw (l, TRUE);
 402             h->callback (h, w, DLG_ACTION, l->pos, NULL);
 403         }
 404         return ret_code;
 405
 406     case WIDGET_COMMAND:
 407         return listbox_execute_cmd (l, parm);
 408
 409     case WIDGET_CURSOR:
 410         widget_move (&l->widget, l->cursor_y, 0);
 411         h->callback (h, w, DLG_ACTION, l->pos, NULL);
 412         return MSG_HANDLED;
 413
 414     case WIDGET_FOCUS:
 415     case WIDGET_UNFOCUS:
 416     case WIDGET_DRAW:
 417         listbox_draw (l, msg != WIDGET_UNFOCUS);
 418         return MSG_HANDLED;
 419
 420     case WIDGET_DESTROY:
 421         listbox_destroy (l);
 422         return MSG_HANDLED;
 423
 424     case WIDGET_RESIZED:
 425         return MSG_HANDLED;
 426
 427     default:
 428         return default_proc (msg, parm);
 429     }
 430 }
 431
 432 /* --------------------------------------------------------------------------------------------- */
 433
 434 static int
 435 listbox_event (Gpm_Event * event, void *data)
 436 {
 437     WListbox *l = data;
 438     int i;
 439
 440     Dlg_head *h = l->widget.owner;
 441
 442     /* Single click */
 443     if (event->type & GPM_DOWN)
 444         dlg_select_widget (l);
 445
 446     if (l->list == NULL)
 447         return MOU_NORMAL;
 448
 449     if (event->type & (GPM_DOWN | GPM_DRAG))
 450     {
 451         int ret = MOU_REPEAT;
 452
 453         if (event->x < 0 || event->x > l->widget.cols)
 454             return ret;
 455
 456         if (event->y < 1)
 457             for (i = -event->y; i >= 0; i--)
 458                 listbox_back (l);
 459         else if (event->y > l->widget.lines)
 460             for (i = event->y - l->widget.lines; i > 0; i--)
 461                 listbox_fwd (l);
 462         else if (event->buttons & GPM_B_UP)
 463         {
 464             listbox_back (l);
 465             ret = MOU_NORMAL;
 466         }
 467         else if (event->buttons & GPM_B_DOWN)
 468         {
 469             listbox_fwd (l);
 470             ret = MOU_NORMAL;
 471         }
 472         else
 473             listbox_select_entry (l, listbox_select_pos (l, l->top, event->y - 1));
 474
 475         /* We need to refresh ourselves since the dialog manager doesn't */
 476         /* know about this event */
 477         listbox_draw (l, TRUE);
 478         return ret;
 479     }
 480
 481     /* Double click */
 482     if ((event->type & (GPM_DOUBLE | GPM_UP)) == (GPM_UP | GPM_DOUBLE))
 483     {
 484         int action;
 485
 486         if (event->x < 0 || event->x >= l->widget.cols
 487             || event->y < 1 || event->y > l->widget.lines)
 488             return MOU_NORMAL;
 489
 490         dlg_select_widget (l);
 491         listbox_select_entry (l, listbox_select_pos (l, l->top, event->y - 1));
 492
 493         if (l->callback != NULL)
 494             action = l->callback (l);
 495         else
 496             action = LISTBOX_DONE;
 497
 498         if (action == LISTBOX_DONE)
 499         {
 500             h->ret_value = B_ENTER;
 501             dlg_stop (h);
 502             return MOU_NORMAL;
 503         }
 504     }
 505     return MOU_NORMAL;
 506 }
 507
 508 /* --------------------------------------------------------------------------------------------- */
 509 /*** public functions ****************************************************************************/
 510 /* --------------------------------------------------------------------------------------------- */
 511
 512 WListbox *
 513 listbox_new (int y, int x, int height, int width, gboolean deletable, lcback_fn callback)
 514 {
 515     WListbox *l;
 516
 517     if (height <= 0)
 518         height = 1;
 519
 520     l = g_new (WListbox, 1);
 521     init_widget (&l->widget, y, x, height, width, listbox_callback, listbox_event);
 522
 523     l->list = NULL;
 524     l->top = l->pos = 0;
 525     l->count = 0;
 526     l->deletable = deletable;
 527     l->callback = callback;
 528     l->allow_duplicates = TRUE;
 529     l->scrollbar = !mc_global.tty.slow_terminal;
 530     widget_want_hotkey (l->widget, TRUE);
 531     widget_want_cursor (l->widget, FALSE);
 532
 533     return l;
 534 }
 535
 536 /* --------------------------------------------------------------------------------------------- */
 537
 538 int
 539 listbox_search_text (WListbox * l, const char *text)
 540 {
 541     if (l != NULL)
 542     {
 543         int i;
 544         GList *le;
 545
 546         for (i = 0, le = l->list; le != NULL; i++, le = g_list_next (le))
 547         {
 548             WLEntry *e = (WLEntry *) le->data;
 549
 550             if (strcmp (e->text, text) == 0)
 551                 return i;
 552         }
 553     }
 554
 555     return (-1);
 556 }
 557
 558 /* --------------------------------------------------------------------------------------------- */
 559
 560 /* Selects the first entry and scrolls the list to the top */
 561 void
 562 listbox_select_first (WListbox * l)
 563 {
 564     l->pos = l->top = 0;
 565 }
 566
 567 /* --------------------------------------------------------------------------------------------- */
 568
 569 /* Selects the last entry and scrolls the list to the bottom */
 570 void
 571 listbox_select_last (WListbox * l)
 572 {
 573     l->pos = l->count - 1;
 574     l->top = l->count > l->widget.lines ? l->count - l->widget.lines : 0;
 575 }
 576
 577 /* --------------------------------------------------------------------------------------------- */
 578
 579 void
 580 listbox_select_entry (WListbox * l, int dest)
 581 {
 582     GList *le;
 583     int pos;
 584     gboolean top_seen = FALSE;
 585
 586     if (dest < 0)
 587         return;
 588
 589     /* Special case */
 590     for (pos = 0, le = l->list; le != NULL; pos++, le = g_list_next (le))
 591     {
 592         if (pos == l->top)
 593             top_seen = TRUE;
 594
 595         if (pos == dest)
 596         {
 597             l->pos = dest;
 598             if (!top_seen)
 599                 l->top = l->pos;
 600             else if (l->pos - l->top >= l->widget.lines)
 601                 l->top = l->pos - l->widget.lines + 1;
 602             return;
 603         }
 604     }
 605
 606     /* If we are unable to find it, set decent values */
 607     l->pos = l->top = 0;
 608 }
 609
 610 /* --------------------------------------------------------------------------------------------- */
 611
 612 /* Returns the current string text as well as the associated extra data */
 613 void
 614 listbox_get_current (WListbox * l, char **string, void **extra)
 615 {
 616     WLEntry *e = NULL;
 617     gboolean ok;
 618
 619     if (l != NULL)
 620         e = (WLEntry *) g_list_nth_data (l->list, l->pos);
 621
 622     ok = (e != NULL);
 623
 624     if (string != NULL)
 625         *string = ok ? e->text : NULL;
 626
 627     if (extra != NULL)
 628         *extra = ok ? e->data : NULL;
 629 }
 630
 631 /* --------------------------------------------------------------------------------------------- */
 632
 633 void
 634 listbox_remove_current (WListbox * l)
 635 {
 636     if ((l != NULL) && (l->count != 0))
 637     {
 638         GList *current;
 639
 640         current = g_list_nth (l->list, l->pos);
 641         l->list = g_list_remove_link (l->list, current);
 642         listbox_entry_free ((WLEntry *) current->data);
 643         g_list_free_1 (current);
 644         l->count--;
 645
 646         if (l->count == 0)
 647             l->top = l->pos = 0;
 648         else if (l->pos >= l->count)
 649             l->pos = l->count - 1;
 650     }
 651 }
 652
 653 /* --------------------------------------------------------------------------------------------- */
 654
 655 void
 656 listbox_set_list (WListbox * l, GList * list)
 657 {
 658     listbox_remove_list (l);
 659
 660     if (l != NULL)
 661     {
 662         l->list = list;
 663         l->top = l->pos = 0;
 664         l->count = g_list_length (list);
 665     }
 666 }
 667
 668 /* --------------------------------------------------------------------------------------------- */
 669
 670 void
 671 listbox_remove_list (WListbox * l)
 672 {
 673     if ((l != NULL) && (l->count != 0))
 674     {
 675         g_list_foreach (l->list, (GFunc) listbox_entry_free, NULL);
 676         g_list_free (l->list);
 677         l->list = NULL;
 678         l->count = l->pos = l->top = 0;
 679     }
 680 }
 681
 682 /* --------------------------------------------------------------------------------------------- */
 683
 684 char *
 685 listbox_add_item (WListbox * l, listbox_append_t pos, int hotkey, const char *text, void *data)
 686 {
 687     WLEntry *entry;
 688
 689     if (l == NULL)
 690         return NULL;
 691
 692     if (!l->allow_duplicates && (listbox_search_text (l, text) >= 0))
 693         return NULL;
 694
 695     entry = g_new (WLEntry, 1);
 696     entry->text = g_strdup (text);
 697     entry->data = data;
 698     entry->hotkey = hotkey;
 699
 700     listbox_append_item (l, entry, pos);
 701
 702     return entry->text;
 703 }
 704
 705 /* --------------------------------------------------------------------------------------------- */