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