workbench/prefs/locale/misc.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 "version.h"
  13
  14 #include <string.h>
  15
  16 /*********************************************************************************************/
  17
  18 static struct NewMenu nm[] =
  19 {
  20     {NM_TITLE, (STRPTR)MSG_MEN_PROJECT                                                  },
  21      {NM_ITEM, (STRPTR)MSG_MEN_PROJECT_OPEN                                             },
  22      {NM_ITEM, (STRPTR)MSG_MEN_PROJECT_SAVEAS                                           },
  23      {NM_ITEM, NM_BARLABEL                                                              },
  24      {NM_ITEM, (STRPTR)MSG_MEN_PROJECT_QUIT                                             },
  25     {NM_TITLE, (STRPTR)MSG_MEN_EDIT                                                     },
  26      {NM_ITEM, (STRPTR)MSG_MEN_EDIT_DEFAULT                                             },
  27      {NM_ITEM, (STRPTR)MSG_MEN_EDIT_LASTSAVED                                           },
  28      {NM_ITEM, (STRPTR)MSG_MEN_EDIT_RESTORE                                             },
  29     {NM_TITLE, (STRPTR)MSG_MEN_SETTINGS                                                 },
  30      {NM_ITEM, (STRPTR)MSG_MEN_SETTINGS_CREATEICONS, NULL, CHECKIT | MENUTOGGLE         },
  31     {NM_END}
  32 };
  33
  34 /*********************************************************************************************/
  35
  36 void InitMenus(void)
  37 {
  38     struct NewMenu *actnm = nm;
  39
  40     for(actnm = nm; actnm->nm_Type != NM_END; actnm++)
  41     {
  42         if (actnm->nm_Label != NM_BARLABEL)
  43         {
  44             ULONG  id = (ULONG)actnm->nm_Label;
  45             CONST_STRPTR str = MSG(id);
  46
  47             if (actnm->nm_Type == NM_TITLE)
  48             {
  49                 actnm->nm_Label = str;
  50             } else {
  51                 actnm->nm_Label = str + 2;
  52                 if (str[0] != ' ') actnm->nm_CommKey = str;
  53             }
  54             actnm->nm_UserData = (APTR)id;
  55
  56         } /* if (actnm->nm_Label != NM_BARLABEL) */
  57
  58     } /* for(actnm = nm; nm->nm_Type != NM_END; nm++) */
  59
  60 }
  61
  62 /*********************************************************************************************/
  63
  64 void MakeMenus(void)
  65 {
  66     struct TagItem menu_tags[] =
  67     {
  68         {GTMN_NewLookMenus, TRUE},
  69         {TAG_DONE               }
  70     };
  71
  72     menus = CreateMenusA(nm, NULL);
  73     if (!menus) Cleanup(MSG(MSG_CANT_CREATE_MENUS));
  74
  75     if (!LayoutMenusA(menus, vi, menu_tags)) Cleanup(MSG(MSG_CANT_CREATE_MENUS));
  76
  77 }
  78
  79 /*********************************************************************************************/
  80
  81 void KillMenus(void)
  82 {
  83     if (win) ClearMenuStrip(win);
  84     if (menus) FreeMenus(menus);
  85
  86     menus = NULL;
  87 }
  88
  89 /*********************************************************************************************/
  90
  91 STRPTR GetFile(CONST_STRPTR title, CONST_STRPTR dir, BOOL savemode)
  92 {
  93     static UBYTE         filebuffer[300];
  94     struct FileRequester *req;
  95     STRPTR               retval = NULL;
  96
  97     AslBase = OpenLibrary("asl.library", 39);
  98     if (AslBase)
  99     {
 100         req = AllocAslRequestTags(ASL_FileRequest, ASLFR_TitleText    , (IPTR)title,
 101                                                    ASLFR_DoPatterns   , TRUE       ,
 102                                                    ASLFR_InitialDrawer, (IPTR)dir  ,
 103                                                    ASLFR_DoSaveMode   , savemode   ,
 104                                                    TAG_DONE);
 105         if (req)
 106         {
 107             if (AslRequest(req, NULL))
 108             {
 109                 strncpy(filebuffer, req->fr_Drawer, 299);
 110                 AddPart(filebuffer, req->fr_File, 299);
 111
 112                 retval = filebuffer;
 113
 114             } /* if (AslRequest(req, NULL) */
 115
 116             FreeAslRequest(req);
 117
 118         } /* if (req) */
 119
 120         CloseLibrary(AslBase);
 121
 122     } /* if (AslBase) */
 123
 124     return retval;
 125 }
 126
 127 /*********************************************************************************************/
 128
 129 struct Node *FindListNode(struct List *list, WORD which)
 130 {
 131     struct Node *node = NULL;
 132
 133     if (which >= 0)
 134     {
 135         for(node = list->lh_Head; node->ln_Succ && which; node = node->ln_Succ, which--)
 136         {
 137         }
 138         if (!node->ln_Succ) node = NULL;
 139     }
 140
 141     return node;
 142 }
 143
 144 /*********************************************************************************************/
 145
 146 void SortInNode(struct List *list, struct Node *node)
 147 {
 148     struct Node *sort, *prev = NULL;
 149     struct Locale *loc;
 150
 151     loc = OpenLocale(NULL);
 152
 153     ForeachNode(list, sort)
 154     {
 155         if (StrnCmp(loc,
 156                 node->ln_Name, sort->ln_Name,
 157                 strlen(node->ln_Name), SC_COLLATE2)
 158             < 0)
 159         {
 160             break;
 161         }
 162         prev = sort;
 163     }
 164
 165     Insert(list, node, prev);
 166     CloseLocale(loc);
 167 }
 168
 169 /*********************************************************************************************/
 170
 171 void ScrollListview(struct Gadget *gad, WORD delta)
 172 {
 173     IPTR top, visible, total;
 174     LONG newtop;
 175
 176     GT_GetGadgetAttrs(gad, win, NULL, GTLV_Top, (IPTR)&top,
 177                                       GTLV_Visible, (IPTR)&visible,
 178                                       GTLV_Total, (IPTR)&total,
 179                                       TAG_DONE);
 180
 181     newtop = (LONG)top + delta * 3;
 182
 183     if (newtop + visible > total)
 184     {
 185         newtop = total - visible;
 186     }
 187
 188     if (newtop < 0) newtop = 0;
 189
 190     if (newtop != top)
 191     {
 192         GT_SetGadgetAttrs(gad, win, NULL, GTLV_Top, newtop, TAG_DONE);
 193     }
 194
 195 }
 196
 197 /*********************************************************************************************/
 198