src/libgame/gadgets.c

   1 // ============================================================================
   2 // Artsoft Retro-Game Library
   3 // ----------------------------------------------------------------------------
   4 // (c) 1995-2014 by Artsoft Entertainment
   5 //                  Holger Schemel
   6 //                  info@artsoft.org
   7 //                  https://www.artsoft.org/
   8 // ----------------------------------------------------------------------------
   9 // gadgets.c
  10 // ============================================================================
  11
  12 #include <stdarg.h>
  13 #include <string.h>
  14
  15 #include "gadgets.h"
  16 #include "image.h"
  17 #include "text.h"
  18 #include "misc.h"
  19
  20
  21 // values for DrawGadget()
  22 #define DG_UNPRESSED            0
  23 #define DG_PRESSED              1
  24
  25 #define DG_BUFFERED             0
  26 #define DG_DIRECT               1
  27
  28 #define OPTION_TEXT_SELECTABLE(g, t)                                    \
  29   (t[0] != g->selectbox.char_unselectable &&                            \
  30    t[0] != '\0' &&                                                      \
  31    !strEqual(t, " "))
  32 #define CURRENT_OPTION_SELECTABLE(g)                                    \
  33   OPTION_TEXT_SELECTABLE(g, g->selectbox.options[g->selectbox.current_index].text)
  34
  35
  36 static struct GadgetInfo *gadget_list_first_entry = NULL;
  37 static struct GadgetInfo *gadget_list_last_entry = NULL;
  38 static struct GadgetInfo *last_info_gi = NULL;
  39 static int next_free_gadget_id = 1;
  40 static boolean gadget_id_wrapped = FALSE;
  41 static int gadget_screen_border_right = -1;
  42 static int gadget_screen_border_bottom = -1;
  43
  44 static void (*PlayGadgetSoundActivating)(void) = NULL;
  45 static void (*PlayGadgetSoundSelecting)(void) = NULL;
  46
  47
  48 void InitGadgetsSoundCallback(void (*activating_function)(void),
  49                               void (*selecting_function)(void))
  50 {
  51   PlayGadgetSoundActivating = activating_function;
  52   PlayGadgetSoundSelecting = selecting_function;
  53 }
  54
  55 void InitGadgetScreenBorders(int border_right, int border_bottom)
  56 {
  57   gadget_screen_border_right  = border_right;
  58   gadget_screen_border_bottom = border_bottom;
  59 }
  60
  61 static int getGadgetScreenBorderRight(void)
  62 {
  63   if (gadget_screen_border_right < gfx.sx ||
  64       gadget_screen_border_right > gfx.sx + gfx.sxsize)
  65     return gfx.sx + gfx.sxsize;
  66
  67   return gadget_screen_border_right;
  68 }
  69
  70 static int getGadgetScreenBorderBottom(void)
  71 {
  72   if (gadget_screen_border_bottom < gfx.sy ||
  73       gadget_screen_border_bottom > gfx.sy + gfx.sysize)
  74     return gfx.sy + gfx.sysize;
  75
  76   return gadget_screen_border_bottom;
  77 }
  78
  79 static struct GadgetInfo *getGadgetInfoFromGadgetID(int id)
  80 {
  81   struct GadgetInfo *gi = gadget_list_first_entry;
  82
  83   while (gi && gi->id != id)
  84     gi = gi->next;
  85
  86   return gi;
  87 }
  88
  89 static int getNewGadgetID(void)
  90 {
  91   int id = next_free_gadget_id++;
  92
  93   if (next_free_gadget_id <= 0)         // counter overrun
  94   {
  95     gadget_id_wrapped = TRUE;           // now we must check each ID
  96     next_free_gadget_id = 0;
  97   }
  98
  99   if (gadget_id_wrapped)
 100   {
 101     next_free_gadget_id++;
 102     while (getGadgetInfoFromGadgetID(next_free_gadget_id) != NULL)
 103       next_free_gadget_id++;
 104   }
 105
 106   if (next_free_gadget_id <= 0)         // cannot get new gadget id
 107     Fail("too much gadgets -- this should not happen");
 108
 109   return id;
 110 }
 111
 112 static struct GadgetInfo *getGadgetInfoFromMousePosition(int mx, int my,
 113                                                          int button)
 114 {
 115   struct GadgetInfo *gi;
 116
 117   // first check for scrollbars in case of mouse scroll wheel button events
 118   if (IS_WHEEL_BUTTON(button))
 119   {
 120     // real horizontal wheel or vertical wheel with modifier key pressed
 121     boolean check_horizontal = (IS_WHEEL_BUTTON_HORIZONTAL(button) ||
 122                                 GetKeyModState() & KMOD_Shift);
 123
 124     // check for the first active scrollbar directly under the mouse pointer
 125     for (gi = gadget_list_first_entry; gi != NULL; gi = gi->next)
 126     {
 127       if (gi->mapped && gi->active &&
 128           (gi->type & GD_TYPE_SCROLLBAR) &&
 129           mx >= gi->x && mx < gi->x + gi->width &&
 130           my >= gi->y && my < gi->y + gi->height)
 131         return gi;
 132     }
 133
 134     // check for the first active scrollbar with matching mouse wheel area
 135     for (gi = gadget_list_first_entry; gi != NULL; gi = gi->next)
 136     {
 137       if (gi->mapped && gi->active &&
 138           ((gi->type & GD_TYPE_SCROLLBAR_HORIZONTAL && check_horizontal) ||
 139            (gi->type & GD_TYPE_SCROLLBAR_VERTICAL && !check_horizontal)) &&
 140           mx >= gi->wheelarea.x && mx < gi->wheelarea.x + gi->wheelarea.width &&
 141           my >= gi->wheelarea.y && my < gi->wheelarea.y + gi->wheelarea.height)
 142         return gi;
 143     }
 144
 145     // no active scrollbar found -- ignore this scroll wheel button event
 146     return NULL;
 147   }
 148
 149   // open selectboxes may overlap other active gadgets, so check them first
 150   for (gi = gadget_list_first_entry; gi != NULL; gi = gi->next)
 151   {
 152     if (gi->mapped && gi->active &&
 153         gi->type & GD_TYPE_SELECTBOX && gi->selectbox.open &&
 154         mx >= gi->selectbox.x && mx < gi->selectbox.x + gi->selectbox.width &&
 155         my >= gi->selectbox.y && my < gi->selectbox.y + gi->selectbox.height)
 156       return gi;
 157   }
 158
 159   // full text areas may overlap other active gadgets, so check them first
 160   for (gi = gadget_list_first_entry; gi != NULL; gi = gi->next)
 161   {
 162     if (gi->mapped && gi->active &&
 163         gi->type & GD_TYPE_TEXT_AREA && gi->textarea.full_open &&
 164         mx >= gi->textarea.full_x && mx < gi->textarea.full_x + gi->width &&
 165         my >= gi->textarea.full_y && my < gi->textarea.full_y + gi->height)
 166       return gi;
 167   }
 168
 169   // check all other gadgets
 170   for (gi = gadget_list_first_entry; gi != NULL; gi = gi->next)
 171   {
 172     if (gi->mapped && gi->active &&
 173         mx >= gi->x && mx < gi->x + gi->width &&
 174         my >= gi->y && my < gi->y + gi->height)
 175       return gi;
 176   }
 177
 178   return NULL;
 179 }
 180
 181 static void setTextAreaCursorExt(struct GadgetInfo *gi, boolean set_cursor_pos)
 182 {
 183   char *text = gi->textarea.value;
 184   int area_xsize = gi->textarea.xsize;
 185   int area_ysize = gi->textarea.ysize;
 186   int cursor_position = gi->textarea.cursor_position;
 187   int cursor_x = gi->textarea.cursor_x;
 188   int cursor_y = gi->textarea.cursor_y;
 189   int pos = 0;
 190   int x = 0;
 191   int y = 0;
 192
 193   while (*text)
 194   {
 195     if (set_cursor_pos)         // x/y => position
 196     {
 197       if (y == cursor_y && (x == cursor_x || (x < cursor_x && *text == '\n')))
 198         break;
 199     }
 200     else                        // position => x/y
 201     {
 202       if (pos == cursor_position)
 203         break;
 204     }
 205
 206     if (x + 1 >= area_xsize || *text == '\n')
 207     {
 208       if (y + 1 >= area_ysize)
 209         break;
 210
 211       x = 0;
 212       y++;
 213     }
 214     else
 215       x++;
 216
 217     text++;
 218     pos++;
 219   }
 220
 221   gi->textarea.cursor_x = x;
 222   gi->textarea.cursor_y = y;
 223   gi->textarea.cursor_x_preferred = x;
 224   gi->textarea.cursor_position = pos;
 225 }
 226
 227 static void setTextAreaCursorXY(struct GadgetInfo *gi, int x, int y)
 228 {
 229   gi->textarea.cursor_x = x;
 230   gi->textarea.cursor_y = y;
 231
 232   setTextAreaCursorExt(gi, TRUE);
 233 }
 234
 235 static void setTextAreaCursorPosition(struct GadgetInfo *gi, int pos)
 236 {
 237   gi->textarea.cursor_position = pos;
 238
 239   setTextAreaCursorExt(gi, FALSE);
 240 }
 241
 242 static void default_callback_info(void *ptr)
 243 {
 244   return;
 245 }
 246
 247 static void default_callback_action(void *ptr)
 248 {
 249   return;
 250 }
 251
 252 static void DoGadgetCallbackAction(struct GadgetInfo *gi, boolean changed)
 253 {
 254   if (changed || gi->callback_action_always)
 255     gi->callback_action(gi);
 256 }
 257
 258 static void DrawGadget(struct GadgetInfo *gi, boolean pressed, boolean direct)
 259 {
 260   struct GadgetDesign *gd;
 261   int state = (pressed ? GD_BUTTON_PRESSED : GD_BUTTON_UNPRESSED);
 262   boolean redraw_selectbox = FALSE;
 263
 264   if (gi == NULL || gi->deactivated)
 265     return;
 266
 267   if (gi->overlay_touch_button)         // will be drawn later (as texture)
 268     return;
 269
 270   gd = (!gi->active ? &gi->alt_design[state] :
 271         gi->checked ? &gi->alt_design[state] : &gi->design[state]);
 272
 273   switch (gi->type)
 274   {
 275     case GD_TYPE_NORMAL_BUTTON:
 276     case GD_TYPE_CHECK_BUTTON:
 277     case GD_TYPE_CHECK_BUTTON_2:
 278     case GD_TYPE_RADIO_BUTTON:
 279
 280       BlitBitmapOnBackground(gd->bitmap, drawto,
 281                              gd->x, gd->y, gi->width, gi->height,
 282                              gi->x, gi->y);
 283
 284       if (gi->deco.design.bitmap)
 285       {
 286         // make sure that decoration does not overlap gadget border
 287         int deco_x = gi->deco.x + (pressed ? gi->deco.xshift : 0);
 288         int deco_y = gi->deco.y + (pressed ? gi->deco.yshift : 0);
 289         int deco_width  = MIN(gi->deco.width,  gi->width  - deco_x);
 290         int deco_height = MIN(gi->deco.height, gi->height - deco_y);
 291
 292         if (gi->deco.masked)
 293           BlitBitmapMasked(gi->deco.design.bitmap, drawto,
 294                            gi->deco.design.x, gi->deco.design.y,
 295                            deco_width, deco_height,
 296                            gi->x + deco_x, gi->y + deco_y);
 297         else
 298           BlitBitmap(gi->deco.design.bitmap, drawto,
 299                      gi->deco.design.x, gi->deco.design.y,
 300                      deco_width, deco_height,
 301                      gi->x + deco_x, gi->y + deco_y);
 302       }
 303
 304       break;
 305
 306     case GD_TYPE_TEXT_BUTTON:
 307       {
 308         int i;
 309         int font_nr = (gi->active ? gi->font_active : gi->font);
 310         int font_width = getFontWidth(font_nr);
 311         int border_x = gi->border.xsize;
 312         int border_y = gi->border.ysize;
 313         int text_size = strlen(gi->textbutton.value);
 314         int text_start = (gi->width - text_size * font_width) / 2;
 315
 316         // left part of gadget
 317         BlitBitmapOnBackground(gd->bitmap, drawto, gd->x, gd->y,
 318                                border_x, gi->height, gi->x, gi->y);
 319
 320         // middle part of gadget
 321         for (i=0; i < gi->textbutton.size; i++)
 322           BlitBitmapOnBackground(gd->bitmap, drawto, gd->x + border_x, gd->y,
 323                                  font_width, gi->height,
 324                                  gi->x + border_x + i * font_width, gi->y);
 325
 326         // right part of gadget
 327         BlitBitmapOnBackground(gd->bitmap, drawto,
 328                                gd->x + gi->border.width - border_x, gd->y,
 329                                border_x, gi->height,
 330                                gi->x + gi->width - border_x, gi->y);
 331
 332         // gadget text value
 333         DrawTextExt(drawto,
 334                     gi->x + text_start + (pressed ? gi->deco.xshift : 0),
 335                     gi->y + border_y   + (pressed ? gi->deco.yshift : 0),
 336                     gi->textbutton.value, font_nr, BLIT_MASKED);
 337       }
 338       break;
 339
 340     case GD_TYPE_TEXT_INPUT_ALPHANUMERIC:
 341     case GD_TYPE_TEXT_INPUT_NUMERIC:
 342       {
 343         int i;
 344         char cursor_letter;
 345         char cursor_string[2];
 346         char text[MAX_GADGET_TEXTSIZE + 1];
 347         int font_nr = (pressed ? gi->font_active : gi->font);
 348         int font_width = getFontWidth(font_nr);
 349         int border_x = gi->border.xsize;
 350         int border_y = gi->border.ysize;
 351
 352         // left part of gadget
 353         BlitBitmapOnBackground(gd->bitmap, drawto, gd->x, gd->y,
 354                                border_x, gi->height, gi->x, gi->y);
 355
 356         // middle part of gadget
 357         for (i=0; i < gi->textinput.size + 1; i++)
 358           BlitBitmapOnBackground(gd->bitmap, drawto, gd->x + border_x, gd->y,
 359                                  font_width, gi->height,
 360                                  gi->x + border_x + i * font_width, gi->y);
 361
 362         // right part of gadget
 363         BlitBitmapOnBackground(gd->bitmap, drawto,
 364                                gd->x + gi->border.width - border_x, gd->y,
 365                                border_x, gi->height,
 366                                gi->x + gi->width - border_x, gi->y);
 367
 368         // set text value
 369         strcpy(text, gi->textinput.value);
 370         strcat(text, " ");
 371
 372         // gadget text value
 373         DrawTextExt(drawto,
 374                     gi->x + border_x, gi->y + border_y, text,
 375                     font_nr, BLIT_MASKED);
 376
 377         cursor_letter = gi->textinput.value[gi->textinput.cursor_position];
 378         cursor_string[0] = (cursor_letter != '\0' ? cursor_letter : ' ');
 379         cursor_string[1] = '\0';
 380
 381         // draw cursor, if active
 382         if (pressed)
 383           DrawTextExt(drawto,
 384                       gi->x + border_x +
 385                       gi->textinput.cursor_position * font_width,
 386                       gi->y + border_y, cursor_string,
 387                       font_nr, BLIT_INVERSE);
 388       }
 389       break;
 390
 391     case GD_TYPE_TEXT_AREA:
 392       {
 393         int i;
 394         char cursor_letter;
 395         char cursor_string[2];
 396         int font_nr = (pressed ? gi->font_active : gi->font);
 397         int font_width = getFontWidth(font_nr);
 398         int font_height = getFontHeight(font_nr);
 399         int border_x = gi->border.xsize;
 400         int border_y = gi->border.ysize;
 401         int gd_height = 2 * border_y + font_height;
 402         int x = gi->x;
 403         int y = gi->y;
 404         int width  = gi->width;
 405         int height = gi->height;
 406         int xsize = gi->textarea.xsize;
 407         int ysize = gi->textarea.ysize;
 408
 409         if (gi->textarea.cropped)
 410         {
 411           if (pressed)
 412           {
 413             x = gi->textarea.full_x;
 414             y = gi->textarea.full_y;
 415
 416             if (!gi->textarea.full_open)
 417             {
 418               gi->textarea.full_open = TRUE;
 419
 420               // save background under fully opened text area
 421               BlitBitmap(drawto, gfx.field_save_buffer,
 422                          gi->textarea.full_x, gi->textarea.full_y,
 423                          gi->width, gi->height,
 424                          gi->textarea.full_x, gi->textarea.full_y);
 425             }
 426           }
 427           else
 428           {
 429             width  = gi->textarea.crop_width;
 430             height = gi->textarea.crop_height;
 431             xsize = gi->textarea.crop_xsize;
 432             ysize = gi->textarea.crop_ysize;
 433
 434             if (gi->textarea.full_open)
 435             {
 436               gi->textarea.full_open = FALSE;
 437
 438               // restore background under fully opened text area
 439               BlitBitmap(gfx.field_save_buffer, drawto,
 440                          gi->textarea.full_x, gi->textarea.full_y,
 441                          gi->width, gi->height,
 442                          gi->textarea.full_x, gi->textarea.full_y);
 443             }
 444           }
 445         }
 446
 447         // top left part of gadget border
 448         BlitBitmapOnBackground(gd->bitmap, drawto, gd->x, gd->y,
 449                                border_x, border_y, x, y);
 450
 451         // top middle part of gadget border
 452         for (i=0; i < xsize; i++)
 453           BlitBitmapOnBackground(gd->bitmap, drawto, gd->x + border_x, gd->y,
 454                                  font_width, border_y,
 455                                  x + border_x + i * font_width, y);
 456
 457         // top right part of gadget border
 458         BlitBitmapOnBackground(gd->bitmap, drawto,
 459                                gd->x + gi->border.width - border_x, gd->y,
 460                                border_x, border_y,
 461                                x + width - border_x, y);
 462
 463         // left and right part of gadget border for each row
 464         for (i=0; i < ysize; i++)
 465         {
 466           BlitBitmapOnBackground(gd->bitmap, drawto, gd->x, gd->y + border_y,
 467                                  border_x, font_height,
 468                                  x, y + border_y + i * font_height);
 469           BlitBitmapOnBackground(gd->bitmap, drawto,
 470                                  gd->x + gi->border.width - border_x,
 471                                  gd->y + border_y,
 472                                  border_x, font_height,
 473                                  x + width - border_x,
 474                                  y + border_y + i * font_height);
 475         }
 476
 477         // bottom left part of gadget border
 478         BlitBitmapOnBackground(gd->bitmap, drawto,
 479                                gd->x, gd->y + gd_height - border_y,
 480                                border_x, border_y,
 481                                x, y + height - border_y);
 482
 483         // bottom middle part of gadget border
 484         for (i=0; i < xsize; i++)
 485           BlitBitmapOnBackground(gd->bitmap, drawto,
 486                                  gd->x + border_x,
 487                                  gd->y + gd_height - border_y,
 488                                  font_width, border_y,
 489                                  x + border_x + i * font_width,
 490                                  y + height - border_y);
 491
 492         // bottom right part of gadget border
 493         BlitBitmapOnBackground(gd->bitmap, drawto,
 494                                gd->x + gi->border.width - border_x,
 495                                gd->y + gd_height - border_y,
 496                                border_x, border_y,
 497                                x + width - border_x,
 498                                y + height - border_y);
 499
 500         ClearRectangleOnBackground(drawto,
 501                                    x + border_x,
 502                                    y + border_y,
 503                                    width - 2 * border_x,
 504                                    height - 2 * border_y);
 505
 506         // gadget text value
 507         DrawTextArea(x + border_x, y + border_y, gi->textarea.value,
 508                      font_nr, xsize, -1, ysize, 0,
 509                      BLIT_ON_BACKGROUND, FALSE, FALSE, FALSE);
 510
 511         cursor_letter = gi->textarea.value[gi->textarea.cursor_position];
 512         cursor_string[0] = (cursor_letter != '\0' ? cursor_letter : ' ');
 513         cursor_string[1] = '\0';
 514
 515         // draw cursor, if active
 516         if (pressed)
 517           DrawTextExt(drawto,
 518                       x + border_x + gi->textarea.cursor_x * font_width,
 519                       y + border_y + gi->textarea.cursor_y * font_height,
 520                       cursor_string,
 521                       font_nr, BLIT_INVERSE);
 522       }
 523       break;
 524
 525     case GD_TYPE_SELECTBOX:
 526       {
 527         int i;
 528         char text[MAX_GADGET_TEXTSIZE + 1];
 529         int font_nr_default = (pressed ? gi->font_active : gi->font);
 530         int font_nr = font_nr_default;
 531         int font_width = getFontWidth(font_nr);
 532         int font_height = getFontHeight(font_nr);
 533         int border_x = gi->border.xsize;
 534         int border_y = gi->border.ysize;
 535         int button = gi->border.xsize_selectbutton;
 536         int width_inner = gi->border.width - button - 2 * border_x;
 537         int box_width = gi->selectbox.width;
 538         int box_height = gi->selectbox.height;
 539
 540         // left part of gadget
 541         BlitBitmapOnBackground(gd->bitmap, drawto, gd->x, gd->y,
 542                                border_x, gi->height, gi->x, gi->y);
 543
 544         // middle part of gadget
 545         for (i=0; i < gi->selectbox.size; i++)
 546           BlitBitmapOnBackground(gd->bitmap, drawto, gd->x + border_x, gd->y,
 547                                  font_width, gi->height,
 548                                  gi->x + border_x + i * font_width, gi->y);
 549
 550         // button part of gadget
 551         BlitBitmapOnBackground(gd->bitmap, drawto,
 552                                gd->x + border_x + width_inner, gd->y,
 553                                button, gi->height,
 554                                gi->x + gi->width - border_x - button, gi->y);
 555
 556         // right part of gadget
 557         BlitBitmapOnBackground(gd->bitmap, drawto,
 558                                gd->x + gi->border.width - border_x, gd->y,
 559                                border_x, gi->height,
 560                                gi->x + gi->width - border_x, gi->y);
 561
 562         // set text value
 563         strncpy(text, gi->selectbox.options[gi->selectbox.index].text,
 564                 gi->selectbox.size);
 565         text[gi->selectbox.size] = '\0';
 566
 567         // set font value
 568         font_nr = (OPTION_TEXT_SELECTABLE(gi, text) ? font_nr_default :
 569                    gi->font_unselectable);
 570
 571         // gadget text value
 572         DrawTextExt(drawto, gi->x + border_x, gi->y + border_y, text,
 573                     font_nr, BLIT_MASKED);
 574
 575         if (pressed)
 576         {
 577           if (!gi->selectbox.open)
 578           {
 579             gi->selectbox.open = TRUE;
 580             gi->selectbox.stay_open = FALSE;
 581             gi->selectbox.current_index = gi->selectbox.index;
 582
 583             // save background under selectbox
 584             BlitBitmap(drawto, gfx.field_save_buffer,
 585                        gi->selectbox.x,     gi->selectbox.y,
 586                        gi->selectbox.width, gi->selectbox.height,
 587                        gi->selectbox.x,     gi->selectbox.y);
 588           }
 589
 590           // draw open selectbox
 591
 592           // top left part of gadget border
 593           BlitBitmapOnBackground(gd->bitmap, drawto, gd->x, gd->y,
 594                                  border_x, border_y,
 595                                  gi->selectbox.x, gi->selectbox.y);
 596
 597           // top middle part of gadget border
 598           for (i=0; i < gi->selectbox.size; i++)
 599             BlitBitmapOnBackground(gd->bitmap, drawto, gd->x + border_x, gd->y,
 600                                    font_width, border_y,
 601                                    gi->selectbox.x + border_x + i * font_width,
 602                                    gi->selectbox.y);
 603
 604           // top button part of gadget border
 605           BlitBitmapOnBackground(gd->bitmap, drawto,
 606                                  gd->x + border_x + width_inner, gd->y,
 607                                  button, border_y,
 608                                  gi->selectbox.x + box_width -border_x -button,
 609                                  gi->selectbox.y);
 610
 611           // top right part of gadget border
 612           BlitBitmapOnBackground(gd->bitmap, drawto,
 613                                  gd->x + gi->border.width - border_x, gd->y,
 614                                  border_x, border_y,
 615                                  gi->selectbox.x + box_width - border_x,
 616                                  gi->selectbox.y);
 617
 618           // left and right part of gadget border for each row
 619           for (i=0; i < gi->selectbox.num_values; i++)
 620           {
 621             BlitBitmapOnBackground(gd->bitmap, drawto, gd->x, gd->y + border_y,
 622                                    border_x, font_height,
 623                                    gi->selectbox.x,
 624                                    gi->selectbox.y + border_y + i*font_height);
 625             BlitBitmapOnBackground(gd->bitmap, drawto,
 626                                    gd->x + gi->border.width - border_x,
 627                                    gd->y + border_y,
 628                                    border_x, font_height,
 629                                    gi->selectbox.x + box_width - border_x,
 630                                    gi->selectbox.y + border_y + i*font_height);
 631           }
 632
 633           // bottom left part of gadget border
 634           BlitBitmapOnBackground(gd->bitmap, drawto,
 635                                  gd->x, gd->y + gi->height - border_y,
 636                                  border_x, border_y,
 637                                  gi->selectbox.x,
 638                                  gi->selectbox.y + box_height - border_y);
 639
 640           // bottom middle part of gadget border
 641           for (i=0; i < gi->selectbox.size; i++)
 642             BlitBitmapOnBackground(gd->bitmap, drawto,
 643                                    gd->x + border_x,
 644                                    gd->y + gi->height - border_y,
 645                                    font_width, border_y,
 646                                    gi->selectbox.x + border_x + i * font_width,
 647                                    gi->selectbox.y + box_height - border_y);
 648
 649           // bottom button part of gadget border
 650           BlitBitmapOnBackground(gd->bitmap, drawto,
 651                                  gd->x + border_x + width_inner,
 652                                  gd->y + gi->height - border_y,
 653                                  button, border_y,
 654                                  gi->selectbox.x + box_width -border_x -button,
 655                                  gi->selectbox.y + box_height - border_y);
 656
 657           // bottom right part of gadget border
 658           BlitBitmapOnBackground(gd->bitmap, drawto,
 659                                  gd->x + gi->border.width - border_x,
 660                                  gd->y + gi->height - border_y,
 661                                  border_x, border_y,
 662                                  gi->selectbox.x + box_width - border_x,
 663                                  gi->selectbox.y + box_height - border_y);
 664
 665           ClearRectangleOnBackground(drawto,
 666                                      gi->selectbox.x + border_x,
 667                                      gi->selectbox.y + border_y,
 668                                      gi->selectbox.width - 2 * border_x,
 669                                      gi->selectbox.height - 2 * border_y);
 670
 671           // selectbox text values
 672           for (i=0; i < gi->selectbox.num_values; i++)
 673           {
 674             int mask_mode = BLIT_MASKED;
 675
 676             strncpy(text, gi->selectbox.options[i].text, gi->selectbox.size);
 677             text[gi->selectbox.size] = '\0';
 678
 679             font_nr = (OPTION_TEXT_SELECTABLE(gi, text) ? font_nr_default :
 680                        gi->font_unselectable);
 681
 682             if (i == gi->selectbox.current_index &&
 683                 OPTION_TEXT_SELECTABLE(gi, text))
 684             {
 685               FillRectangle(drawto,
 686                             gi->selectbox.x + border_x,
 687                             gi->selectbox.y + border_y + i * font_height,
 688                             gi->selectbox.width - 2 * border_x, font_height,
 689                             gi->selectbox.inverse_color);
 690
 691               // prevent use of cursor graphic by drawing at least two chars
 692               strcat(text, "  ");
 693               text[gi->selectbox.size] = '\0';
 694
 695               mask_mode = BLIT_INVERSE;
 696             }
 697
 698             DrawTextExt(drawto,
 699                         gi->selectbox.x + border_x,
 700                         gi->selectbox.y + border_y + i * font_height, text,
 701                         font_nr, mask_mode);
 702           }
 703
 704           redraw_selectbox = TRUE;
 705         }
 706         else if (gi->selectbox.open)
 707         {
 708           gi->selectbox.open = FALSE;
 709
 710           // restore background under selectbox
 711           BlitBitmap(gfx.field_save_buffer, drawto,
 712                      gi->selectbox.x,     gi->selectbox.y,
 713                      gi->selectbox.width, gi->selectbox.height,
 714                      gi->selectbox.x,     gi->selectbox.y);
 715
 716           // redraw closed selectbox
 717           DrawGadget(gi, FALSE, FALSE);
 718
 719           redraw_selectbox = TRUE;
 720         }
 721       }
 722       break;
 723
 724     case GD_TYPE_SCROLLBAR_VERTICAL:
 725       {
 726         int i;
 727         int xpos = gi->x;
 728         int ypos = gi->y + gi->scrollbar.position;
 729         int design_full = gi->width;
 730         int design_body = design_full - 2 * gi->border.ysize;
 731         int size_full = gi->scrollbar.size;
 732         int size_body = size_full - 2 * gi->border.ysize;
 733         int num_steps = size_body / design_body;
 734         int step_size_remain = size_body - num_steps * design_body;
 735
 736         // clear scrollbar area
 737         ClearRectangleOnBackground(backbuffer, gi->x, gi->y,
 738                                    gi->width, gi->height);
 739
 740         // upper part of gadget
 741         BlitBitmapOnBackground(gd->bitmap, drawto,
 742                                gd->x, gd->y,
 743                                gi->width, gi->border.ysize,
 744                                xpos, ypos);
 745
 746         // middle part of gadget
 747         for (i=0; i < num_steps; i++)
 748           BlitBitmapOnBackground(gd->bitmap, drawto,
 749                                  gd->x, gd->y + gi->border.ysize,
 750                                  gi->width, design_body,
 751                                  xpos,
 752                                  ypos + gi->border.ysize + i * design_body);
 753
 754         // remaining middle part of gadget
 755         if (step_size_remain > 0)
 756           BlitBitmapOnBackground(gd->bitmap, drawto,
 757                                  gd->x,  gd->y + gi->border.ysize,
 758                                  gi->width, step_size_remain,
 759                                  xpos,
 760                                  ypos + gi->border.ysize
 761                                  + num_steps * design_body);
 762
 763         // lower part of gadget
 764         BlitBitmapOnBackground(gd->bitmap, drawto,
 765                                gd->x, gd->y + design_full - gi->border.ysize,
 766                                gi->width, gi->border.ysize,
 767                                xpos, ypos + size_full - gi->border.ysize);
 768       }
 769       break;
 770
 771     case GD_TYPE_SCROLLBAR_HORIZONTAL:
 772       {
 773         int i;
 774         int xpos = gi->x + gi->scrollbar.position;
 775         int ypos = gi->y;
 776         int design_full = gi->height;
 777         int design_body = design_full - 2 * gi->border.xsize;
 778         int size_full = gi->scrollbar.size;
 779         int size_body = size_full - 2 * gi->border.xsize;
 780         int num_steps = size_body / design_body;
 781         int step_size_remain = size_body - num_steps * design_body;
 782
 783         // clear scrollbar area
 784         ClearRectangleOnBackground(backbuffer, gi->x, gi->y,
 785                                    gi->width, gi->height);
 786
 787         // left part of gadget
 788         BlitBitmapOnBackground(gd->bitmap, drawto,
 789                                gd->x, gd->y,
 790                                gi->border.xsize, gi->height,
 791                                xpos, ypos);
 792
 793         // middle part of gadget
 794         for (i=0; i < num_steps; i++)
 795           BlitBitmapOnBackground(gd->bitmap, drawto,
 796                                  gd->x + gi->border.xsize, gd->y,
 797                                  design_body, gi->height,
 798                                  xpos + gi->border.xsize + i * design_body,
 799                                  ypos);
 800
 801         // remaining middle part of gadget
 802         if (step_size_remain > 0)
 803           BlitBitmapOnBackground(gd->bitmap, drawto,
 804                                  gd->x + gi->border.xsize, gd->y,
 805                                  step_size_remain, gi->height,
 806                                  xpos + gi->border.xsize
 807                                  + num_steps * design_body,
 808                                  ypos);
 809
 810         // right part of gadget
 811         BlitBitmapOnBackground(gd->bitmap, drawto,
 812                                gd->x + design_full - gi->border.xsize, gd->y,
 813                                gi->border.xsize, gi->height,
 814                                xpos + size_full - gi->border.xsize, ypos);
 815       }
 816       break;
 817
 818     default:
 819       return;
 820   }
 821
 822   // do not use direct gadget drawing anymore; this worked as a speed-up once,
 823   // but would slow things down a lot now the screen is always fully redrawn
 824   direct = FALSE;
 825
 826   if (direct)
 827   {
 828     BlitBitmap(drawto, window,
 829                gi->x, gi->y, gi->width, gi->height, gi->x, gi->y);
 830
 831     if (gi->type == GD_TYPE_SELECTBOX && redraw_selectbox)
 832       BlitBitmap(drawto, window,
 833                  gi->selectbox.x,     gi->selectbox.y,
 834                  gi->selectbox.width, gi->selectbox.height,
 835                  gi->selectbox.x,     gi->selectbox.y);
 836   }
 837   else
 838   {
 839     int x = gi->x;
 840     int y = gi->y;
 841
 842     redraw_mask |= (IN_GFX_FIELD_FULL(x, y) ? REDRAW_FIELD :
 843                     IN_GFX_DOOR_1(x, y) ? REDRAW_DOOR_1 :
 844                     IN_GFX_DOOR_2(x, y) ? REDRAW_DOOR_2 :
 845                     IN_GFX_DOOR_3(x, y) ? REDRAW_DOOR_3 : REDRAW_ALL);
 846   }
 847 }
 848
 849 static void SetGadgetPosition_OverlayTouchButton(struct GadgetInfo *gi)
 850 {
 851   gi->x = gi->orig_x;
 852   gi->y = gi->orig_y;
 853
 854   if (gi->x < 0)
 855     gi->x += video.screen_width;
 856   if (gi->y < 0)
 857     gi->y += video.screen_height;
 858
 859   gi->x -= video.screen_xoffset;
 860   gi->y -= video.screen_yoffset;
 861 }
 862
 863 void SetGadgetsPosition_OverlayTouchButtons(void)
 864 {
 865   struct GadgetInfo *gi;
 866
 867   if (gadget_list_first_entry == NULL)
 868     return;
 869
 870   for (gi = gadget_list_first_entry; gi != NULL; gi = gi->next)
 871     if (gi->overlay_touch_button)
 872       SetGadgetPosition_OverlayTouchButton(gi);
 873 }
 874
 875 static void DrawGadget_OverlayTouchButton(struct GadgetInfo *gi)
 876 {
 877   struct GadgetDesign *gd;
 878   int state = (gi->state ? GD_BUTTON_PRESSED : GD_BUTTON_UNPRESSED);
 879
 880   if (gi == NULL || gi->deactivated)
 881     return;
 882
 883   gd = (!gi->active ? &gi->alt_design[state] :
 884         gi->checked ? &gi->alt_design[state] : &gi->design[state]);
 885
 886   int x = gi->x + video.screen_xoffset;
 887   int y = gi->y + video.screen_yoffset;
 888   int alpha = gi->overlay_touch_button_alpha;
 889   int alpha_max = SDL_ALPHA_OPAQUE;
 890   int alpha_step = ALPHA_FADING_STEPSIZE(alpha_max);
 891
 892   // only show mapped overlay touch buttons if touch screen is really used
 893   if (gi->mapped && runtime.uses_touch_device)
 894   {
 895     if (alpha < alpha_max)
 896       alpha = MIN(alpha + alpha_step, alpha_max);
 897   }
 898   else
 899   {
 900     alpha = MAX(0, alpha - alpha_step);
 901   }
 902
 903   gi->overlay_touch_button_alpha = alpha;
 904
 905   if (alpha == 0)
 906     return;
 907
 908   switch (gi->type)
 909   {
 910     case GD_TYPE_NORMAL_BUTTON:
 911     case GD_TYPE_CHECK_BUTTON:
 912     case GD_TYPE_CHECK_BUTTON_2:
 913     case GD_TYPE_RADIO_BUTTON:
 914       SDL_SetTextureAlphaMod(gd->bitmap->texture_masked, alpha);
 915       SDL_SetTextureBlendMode(gd->bitmap->texture_masked, SDL_BLENDMODE_BLEND);
 916
 917       BlitToScreenMasked(gd->bitmap, gd->x, gd->y, gi->width, gi->height, x, y);
 918       break;
 919
 920     default:
 921       return;
 922   }
 923 }
 924
 925 void DrawGadgets_OverlayTouchButtons(void)
 926 {
 927   struct GadgetInfo *gi;
 928
 929   if (gadget_list_first_entry == NULL)
 930     return;
 931
 932   for (gi = gadget_list_first_entry; gi != NULL; gi = gi->next)
 933     if (gi->overlay_touch_button)
 934       DrawGadget_OverlayTouchButton(gi);
 935 }
 936
 937 boolean CheckPosition_OverlayTouchButtons(int mx, int my, int button)
 938 {
 939   struct GadgetInfo *gi = getGadgetInfoFromMousePosition(mx, my, button);
 940
 941   return (gi != NULL && gi->overlay_touch_button);
 942 }
 943
 944 static int get_minimal_size_for_numeric_input(int minmax_value)
 945 {
 946   int min_size = 1;     // value needs at least one digit
 947   int i;
 948
 949   // add number of digits needed for absolute value
 950   for (i = 10; i <= ABS(minmax_value); i *= 10)
 951     min_size++;
 952
 953   // if min/max value is negative, add one digit for minus sign
 954   if (minmax_value < 0)
 955     min_size++;
 956
 957   return min_size;
 958 }
 959
 960 static void HandleGadgetTags(struct GadgetInfo *gi, int first_tag, va_list ap)
 961 {
 962   int tag = first_tag;
 963
 964   if (gi == NULL)
 965     return;
 966
 967   while (tag != GDI_END)
 968   {
 969     switch (tag)
 970     {
 971       case GDI_IMAGE_ID:
 972         gi->image_id = va_arg(ap, int);
 973         break;
 974
 975       case GDI_CUSTOM_ID:
 976         gi->custom_id = va_arg(ap, int);
 977         break;
 978
 979       case GDI_CUSTOM_TYPE_ID:
 980         gi->custom_type_id = va_arg(ap, int);
 981         break;
 982
 983       case GDI_INFO_TEXT:
 984         {
 985           int max_textsize = MAX_INFO_TEXTSIZE;
 986           char *text = va_arg(ap, char *);
 987
 988           if (text != NULL)
 989             strncpy(gi->info_text, text, max_textsize);
 990           else
 991             max_textsize = 0;
 992
 993           gi->info_text[max_textsize] = '\0';
 994         }
 995         break;
 996
 997       case GDI_X:
 998         gi->x = gi->orig_x = va_arg(ap, int);
 999         break;
1000
1001       case GDI_Y:
1002         gi->y = gi->orig_y = va_arg(ap, int);
1003         break;
1004
1005       case GDI_WIDTH:
1006         gi->width = va_arg(ap, int);
1007         break;
1008
1009       case GDI_HEIGHT:
1010         gi->height = va_arg(ap, int);
1011         break;
1012
1013       case GDI_TYPE:
1014         gi->type = va_arg(ap, unsigned int);
1015         break;
1016
1017       case GDI_STATE:
1018         gi->state = va_arg(ap, unsigned int);
1019         break;
1020
1021       case GDI_ACTIVE:
1022         gi->active = (boolean)va_arg(ap, int);
1023         break;
1024
1025       case GDI_DIRECT_DRAW:
1026         gi->direct_draw = (boolean)va_arg(ap, int);
1027         break;
1028
1029       case GDI_OVERLAY_TOUCH_BUTTON:
1030         gi->overlay_touch_button = (boolean)va_arg(ap, int);
1031         if (gi->overlay_touch_button)
1032           SetGadgetPosition_OverlayTouchButton(gi);
1033         break;
1034
1035       case GDI_CALLBACK_ACTION_ALWAYS:
1036         gi->callback_action_always = (boolean)va_arg(ap, int);
1037         break;
1038
1039       case GDI_CHECKED:
1040         gi->checked = (boolean)va_arg(ap, int);
1041         break;
1042
1043       case GDI_RADIO_NR:
1044         gi->radio_nr = va_arg(ap, unsigned int);
1045         break;
1046
1047       case GDI_NUMBER_VALUE:
1048         gi->textinput.number_value = va_arg(ap, int);
1049         sprintf(gi->textinput.value, "%d", gi->textinput.number_value);
1050         strcpy(gi->textinput.last_value, gi->textinput.value);
1051         gi->textinput.cursor_position = strlen(gi->textinput.value);
1052         break;
1053
1054       case GDI_NUMBER_MIN:
1055         gi->textinput.number_min = va_arg(ap, int);
1056         if (gi->textinput.number_value < gi->textinput.number_min)
1057         {
1058           gi->textinput.number_value = gi->textinput.number_min;
1059           sprintf(gi->textinput.value, "%d", gi->textinput.number_value);
1060           strcpy(gi->textinput.last_value, gi->textinput.value);
1061         }
1062         break;
1063
1064       case GDI_NUMBER_MAX:
1065         gi->textinput.number_max = va_arg(ap, int);
1066         if (gi->textinput.number_value > gi->textinput.number_max)
1067         {
1068           gi->textinput.number_value = gi->textinput.number_max;
1069           sprintf(gi->textinput.value, "%d", gi->textinput.number_value);
1070           strcpy(gi->textinput.last_value, gi->textinput.value);
1071         }
1072         break;
1073
1074       case GDI_TEXT_VALUE:
1075         {
1076           int max_textsize = MAX_GADGET_TEXTSIZE;
1077
1078           if (gi->textinput.size)
1079             max_textsize = MIN(gi->textinput.size, MAX_GADGET_TEXTSIZE);
1080
1081           strncpy(gi->textinput.value, va_arg(ap, char *), max_textsize);
1082           strcpy(gi->textinput.last_value, gi->textinput.value);
1083
1084           gi->textinput.value[max_textsize] = '\0';
1085           gi->textinput.cursor_position = strlen(gi->textinput.value);
1086
1087           // same tag also used for other gadget definitions
1088           strcpy(gi->textbutton.value, gi->textinput.value);
1089           strcpy(gi->textarea.value, gi->textinput.value);
1090           strcpy(gi->textarea.last_value, gi->textinput.value);
1091         }
1092         break;
1093
1094       case GDI_TEXT_SIZE:
1095         {
1096           int tag_value = va_arg(ap, int);
1097           int max_textsize = MIN(tag_value, MAX_GADGET_TEXTSIZE);
1098
1099           gi->textinput.size = max_textsize;
1100           gi->textinput.value[max_textsize] = '\0';
1101           strcpy(gi->textinput.last_value, gi->textinput.value);
1102
1103           // same tag also used for other gadget definitions
1104
1105           gi->textarea.size = max_textsize;
1106           gi->textarea.value[max_textsize] = '\0';
1107           strcpy(gi->textarea.last_value, gi->textinput.value);
1108
1109           gi->textbutton.size = max_textsize;
1110           gi->textbutton.value[max_textsize] = '\0';
1111
1112           gi->selectbox.size = gi->textinput.size;
1113         }
1114         break;
1115
1116       case GDI_TEXT_FONT:
1117         gi->font = va_arg(ap, int);
1118         if (gi->font_active == 0)
1119           gi->font_active = gi->font;
1120         if (gi->font_unselectable == 0)
1121           gi->font_unselectable = gi->font;
1122         break;
1123
1124       case GDI_TEXT_FONT_ACTIVE:
1125         gi->font_active = va_arg(ap, int);
1126         break;
1127
1128       case GDI_TEXT_FONT_UNSELECTABLE:
1129         gi->font_unselectable = va_arg(ap, int);
1130         break;
1131
1132       case GDI_SELECTBOX_OPTIONS:
1133         gi->selectbox.options = va_arg(ap, struct ValueTextInfo *);
1134         break;
1135
1136       case GDI_SELECTBOX_INDEX:
1137         gi->selectbox.index = va_arg(ap, int);
1138         break;
1139
1140       case GDI_SELECTBOX_CHAR_UNSELECTABLE:
1141         gi->selectbox.char_unselectable = (char)va_arg(ap, int);
1142         break;
1143
1144       case GDI_DESIGN_UNPRESSED:
1145         gi->design[GD_BUTTON_UNPRESSED].bitmap = va_arg(ap, Bitmap *);
1146         gi->design[GD_BUTTON_UNPRESSED].x = va_arg(ap, int);
1147         gi->design[GD_BUTTON_UNPRESSED].y = va_arg(ap, int);
1148         break;
1149
1150       case GDI_DESIGN_PRESSED:
1151         gi->design[GD_BUTTON_PRESSED].bitmap = va_arg(ap, Bitmap *);
1152         gi->design[GD_BUTTON_PRESSED].x = va_arg(ap, int);
1153         gi->design[GD_BUTTON_PRESSED].y = va_arg(ap, int);
1154         break;
1155
1156       case GDI_ALT_DESIGN_UNPRESSED:
1157         gi->alt_design[GD_BUTTON_UNPRESSED].bitmap= va_arg(ap, Bitmap *);
1158         gi->alt_design[GD_BUTTON_UNPRESSED].x = va_arg(ap, int);
1159         gi->alt_design[GD_BUTTON_UNPRESSED].y = va_arg(ap, int);
1160         break;
1161
1162       case GDI_ALT_DESIGN_PRESSED:
1163         gi->alt_design[GD_BUTTON_PRESSED].bitmap = va_arg(ap, Bitmap *);
1164         gi->alt_design[GD_BUTTON_PRESSED].x = va_arg(ap, int);
1165         gi->alt_design[GD_BUTTON_PRESSED].y = va_arg(ap, int);
1166         break;
1167
1168       case GDI_BORDER_SIZE:
1169         gi->border.xsize = va_arg(ap, int);
1170         gi->border.ysize = va_arg(ap, int);
1171         break;
1172
1173       case GDI_BORDER_SIZE_SELECTBUTTON:
1174         gi->border.xsize_selectbutton = va_arg(ap, int);
1175         break;
1176
1177       case GDI_DESIGN_WIDTH:
1178         gi->border.width = va_arg(ap, int);
1179         break;
1180
1181       case GDI_DECORATION_DESIGN:
1182         gi->deco.design.bitmap = va_arg(ap, Bitmap *);
1183         gi->deco.design.x = va_arg(ap, int);
1184         gi->deco.design.y = va_arg(ap, int);
1185         break;
1186
1187       case GDI_DECORATION_POSITION:
1188         gi->deco.x = va_arg(ap, int);
1189         gi->deco.y = va_arg(ap, int);
1190         break;
1191
1192       case GDI_DECORATION_SIZE:
1193         gi->deco.width = va_arg(ap, int);
1194         gi->deco.height = va_arg(ap, int);
1195         break;
1196
1197       case GDI_DECORATION_SHIFTING:
1198         gi->deco.xshift = va_arg(ap, int);
1199         gi->deco.yshift = va_arg(ap, int);
1200         break;
1201
1202       case GDI_DECORATION_MASKED:
1203         gi->deco.masked = (boolean)va_arg(ap, int);
1204         break;
1205
1206       case GDI_EVENT_MASK:
1207         gi->event_mask = va_arg(ap, unsigned int);
1208         break;
1209
1210       case GDI_AREA_SIZE:
1211         gi->drawing.area_xsize = va_arg(ap, int);
1212         gi->drawing.area_ysize = va_arg(ap, int);
1213
1214         // determine dependent values for drawing area gadget, if needed
1215         if (gi->drawing.item_xsize != 0 && gi->drawing.item_ysize != 0)
1216         {
1217           gi->width = gi->drawing.area_xsize * gi->drawing.item_xsize;
1218           gi->height = gi->drawing.area_ysize * gi->drawing.item_ysize;
1219         }
1220         else if (gi->width != 0 && gi->height != 0)
1221         {
1222           gi->drawing.item_xsize = gi->width / gi->drawing.area_xsize;
1223           gi->drawing.item_ysize = gi->height / gi->drawing.area_ysize;
1224         }
1225
1226         // same tag also used for other gadget definitions
1227         gi->textarea.xsize = gi->drawing.area_xsize;
1228         gi->textarea.ysize = gi->drawing.area_ysize;
1229
1230         if (gi->type & GD_TYPE_TEXT_AREA)       // force recalculation
1231         {
1232           gi->width = 0;
1233           gi->height = 0;
1234         }
1235
1236         break;
1237
1238       case GDI_ITEM_SIZE:
1239         gi->drawing.item_xsize = va_arg(ap, int);
1240         gi->drawing.item_ysize = va_arg(ap, int);
1241
1242         // determine dependent values for drawing area gadget, if needed
1243         if (gi->drawing.area_xsize != 0 && gi->drawing.area_ysize != 0)
1244         {
1245           gi->width = gi->drawing.area_xsize * gi->drawing.item_xsize;
1246           gi->height = gi->drawing.area_ysize * gi->drawing.item_ysize;
1247         }
1248         else if (gi->width != 0 && gi->height != 0)
1249         {
1250           gi->drawing.area_xsize = gi->width / gi->drawing.item_xsize;
1251           gi->drawing.area_ysize = gi->height / gi->drawing.item_ysize;
1252         }
1253         break;
1254
1255       case GDI_SCROLLBAR_ITEMS_MAX:
1256         gi->scrollbar.items_max = va_arg(ap, int);
1257         break;
1258
1259       case GDI_SCROLLBAR_ITEMS_VISIBLE:
1260         gi->scrollbar.items_visible = va_arg(ap, int);
1261         break;
1262
1263       case GDI_SCROLLBAR_ITEM_POSITION:
1264         gi->scrollbar.item_position = va_arg(ap, int);
1265         break;
1266
1267       case GDI_WHEEL_AREA_X:
1268         gi->wheelarea.x = va_arg(ap, int);
1269         break;
1270
1271       case GDI_WHEEL_AREA_Y:
1272         gi->wheelarea.y = va_arg(ap, int);
1273         break;
1274
1275       case GDI_WHEEL_AREA_WIDTH:
1276         gi->wheelarea.width = va_arg(ap, int);
1277         break;
1278
1279       case GDI_WHEEL_AREA_HEIGHT:
1280         gi->wheelarea.height = va_arg(ap, int);
1281         break;
1282
1283       case GDI_CALLBACK_INFO:
1284         gi->callback_info = va_arg(ap, gadget_function);
1285         break;
1286
1287       case GDI_CALLBACK_ACTION:
1288         gi->callback_action = va_arg(ap, gadget_function);
1289         break;
1290
1291       default:
1292         Fail("HandleGadgetTags(): unknown tag %d", tag);
1293     }
1294
1295     tag = va_arg(ap, int);      // read next tag
1296   }
1297
1298   gi->deactivated = FALSE;
1299
1300   // check if gadget has undefined bitmaps
1301   if (gi->type != GD_TYPE_DRAWING_AREA &&
1302       (gi->design[GD_BUTTON_UNPRESSED].bitmap == NULL ||
1303        gi->design[GD_BUTTON_PRESSED].bitmap == NULL))
1304     gi->deactivated = TRUE;
1305
1306   // check if gadget is placed off-screen (and is no overlay touch button)
1307   if ((gi->x < 0 || gi->y < 0) && !gi->overlay_touch_button)
1308     gi->deactivated = TRUE;
1309
1310   // adjust gadget values in relation to other gadget values
1311
1312   if (gi->type & GD_TYPE_TEXT_INPUT)
1313   {
1314     int font_nr = gi->font_active;
1315     int font_width = getFontWidth(font_nr);
1316     int font_height = getFontHeight(font_nr);
1317     int border_xsize = gi->border.xsize;
1318     int border_ysize = gi->border.ysize;
1319
1320     if (gi->type == GD_TYPE_TEXT_INPUT_NUMERIC)
1321     {
1322       int number_min = gi->textinput.number_min;
1323       int number_max = gi->textinput.number_max;
1324       int min_size_min = get_minimal_size_for_numeric_input(number_min);
1325       int min_size_max = get_minimal_size_for_numeric_input(number_max);
1326       int min_size = MAX(min_size_min, min_size_max);
1327
1328       // expand gadget text input size, if maximal value is too large
1329       if (gi->textinput.size < min_size)
1330         gi->textinput.size = min_size;
1331     }
1332
1333     gi->width  = 2 * border_xsize + (gi->textinput.size + 1) * font_width;
1334     gi->height = 2 * border_ysize + font_height;
1335   }
1336
1337   if (gi->type & GD_TYPE_SELECTBOX)
1338   {
1339     int font_nr = gi->font_active;
1340     int font_width = getFontWidth(font_nr);
1341     int font_height = getFontHeight(font_nr);
1342     int border_xsize = gi->border.xsize;
1343     int border_ysize = gi->border.ysize;
1344     int button_size = gi->border.xsize_selectbutton;
1345     int bottom_screen_border = getGadgetScreenBorderBottom();
1346     Bitmap *src_bitmap;
1347     int src_x, src_y;
1348
1349     gi->width  = 2 * border_xsize + gi->textinput.size*font_width +button_size;
1350     gi->height = 2 * border_ysize + font_height;
1351
1352     if (gi->selectbox.options == NULL)
1353       Fail("selectbox gadget incomplete (missing options array)");
1354
1355     gi->selectbox.num_values = 0;
1356     while (gi->selectbox.options[gi->selectbox.num_values].text != NULL)
1357       gi->selectbox.num_values++;
1358
1359     // calculate values for open selectbox
1360     gi->selectbox.width = gi->width;
1361     gi->selectbox.height =
1362       2 * border_ysize + gi->selectbox.num_values * font_height;
1363
1364     gi->selectbox.x = gi->x;
1365     gi->selectbox.y = gi->y + gi->height;
1366     if (gi->selectbox.y + gi->selectbox.height > bottom_screen_border)
1367       gi->selectbox.y = gi->y - gi->selectbox.height;
1368     if (gi->selectbox.y < 0)
1369       gi->selectbox.y = bottom_screen_border - gi->selectbox.height;
1370
1371     getFontCharSource(font_nr, FONT_ASCII_CURSOR, &src_bitmap, &src_x, &src_y);
1372     src_x += font_width / 2;
1373     src_y += font_height / 2;
1374
1375     // there may be esoteric cases with missing or too small font bitmap
1376     if (src_bitmap != NULL &&
1377         src_x < src_bitmap->width && src_y < src_bitmap->height)
1378       gi->selectbox.inverse_color = GetPixel(src_bitmap, src_x, src_y);
1379
1380     // always start with closed selectbox
1381     gi->selectbox.open = FALSE;
1382   }
1383
1384   if (gi->type & GD_TYPE_TEXT_INPUT_NUMERIC)
1385   {
1386     struct GadgetTextInput *text = &gi->textinput;
1387     int value = text->number_value;
1388
1389     text->number_value = (value < text->number_min ? text->number_min :
1390                           value > text->number_max ? text->number_max :
1391                           value);
1392
1393     sprintf(text->value, "%d", text->number_value);
1394   }
1395
1396   if (gi->type & GD_TYPE_TEXT_BUTTON)
1397   {
1398     int font_nr = gi->font_active;
1399     int font_width = getFontWidth(font_nr);
1400     int font_height = getFontHeight(font_nr);
1401     int border_xsize = gi->border.xsize;
1402     int border_ysize = gi->border.ysize;
1403
1404     gi->width  = 2 * border_xsize + gi->textbutton.size * font_width;
1405     gi->height = 2 * border_ysize + font_height;
1406   }
1407
1408   if (gi->type & GD_TYPE_SCROLLBAR)
1409   {
1410     struct GadgetScrollbar *gs = &gi->scrollbar;
1411     int scrollbar_size_cmp;
1412
1413     if (gi->width == 0 || gi->height == 0 ||
1414         gs->items_max == 0 || gs->items_visible == 0)
1415       Fail("scrollbar gadget incomplete (missing tags)");
1416
1417     // calculate internal scrollbar values
1418     gs->size_min = (gi->type == GD_TYPE_SCROLLBAR_VERTICAL ?
1419                     gi->width : gi->height);
1420     gs->size_max = (gi->type == GD_TYPE_SCROLLBAR_VERTICAL ?
1421                     gi->height : gi->width);
1422
1423     scrollbar_size_cmp = gs->size_max * gs->items_visible / gs->items_max;
1424     gs->size = MAX(scrollbar_size_cmp, gs->size_min);
1425     gs->size_max_cmp = (gs->size_max - (gs->size - scrollbar_size_cmp));
1426
1427     gs->position = gs->size_max_cmp * gs->item_position / gs->items_max;
1428     gs->position_max = gs->size_max - gs->size;
1429     gs->correction = gs->size_max / gs->items_max / 2;
1430
1431     // finetuning for maximal right/bottom position
1432     if (gs->item_position == gs->items_max - gs->items_visible)
1433       gs->position = gs->position_max;
1434   }
1435
1436   if (gi->type & GD_TYPE_TEXT_AREA)
1437   {
1438     int font_nr = gi->font_active;
1439     int font_width = getFontWidth(font_nr);
1440     int font_height = getFontHeight(font_nr);
1441     int border_xsize = gi->border.xsize;
1442     int border_ysize = gi->border.ysize;
1443     int right_screen_border = getGadgetScreenBorderRight();
1444     int bottom_screen_border = getGadgetScreenBorderBottom();
1445
1446     if (gi->width == 0 || gi->height == 0)
1447     {
1448       gi->width  = 2 * border_xsize + gi->textarea.xsize * font_width;
1449       gi->height = 2 * border_ysize + gi->textarea.ysize * font_height;
1450     }
1451     else
1452     {
1453       gi->textarea.xsize = (gi->width  - 2 * border_xsize) / font_width;
1454       gi->textarea.ysize = (gi->height - 2 * border_ysize) / font_height;
1455     }
1456
1457     gi->textarea.full_x = gi->x;
1458     gi->textarea.full_y = gi->y;
1459     gi->textarea.crop_width = gi->width;
1460     gi->textarea.crop_height = gi->height;
1461     gi->textarea.crop_xsize = gi->textarea.xsize;
1462     gi->textarea.crop_ysize = gi->textarea.ysize;
1463
1464     gi->textarea.cropped = FALSE;
1465
1466     if (gi->x + gi->width > right_screen_border)
1467     {
1468       gi->textarea.full_x = MAX(0, right_screen_border - gi->width);
1469       gi->textarea.crop_width = right_screen_border - gi->x;
1470       gi->textarea.crop_xsize =
1471         (gi->textarea.crop_width - 2 * border_xsize) / font_width;
1472       gi->textarea.crop_width =
1473         2 * border_xsize + gi->textarea.crop_xsize * font_width;
1474
1475       gi->textarea.cropped = TRUE;
1476     }
1477
1478     if (gi->y + gi->height > bottom_screen_border)
1479     {
1480       gi->textarea.full_y = MAX(0, bottom_screen_border - gi->height);
1481       gi->textarea.crop_height = bottom_screen_border - gi->y;
1482       gi->textarea.crop_ysize =
1483         (gi->textarea.crop_height - 2 * border_ysize) / font_height;
1484       gi->textarea.crop_height =
1485         2 * border_ysize + gi->textarea.crop_ysize * font_height;
1486
1487       gi->textarea.cropped = TRUE;
1488     }
1489
1490     // always start with unselected text area (which is potentially cropped)
1491     gi->textarea.full_open = FALSE;
1492   }
1493 }
1494
1495 void ModifyGadget(struct GadgetInfo *gi, int first_tag, ...)
1496 {
1497   va_list ap;
1498
1499   va_start(ap, first_tag);
1500   HandleGadgetTags(gi, first_tag, ap);
1501   va_end(ap);
1502
1503   RedrawGadget(gi);
1504 }
1505
1506 void RedrawGadget(struct GadgetInfo *gi)
1507 {
1508   if (gi == NULL || gi->deactivated)
1509     return;
1510
1511   if (gi->mapped)
1512     DrawGadget(gi, gi->state, gi->direct_draw);
1513 }
1514
1515 struct GadgetInfo *CreateGadget(int first_tag, ...)
1516 {
1517   struct GadgetInfo *new_gadget = checked_calloc(sizeof(struct GadgetInfo));
1518   va_list ap;
1519
1520   // always start with reliable default values
1521   new_gadget->id = getNewGadgetID();
1522   new_gadget->image_id = -1;
1523   new_gadget->callback_info = default_callback_info;
1524   new_gadget->callback_action = default_callback_action;
1525   new_gadget->active = TRUE;
1526   new_gadget->direct_draw = TRUE;
1527   new_gadget->overlay_touch_button = FALSE;
1528   new_gadget->overlay_touch_button_alpha = 0;
1529
1530   new_gadget->next = NULL;
1531
1532   va_start(ap, first_tag);
1533   HandleGadgetTags(new_gadget, first_tag, ap);
1534   va_end(ap);
1535
1536   // insert new gadget into global gadget list
1537   if (gadget_list_last_entry)
1538   {
1539     gadget_list_last_entry->next = new_gadget;
1540     gadget_list_last_entry = gadget_list_last_entry->next;
1541   }
1542   else
1543     gadget_list_first_entry = gadget_list_last_entry = new_gadget;
1544
1545   return new_gadget;
1546 }
1547
1548 void FreeGadget(struct GadgetInfo *gi)
1549 {
1550   struct GadgetInfo *gi_previous = gadget_list_first_entry;
1551
1552   if (gi == NULL)
1553     return;
1554
1555   // prevent "last_info_gi" from pointing to memory that will be freed
1556   if (last_info_gi == gi)
1557     last_info_gi = NULL;
1558
1559   while (gi_previous != NULL && gi_previous->next != gi)
1560     gi_previous = gi_previous->next;
1561
1562   if (gi == gadget_list_first_entry)
1563     gadget_list_first_entry = gi->next;
1564
1565   if (gi == gadget_list_last_entry)
1566     gadget_list_last_entry = gi_previous;
1567
1568   if (gi_previous != NULL)
1569     gi_previous->next = gi->next;
1570
1571   free(gi);
1572 }
1573
1574 static void CheckRangeOfNumericInputGadget(struct GadgetInfo *gi)
1575 {
1576   if (gi->type != GD_TYPE_TEXT_INPUT_NUMERIC)
1577     return;
1578
1579   gi->textinput.number_value = atoi(gi->textinput.value);
1580
1581   if (gi->textinput.number_value < gi->textinput.number_min)
1582     gi->textinput.number_value = gi->textinput.number_min;
1583   if (gi->textinput.number_value > gi->textinput.number_max)
1584     gi->textinput.number_value = gi->textinput.number_max;
1585
1586   sprintf(gi->textinput.value, "%d", gi->textinput.number_value);
1587
1588   if (gi->textinput.cursor_position < 0)
1589     gi->textinput.cursor_position = 0;
1590   else if (gi->textinput.cursor_position > strlen(gi->textinput.value))
1591     gi->textinput.cursor_position = strlen(gi->textinput.value);
1592 }
1593
1594 // global pointer to gadget actually in use (when mouse button pressed)
1595 static struct GadgetInfo *last_gi = NULL;
1596
1597 static void MapGadgetExt(struct GadgetInfo *gi, boolean redraw)
1598 {
1599   if (gi == NULL || gi->deactivated || gi->mapped)
1600     return;
1601
1602   // do not map overlay touch buttons if touch screen is not used
1603   if (gi->overlay_touch_button && !runtime.uses_touch_device)
1604     return;
1605
1606   gi->mapped = TRUE;
1607
1608   if (redraw)
1609     DrawGadget(gi, DG_UNPRESSED, DG_BUFFERED);
1610 }
1611
1612 void MapGadget(struct GadgetInfo *gi)
1613 {
1614   MapGadgetExt(gi, TRUE);
1615 }
1616
1617 void UnmapGadget(struct GadgetInfo *gi)
1618 {
1619   if (gi == NULL || gi->deactivated || !gi->mapped)
1620     return;
1621
1622   gi->mapped = FALSE;
1623
1624   if (gi == last_gi)
1625     last_gi = NULL;
1626 }
1627
1628 #define MAX_NUM_GADGETS         1024
1629 #define MULTIMAP_UNMAP          (1 << 0)
1630 #define MULTIMAP_REMAP          (1 << 1)
1631 #define MULTIMAP_REDRAW         (1 << 2)
1632 #define MULTIMAP_PLAYFIELD      (1 << 3)
1633 #define MULTIMAP_DOOR_1         (1 << 4)
1634 #define MULTIMAP_DOOR_2         (1 << 5)
1635 #define MULTIMAP_DOOR_3         (1 << 6)
1636 #define MULTIMAP_ALL            (MULTIMAP_PLAYFIELD | \
1637                                  MULTIMAP_DOOR_1    | \
1638                                  MULTIMAP_DOOR_2    | \
1639                                  MULTIMAP_DOOR_3)
1640
1641 static void MultiMapGadgets(int mode)
1642 {
1643   struct GadgetInfo *gi = gadget_list_first_entry;
1644   static boolean map_state[MAX_NUM_GADGETS];
1645   int map_count = 0;
1646
1647   while (gi != NULL)
1648   {
1649     int x = gi->x;
1650     int y = gi->y;
1651
1652     if ((mode & MULTIMAP_PLAYFIELD && IN_GFX_FIELD_FULL(x, y)) ||
1653         (mode & MULTIMAP_DOOR_1 && IN_GFX_DOOR_1(x, y)) ||
1654         (mode & MULTIMAP_DOOR_2 && IN_GFX_DOOR_2(x, y)) ||
1655         (mode & MULTIMAP_DOOR_3 && IN_GFX_DOOR_3(x, y)) ||
1656         (mode & MULTIMAP_ALL) == MULTIMAP_ALL)
1657     {
1658       if (mode & MULTIMAP_UNMAP)
1659       {
1660         map_state[map_count++ % MAX_NUM_GADGETS] = gi->mapped;
1661         UnmapGadget(gi);
1662       }
1663       else
1664       {
1665         if (map_state[map_count++ % MAX_NUM_GADGETS])
1666           MapGadgetExt(gi, (mode & MULTIMAP_REDRAW));
1667       }
1668     }
1669
1670     gi = gi->next;
1671   }
1672 }
1673
1674 void UnmapAllGadgets(void)
1675 {
1676   MultiMapGadgets(MULTIMAP_ALL | MULTIMAP_UNMAP);
1677 }
1678
1679 void RemapAllGadgets(void)
1680 {
1681   MultiMapGadgets(MULTIMAP_ALL | MULTIMAP_REMAP);
1682 }
1683
1684 boolean anyTextInputGadgetActive(void)
1685 {
1686   return (last_gi && (last_gi->type & GD_TYPE_TEXT_INPUT) && last_gi->mapped);
1687 }
1688
1689 boolean anyTextAreaGadgetActive(void)
1690 {
1691   return (last_gi && (last_gi->type & GD_TYPE_TEXT_AREA) && last_gi->mapped);
1692 }
1693
1694 boolean anySelectboxGadgetActive(void)
1695 {
1696   return (last_gi && (last_gi->type & GD_TYPE_SELECTBOX) && last_gi->mapped);
1697 }
1698
1699 boolean anyScrollbarGadgetActive(void)
1700 {
1701   return (last_gi && (last_gi->type & GD_TYPE_SCROLLBAR) && last_gi->mapped);
1702 }
1703
1704 boolean anyTextGadgetActive(void)
1705 {
1706   return (anyTextInputGadgetActive() ||
1707           anyTextAreaGadgetActive() ||
1708           anySelectboxGadgetActive());
1709 }
1710
1711 static boolean insideSelectboxLine(struct GadgetInfo *gi, int mx, int my)
1712 {
1713   return (gi != NULL &&
1714           gi->type & GD_TYPE_SELECTBOX &&
1715           mx >= gi->x && mx < gi->x + gi->width &&
1716           my >= gi->y && my < gi->y + gi->height);
1717 }
1718
1719 static boolean insideSelectboxArea(struct GadgetInfo *gi, int mx, int my)
1720 {
1721   return (gi != NULL &&
1722           gi->type & GD_TYPE_SELECTBOX &&
1723           mx >= gi->selectbox.x && mx < gi->selectbox.x + gi->selectbox.width &&
1724           my >= gi->selectbox.y && my < gi->selectbox.y + gi->selectbox.height);
1725 }
1726
1727 void ClickOnGadget(struct GadgetInfo *gi, int button)
1728 {
1729   if (gi == NULL || gi->deactivated || !gi->mapped)
1730     return;
1731
1732   // simulate releasing mouse button over last gadget, if still pressed
1733   if (button_status)
1734     HandleGadgets(-1, -1, 0);
1735
1736   int x = gi->x;
1737   int y = gi->y;
1738
1739   // set cursor position to the end of the text for text input gadgets
1740   if (gi->type & GD_TYPE_TEXT_INPUT)
1741     x = gi->x + gi->width - 1;
1742
1743   // simulate pressing mouse button over specified gadget
1744   HandleGadgets(x, y, button);
1745
1746   // simulate releasing mouse button over specified gadget
1747   HandleGadgets(x, y, 0);
1748 }
1749
1750 boolean HandleGadgets(int mx, int my, int button)
1751 {
1752   static DelayCounter pressed_delay = { GADGET_FRAME_DELAY };
1753   static int last_button = 0;
1754   static int last_mx = 0, last_my = 0;
1755   static int pressed_mx = 0, pressed_my = 0;
1756   static boolean keep_selectbox_open = FALSE;
1757   static boolean gadget_stopped = FALSE;
1758   int scrollbar_mouse_pos = 0;
1759   struct GadgetInfo *new_gi, *gi;
1760   boolean press_event;
1761   boolean release_event;
1762   boolean mouse_moving;
1763   boolean mouse_inside_select_line;
1764   boolean mouse_inside_select_area;
1765   boolean mouse_released_where_pressed;
1766   boolean gadget_pressed;
1767   boolean gadget_pressed_repeated;
1768   boolean gadget_pressed_off_borders;
1769   boolean gadget_pressed_inside_select_line;
1770   boolean gadget_pressed_delay_reached;
1771   boolean gadget_moving;
1772   boolean gadget_moving_inside;
1773   boolean gadget_moving_off_borders;
1774   boolean gadget_draggable;
1775   boolean gadget_dragging;
1776   boolean gadget_released;
1777   boolean gadget_released_inside;
1778   boolean gadget_released_inside_select_area;
1779   boolean gadget_released_off_borders;
1780   boolean changed_position = FALSE;
1781
1782   // check if there are any gadgets defined
1783   if (gadget_list_first_entry == NULL)
1784     return FALSE;
1785
1786   // simulated release of mouse button over last gadget
1787   if (mx == -1 && my == -1 && button == 0)
1788   {
1789     mx = last_mx;
1790     my = last_my;
1791   }
1792
1793   // check which gadget is under the mouse pointer
1794   new_gi = getGadgetInfoFromMousePosition(mx, my, button);
1795
1796   // check if button state has changed since last invocation
1797   press_event   = (button != 0 && last_button == 0);
1798   release_event = (button == 0 && last_button != 0);
1799   last_button = button;
1800
1801   // check if mouse has been moved since last invocation
1802   mouse_moving = ((mx != last_mx || my != last_my) && motion_status);
1803   last_mx = mx;
1804   last_my = my;
1805
1806   if (press_event && new_gi != last_gi)
1807   {
1808     pressed_mx = mx;
1809     pressed_my = my;
1810   }
1811
1812   mouse_released_where_pressed =
1813     (release_event && mx == pressed_mx && my == pressed_my);
1814
1815   mouse_inside_select_line = insideSelectboxLine(new_gi, mx, my);
1816   mouse_inside_select_area = insideSelectboxArea(new_gi, mx, my);
1817
1818   gadget_pressed_off_borders = (press_event && new_gi != last_gi);
1819
1820   gadget_pressed_inside_select_line =
1821     (press_event && new_gi != NULL &&
1822      new_gi->type & GD_TYPE_SELECTBOX && new_gi->selectbox.open &&
1823      insideSelectboxLine(new_gi, mx, my));
1824
1825   // if mouse button pressed outside text or selectbox gadget, deactivate it
1826   if (anyTextGadgetActive() &&
1827       (gadget_pressed_off_borders ||
1828        (gadget_pressed_inside_select_line && !mouse_inside_select_area)))
1829   {
1830     struct GadgetInfo *gi = last_gi;
1831     boolean gadget_changed = ((gi->event_mask & GD_EVENT_TEXT_LEAVING) != 0);
1832
1833     // check if text input gadget has changed its value
1834     if (gi->type & GD_TYPE_TEXT_INPUT)
1835     {
1836       CheckRangeOfNumericInputGadget(gi);
1837
1838       if (!strEqual(gi->textinput.last_value, gi->textinput.value))
1839         strcpy(gi->textinput.last_value, gi->textinput.value);
1840       else
1841         gadget_changed = FALSE;
1842     }
1843
1844     // check if text area gadget has changed its value
1845     if (gi->type & GD_TYPE_TEXT_AREA)
1846     {
1847       if (!strEqual(gi->textarea.last_value, gi->textarea.value))
1848         strcpy(gi->textarea.last_value, gi->textarea.value);
1849       else
1850         gadget_changed = FALSE;
1851     }
1852
1853     // selectbox does not change its value when closed by clicking outside
1854     if (gi->type & GD_TYPE_SELECTBOX)
1855       gadget_changed = FALSE;
1856
1857     DrawGadget(gi, DG_UNPRESSED, gi->direct_draw);
1858
1859     gi->event.type = GD_EVENT_TEXT_LEAVING;
1860
1861     if (!(gi->type & GD_TYPE_SELECTBOX))
1862       DoGadgetCallbackAction(gi, gadget_changed);
1863
1864     last_gi = NULL;
1865
1866     if (gadget_pressed_inside_select_line)
1867       new_gi = NULL;
1868
1869     StopTextInput();
1870   }
1871
1872   gadget_pressed =
1873     (button != 0 && last_gi == NULL && new_gi != NULL && press_event);
1874   gadget_pressed_repeated =
1875     (button != 0 && last_gi != NULL && new_gi == last_gi);
1876
1877   gadget_pressed_delay_reached =
1878     DelayReached(&pressed_delay);
1879
1880   gadget_released =             (release_event && last_gi != NULL);
1881   gadget_released_inside =      (gadget_released && new_gi == last_gi);
1882   gadget_released_off_borders = (gadget_released && new_gi != last_gi);
1883
1884   gadget_moving =             (button != 0 && last_gi != NULL && mouse_moving);
1885   gadget_moving_inside =      (gadget_moving && new_gi == last_gi);
1886   gadget_moving_off_borders = (gadget_moving && new_gi != last_gi);
1887
1888   // when handling selectbox, set additional state values
1889   if (gadget_released_inside && (last_gi->type & GD_TYPE_SELECTBOX))
1890     gadget_released_inside_select_area = insideSelectboxArea(last_gi, mx, my);
1891   else
1892     gadget_released_inside_select_area = FALSE;
1893
1894   // setting state for handling over-large selectbox
1895   if (keep_selectbox_open && (press_event || !mouse_inside_select_line))
1896     keep_selectbox_open = FALSE;
1897
1898   // if new gadget pressed, store this gadget
1899   if (gadget_pressed)
1900     last_gi = new_gi;
1901
1902   // 'gi' is actually handled gadget
1903   gi = last_gi;
1904
1905   // if gadget is scrollbar, choose mouse position value
1906   if (gi && gi->type & GD_TYPE_SCROLLBAR)
1907     scrollbar_mouse_pos =
1908       (gi->type == GD_TYPE_SCROLLBAR_HORIZONTAL ? mx - gi->x : my - gi->y);
1909
1910   // if mouse button released, no gadget needs to be handled anymore
1911   if (gadget_released)
1912   {
1913     if (gi->type & GD_TYPE_SELECTBOX &&
1914         (keep_selectbox_open ||
1915          mouse_released_where_pressed ||
1916          !gadget_released_inside_select_area ||
1917          !CURRENT_OPTION_SELECTABLE(gi)))           // selectbox stays open
1918     {
1919       gi->selectbox.stay_open = TRUE;
1920       pressed_mx = 0;
1921       pressed_my = 0;
1922     }
1923     else if (!(gi->type & GD_TYPE_TEXT_INPUT ||
1924                gi->type & GD_TYPE_TEXT_AREA))       // text input stays open
1925       last_gi = NULL;
1926   }
1927
1928   // modify event position values even if no gadget is pressed
1929   if (button == 0 && !release_event)
1930     gi = new_gi;
1931
1932   // if new gadget or if no gadget was pressed, release stopped processing
1933   if (gadget_pressed || new_gi == NULL)
1934     gadget_stopped = FALSE;
1935
1936   // if gadget was stopped while being handled, stop gadget processing here
1937   if (gadget_stopped)
1938     return TRUE;
1939
1940   if (gi != NULL)
1941   {
1942     int last_x = gi->event.x;
1943     int last_y = gi->event.y;
1944     int last_mx = gi->event.mx;
1945     int last_my = gi->event.my;
1946
1947     gi->event.x = gi->event.mx = mx - gi->x;
1948     gi->event.y = gi->event.my = my - gi->y;
1949
1950     if (gi->type == GD_TYPE_DRAWING_AREA)
1951     {
1952       gi->event.x /= gi->drawing.item_xsize;
1953       gi->event.y /= gi->drawing.item_ysize;
1954
1955       if (last_x != gi->event.x || last_y != gi->event.y ||
1956           ((last_mx != gi->event.mx || last_my != gi->event.my) &&
1957            gi->event_mask & GD_EVENT_PIXEL_PRECISE))
1958         changed_position = TRUE;
1959     }
1960     else if (gi->type & GD_TYPE_TEXT_INPUT && button != 0 && !motion_status)
1961     {
1962       int old_cursor_position = gi->textinput.cursor_position;
1963
1964       // if mouse button pressed inside activated text gadget, set cursor
1965       gi->textinput.cursor_position =
1966         (mx - gi->x - gi->border.xsize) / getFontWidth(gi->font);
1967
1968       if (gi->textinput.cursor_position < 0)
1969         gi->textinput.cursor_position = 0;
1970       else if (gi->textinput.cursor_position > strlen(gi->textinput.value))
1971         gi->textinput.cursor_position = strlen(gi->textinput.value);
1972
1973       if (gi->textinput.cursor_position != old_cursor_position)
1974         DrawGadget(gi, DG_PRESSED, gi->direct_draw);
1975
1976       if (press_event)
1977         StartTextInput(gi->x, gi->y, gi->width, gi->height);
1978     }
1979     else if (gi->type & GD_TYPE_TEXT_AREA && button != 0 && !motion_status)
1980     {
1981       int old_cursor_position = gi->textarea.cursor_position;
1982       int gadget_x = mx - gi->textarea.full_x - gi->border.xsize;
1983       int gadget_y = my - gi->textarea.full_y - gi->border.ysize;
1984       int x = gadget_x / getFontWidth(gi->font);
1985       int y = gadget_y / getFontHeight(gi->font);
1986
1987       x = (x < 0 ? 0 : x >= gi->textarea.xsize ? gi->textarea.xsize - 1 : x);
1988       y = (y < 0 ? 0 : y >= gi->textarea.ysize ? gi->textarea.ysize - 1 : y);
1989
1990       setTextAreaCursorXY(gi, x, y);
1991
1992       if (gi->textarea.cursor_position != old_cursor_position)
1993         DrawGadget(gi, DG_PRESSED, gi->direct_draw);
1994
1995       if (press_event)
1996         StartTextInput(gi->x, gi->y, gi->width, gi->height);
1997     }
1998     else if (gi->type & GD_TYPE_SELECTBOX && gi->selectbox.open &&
1999              !keep_selectbox_open)
2000     {
2001       int old_index = gi->selectbox.current_index;
2002
2003       // if mouse moving inside activated selectbox, select value
2004       if (my >= gi->selectbox.y && my < gi->selectbox.y + gi->selectbox.height)
2005         gi->selectbox.current_index =
2006           (my - gi->selectbox.y - gi->border.ysize) / getFontHeight(gi->font);
2007
2008       if (gi->selectbox.current_index < 0)
2009         gi->selectbox.current_index = 0;
2010       else if (gi->selectbox.current_index > gi->selectbox.num_values - 1)
2011         gi->selectbox.current_index = gi->selectbox.num_values - 1;
2012
2013       if (gi->selectbox.current_index != old_index)
2014         DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2015     }
2016   }
2017
2018   // handle gadget popup info text
2019   if (last_info_gi != new_gi ||
2020       (new_gi && new_gi->type == GD_TYPE_DRAWING_AREA && changed_position))
2021   {
2022     if (new_gi != NULL && (button == 0 || new_gi == last_gi))
2023     {
2024       new_gi->event.type = GD_EVENT_INFO_ENTERING;
2025       new_gi->callback_info(new_gi);
2026     }
2027     else if (last_info_gi != NULL && last_info_gi->mapped)
2028     {
2029       last_info_gi->event.type = GD_EVENT_INFO_LEAVING;
2030       last_info_gi->callback_info(last_info_gi);
2031     }
2032
2033     last_info_gi = new_gi;
2034   }
2035
2036   gadget_draggable = (gi && gi->type & GD_TYPE_SCROLLBAR);
2037
2038   // reset drag position for newly pressed scrollbar to "not dragging"
2039   if (gadget_pressed && gadget_draggable)
2040     gi->scrollbar.drag_position = -1;
2041
2042   gadget_dragging = (gadget_draggable && gi->scrollbar.drag_position != -1);
2043
2044   // clicking next to a scrollbar to move it is not considered "moving"
2045   if (gadget_draggable && !gadget_dragging)
2046     gadget_moving = FALSE;
2047
2048   // when leaving scrollbar area when jump-scrolling, stop gadget processing
2049   if (gadget_draggable && !gadget_dragging && gadget_moving_off_borders)
2050     gadget_stopped = TRUE;
2051
2052   if ((gadget_pressed) ||
2053       (gadget_pressed_repeated && gadget_pressed_delay_reached))
2054   {
2055     if (gadget_pressed)         // gadget pressed the first time
2056     {
2057       // initialize delay counter
2058       ResetDelayCounter(&pressed_delay);
2059
2060       // start gadget delay with longer delay after first click on gadget
2061       pressed_delay.value = GADGET_FRAME_DELAY_FIRST;
2062     }
2063     else                        // gadget hold pressed for some time
2064     {
2065       // after first repeated gadget click, continue with shorter delay value
2066       pressed_delay.value = GADGET_FRAME_DELAY;
2067     }
2068
2069     if (gi->type & GD_TYPE_SCROLLBAR && !gadget_dragging)
2070     {
2071       int mpos = (gi->type == GD_TYPE_SCROLLBAR_HORIZONTAL ? mx    : my);
2072       int gpos = (gi->type == GD_TYPE_SCROLLBAR_HORIZONTAL ? gi->x : gi->y);
2073       int slider_start = gpos + gi->scrollbar.position;
2074       int slider_end   = gpos + gi->scrollbar.position + gi->scrollbar.size - 1;
2075       boolean inside_slider = (mpos >= slider_start && mpos <= slider_end);
2076
2077       if (IS_WHEEL_BUTTON(button) || !inside_slider)
2078       {
2079         // click scrollbar one scrollbar length up/left or down/right
2080
2081         struct GadgetScrollbar *gs = &gi->scrollbar;
2082         int old_item_position = gs->item_position;
2083         int item_steps = gs->items_visible - 1;
2084         int item_direction = (mpos < gpos + gi->scrollbar.position ? -1 : +1);
2085
2086         if (IS_WHEEL_BUTTON(button))
2087         {
2088           boolean scroll_single_step = ((GetKeyModState() & KMOD_Alt) != 0);
2089
2090           item_steps = (scroll_single_step ? 1 : wheel_steps);
2091           item_direction = (button == MB_WHEEL_UP ||
2092                             button == MB_WHEEL_LEFT ? -1 : +1);
2093         }
2094
2095         changed_position = FALSE;
2096
2097         gs->item_position += item_steps * item_direction;
2098
2099         if (gs->item_position < 0)
2100           gs->item_position = 0;
2101         else if (gs->item_position > gs->items_max - gs->items_visible)
2102           gs->item_position = gs->items_max - gs->items_visible;
2103
2104         if (old_item_position != gs->item_position)
2105         {
2106           gi->event.item_position = gs->item_position;
2107           changed_position = TRUE;
2108         }
2109
2110         ModifyGadget(gi, GDI_SCROLLBAR_ITEM_POSITION, gs->item_position,
2111                      GDI_END);
2112
2113         gi->state = GD_BUTTON_UNPRESSED;
2114         gi->event.type = GD_EVENT_MOVING;
2115         gi->event.off_borders = FALSE;
2116
2117         if (gi->event_mask & GD_EVENT_MOVING)
2118           DoGadgetCallbackAction(gi, changed_position);
2119
2120         return TRUE;
2121       }
2122       else
2123       {
2124         // don't handle this scrollbar anymore when mouse position reached
2125         if (gadget_pressed_repeated)
2126         {
2127           gadget_stopped = TRUE;
2128
2129           return TRUE;
2130         }
2131       }
2132     }
2133   }
2134
2135   if (gadget_pressed)
2136   {
2137     PlayGadgetSoundActivating();
2138
2139     if (gi->type == GD_TYPE_CHECK_BUTTON)
2140     {
2141       gi->checked = !gi->checked;
2142     }
2143     else if (gi->type == GD_TYPE_RADIO_BUTTON)
2144     {
2145       struct GadgetInfo *rgi = gadget_list_first_entry;
2146
2147       while (rgi)
2148       {
2149         if (rgi->mapped &&
2150             rgi->type == GD_TYPE_RADIO_BUTTON &&
2151             rgi->radio_nr == gi->radio_nr &&
2152             rgi != gi)
2153         {
2154           rgi->checked = FALSE;
2155           DrawGadget(rgi, DG_UNPRESSED, rgi->direct_draw);
2156         }
2157
2158         rgi = rgi->next;
2159       }
2160
2161       gi->checked = TRUE;
2162     }
2163     else if (gi->type & GD_TYPE_SCROLLBAR)
2164     {
2165       int mpos = (gi->type == GD_TYPE_SCROLLBAR_HORIZONTAL ? mx    : my);
2166       int gpos = (gi->type == GD_TYPE_SCROLLBAR_HORIZONTAL ? gi->x : gi->y);
2167       int slider_start = gpos + gi->scrollbar.position;
2168       int slider_end   = gpos + gi->scrollbar.position + gi->scrollbar.size - 1;
2169       boolean inside_slider = (mpos >= slider_start && mpos <= slider_end);
2170
2171       if (!IS_WHEEL_BUTTON(button) && inside_slider)
2172       {
2173         // start dragging scrollbar
2174         gi->scrollbar.drag_position =
2175           scrollbar_mouse_pos - gi->scrollbar.position;
2176       }
2177     }
2178     else if (gi->type & GD_TYPE_SELECTBOX)
2179     {
2180       // keep selectbox open in case of over-large selectbox
2181       keep_selectbox_open = (mouse_inside_select_line &&
2182                              mouse_inside_select_area);
2183     }
2184
2185     DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2186
2187     gi->state = GD_BUTTON_PRESSED;
2188     gi->event.type = GD_EVENT_PRESSED;
2189     gi->event.button = button;
2190     gi->event.off_borders = FALSE;
2191
2192     if (gi->event_mask & GD_EVENT_PRESSED)
2193       gi->callback_action(gi);
2194   }
2195
2196   if (gadget_pressed_repeated)
2197   {
2198     gi->event.type = GD_EVENT_PRESSED;
2199
2200     if (gi->event_mask & GD_EVENT_REPEATED && gadget_pressed_delay_reached)
2201       gi->callback_action(gi);
2202   }
2203
2204   if (gadget_moving)
2205   {
2206     if (gi->type & GD_TYPE_BUTTON)
2207     {
2208       if (gadget_moving_inside && gi->state == GD_BUTTON_UNPRESSED)
2209         DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2210       else if (gadget_moving_off_borders && gi->state == GD_BUTTON_PRESSED)
2211         DrawGadget(gi, DG_UNPRESSED, gi->direct_draw);
2212     }
2213     else if (gi->type & GD_TYPE_SELECTBOX && !keep_selectbox_open)
2214     {
2215       int old_index = gi->selectbox.current_index;
2216
2217       // if mouse moving inside activated selectbox, select value
2218       if (my >= gi->selectbox.y && my < gi->selectbox.y + gi->selectbox.height)
2219         gi->selectbox.current_index =
2220           (my - gi->selectbox.y - gi->border.ysize) / getFontHeight(gi->font);
2221
2222       if (gi->selectbox.current_index < 0)
2223         gi->selectbox.current_index = 0;
2224       else if (gi->selectbox.current_index > gi->selectbox.num_values - 1)
2225         gi->selectbox.current_index = gi->selectbox.num_values - 1;
2226
2227       if (gi->selectbox.current_index != old_index)
2228         DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2229     }
2230     else if (gi->type & GD_TYPE_SCROLLBAR)
2231     {
2232       struct GadgetScrollbar *gs = &gi->scrollbar;
2233       int old_item_position = gs->item_position;
2234
2235       gs->position = scrollbar_mouse_pos - gs->drag_position;
2236
2237       // make sure to always precisely reach end positions when dragging
2238       if (gs->position <= 0)
2239       {
2240         gs->position = 0;
2241         gs->item_position = 0;
2242       }
2243       else if (gs->position >= gs->position_max)
2244       {
2245         gs->position = gs->position_max;
2246         gs->item_position = gs->items_max - gs->items_visible;
2247       }
2248       else
2249       {
2250         gs->item_position =
2251           gs->items_max * (gs->position + gs->correction) / gs->size_max_cmp;
2252       }
2253
2254       if (gs->item_position < 0)
2255         gs->item_position = 0;
2256       if (gs->item_position > gs->items_max - 1)
2257         gs->item_position = gs->items_max - 1;
2258
2259       if (old_item_position != gs->item_position)
2260       {
2261         gi->event.item_position = gs->item_position;
2262         changed_position = TRUE;
2263       }
2264
2265       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2266     }
2267
2268     gi->state = (gadget_moving_inside || gadget_draggable ?
2269                  GD_BUTTON_PRESSED : GD_BUTTON_UNPRESSED);
2270     gi->event.type = GD_EVENT_MOVING;
2271     gi->event.off_borders = gadget_moving_off_borders;
2272
2273     if (gi->event_mask & GD_EVENT_MOVING &&
2274         (gadget_moving_inside || gi->event_mask & GD_EVENT_OFF_BORDERS))
2275       DoGadgetCallbackAction(gi, changed_position);
2276   }
2277
2278   if (gadget_released_inside)
2279   {
2280     boolean deactivate_gadget = TRUE;
2281     boolean gadget_changed = TRUE;
2282
2283     if (gi->type == GD_TYPE_CHECK_BUTTON_2)
2284     {
2285       gi->checked = !gi->checked;
2286     }
2287     else if (gi->type & GD_TYPE_SELECTBOX)
2288     {
2289       if (keep_selectbox_open ||
2290           mouse_released_where_pressed ||
2291           !gadget_released_inside_select_area ||
2292           !CURRENT_OPTION_SELECTABLE(gi))           // selectbox stays open
2293       {
2294         deactivate_gadget = FALSE;
2295         gadget_changed = FALSE;
2296       }
2297       else if (gi->selectbox.index != gi->selectbox.current_index)
2298         gi->selectbox.index = gi->selectbox.current_index;
2299       else
2300         gadget_changed = FALSE;
2301     }
2302
2303     if (deactivate_gadget &&
2304         !(gi->type & GD_TYPE_TEXT_INPUT ||
2305           gi->type & GD_TYPE_TEXT_AREA))            // text input stays open
2306       DrawGadget(gi, DG_UNPRESSED, gi->direct_draw);
2307
2308     gi->state = GD_BUTTON_UNPRESSED;
2309     gi->event.type = GD_EVENT_RELEASED;
2310
2311     if ((gi->event_mask & GD_EVENT_RELEASED))
2312       DoGadgetCallbackAction(gi, gadget_changed);
2313   }
2314
2315   if (gadget_released_off_borders)
2316   {
2317     if (gi->type & GD_TYPE_SCROLLBAR)
2318       DrawGadget(gi, DG_UNPRESSED, gi->direct_draw);
2319
2320     gi->state = GD_BUTTON_UNPRESSED;
2321     gi->event.type = GD_EVENT_RELEASED;
2322
2323     if (gi->event_mask & GD_EVENT_RELEASED &&
2324         gi->event_mask & GD_EVENT_OFF_BORDERS)
2325       gi->callback_action(gi);
2326   }
2327
2328   // handle gadgets unmapped/mapped between pressing and releasing
2329   if (release_event && !gadget_released && new_gi)
2330     new_gi->state = GD_BUTTON_UNPRESSED;
2331
2332   return (gadget_pressed || gadget_pressed_repeated ||
2333           gadget_released || gadget_moving);
2334 }
2335
2336 static void insertCharIntoTextArea(struct GadgetInfo *gi, char c)
2337 {
2338   char text[MAX_GADGET_TEXTSIZE + 1];
2339   int cursor_position = gi->textarea.cursor_position;
2340
2341   if (strlen(gi->textarea.value) >= MAX_GADGET_TEXTSIZE) // no space left
2342     return;
2343
2344   strcpy(text, gi->textarea.value);
2345   strcpy(&gi->textarea.value[cursor_position + 1], &text[cursor_position]);
2346   gi->textarea.value[cursor_position] = c;
2347
2348   setTextAreaCursorPosition(gi, gi->textarea.cursor_position + 1);
2349 }
2350
2351 boolean HandleGadgetsKeyInput(Key key)
2352 {
2353   struct GadgetInfo *gi = last_gi;
2354
2355   if (gi == NULL || gi->deactivated || !gi->mapped ||
2356       !(gi->type & GD_TYPE_TEXT_INPUT ||
2357         gi->type & GD_TYPE_TEXT_AREA ||
2358         gi->type & GD_TYPE_SELECTBOX))
2359     return FALSE;
2360
2361   if (key == KSYM_Escape)
2362   {
2363     if (anyTextGadgetActive())
2364     {
2365       boolean gadget_changed = ((gi->event_mask & GD_EVENT_TEXT_LEAVING) != 0);
2366
2367       // restore previous text (before activating text gadget)
2368       if (gi->type & GD_TYPE_TEXT_INPUT)
2369       {
2370         strcpy(gi->textinput.value, gi->textinput.last_value);
2371
2372         CheckRangeOfNumericInputGadget(gi);
2373       }
2374
2375       // store current text for text area gadgets when pressing "Escape" key
2376       if (gi->type & GD_TYPE_TEXT_AREA)
2377       {
2378         if (!strEqual(gi->textarea.last_value, gi->textarea.value))
2379           strcpy(gi->textarea.last_value, gi->textarea.value);
2380         else
2381           gadget_changed = FALSE;
2382       }
2383
2384       DrawGadget(gi, DG_UNPRESSED, gi->direct_draw);
2385
2386       if (gi->type & GD_TYPE_TEXT_AREA)
2387       {
2388         gi->event.type = GD_EVENT_TEXT_LEAVING;
2389
2390         DoGadgetCallbackAction(gi, gadget_changed);
2391       }
2392
2393       last_gi = NULL;
2394
2395       StopTextInput();
2396     }
2397   }
2398   else if (key == KSYM_Return)  // valid for both text input and selectbox
2399   {
2400     boolean gadget_changed = ((gi->event_mask & GD_EVENT_TEXT_RETURN) != 0);
2401
2402     if (gi->type & GD_TYPE_TEXT_INPUT)
2403     {
2404       CheckRangeOfNumericInputGadget(gi);
2405
2406       if (!strEqual(gi->textinput.last_value, gi->textinput.value))
2407         strcpy(gi->textinput.last_value, gi->textinput.value);
2408       else
2409         gadget_changed = FALSE;
2410
2411       StopTextInput();
2412     }
2413     else if (gi->type & GD_TYPE_SELECTBOX)
2414     {
2415       if (gi->selectbox.index != gi->selectbox.current_index)
2416         gi->selectbox.index = gi->selectbox.current_index;
2417       else
2418         gadget_changed = FALSE;
2419     }
2420
2421     if (gi->type & GD_TYPE_TEXT_AREA)
2422     {
2423       insertCharIntoTextArea(gi, '\n');
2424
2425       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2426     }
2427     else
2428     {
2429       DrawGadget(gi, DG_UNPRESSED, gi->direct_draw);
2430
2431       gi->event.type = GD_EVENT_TEXT_RETURN;
2432
2433       last_gi = NULL;
2434     }
2435
2436     DoGadgetCallbackAction(gi, gadget_changed);
2437   }
2438   else if (gi->type & GD_TYPE_TEXT_INPUT)       // only valid for text input
2439   {
2440     char text[MAX_GADGET_TEXTSIZE + 1];
2441     int text_length = strlen(gi->textinput.value);
2442     int cursor_pos = gi->textinput.cursor_position;
2443     char letter = getCharFromKey(key);
2444     boolean legal_letter = (gi->type == GD_TYPE_TEXT_INPUT_NUMERIC ?
2445                             letter >= '0' && letter <= '9' :
2446                             letter != 0);
2447
2448     if (legal_letter && text_length < gi->textinput.size)
2449     {
2450       strcpy(text, gi->textinput.value);
2451       strcpy(&gi->textinput.value[cursor_pos + 1], &text[cursor_pos]);
2452       gi->textinput.value[cursor_pos] = letter;
2453       gi->textinput.cursor_position++;
2454
2455       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2456     }
2457     else if (key == KSYM_Left && cursor_pos > 0)
2458     {
2459       gi->textinput.cursor_position--;
2460
2461       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2462     }
2463     else if (key == KSYM_Right && cursor_pos < text_length)
2464     {
2465       gi->textinput.cursor_position++;
2466
2467       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2468     }
2469     else if (key == KSYM_BackSpace && cursor_pos > 0)
2470     {
2471       strcpy(text, gi->textinput.value);
2472       strcpy(&gi->textinput.value[cursor_pos - 1], &text[cursor_pos]);
2473       gi->textinput.cursor_position--;
2474
2475       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2476     }
2477     else if (key == KSYM_Delete && cursor_pos < text_length)
2478     {
2479       strcpy(text, gi->textinput.value);
2480       strcpy(&gi->textinput.value[cursor_pos], &text[cursor_pos + 1]);
2481
2482       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2483     }
2484     else if (key == KSYM_Home && cursor_pos > 0)
2485     {
2486       gi->textinput.cursor_position = 0;
2487
2488       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2489     }
2490     else if (key == KSYM_End && cursor_pos < text_length)
2491     {
2492       gi->textinput.cursor_position = text_length;
2493
2494       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2495     }
2496   }
2497   else if (gi->type & GD_TYPE_TEXT_AREA)        // only valid for text area
2498   {
2499     char text[MAX_GADGET_TEXTSIZE + 1];
2500     int text_length = strlen(gi->textarea.value);
2501     int area_ysize = gi->textarea.ysize;
2502     int cursor_x_pref = gi->textarea.cursor_x_preferred;
2503     int cursor_x = gi->textarea.cursor_x;
2504     int cursor_y = gi->textarea.cursor_y;
2505     int cursor_pos = gi->textarea.cursor_position;
2506     char letter = getCharFromKey(key);
2507     boolean legal_letter = (letter != 0);
2508
2509     if (legal_letter)
2510     {
2511       insertCharIntoTextArea(gi, letter);
2512
2513       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2514     }
2515     else if (key == KSYM_Left && cursor_pos > 0)
2516     {
2517       setTextAreaCursorPosition(gi, gi->textarea.cursor_position - 1);
2518
2519       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2520     }
2521     else if (key == KSYM_Right && cursor_pos < text_length)
2522     {
2523       setTextAreaCursorPosition(gi, gi->textarea.cursor_position + 1);
2524
2525       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2526     }
2527     else if (key == KSYM_Up && cursor_y > 0)
2528     {
2529       setTextAreaCursorXY(gi, cursor_x_pref, cursor_y - 1);
2530       gi->textarea.cursor_x_preferred = cursor_x_pref;
2531
2532       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2533     }
2534     else if (key == KSYM_Down && cursor_y < area_ysize - 1)
2535     {
2536       setTextAreaCursorXY(gi, cursor_x_pref, cursor_y + 1);
2537       gi->textarea.cursor_x_preferred = cursor_x_pref;
2538
2539       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2540     }
2541     else if (key == KSYM_BackSpace && cursor_pos > 0)
2542     {
2543       strcpy(text, gi->textarea.value);
2544       strcpy(&gi->textarea.value[cursor_pos - 1], &text[cursor_pos]);
2545
2546       setTextAreaCursorPosition(gi, gi->textarea.cursor_position - 1);
2547
2548       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2549     }
2550     else if (key == KSYM_Delete && cursor_pos < text_length)
2551     {
2552       strcpy(text, gi->textarea.value);
2553       strcpy(&gi->textarea.value[cursor_pos], &text[cursor_pos + 1]);
2554
2555       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2556     }
2557     else if (key == KSYM_Home && cursor_x > 0)
2558     {
2559       setTextAreaCursorPosition(gi, gi->textarea.cursor_position - cursor_x);
2560
2561       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2562     }
2563     else if (key == KSYM_End && cursor_pos < text_length)
2564     {
2565       int last_cursor_pos = cursor_pos;
2566
2567       while (gi->textarea.value[cursor_pos] != '\0' &&
2568              gi->textarea.value[cursor_pos] != '\n')
2569         cursor_pos++;
2570
2571       setTextAreaCursorPosition(gi, gi->textarea.cursor_position + cursor_pos -
2572                                 last_cursor_pos);
2573
2574       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2575     }
2576   }
2577   else if (gi->type & GD_TYPE_SELECTBOX)        // only valid for selectbox
2578   {
2579     int index = gi->selectbox.current_index;
2580     int num_values = gi->selectbox.num_values;
2581
2582     if (key == KSYM_Up && index > 0)
2583     {
2584       gi->selectbox.current_index--;
2585
2586       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2587     }
2588     else if (key == KSYM_Down && index < num_values - 1)
2589     {
2590       gi->selectbox.current_index++;
2591
2592       DrawGadget(gi, DG_PRESSED, gi->direct_draw);
2593     }
2594   }
2595
2596   return TRUE;
2597 }
2598
2599 void DumpGadgetIdentifiers(void)
2600 {
2601   struct GadgetInfo *gi;
2602
2603   Print("Gadgets on current screen:\n");
2604
2605   for (gi = gadget_list_first_entry; gi != NULL; gi = gi->next)
2606   {
2607     if (gi->mapped && gi->image_id != -1)
2608     {
2609       char *token = getTokenFromImageID(gi->image_id);
2610       char *prefix = "gfx.";
2611
2612       if (strPrefix(token, prefix))
2613         token = &token[strlen(prefix)];
2614
2615       Print("- '%s'\n", token);
2616     }
2617   }
2618
2619   Print("Done.\n");
2620 }
2621
2622 boolean DoGadgetAction(int image_id)
2623 {
2624   struct GadgetInfo *gi;
2625
2626   for (gi = gadget_list_first_entry; gi != NULL; gi = gi->next)
2627   {
2628     if (gi->mapped && gi->image_id == image_id)
2629     {
2630       gi->callback_action(gi);
2631
2632       return TRUE;
2633     }
2634   }
2635
2636   return FALSE;
2637 }