src/guiprocs.c

   1 /* guiprocs.c - Kraptor
   2    Esto contiene dialogos tipo 3-D para el GUI de Kraptor
   3    Fueron tomados de Allegro Dialog Editor
   4    y modificados para su uso en Kraptor
   5    Ademas, se modifico ciertos graficos, y se agregaron slider,
   6    y otros controles 'chetos' (ver el .h)
   7
   8    This has the dialogs for the GUI of Kraptor.
   9    They where originally made by Julien Cugniere,
  10    This source code is altered by Kronoman for the use in Kraptor.
  11 */
  12
  13 /* ORIGINAL:
  14  * Allegro DIALOG Editor
  15  * by Julien Cugniere
  16  *
  17  * guiprocs.c : Some thin, 3d-looking GUI procs
  18  *
  19  * Unless otherwise specified, d->bg is ignored.
  20  */
  21 #include "guiprocs.h"
  22 #include <allegro/internal/aintern.h>
  23
  24 #define SET_DIALOG(d, _p, _x, _y, _w, _h, _fg, _bg, _k, _f, _d1, _d2, _dp, _dp2, _dp3) {\
  25     d.proc = _p; d.x = _x; d.y = _y; d.w = _w; d.h = _h; d.fg = _fg; d.bg = _bg;        \
  26     d.key = _k; d.flags = _f; d.d1 = _d1; d.d2 = _d2; d.dp = _dp; d.dp2 = _dp2;         \
  27     d.dp3 = _dp3; }
  28
  29
  30
  31 /* additionnal colors of the 3d GUI */
  32 int gui_text_color;
  33 int gui_white_color;
  34 int gui_light_color;
  35 int gui_back_color;
  36 int gui_dark_color;
  37 int gui_black_color;
  38
  39 /* default color set for the GUI
  40 Modificado por Kronoman para que ademas, inicie totalmente
  41 el GUI de Allegro para funcionar como este GUI
  42 */
  43 void xset_gui_colors(void)
  44 {
  45     gui_text_color     = makecol(0, 0, 0);
  46     gui_back_color     = makecol(208, 208, 208);
  47     gui_white_color    = makecol(245, 245, 245);
  48     gui_light_color    = makecol(223, 223, 223);
  49     gui_dark_color     = makecol(187, 187, 187);
  50     gui_black_color    = makecol(156, 156, 156);
  51
  52     gui_fg_color            = makecol(0, 0, 0);
  53     gui_mg_color            = makecol(187, 187, 187);
  54     gui_bg_color            = makecol(208, 208, 208);
  55
  56     gui_font_baseline       = 0;
  57     gui_mouse_focus         = 1;
  58     gui_shadow_box_proc     = xbox_proc;
  59     gui_ctext_proc          = xctext_proc;
  60     gui_button_proc         = xbutton_proc;
  61     gui_edit_proc           = xedit_proc;
  62     gui_list_proc           = xlist_proc;
  63     gui_text_list_proc      = xtext_list_proc;
  64     gui_menu_draw_menu      = xdraw_menu;
  65     gui_menu_draw_menu_item = xdraw_menu_item;
  66 }
  67
  68
  69
  70 /***************************************************************************/
  71 /********************************* Helpers *********************************/
  72 /***************************************************************************/
  73
  74
  75
  76 /* draws a gui box */
  77 void gui_rect(BITMAP *bmp, int x, int y, int w, int h, int flags)
  78 {
  79     int c1, c2, c3, c4;
  80     if(flags & F_IN)
  81     {
  82    c1 = gui_black_color;
  83    c2 = gui_dark_color;
  84    c3 = (flags & F_LIGHT) ? gui_white_color : gui_light_color;
  85    c4 = gui_white_color;
  86     }
  87     else
  88     {
  89    c1 = gui_white_color;
  90    c2 = (flags & F_LIGHT) ? gui_white_color : gui_light_color;
  91    c3 = gui_dark_color;
  92    c4 = gui_black_color;
  93     }
  94
  95     putpixel(bmp, x, y, c1);
  96     putpixel(bmp, x+w-1, y, gui_back_color);
  97     putpixel(bmp, x, y+h-1, gui_back_color);
  98     putpixel(bmp, x+w-1, y+h-1, c4);
  99     hline(bmp, x+1, y, x+w-2, c2);
 100     vline(bmp, x, y+1, y+h-2, c2);
 101     hline(bmp, x+1, y+h-1, x+w-2, c3);
 102     vline(bmp, x+w-1, y+1, y+h-2, c3);
 103 }
 104
 105
 106
 107 /* directly ripped from Allegro. Maybe this function should be made
 108  * available in aintern.h ?
 109  */
 110 void dotted_rect(BITMAP *bmp, int x1, int y1, int x2, int y2, int fg, int bg)
 111 {
 112     int x = ((x1+y1) & 1) ? 1 : 0;
 113     int i;
 114
 115     for (i=x1; i<=x2; i++)
 116     {
 117    putpixel(bmp, i, y1, (((i+y1) & 1) == x) ? fg : bg);
 118    putpixel(bmp, i, y2, (((i+y2) & 1) == x) ? fg : bg);
 119     }
 120
 121     for (i=y1+1; i<y2; i++)
 122     {
 123    putpixel(bmp, x1, i, (((i+x1) & 1) == x) ? fg : bg);
 124    putpixel(bmp, x2, i, (((i+x2) & 1) == x) ? fg : bg);
 125     }
 126 }
 127
 128
 129
 130 /* 3d-looking menus */
 131 void xdraw_menu(int x, int y, int w, int h)
 132 {
 133     gui_rect(screen, x, y, w, h, 0);
 134 }
 135
 136
 137
 138 /* 3d-looking menu item (ripped from AGUP)
 139 */
 140 void xdraw_menu_item(MENU *m, int x, int y, int w, int h, int bar, int sel)
 141 {
 142     int fg, bg;
 143     int i, j;
 144     char buf[512], *tok;
 145
 146     if(m->flags & D_DISABLED)
 147     {
 148    fg = gui_dark_color;
 149    bg = gui_back_color;
 150     }
 151     else
 152     {
 153    fg = gui_text_color;
 154    bg = (sel) ? gui_light_color : gui_back_color;
 155     }
 156
 157     rectfill(screen, x, y, x+w-1, y+h-1, bg);
 158     text_mode(bg);
 159
 160     if(ugetc(m->text))
 161     {
 162    i = 0;
 163    j = ugetc(m->text);
 164
 165    while((j) && (j != '\t'))
 166    {
 167        i += usetc(buf+i, j);
 168        j = ugetc(m->text+i);
 169    }
 170    usetc(buf+i, 0);
 171
 172    gui_textout(screen, buf, x+8, y+1, fg, FALSE);
 173
 174    if (j == '\t')
 175    {
 176        tok = m->text+i + uwidth(m->text+i);
 177        gui_textout(screen, tok, x+w-gui_strlen(tok)-10, y+1, fg, FALSE);
 178    }
 179
 180    if((m->child) && (!bar))
 181    {
 182        vline(screen, x+w-11, y+1, y+text_height(font), (sel) ? gui_white_color : gui_light_color);
 183        line(screen, x+w-10, y+1, x+w-3, y+(text_height(font)/2), (sel) ? gui_white_color : gui_light_color);
 184        line(screen, x+w-10, y+text_height(font), x+w-3, y+(text_height(font)/2)+1, gui_dark_color);
 185    }
 186     }
 187     else
 188     {
 189    hline(screen, x, y+text_height(font)/2+1, x+w-1, gui_dark_color);
 190    hline(screen, x, y+text_height(font)/2+2, x+w-1, gui_light_color);
 191    putpixel(screen, x-1, y+text_height(font)/2+1, gui_back_color);
 192    putpixel(screen, x-1, y+text_height(font)/2+2, gui_white_color);
 193    putpixel(screen, x+w, y+text_height(font)/2+1, gui_black_color);
 194    putpixel(screen, x+w, y+text_height(font)/2+2, gui_back_color);
 195     }
 196
 197     if(m->flags & D_SELECTED)
 198     {
 199    line(screen, x+1, y+text_height(font)/2+1, x+3, y+text_height(font)+1, fg);
 200    line(screen, x+3, y+text_height(font)+1, x+6, y+2, fg);
 201     }
 202 }
 203
 204
 205
 206 /* draws a 3d-looking scrollable frame */
 207 static void xdraw_scrollable_frame(DIALOG *d, int listsize, int offset, int height, int fg_color)
 208 {
 209     int i, len;
 210     int xx, yy;
 211
 212     /* possibly draw scrollbar */
 213     if(listsize > height)
 214     {
 215    int focus = (d->flags & D_GOTFOCUS);
 216    xx  = d->x+d->w-12;
 217    yy  = d->y;
 218    i   = ((d->h-4) * offset + listsize/2) / listsize;
 219    len = ((d->h-4) * height + listsize/2) / listsize;
 220
 221    gui_rect(screen, d->x, d->y, d->w-12, d->h, F_IN);
 222    gui_rect(screen, xx, yy, 12, d->h, F_IN);
 223    rect(screen, xx+1, yy+1, xx+12-2, yy+d->h-2, gui_white_color);
 224
 225         dotted_rect(screen, d->x+1, d->y+1, d->x+d->w-12-2, d->y+d->h-2,
 226        gui_white_color, (focus) ? gui_back_color : gui_white_color);
 227
 228    if(i > 0)
 229        rectfill(screen, xx+2, yy+2, xx+2+8, yy+2+i-1, gui_white_color);
 230
 231    gui_rect(screen, xx+2, yy+2+i, 8, len, (focus) ? F_LIGHT : 0);
 232    rectfill(screen, (xx+2)+1, (yy+2+i)+1, (xx+2+8-1)-1, (yy+2+i+len-1)-1,
 233           (focus) ? gui_light_color : gui_back_color);
 234
 235    if(i+len < d->h-4)
 236        rectfill(screen, xx+2, yy+2+i+len, xx+2+8, yy+d->h-3, gui_white_color);
 237     }
 238     else
 239     {
 240    gui_rect(screen, d->x, d->y, d->w, d->h, F_IN);
 241
 242    dotted_rect(screen, d->x+1, d->y+1, d->x+d->w-2, d->y+d->h-2,
 243        gui_white_color, (d->flags & D_GOTFOCUS) ? gui_back_color : gui_white_color);
 244     }
 245 }
 246
 247
 248
 249 /* draws a 3d-looking list (ripped from AGUP) */
 250 static void xdraw_list(DIALOG *d)
 251 {
 252     typedef char *(*getfuncptr)(int, int*);
 253     int height, listsize, i, len, bar, x, y, w;
 254     int fg, bg;
 255     char *sel = d->dp2;
 256     char s[512];
 257
 258     (*(getfuncptr)d->dp)(-1, &listsize);
 259     height = (d->h-4) / text_height(font);
 260     bar = (listsize > height);
 261     w = (bar ? d->w-15 : d->w-3);
 262     fg = (d->flags & D_DISABLED) ? gui_dark_color : gui_text_color;
 263
 264     /* draw box contents */
 265     for(i=0; i<height; i++)
 266     {
 267    if(d->d2+i < listsize)
 268    {
 269        if((sel) && (sel[d->d2+i]))
 270       bg = gui_light_color;
 271        else
 272       bg = gui_white_color;
 273        usetc(s, 0);
 274        ustrncat(s, (*(getfuncptr)d->dp)(i+d->d2, NULL), sizeof(s)-ucwidth(0));
 275        x = d->x + 2;
 276        y = d->y + 2 + i*text_height(font);
 277        text_mode(bg);
 278        rectfill(screen, x, y, x+7, y+text_height(font)-1, bg);
 279        x += 8;
 280        len = ustrlen(s);
 281        while (text_length(font, s) >= MAX(d->w - 1 - (bar ? 22 : 10), 1))
 282        {
 283       len--;
 284       usetat(s, len, 0);
 285        }
 286        textout(screen, font, s, x, y, fg);
 287        x += text_length(font, s);
 288        if(x <= d->x+w)
 289       rectfill(screen, x, y, d->x+w, y+text_height(font)-1, bg);
 290    }
 291    else
 292        rectfill(screen, d->x+2,  d->y+2+i*text_height(font),
 293            d->x+w, d->y+1+(i+1)*text_height(font), gui_white_color);
 294     }
 295
 296     if(d->y+2+i*text_height(font) <= d->y+d->h-3)
 297    rectfill(screen, d->x+2, d->y+2+i*text_height(font),
 298        d->x+w, d->y+d->h-3, gui_white_color);
 299
 300     /* draw frame, maybe with scrollbar */
 301     xdraw_scrollable_frame(d, listsize, d->d2, height, 0);
 302
 303     /* draw the focus item */
 304     if(d->d1 < d->d2+height && d->d1 >= d->d2)
 305     {
 306    y = d->y + 2 + (d->d1-d->d2)*text_height(font);
 307
 308    dotted_rect(screen, d->x+2, y-1, d->x+w, y+text_height(font),
 309        gui_dark_color, gui_white_color);
 310     }
 311 }
 312
 313
 314
 315 /*
 316 simple text proc, aligns the text depending on d->d1:
 317  *  0 - left aligned
 318  *  1 - centered on d->x
 319  *  2 - centered on the middle of the object
 320  *  3 - right aligned
 321  */
 322 static void xdraw_text(BITMAP *bmp, DIALOG *d, int align)
 323 {
 324     FONT *oldfont = font;
 325     int rtm;
 326     int fg = (d->flags & D_DISABLED) ? gui_dark_color : d->fg;
 327     int x, center;
 328
 329     switch(align)
 330     {
 331    case 1:  x = d->x;                        center = TRUE;  break;
 332    case 2:  x = d->x + d->w/2;               center = TRUE;  break;
 333    case 3:  x = d->x+d->w-gui_strlen(d->dp); center = FALSE; break;
 334    default: x = d->x;                        center = FALSE; break;
 335     }
 336     if(d->dp2)
 337    font = d->dp2;
 338     rtm = text_mode(gui_back_color);
 339     gui_textout(screen, d->dp, x, d->y, fg, center);
 340     text_mode(rtm);
 341     font = oldfont;
 342 }
 343
 344
 345
 346 /***************************************************************************/
 347 /************************* 3d-looking GUI objects **************************/
 348 /***************************************************************************/
 349
 350
 351
 352 /* simple text proc, aligns the text depending on d->d1 (see xdraw_text)*/
 353 int xtext_proc(int msg, DIALOG *d, int c)
 354 {
 355     if(msg == MSG_DRAW)
 356    xdraw_text(screen, d, d->d1);
 357     return D_O_K;
 358 }
 359
 360
 361
 362 /* replacement for allegro's d_ctext_proc */
 363 int xctext_proc(int msg, DIALOG *d, int c)
 364 {
 365     if(msg == MSG_DRAW)
 366    xdraw_text(screen, d, 1);
 367     return D_O_K;
 368 }
 369
 370
 371
 372 /* replacement for allegro's d_rtext_proc */
 373 int xrtext_proc(int msg, DIALOG *d, int c)
 374 {
 375     if(msg == MSG_DRAW)
 376    xdraw_text(screen, d, 3);
 377     return D_O_K;
 378 }
 379
 380
 381
 382 /* 3d-looking list proc */
 383 int xlist_proc(int msg, DIALOG *d, int c)
 384 {
 385     if(msg == MSG_DRAW)
 386     {
 387    xdraw_list(d);
 388    return D_O_K;
 389     }
 390     return d_list_proc(msg, d, c);
 391 }
 392
 393
 394
 395 /* 3d-looking text list proc */
 396 int xtext_list_proc(int msg, DIALOG *d, int c)
 397 {
 398     if(msg == MSG_DRAW)
 399     {
 400    xdraw_list(d);
 401    return D_O_K;
 402     }
 403     return d_text_list_proc(msg, d, c);
 404 }
 405
 406
 407
 408 /* 3d-looking textbox proc (ripped from AGUP) */
 409 int xtextbox_proc(int msg, DIALOG *d, int c)
 410 {
 411     if(msg == MSG_DRAW)
 412     {
 413    int height, bar;
 414    int fg_color = (d->flags & D_DISABLED) ? gui_dark_color : gui_text_color;
 415    height = (d->h-8) / text_height(font);
 416
 417    /* tell the object to sort of draw, but only calculate the listsize */
 418    _draw_textbox(d->dp, &d->d1,
 419             0, /* DONT DRAW anything */
 420             d->d2, !(d->flags & D_SELECTED), 8,
 421             d->x, d->y, d->w, d->h,
 422             (d->flags & D_DISABLED),
 423             0, 0, 0);
 424
 425    if(d->d1 > height)
 426        bar = 11;
 427    else
 428        bar = d->d2 = 0;
 429
 430    /* now do the actual drawing */
 431    _draw_textbox(d->dp, &d->d1, 1, d->d2,
 432             !(d->flags & D_SELECTED), 8,
 433             d->x, d->y, d->w-bar, d->h,
 434             (d->flags & D_DISABLED),
 435             fg_color, gui_white_color, gui_dark_color);
 436
 437    /* draw the frame around */
 438    xdraw_scrollable_frame(d, d->d1, d->d2, height, 0);
 439    return D_O_K;
 440     }
 441
 442     return d_textbox_proc(msg, d, c);
 443 }
 444
 445
 446
 447 /* a 3d-looking box proc. set d1 to 1 to draw it inward */
 448 int xbox_proc(int msg, DIALOG *d, int c)
 449 {
 450     if(msg == MSG_DRAW)
 451     {
 452    gui_rect(screen, d->x, d->y, d->w, d->h, d->d1);
 453    rectfill(screen, d->x+1, d->y+1, d->x+d->w-2, d->y+d->h-2, gui_back_color);
 454     }
 455     return D_O_K;
 456 }
 457
 458
 459
 460 /* a 3d-box displaying the color in d->bg */
 461 int xcolorbox_proc(int msg, DIALOG *d, int c)
 462 {
 463     if(msg == MSG_DRAW)
 464     {
 465    gui_rect(screen, d->x, d->y, d->w, d->h, F_IN);
 466    rectfill(screen, d->x+1, d->y+1, d->x+d->w-2, d->y+d->h-2, d->bg);
 467     }
 468     return D_O_K;
 469 }
 470
 471
 472
 473 /* a 3d-looking check proc. d1 ignored
 474 */
 475 int xcheck_proc(int msg, DIALOG *d, int c)
 476 {
 477     d->d1 = 1;
 478     if(msg == MSG_DRAW)
 479     {
 480    int dis = d->flags & D_DISABLED;
 481    int fg = (dis) ? gui_dark_color : gui_text_color;
 482    int bg = (dis) ? gui_light_color : gui_white_color;
 483 //   int sg = (dis) ? gui_black_color : gui_back_color;
 484    gui_rect(screen, d->x, d->y, d->h, d->h, F_IN);
 485    rectfill(screen, d->x+1, d->y+1, d->x+d->h-2, d->y+d->h-2, bg);
 486
 487    if(d->flags & D_SELECTED)
 488    {
 489    /* modificado por kronoman para hacer un 'look' mas lindo al check box */
 490
 491      rectfill(screen, d->x+3, d->y+3, d->x + d->h - 4, d->y + d->h - 4, (d->flags & D_GOTFOCUS) ? gui_light_color : gui_back_color);
 492      gui_rect(screen, d->x+2, d->y+2, d->h-4, d->h-4, (d->flags & D_GOTFOCUS) ? F_LIGHT : 0 );
 493
 494
 495 //     line(screen, d->x+3, d->y+3, d->x+d->h-4, d->y+d->h-4, gui_light_color);
 496 //     line(screen, d->x+3, d->y+d->h-4, d->x+d->h-4, d->y+3, gui_light_color);
 497
 498    }
 499
 500 //   if(d->flags & D_GOTFOCUS)
 501 //       dotted_rect(screen, d->x+1, d->y+1, d->x+d->h-2, d->y+d->h-2, sg, bg);
 502
 503    text_mode(gui_back_color);
 504    gui_textout(screen, d->dp, d->x+d->h-1+text_height(font)/2, d->y+(d->h-(text_height(font)-gui_font_baseline))/2, fg, FALSE);
 505    return D_O_K;
 506     }
 507     else
 508    return d_check_proc(msg, d, c);
 509 }
 510
 511
 512
 513 /* xbutton_proc
 514  *  a modified button proc that call a function instead of closing the dialog
 515  *  dp2 should contain the function: int func()
 516  */
 517 int xbutton_proc(int msg, DIALOG *d, int c)
 518 {
 519     int ret;
 520     typedef int (*func_ptr)(void);
 521
 522     if(msg == MSG_DRAW)
 523     {
 524    int p = (d->flags & D_SELECTED) ? 1 : 0;
 525    int style = ((p) ? F_IN : 0) | ((d->flags & D_GOTFOCUS) ? F_LIGHT : 0);
 526    gui_rect(screen, d->x, d->y, d->w, d->h, style);
 527    rectfill(screen, d->x+1, d->y+1, d->x+d->w-2, d->y+d->h-2, (d->flags & D_GOTFOCUS) ? gui_light_color : gui_back_color);
 528
 529    text_mode(-1);
 530    gui_textout(screen, d->dp, d->x+p + d->w/2, d->y+p + (d->h-text_height(font))/2, (d->flags & D_DISABLED) ? gui_dark_color : gui_text_color, 1);
 531
 532    return D_O_K;
 533     }
 534     else
 535    ret = d_button_proc(msg, d, c);
 536
 537     if(ret == D_CLOSE && d->dp2)
 538    ret = ((func_ptr)d->dp2)() | D_REDRAWME;
 539
 540     return ret;
 541 }
 542
 543
 544
 545 /* xedit_proc
 546  *  a tricky little mix of a proc, that behave like a d_edit_proc object, but
 547  *  can have a button at its right that calls a function. The function is in
 548  *  dp2 in the form int func(DIALOG*), and is passed the dialog calling it.
 549  *  Its return value is passed back to the dialog manager. PageDown simulates
 550  *  a click on the button.
 551  */
 552 int xedit_proc(int msg, DIALOG *d, int c)
 553 {
 554     int ret = D_O_K;
 555     typedef int (*func_ptr)(DIALOG*);
 556     int n = d->h-text_height(font);
 557     DIALOG edit, button;
 558
 559     SET_DIALOG(edit,   d_edit_proc,  d->x+n/2, d->y+n/2, d->w-n, d->h-n, d->fg, gui_white_color, 0, d->flags,        d->d1, d->d2, d->dp, NULL, NULL);
 560     SET_DIALOG(button, xbutton_proc, 0,        d->y+1,   d->h-2, d->h-2, d->fg, gui_back_color,  0, d->flags|D_EXIT, 0,     0,     "...", NULL, NULL);
 561
 562     if(d->dp2)
 563     {
 564    button.x = d->x + d->w - button.w - 1;
 565    edit.w -= button.w;
 566 /*
 567   _default_font seems to have dissappeared in Allegro 4.2
 568   According to the original author, function xedit_proc is not used anywhere in the code, so commenting out
 569   these lines won't hurt.
 570   Miriam Ruiz <little_miry@yahoo.es>, January 2006
 571 */
 572
 573 /*
 574    if(font == &_default_font)
 575        button.dp = "_";
 576 */
 577     }
 578     switch(msg)
 579     {
 580     case MSG_START:
 581
 582    /* hack to make this proc look better when used in file_select() */
 583    if(d->h < text_height(font)+4)
 584    {
 585        d->y -= (text_height(font)+4 - d->h)/2;
 586        d->h = text_height(font)+4;
 587    }
 588
 589     case MSG_CLICK:
 590
 591    if(d->dp2 && mouse_x >= button.x)
 592    {
 593        ret = button.proc(msg, &button, c);
 594        if(ret & D_CLOSE)
 595       ret = ((func_ptr)d->dp2)(d) | D_REDRAWME;
 596    }
 597    else
 598        ret = edit.proc(msg, &edit, c);
 599
 600    break;
 601
 602     case MSG_DRAW:
 603
 604    gui_rect(screen, d->x, d->y, d->w, d->h, F_IN);
 605    rectfill(screen, d->x+1, d->y+1, (d->dp2) ? (button.x-1) : (d->x+d->w-2), d->y+d->h-2, gui_white_color);
 606    ret = edit.proc(msg, &edit, c);
 607    if(d->dp2)
 608        ret |= button.proc(msg, &button, c);
 609    break;
 610
 611     case MSG_CHAR:
 612
 613    if(d->dp2 && (c>>8) == KEY_PGDN)
 614        ret = ((func_ptr)d->dp2)(d) | D_REDRAWME;
 615    /* fall through */
 616
 617     default:
 618
 619    ret |= edit.proc(msg, &edit, c);
 620    break;
 621     }
 622
 623     d->d1 = edit.d1;
 624     d->d2 = edit.d2;
 625     return ret;
 626 }
 627
 628
 629
 630 /* xpalette_proc
 631  *  displays the current palette, and holds the index of the selected color
 632  *  in d1. w and h are ignored: the object is sized 130x130. Supports D_EXIT,
 633  *  allowing to return D_CLOSE on double clicks.
 634  */
 635 int xpalette_proc(int msg, DIALOG* d, int c)
 636 {
 637     int x, y, ret = D_O_K;
 638
 639     switch(msg)
 640     {
 641     case MSG_START:
 642
 643    d->w = d->h = 130;
 644    break;
 645
 646     case MSG_DRAW:
 647
 648    for(x=0; x<16; x++)
 649        for(y=0; y<16; y++)
 650       rectfill(screen, d->x+1 + x*8, d->y+1 + y*8, d->x+8 + x*8, d->y+8 + y*8, palette_color[x+16*y]);
 651
 652    if(d->d1 >= 0)
 653    {
 654        x = d->x+1 + 8*(d->d1%16);
 655        y = d->y+1 + 8*(d->d1/16);
 656        rect(screen, x,   y,   x+8, y+8, gui_back_color);
 657        rect(screen, x-1, y-1, x+7, y+7, gui_text_color);
 658    }
 659    gui_rect(screen, d->x, d->y, d->w, d->h, F_IN);
 660    break;
 661
 662     case MSG_DCLICK:
 663
 664    ret = D_CLOSE;
 665    /* fall through */
 666
 667     case MSG_CLICK:
 668
 669    x = (mouse_x - (d->x+1))/8;
 670    y = (mouse_y - (d->y+1))/8;
 671    c = x + y*16;
 672
 673    if(c < 256 && c != d->d1)
 674    {
 675        d->d1 = c;
 676        return D_REDRAWME | D_WANTFOCUS;
 677    }
 678    break;
 679
 680     case MSG_WANTFOCUS:
 681    ret = D_WANTFOCUS;
 682     }
 683
 684     return ret;
 685 }
 686
 687 /* Slider cool, tipo X11, por Kronoman,
 688 basado en el slider original, pero mas bonito :^) */
 689 int xslider_proc(int msg, DIALOG* d, int c)
 690 {
 691    int vert = TRUE;        /* flag: is slider vertical? */
 692    int slx, sly, slh, slw;
 693    int hh = 20;            /* handle height (width for horizontal sliders) */
 694    int slp;                /* slider position */
 695    int irange;
 696    fixed slratio, slmax, slpos;
 697
 698    if (d->h < d->w)
 699       vert = FALSE;
 700
 701    irange = (vert) ? d->h : d->w;
 702    slmax = itofix(irange-hh);
 703    slratio = slmax / (d->d1);
 704    slpos = slratio * d->d2;
 705    slp = fixtoi(slpos);
 706
 707
 708     if(msg == MSG_DRAW)
 709     {
 710       /* dibujar */
 711         rectfill(screen, d->x, d->y, d->x+d->w-2, d->y+d->h-2,gui_white_color);
 712
 713         gui_rect(screen, d->x, d->y, d->w - 1, d->h -1, F_IN);
 714
 715
 716      /* slider */
 717          if (vert) {
 718            slx = d->x+1;
 719            sly = d->y+(d->h)-(hh+slp);
 720            slw = d->w-5;
 721            slh = hh-3;
 722         } else { /* horizontal */
 723            slx = d->x+slp;
 724            sly = d->y+2;
 725            slw = hh-3;
 726            slh = d->h-5;
 727        }
 728         rectfill(screen,
 729                  slx+3, sly+1,
 730                  slx+( slw-2), sly+slh-1,
 731                  (d->flags & D_GOTFOCUS) ? gui_light_color : gui_back_color);
 732
 733         gui_rect(screen,
 734                  slx+2, sly,
 735                  slw-2, slh,
 736                  (d->flags & D_GOTFOCUS) ? F_LIGHT : 0 );
 737
 738     }
 739     else
 740         return d_slider_proc(msg, d, c);
 741
 742 return D_O_K;
 743 }
 744
 745 /* xbitmap_proc:
 746  *  Muestra el bitmap en dp ajustado a w y h
 747  */
 748 int xbitmap_proc(int msg, DIALOG *d, int c)
 749 {
 750    BITMAP *b = (BITMAP *)d->dp;
 751
 752    if (msg==MSG_DRAW && d->dp != NULL)
 753      stretch_blit(b, screen,
 754                   0, 0, b->w, b->h,
 755                   d->x, d->y, d->w, d->h);
 756
 757    return D_O_K;
 758 }