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