workbench/demos/register.c

   1 #include <intuition/intuition.h>
   2 #include <graphics/gfx.h>
   3 #include <graphics/text.h>
   4 #include <proto/exec.h>
   5 #include <proto/intuition.h>
   6 #include <proto/graphics.h>
   7
   8 #include <stdio.h>
   9 #include <string.h>
  10 #include <stdlib.h>
  11
  12 /****************************************************************************************/
  13
  14 #define REGISTER_EXTRA_HEIGHT 4
  15 #define REGISTERITEM_EXTRA_WIDTH 8
  16 #define REGISTER_SPACE_LEFT 8
  17 #define REGISTER_SPACE_RIGHT 8
  18
  19 struct Register
  20 {
  21     struct RegisterItem *items;
  22     struct DrawInfo *dri;
  23     WORD numitems;
  24     WORD active;
  25     WORD left;
  26     WORD top;
  27     WORD width;
  28     WORD height;
  29     WORD fontw;
  30     WORD fonth;
  31     WORD fontb;
  32     WORD slopew;
  33 };
  34
  35 struct RegisterItem
  36 {
  37     STRPTR text;
  38     WORD textlen;
  39     WORD x1, y1, x2, y2, w, h;
  40     WORD tx, ty;
  41 };
  42
  43 /****************************************************************************************/
  44
  45 struct IntuitionBase *IntuitionBase;
  46 struct GfxBase *GfxBase;
  47
  48 struct Screen *scr;
  49 struct DrawInfo *dri;
  50 struct Window *win;
  51
  52 /****************************************************************************************/
  53
  54 struct RegisterItem myregisteritems[] =
  55 {
  56     {"Timezone"},
  57     {"Country"},
  58     {"Language"},
  59     {"Something"},
  60     {"AROS"},
  61     {NULL}
  62 };
  63 struct Register myregister;
  64
  65 /****************************************************************************************/
  66
  67 static void cleanup(char *msg)
  68 {
  69     if (msg) printf("register: %s\n", msg);
  70
  71     if (win) CloseWindow(win);
  72
  73     if (dri) FreeScreenDrawInfo(scr, dri);
  74     if (scr) UnlockPubScreen(NULL, scr);
  75
  76     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  77     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  78
  79     exit (0);
  80 }
  81
  82 /****************************************************************************************/
  83
  84 static void openlibs(void)
  85 {
  86     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 39)))
  87     {
  88         cleanup("Can't open intuition.library V39!");
  89     }
  90
  91     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 39)))
  92     {
  93         cleanup("Can't open graphics.library V39!");
  94     }
  95 }
  96
  97 /****************************************************************************************/
  98
  99 static void getvisual(void)
 100 {
 101     scr = LockPubScreen(NULL);
 102     if (!scr) cleanup("Can't lock pub screen!");
 103
 104     dri = GetScreenDrawInfo(scr);
 105     if (!dri) cleanup("Can't get drawinfo!");
 106
 107 }
 108
 109 /****************************************************************************************/
 110
 111 static void initregister(struct Register *reg, struct RegisterItem *items)
 112 {
 113     reg->items = items;
 114     reg->numitems = 0;
 115
 116     while(items->text)
 117     {
 118         reg->numitems++;
 119         items++;
 120     }
 121 }
 122
 123 /****************************************************************************************/
 124
 125 static void layoutregister(struct Register *reg, struct Screen *scr,
 126                            struct DrawInfo *dri, BOOL samewidth)
 127 {
 128     struct RastPort temprp;
 129     WORD i, x, biggest_w = 0;
 130
 131     InitRastPort(&temprp);
 132     SetFont(&temprp, dri->dri_Font);
 133     reg->dri = dri;
 134     reg->fonth = dri->dri_Font->tf_YSize;
 135     reg->fontb = dri->dri_Font->tf_Baseline;
 136
 137     reg->height = ((reg->fonth + REGISTER_EXTRA_HEIGHT) + 3) & ~3; /* Multiple of 4 */
 138     reg->height += 4;
 139
 140     reg->slopew = (reg->height - 4) / 2;
 141
 142     for(i = 0; i < reg->numitems; i++)
 143     {
 144         reg->items[i].textlen = strlen(reg->items[i].text);
 145         reg->items[i].w = TextLength(&temprp, reg->items[i].text, reg->items[i].textlen);
 146         reg->items[i].w += REGISTERITEM_EXTRA_WIDTH + reg->slopew * 2;
 147
 148         if (reg->items[i].w > biggest_w) biggest_w = reg->items[i].w;
 149     }
 150
 151     if (samewidth)
 152     {
 153         for(i = 0; i < reg->numitems; i++)
 154         {
 155             reg->items[i].w = biggest_w;
 156         }
 157     }
 158
 159    x = REGISTER_SPACE_LEFT;
 160    for(i = 0; i < reg->numitems; i++)
 161    {
 162        reg->items[i].x1 = x;
 163        reg->items[i].y1 = 0;
 164        reg->items[i].x2 = x + reg->items[i].w - 1;
 165        reg->items[i].y2 = reg->height - 1;
 166        reg->items[i].h  = reg->items[i].y2 - reg->items[i].y1 + 1;
 167        reg->items[i].tx = reg->items[i].w / 2 - TextLength(&temprp, reg->items[i].text, reg->items[i].textlen) / 2;
 168        reg->items[i].ty = reg->fontb + reg->items[i].h / 2 - reg->fonth / 2;
 169
 170        x += reg->items[i].w - reg->slopew;
 171    }
 172
 173    reg->width = x + reg->slopew + REGISTER_SPACE_RIGHT;
 174
 175    DeinitRastPort(&temprp);
 176 }
 177
 178 /****************************************************************************************/
 179
 180 static void setregisterpos(struct Register *reg, WORD left, WORD top)
 181 {
 182     reg->left = left;
 183     reg->top  = top;
 184 }
 185
 186 /****************************************************************************************/
 187
 188 static void renderregisteritem(struct RastPort *rp, struct Register *reg, WORD item)
 189 {
 190     struct RegisterItem *ri = &reg->items[item];
 191     WORD x, y;
 192
 193     SetDrMd(rp, JAM1);
 194     SetFont(rp, reg->dri->dri_Font);
 195
 196     x = reg->left + ri->x1;
 197     y = reg->top + ri->y1;
 198
 199
 200     SetAPen(rp, reg->dri->dri_Pens[(reg->active == item) ? TEXTPEN : BACKGROUNDPEN]);
 201     Move(rp, x + ri->tx + 1, y + ri->ty);
 202     Text(rp, ri->text, ri->textlen);
 203     SetAPen(rp, reg->dri->dri_Pens[TEXTPEN]);
 204     Move(rp, x + ri->tx, y + ri->ty);
 205     Text(rp, ri->text, ri->textlen);
 206
 207     /* upper / at left side */
 208
 209     SetAPen(rp, reg->dri->dri_Pens[SHINEPEN]);
 210     WritePixel(rp, x + reg->slopew, y + 2);
 211     Move(rp, x + reg->slopew / 2, y + 3 + reg->slopew - 1);
 212     Draw(rp, x + reg->slopew - 1, y + 3);
 213
 214     /* --- at top side */
 215
 216     RectFill(rp, x + reg->slopew + 1, y + 1, x + reg->slopew + 2, y + 1);
 217     RectFill(rp, x + reg->slopew + 3, y, x + ri->w - 1 - reg->slopew - 3, y);
 218
 219     SetAPen(rp, reg->dri->dri_Pens[SHADOWPEN]);
 220     RectFill(rp, x + ri->w - 1 - reg->slopew - 2, y + 1, x + ri->w - 1 - reg->slopew - 1, y + 1);
 221
 222     /* upper \ at right side */
 223
 224     WritePixel(rp, x + ri->w - 1 - reg->slopew, y + 2);
 225     Move(rp, x + ri->w - 1 - reg->slopew + 1, y + 3);
 226     Draw(rp, x + ri->w - 1 - reg->slopew / 2, y + 3 + reg->slopew - 1);
 227
 228     /* lower / at left side. */
 229
 230     if ((item == 0) || (reg->active == item))
 231     {
 232         SetAPen(rp, reg->dri->dri_Pens[SHINEPEN]);
 233     }
 234     else
 235     {
 236         SetAPen(rp, reg->dri->dri_Pens[BACKGROUNDPEN]);
 237     }
 238     Move(rp, x, y + ri->h - 2);
 239     Draw(rp, x + reg->slopew / 2 - 1, y + ri->h - 2 - reg->slopew + 1);
 240
 241     /* lower \ at the lefst side from the previous item */
 242
 243     if (item > 0)
 244     {
 245         if (reg->active == item)
 246         {
 247             SetAPen(rp, reg->dri->dri_Pens[BACKGROUNDPEN]);
 248         }
 249         else
 250         {
 251             SetAPen(rp, reg->dri->dri_Pens[SHADOWPEN]);
 252         }
 253         Move(rp, x + reg->slopew / 2, y + ri->h - 2 - reg->slopew + 1);
 254         Draw(rp, x + reg->slopew - 1, y + ri->h - 2);
 255     }
 256
 257     /* lower \ at right side. */
 258
 259     if (reg->active == item + 1)
 260     {
 261         SetAPen(rp, reg->dri->dri_Pens[BACKGROUNDPEN]);
 262     }
 263     else
 264     {
 265         SetAPen(rp, reg->dri->dri_Pens[SHADOWPEN]);
 266     }
 267     Move(rp, x + ri->w - 1 - reg->slopew / 2 + 1, y + ri->h - 2 - reg->slopew + 1);
 268     Draw(rp, x + ri->w - 1, y + ri->h - 2);
 269
 270     if (reg->active == item)
 271     {
 272         SetAPen(rp, reg->dri->dri_Pens[BACKGROUNDPEN]);
 273         RectFill(rp, x, y + ri->h - 1, x + ri->w - 1, y + ri->h - 1);
 274     }
 275     else
 276     {
 277         WORD x1, x2;
 278
 279         x1 = x;
 280         x2 = x + ri->w - 1;
 281
 282         if (reg->active == item - 1)
 283             x1 += reg->slopew;
 284         else if (reg->active == item + 1)
 285             x2 -= reg->slopew;
 286
 287         SetAPen(rp, reg->dri->dri_Pens[SHINEPEN]);
 288         RectFill(rp, x1, y + ri->h - 1, x2, y + ri->h - 1);
 289     }
 290
 291
 292
 293 #if 0
 294     /* \ at left side from previous item */
 295
 296     if (item != 0)
 297     {
 298         if (reg->active == item)
 299         {
 300             SetAPen(rp, reg->dri->dri_Pens[BACKGROUNDPEN]);
 301         }
 302         else
 303         {
 304             SetAPen(rp, reg->dri->dri_Pens[SHADOWPEN]);
 305         }
 306
 307         Move(rp, x + reg->slopew / 2, y + ri->h - 2 - reg->slopew + 1);
 308         Draw(rp, x + reg->slopew - 1, y + ri->h - 2);
 309     }
 310 #endif
 311
 312 }
 313
 314 /****************************************************************************************/
 315
 316 static void renderregister(struct RastPort *rp, struct Register *reg)
 317 {
 318     WORD i;
 319
 320     SetDrMd(rp, JAM1);
 321
 322     SetAPen(rp, reg->dri->dri_Pens[SHINEPEN]);
 323
 324     RectFill(rp, reg->left,
 325                  reg->top + reg->height - 1,
 326                  reg->left + REGISTER_SPACE_LEFT - 1,
 327                  reg->top + reg->height - 1);
 328
 329     RectFill(rp, reg->left + reg->width - REGISTER_SPACE_RIGHT,
 330                  reg->top + reg->height - 1,
 331                  reg->left + reg->width - 1,
 332                  reg->top + reg->height - 1);
 333
 334     for(i = 0; i < reg->numitems; i++)
 335     {
 336         renderregisteritem(rp, reg, i);
 337     }
 338
 339
 340 }
 341
 342 /****************************************************************************************/
 343
 344 static BOOL handleregisterinput(struct Register *reg, struct IntuiMessage *msg)
 345 {
 346     struct Window *win = msg->IDCMPWindow;
 347     BOOL retval = FALSE;
 348
 349     if ((msg->Class == IDCMP_MOUSEBUTTONS) &&
 350         (msg->Code == SELECTDOWN))
 351     {
 352         WORD i;
 353         WORD x = win->MouseX - reg->left;
 354         WORD y = win->MouseY - reg->top;
 355
 356         for(i = 0; i < reg->numitems; i++)
 357         {
 358             if ((x >= reg->items[i].x1) &&
 359                 (y >= reg->items[i].y1) &&
 360                 (x <= reg->items[i].x2) &&
 361                 (y <= reg->items[i].y2))
 362             {
 363                 if (reg->active != i)
 364                 {
 365                     WORD oldactive = reg->active;
 366
 367                     reg->active = i;
 368                     renderregisteritem(win->RPort, reg, oldactive);
 369                     renderregisteritem(win->RPort, reg, i);
 370                 }
 371                 break;
 372             }
 373         }
 374     }
 375
 376     return retval;
 377
 378 }
 379
 380
 381 /****************************************************************************************/
 382
 383 static void makewin(void)
 384 {
 385     win = OpenWindowTags(0, WA_PubScreen, (IPTR)scr,
 386                             WA_Title, (IPTR) "Register Tabs",
 387                             WA_InnerWidth, myregister.width + 8,
 388                             WA_InnerHeight, myregister.height + 8,
 389                             WA_CloseGadget, TRUE,
 390                             WA_DepthGadget, TRUE,
 391                             WA_Activate, TRUE,
 392                             WA_IDCMP, IDCMP_CLOSEWINDOW | IDCMP_MOUSEBUTTONS,
 393                             TAG_DONE);
 394
 395     if (!win) cleanup("Can't open window!");
 396 }
 397
 398 /****************************************************************************************/
 399
 400 static void handleall(void)
 401 {
 402     struct IntuiMessage *msg;
 403
 404     BOOL quitme = FALSE;
 405
 406     while(!quitme)
 407     {
 408         WaitPort(win->UserPort);
 409
 410         while((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 411         {
 412             if (!handleregisterinput(&myregister, msg))
 413             {
 414                 switch(msg->Class)
 415                 {
 416                     case IDCMP_CLOSEWINDOW:
 417                         quitme = TRUE;
 418                         break;
 419                 }
 420             }
 421             ReplyMsg((struct Message *)msg);
 422
 423         } /* while((msg = (struct IntuiMessage *)GetMsg(win->UserPort))) */
 424
 425     } /* while(!quitme) */
 426 }
 427
 428 /****************************************************************************************/
 429
 430 int main(void)
 431 {
 432     openlibs();
 433     getvisual();
 434     initregister(&myregister, myregisteritems);
 435     layoutregister(&myregister, scr, dri, TRUE);
 436     makewin();
 437     setregisterpos(&myregister, win->BorderLeft + 4, win->BorderTop + 4);
 438     renderregister(win->RPort, &myregister);
 439     handleall();
 440     cleanup(0);
 441     return 0;
 442 }
 443
 444 /****************************************************************************************/
 445 /****************************************************************************************/
 446 /****************************************************************************************/
 447 /****************************************************************************************/
 448 /****************************************************************************************/
 449 /****************************************************************************************/