workbench/prefs/locale/page_country.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /*********************************************************************************************/
  10
  11 #include "global.h"
  12 #include <string.h>
  13
  14 /*********************************************************************************************/
  15
  16 static struct Gadget *gadlist, *countrygad, *gad;
  17 static struct Hook lvhook;
  18 static WORD domleft, domtop, domwidth, domheight;
  19 static WORD max_flagw, max_flagh;
  20 static WORD active_country = 0;
  21 static BOOL page_active;
  22
  23 /*********************************************************************************************/
  24
  25 static LONG country_init(void)
  26 {
  27     struct CountryEntry *entry;
  28     static UBYTE         filename[256];
  29
  30     if (!DataTypesBase) return TRUE;
  31
  32     ForeachNode(&country_list, entry)
  33     {
  34         strcpy(filename, "LOCALE:Flags/Countries");
  35         AddPart(filename, entry->lve.realname, 256);
  36
  37         entry->dto = NewDTObject(filename, DTA_GroupID          , GID_PICTURE       ,
  38                                            OBP_Precision        , PRECISION_IMAGE   ,
  39                                            PDTA_Screen          , (IPTR)scr         ,
  40                                            PDTA_Remap           , TRUE              ,
  41                                            PDTA_FreeSourceBitMap, TRUE              ,
  42                                            PDTA_DestMode        , PMODE_V43         ,
  43                                            PDTA_UseFriendBitMap , TRUE              ,
  44                                            TAG_DONE);
  45
  46         if (entry->dto)
  47         {
  48             IPTR val;
  49
  50             DoMethod(entry->dto, DTM_PROCLAYOUT, (IPTR) NULL, 1);
  51
  52             GetDTAttrs(entry->dto, PDTA_DestBitMap, (IPTR) &entry->flagbm, TAG_DONE);
  53             if (!entry->flagbm)
  54             {
  55                 GetDTAttrs(entry->dto, PDTA_BitMap, (IPTR) &entry->flagbm, TAG_DONE);
  56             }
  57
  58             GetDTAttrs(entry->dto, DTA_NominalHoriz, (IPTR) &val, TAG_DONE);
  59             entry->flagw = (WORD)val;
  60
  61             GetDTAttrs(entry->dto, DTA_NominalVert, (IPTR) &val, TAG_DONE);
  62             entry->flagh = (WORD)val;
  63
  64             if (entry->flagbm)
  65             {
  66                 if (entry->flagw > max_flagw) max_flagw = entry->flagw;
  67                 if (entry->flagh > max_flagh) max_flagh = entry->flagh;
  68
  69                 if (GetBitMapAttr(scr->RastPort.BitMap, BMA_DEPTH) >= 15)
  70                 {
  71                     struct BitMap *bm;
  72
  73                     bm = AllocBitMap(entry->flagw,
  74                                      entry->flagh,
  75                                      GetBitMapAttr(scr->RastPort.BitMap, BMA_DEPTH),
  76                                      BMF_MINPLANES | BMF_INTERLEAVED,
  77                                      scr->RastPort.BitMap);
  78
  79                     if (bm)
  80                     {
  81                         BltBitMap(entry->flagbm, 0, 0, bm, 0, 0, entry->flagw, entry->flagh, 192, 255, 0);
  82                         DisposeDTObject(entry->dto);
  83
  84                         entry->dto = NULL;
  85                         entry->flagbm = bm;
  86                     }
  87                 }
  88             }
  89             else
  90             {
  91                 DisposeDTObject(entry->dto);
  92                 entry->dto = NULL;
  93             }
  94
  95         } /* if (entry->dto) */
  96
  97     } /* ForeachNode(&country_list, entry) */
  98
  99     return TRUE;
 100 }
 101
 102 /*********************************************************************************************/
 103
 104 static IPTR LVRenderHook(struct Hook *hook, struct Node *node, struct LVDrawMsg *msg)
 105 {
 106     IPTR retval;
 107
 108     if (msg->lvdm_MethodID == LV_DRAW)
 109     {
 110         struct DrawInfo *dri = msg->lvdm_DrawInfo;
 111         struct RastPort *rp  = msg->lvdm_RastPort;
 112
 113         WORD min_x = msg->lvdm_Bounds.MinX;
 114         WORD min_y = msg->lvdm_Bounds.MinY;
 115         WORD max_x = msg->lvdm_Bounds.MaxX;
 116         WORD max_y = msg->lvdm_Bounds.MaxY;
 117
 118         UWORD erasepen = BACKGROUNDPEN;
 119
 120         SetDrMd(rp, JAM1);
 121
 122         switch (msg->lvdm_State)
 123         {
 124             case LVR_SELECTED:
 125             case LVR_SELECTEDDISABLED:
 126                 erasepen = FILLPEN;
 127                 /* Fall through */
 128
 129             case LVR_NORMAL:
 130             case LVR_NORMALDISABLED:
 131             {
 132
 133                 struct TextExtent   te;
 134                 struct CountryEntry *ce;
 135                 WORD                numfit;
 136
 137                 SetAPen(rp, dri->dri_Pens[erasepen]);
 138                 RectFill(rp, min_x, min_y, max_x, max_y);
 139
 140                 ce = (struct CountryEntry *)node;
 141                 if (ce->flagbm)
 142                 {
 143                     BltBitMapRastPort(ce->flagbm,
 144                                       0,
 145                                       0,
 146                                       rp,
 147                                       min_x + 1,
 148                                       (min_y + max_y + 1 - ce->flagh) / 2,
 149                                       ce->flagw,
 150                                       ce->flagh,
 151                                       192);
 152                 }
 153
 154                 if (max_flagh) min_x += max_flagw + 3;
 155
 156                 numfit = TextFit(rp, node->ln_Name, strlen(node->ln_Name),
 157                         &te, NULL, 1, max_x - min_x + 1, max_y - min_y + 1);
 158
 159                 SetAPen(rp, dri->dri_Pens[TEXTPEN]);
 160
 161                 /* Render text */
 162                 Move(rp, min_x, (min_y + max_y + 1 - rp->Font->tf_YSize) / 2 + rp->Font->tf_Baseline);
 163                 Text(rp, node->ln_Name, numfit);
 164                             }
 165             break;
 166
 167         }
 168
 169         retval = LVCB_OK;
 170      }
 171      else
 172      {
 173         retval = LVCB_UNKNOWN;
 174      }
 175
 176      return retval;
 177 }
 178
 179 /*********************************************************************************************/
 180
 181 static LONG country_makegadgets(void)
 182 {
 183     struct NewGadget ng;
 184     WORD             itemheight;
 185
 186     gad = CreateContext(&gadlist);
 187
 188     ng.ng_LeftEdge   = domleft;
 189     ng.ng_TopEdge    = domtop;
 190     ng.ng_Width      = domwidth;
 191     ng.ng_Height     = domheight;
 192     ng.ng_GadgetText = NULL;
 193     ng.ng_TextAttr   = 0;
 194     ng.ng_GadgetID   = MSG_GAD_TAB_COUNTRY;
 195     ng.ng_Flags      = 0;
 196     ng.ng_VisualInfo = vi;
 197
 198     itemheight = dri->dri_Font->tf_YSize;
 199     if (max_flagh > itemheight) itemheight = max_flagh;
 200     itemheight += 2;
 201
 202     lvhook.h_Entry = HookEntry;
 203     lvhook.h_SubEntry = LVRenderHook;
 204
 205     gad = countrygad = CreateGadget(LISTVIEW_KIND, gad, &ng, GTLV_Labels        , (IPTR)&country_list,
 206                                                              GTLV_ShowSelected  , (IPTR) NULL                ,
 207                                                              GTLV_Selected      , active_country     ,
 208                                                              GTLV_MakeVisible   , active_country     ,
 209                                                              GTLV_ItemHeight    , itemheight         ,
 210                                                              GTLV_CallBack      , (IPTR)&lvhook      ,
 211                                                              TAG_DONE);
 212
 213
 214     return gad ? TRUE : FALSE;
 215 }
 216
 217 /*********************************************************************************************/
 218
 219 static void country_cleanup(void)
 220 {
 221     struct CountryEntry *entry;
 222
 223     ForeachNode(&country_list, entry)
 224     {
 225         if (entry->dto)
 226         {
 227             DisposeDTObject(entry->dto);
 228         }
 229         else if (entry->flagbm)
 230         {
 231             FreeBitMap(entry->flagbm);
 232         }
 233     }
 234
 235     if (gadlist) FreeGadgets(gadlist);
 236     gadlist = NULL;
 237 }
 238
 239 /*********************************************************************************************/
 240
 241 static LONG country_input(struct IntuiMessage *msg)
 242 {
 243     struct CountryEntry *entry;
 244     LONG        retval = FALSE;
 245
 246     if (msg->Class == IDCMP_GADGETUP)
 247     {
 248         struct Gadget *gad = (struct Gadget *)msg->IAddress;
 249
 250         switch(gad->GadgetID)
 251         {
 252             case MSG_GAD_TAB_COUNTRY:
 253                 if ((entry = (struct CountryEntry *)FindListNode(&country_list, msg->Code)))
 254                 {
 255                     if (active_country != msg->Code)
 256                     {
 257                         active_country = msg->Code;
 258                         strcpy(localeprefs.lp_CountryName, entry->lve.realname);
 259                         LoadCountry(localeprefs.lp_CountryName, &localeprefs.lp_CountryData);
 260                     }
 261                 }
 262                 retval = TRUE;
 263                 break;
 264
 265         } /* switch(gad->GadgetID) */
 266
 267     } /* if (msg->Class == IDCMP_GADGETUP) */
 268     else if (msg->Class == IDCMP_RAWKEY)
 269     {
 270         switch(msg->Code)
 271         {
 272             case RAWKEY_NM_WHEEL_UP:
 273                 ScrollListview(countrygad, -1);
 274                 break;
 275
 276             case RAWKEY_NM_WHEEL_DOWN:
 277                 ScrollListview(countrygad, 1);
 278                 break;
 279         }
 280     }
 281
 282     return retval;
 283 }
 284
 285 /*********************************************************************************************/
 286
 287 static void country_prefs_changed(void)
 288 {
 289     struct CountryEntry *entry;
 290     WORD                i = 0;
 291
 292     active_country = 0;
 293
 294     ForeachNode(&country_list, entry)
 295     {
 296         if (Stricmp(localeprefs.lp_CountryName, entry->lve.realname) == 0)
 297         {
 298             active_country = i;
 299             break;
 300         }
 301         i++;
 302     }
 303
 304     if (gadlist)
 305     {
 306         struct Window *winparam = page_active ? win : NULL;
 307
 308         GT_SetGadgetAttrs(countrygad, winparam, NULL, GTLV_Selected   , active_country,
 309                                                       GTLV_MakeVisible, active_country,
 310                                                       TAG_DONE);
 311     }
 312 }
 313
 314 /*********************************************************************************************/
 315
 316 LONG page_country_handler(LONG cmd, IPTR param)
 317 {
 318     LONG retval = TRUE;
 319
 320     switch(cmd)
 321     {
 322         case PAGECMD_INIT:
 323             retval = country_init();
 324             break;
 325
 326         case PAGECMD_LAYOUT:
 327             break;
 328
 329         case PAGECMD_GETMINWIDTH:
 330             retval = 20;
 331             break;
 332
 333         case PAGECMD_GETMINHEIGHT:
 334             retval = 20;
 335             break;
 336
 337         case PAGECMD_SETDOMLEFT:
 338             domleft = param;
 339             break;
 340
 341         case PAGECMD_SETDOMTOP:
 342             domtop = param;
 343             break;
 344
 345         case PAGECMD_SETDOMWIDTH:
 346             domwidth = param;
 347             break;
 348
 349         case PAGECMD_SETDOMHEIGHT:
 350             domheight = param;
 351             break;
 352
 353         case PAGECMD_MAKEGADGETS:
 354             retval = country_makegadgets();
 355             break;
 356
 357         case PAGECMD_ADDGADGETS:
 358             if (!page_active)
 359             {
 360                 GT_SetGadgetAttrs(countrygad, NULL, NULL, GTLV_MakeVisible, active_country, TAG_DONE);
 361                 AddGList(win, gadlist, -1, -1, NULL);
 362                 GT_RefreshWindow(win, NULL);
 363                 RefreshGList(gadlist, win, NULL, -1);
 364
 365                 page_active = TRUE;
 366             }
 367             break;
 368
 369         case PAGECMD_REMGADGETS:
 370             if (page_active)
 371             {
 372                 if (gadlist) RemoveGList(win, gadlist, -1);
 373
 374                 page_active = FALSE;
 375             }
 376             break;
 377
 378         case PAGECMD_PREFS_CHANGED:
 379             country_prefs_changed();
 380             break;
 381
 382         case PAGECMD_HANDLEINPUT:
 383             retval = country_input((struct IntuiMessage *)param);
 384             break;
 385
 386         case PAGECMD_CLEANUP:
 387             country_cleanup();
 388             break;
 389     }
 390
 391     return retval;
 392 }