workbench/libs/openurl/prefs/win.c

   1 /*
   2 **  OpenURL - MUI preferences for openurl.library
   3 **
   4 **  Written by Troels Walsted Hansen <troels@thule.no>
   5 **  Placed in the public domain.
   6 **
   7 **  Developed by:
   8 **  - Alfonso Ranieri <alforan@tin.it>
   9 **  - Stefan Kost <ensonic@sonicpulse.de>
  10 **
  11 **  Ported to OS4 by Alexandre Balaban <alexandre@balaban.name>
  12 **
  13 **  Main window
  14 */
  15
  16
  17 #include "OpenURL.h"
  18 #define CATCOMP_NUMBERS
  19 #include "loc.h"
  20 #include "libraries/openurl.h"
  21
  22 /**************************************************************************/
  23
  24 struct data
  25 {
  26     Object *reg;
  27
  28     Object *info;
  29     Object *about;
  30     Object *browsers;
  31     Object *mailers;
  32     Object *FTPs;
  33     Object *misc;
  34
  35     Object *browserList;
  36     Object *mailerList;
  37     Object *FTPList;
  38
  39     Object *prepend;
  40     Object *mailto;
  41     Object *useFTP;
  42
  43     Object *show;
  44     Object *toFront;
  45     Object *newWin;
  46     Object *launch;
  47
  48     Object *save;
  49     Object *use;
  50     Object *apply;
  51     Object *cancel;
  52
  53     ULONG  flags;
  54 };
  55
  56 enum
  57 {
  58     FLG_Notifies = 1<<0,
  59 };
  60
  61 /**************************************************************************/
  62
  63 static STRPTR tabs[] =
  64 {
  65     (STRPTR)MSG_Win_Labels_Browsers,
  66     (STRPTR)MSG_Win_Labels_Mailers,
  67     (STRPTR)MSG_Win_Labels_FTPs,
  68     (STRPTR)MSG_Win_Labels_Misc,
  69     NULL
  70 };
  71
  72 static ULONG
  73 mNew(struct IClass *cl,Object *obj,struct opSet *msg)
  74 {
  75     struct data temp;
  76
  77     memset(&temp,0,sizeof(temp));
  78
  79     if (obj = (Object *)DoSuperNew(cl,obj,
  80         MUIA_HelpNode,           "WIN",
  81         MUIA_Window_ID,          MAKE_ID('M', 'W', 'I', 'N'),
  82         MUIA_Window_Title,       getString(MSG_Win_WinTitle),
  83         MUIA_Window_ScreenTitle, getString(MSG_App_ScreenTitle),
  84
  85         WindowContents, VGroup,
  86             Child, temp.reg = RegisterObject,
  87                 MUIA_Background,       MUII_RegisterBack,
  88                 MUIA_CycleChain,       TRUE,
  89                 MUIA_Register_Titles,  tabs,
  90
  91                 /* Browsers */
  92                 Child, temp.browsers = appListObject,
  93                     MUIA_AppList_Type, MUIV_AppList_Type_Browser,
  94                 End,
  95
  96                 /* Mailers */
  97                 Child, temp.mailers = appListObject,
  98                     MUIA_AppList_Type, MUIV_AppList_Type_Mailer,
  99                 End,
 100
 101                 /* FTPs */
 102                 Child, temp.FTPs = appListObject,
 103                     MUIA_AppList_Type, MUIV_AppList_Type_FTP,
 104                 End,
 105
 106                 /* Miscellaneous */
 107                 Child, temp.misc = VGroup,
 108                     MUIA_HelpNode, "MISCS",
 109
 110                     /* Defaults */
 111                     Child, VGroup,
 112                         GroupFrameT(getString(MSG_Misc_Defaults)),
 113                         Child, HGroup,
 114                             Child, ColGroup(2),
 115                                 Child, temp.show = ocheckmark(MSG_Misc_Show,MSG_Misc_Show_Help),
 116                                 Child, ollabel1(MSG_Misc_Show),
 117                                 Child, temp.toFront = ocheckmark(MSG_Misc_Bring,MSG_Misc_Bring_Help),
 118                                 Child, ollabel1(MSG_Misc_Bring),
 119                                 Child, temp.newWin = ocheckmark(MSG_Misc_Open,MSG_Misc_Open_Help),
 120                                 Child, ollabel1(MSG_Misc_Open),
 121                                 Child, temp.launch = ocheckmark(MSG_Misc_Launch,MSG_Misc_Launch_Help),
 122                                 Child, ollabel1(MSG_Misc_Launch),
 123                             End,
 124                             Child, HSpace(0),
 125                         End,
 126                         Child, VSpace(0),
 127                     End,
 128
 129                     /* Options */
 130                     Child, VGroup,
 131                         GroupFrameT(getString(MSG_Misc_Options)),
 132                         Child, HGroup,
 133                             Child, ColGroup(2),
 134                                 Child, temp.prepend = ocheckmark(MSG_Misc_Prepend,MSG_Misc_Prepend_Help),
 135                                 Child, ollabel1(MSG_Misc_Prepend),
 136                                 Child, temp.mailto = ocheckmark(MSG_Misc_UseMailer,MSG_Misc_UseMailer_Help),
 137                                 Child, ollabel1(MSG_Misc_UseMailer),
 138                                 Child, temp.useFTP = ocheckmark(MSG_Misc_UseFTP,MSG_Misc_UseFTP_Help),
 139                                 Child, ollabel1(MSG_Misc_UseFTP),
 140                             End,
 141                             Child, HSpace(0),
 142                         End,
 143                         Child, VSpace(0),
 144                     End,
 145                 End,
 146             End,
 147             /* Buttons */
 148             Child, HGroup,
 149                 Child, temp.save = obutton(MSG_Win_Save,MSG_Win_Save_Help),
 150                 Child, wspace(10),
 151                 Child, temp.use = obutton(MSG_Win_Use,MSG_Win_Use_Help),
 152                 Child, wspace(10),
 153                 Child, temp.apply = obutton(MSG_Win_Apply,MSG_Win_Apply_Help),
 154                 Child, wspace(10),
 155                 Child, temp.cancel = obutton(MSG_Win_Cancel,MSG_Win_Cancel_Help),
 156             End,
 157
 158         End,
 159         TAG_MORE, msg->ops_AttrList))
 160     {
 161         struct data *data = INST_DATA(cl,obj);
 162
 163         /* init instance data */
 164         CopyMem(&temp,data,sizeof(*data));
 165
 166         get(data->browsers,MUIA_AppList_ListObj,&data->browserList);
 167         get(data->mailers,MUIA_AppList_ListObj,&data->mailerList);
 168         get(data->FTPs,MUIA_AppList_ListObj,&data->FTPList);
 169
 170         /* buttons */
 171         set(obj,MUIA_Window_DefaultObject,data->browserList);
 172
 173         /* window notifies */
 174         DoMethod(obj,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,MUIV_Notify_Application,2,
 175             MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
 176
 177         /* buttons notifies */
 178         DoMethod(data->save,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,2,MUIM_Win_StorePrefs,MUIV_Win_StorePrefs_Save);
 179         DoMethod(data->use,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,2,MUIM_Win_StorePrefs,MUIV_Win_StorePrefs_Use);
 180         DoMethod(data->apply,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,2,MUIM_Win_StorePrefs,MUIV_Win_StorePrefs_Apply);
 181         DoMethod(data->cancel,MUIM_Notify,MUIA_Pressed,FALSE,MUIV_Notify_Application,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
 182     }
 183
 184     return (ULONG)obj;
 185 }
 186
 187 /**************************************************************************/
 188
 189 static ULONG
 190 mSets(struct IClass *cl,Object *obj,struct opSet *msg)
 191 {
 192     struct MUI_PenSpec **specs;
 193
 194     if (specs = (struct MUI_PenSpec **)GetTagData(MUIA_App_Pens,0L,msg->ops_AttrList))
 195     {
 196         struct data *data = INST_DATA(cl,obj);
 197
 198         //Printf("PrefsWin [%s] [%s] [%s]\n",specs[0],specs[1],specs[2]);
 199
 200         set(data->browserList,MUIA_App_Pens,specs);
 201         set(data->mailerList,MUIA_App_Pens,specs);
 202         set(data->FTPList,MUIA_App_Pens,specs);
 203     }
 204
 205     return DoSuperMethodA(cl,obj,(Msg)msg);
 206 }
 207
 208 /***********************************************************************/
 209
 210
 211 static ULONG
 212 mGetPrefs(struct IClass *cl,Object *obj,struct MUIP_Win_GetPrefs *msg)
 213 {
 214     struct data            *data = INST_DATA(cl,obj);
 215     struct URL_Prefs       *p;
 216     struct URL_BrowserNode *bn;
 217     struct URL_MailerNode  *mn;
 218     struct URL_FTPNode     *fn;
 219     ULONG                  mode, error = 0;
 220
 221     /* get the openurl.library prefs */
 222
 223     switch (msg->mode)
 224     {
 225         case MUIV_Win_GetPrefs_InUse:      mode = URL_GetPrefs_Mode_InUse;   break;
 226         case MUIV_Win_GetPrefs_LastSaveds: mode = URL_GetPrefs_Mode_Envarc;  break;
 227         case MUIV_Win_GetPrefs_Restore:    mode = URL_GetPrefs_Mode_Env;     break;
 228         case MUIV_Win_GetPrefs_Defaults:   mode = URL_GetPrefs_Mode_Default; break;
 229         default: return FALSE;
 230     }
 231
 232     p = URL_GetPrefs(URL_GetPrefs_Mode,mode,TAG_DONE);
 233     if (!p) error = MSG_Err_NoPrefs;
 234     else if (p->up_Version!=PREFS_VERSION) error = MSG_Err_BadPrefs;
 235
 236     if (error)
 237     {
 238         MUI_Request(_app(obj),NULL,0,getString(MSG_ErrReqTitle),
 239                                      getString(MSG_ErrReqGadget),
 240                                      getString(error),
 241                                      p ? p->up_Version : 0);
 242
 243         if (p) URL_FreePrefsA(p,NULL);
 244
 245         return FALSE;
 246     }
 247
 248     /* Browsers */
 249     set(data->browserList,MUIA_List_Quiet,TRUE);
 250     DoMethod(data->browserList,MUIM_List_Clear);
 251
 252     for (bn = (struct URL_BrowserNode *)p->up_BrowserList.mlh_Head;
 253          bn->ubn_Node.mln_Succ;
 254          bn = (struct URL_BrowserNode *)bn->ubn_Node.mln_Succ)
 255     {
 256         DoMethod(data->browserList,MUIM_List_InsertSingle,(ULONG)bn,MUIV_List_Insert_Bottom);
 257     }
 258
 259     set(data->browserList,MUIA_List_Quiet,FALSE);
 260
 261     /* Mailers */
 262     set(data->mailerList,MUIA_List_Quiet,TRUE);
 263     DoMethod(data->mailerList,MUIM_List_Clear);
 264
 265     for (mn = (struct URL_MailerNode *)p->up_MailerList.mlh_Head;
 266          mn->umn_Node.mln_Succ;
 267          mn = (struct URL_MailerNode *)mn->umn_Node.mln_Succ)
 268     {
 269         DoMethod(data->mailerList,MUIM_List_InsertSingle,(ULONG)mn,MUIV_List_Insert_Bottom);
 270     }
 271
 272     set(data->mailerList,MUIA_List_Quiet,FALSE);
 273
 274     /* FTPs */
 275     set(data->FTPList,MUIA_List_Quiet,TRUE);
 276     DoMethod(data->FTPList,MUIM_List_Clear);
 277
 278     for (fn = (struct URL_FTPNode *)p->up_FTPList.mlh_Head;
 279          fn->ufn_Node.mln_Succ;
 280          fn = (struct URL_FTPNode *)fn->ufn_Node.mln_Succ)
 281     {
 282         DoMethod(data->FTPList,MUIM_List_InsertSingle,(ULONG)fn,MUIV_List_Insert_Bottom);
 283     }
 284
 285     set(data->FTPList,MUIA_List_Quiet,FALSE);
 286
 287     /* Miscellaneous */
 288     set(data->prepend,MUIA_Selected,p->up_Flags & UPF_PREPENDHTTP);
 289     set(data->mailto,MUIA_Selected,p->up_Flags & UPF_DOMAILTO);
 290     set(data->useFTP,MUIA_Selected,p->up_Flags & UPF_DOFTP);
 291
 292     set(data->show,MUIA_Selected,p->up_DefShow);
 293     set(data->toFront,MUIA_Selected,p->up_DefBringToFront);
 294     set(data->newWin,MUIA_Selected,p->up_DefNewWindow);
 295     set(data->launch,MUIA_Selected,p->up_DefLaunch);
 296
 297     /* Activate the first entry */
 298     DoSuperMethod(cl,obj,MUIM_MultiSet,MUIA_List_Active,MUIV_List_Active_Top,
 299         (ULONG)data->browserList,
 300         (ULONG)data->mailerList,
 301         (ULONG)data->FTPList,
 302         NULL);
 303
 304     URL_FreePrefsA(p,NULL);
 305
 306     return TRUE;
 307 }
 308
 309 /**************************************************************************/
 310
 311 static ULONG
 312 mStorePrefs(struct IClass *cl,Object *obj,struct MUIP_Win_StorePrefs *msg)
 313 {
 314     struct data *data = INST_DATA(cl,obj);
 315     struct URL_Prefs     up;
 316     ULONG                i;
 317
 318     set(_app(obj),MUIA_Application_Sleep,TRUE);
 319
 320     /* Copy settings from gadgets into structure */
 321     up.up_Version = PREFS_VERSION;
 322     NewList((struct List *)&up.up_BrowserList);
 323     NewList((struct List *)&up.up_MailerList);
 324     NewList((struct List *)&up.up_FTPList);
 325
 326     /* Browsers */
 327     for (i = 0; ; i++)
 328     {
 329         struct URL_BrowserNode *bn;
 330
 331         DoMethod(data->browserList,MUIM_List_GetEntry,i,(ULONG)&bn);
 332         if (!bn) break;
 333
 334         if (!(bn->ubn_Flags & UNF_NEW))
 335             AddTail((struct List *)&up.up_BrowserList,(struct Node *)bn);
 336     }
 337
 338     for (i = 0; ; i++)
 339     {
 340         struct URL_MailerNode *mn;
 341
 342         DoMethod(data->mailerList,MUIM_List_GetEntry,i,(ULONG)&mn);
 343         if (!mn) break;
 344
 345         if (!(mn->umn_Flags & UNF_NEW))
 346             AddTail((struct List *)&up.up_MailerList,(struct Node *)mn);
 347     }
 348
 349     /* FTPs */
 350     for (i = 0; ; i++)
 351     {
 352         struct URL_FTPNode *fn;
 353
 354         DoMethod(data->FTPList,MUIM_List_GetEntry,i,(ULONG)&fn);
 355         if (!fn) break;
 356
 357         if (!(fn->ufn_Flags & UNF_NEW))
 358             AddTail((struct List *)&up.up_FTPList,(struct Node *)fn);
 359     }
 360
 361     /* Miscellaneous */
 362     if (xget(data->prepend,MUIA_Selected)) up.up_Flags |= UPF_PREPENDHTTP;
 363     else up.up_Flags &= ~UPF_PREPENDHTTP;
 364
 365     if (xget(data->mailto,MUIA_Selected)) up.up_Flags |= UPF_DOMAILTO;
 366     else up.up_Flags &= ~UPF_DOMAILTO;
 367
 368     if (xget(data->useFTP,MUIA_Selected)) up.up_Flags |= UPF_DOFTP;
 369     else up.up_Flags &= ~UPF_DOFTP;
 370
 371     up.up_DefShow         = (ULONG)xget(data->show,MUIA_Selected);
 372     up.up_DefBringToFront = (ULONG)xget(data->toFront,MUIA_Selected);
 373     up.up_DefNewWindow    = (ULONG)xget(data->newWin,MUIA_Selected);
 374     up.up_DefLaunch       = (ULONG)xget(data->launch,MUIA_Selected);
 375
 376     /* Save to disk */
 377     if (!URL_SetPrefs(&up,URL_SetPrefs_Save,msg->How==MUIV_Win_StorePrefs_Save,TAG_DONE))
 378         MUI_RequestA(_app(obj),obj,0,getString(MSG_ErrReqTitle),getString(MSG_ErrReqGadget),getString(MSG_Err_FailedSave),NULL);
 379
 380     set(_app(obj),MUIA_Application_Sleep,FALSE);
 381
 382     /* Quit */
 383     if (msg->How!=MUIV_Win_StorePrefs_Apply)
 384         DoMethod(_app(obj),MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
 385
 386     return TRUE;
 387 }
 388
 389 /**************************************************************************/
 390
 391 static ULONG
 392 mDelete(struct IClass *cl,Object *obj,struct MUIP_Win_Delete *msg)
 393 {
 394     struct data *data = INST_DATA(cl,obj);
 395
 396     if (!delEntry(data->browserList,msg->entry))
 397         if (!delEntry(data->mailerList,msg->entry))
 398             delEntry(data->FTPList,msg->entry);
 399
 400     return 0;
 401 }
 402
 403 /**************************************************************************/
 404
 405 static ULONG
 406 mCheckSave(struct IClass *cl,Object *obj,Msg msg)
 407 {
 408     struct data *data = INST_DATA(cl,obj);
 409
 410     return (ULONG)(DoMethod(data->browsers,MUIM_App_CheckSave) ||
 411                            DoMethod(data->mailers,MUIM_App_CheckSave)  ||
 412                            DoMethod(data->FTPs,MUIM_App_CheckSave));
 413 }
 414
 415 /**************************************************************************/
 416
 417 M_DISP(dispatcher)
 418 {
 419     M_DISPSTART
 420
 421     switch (msg->MethodID)
 422     {
 423         case OM_NEW:              return mNew(cl,obj,(APTR)msg);
 424         case OM_SET:              return mSets(cl,obj,(APTR)msg);
 425
 426         case MUIM_Win_GetPrefs:   return mGetPrefs(cl,obj,(APTR)msg);
 427         case MUIM_Win_StorePrefs: return mStorePrefs(cl,obj,(APTR)msg);
 428         case MUIM_Win_Delete:     return mDelete(cl,obj,(APTR)msg);
 429         case MUIM_App_CheckSave:  return mCheckSave(cl,obj,(APTR)msg);
 430                   //case 0x80426771:  return FALSE;
 431
 432         default:                  return DoSuperMethodA(cl,obj,msg);
 433     }
 434 }
 435
 436 M_DISPEND(dispatcher)
 437
 438 /**************************************************************************/
 439
 440 ULONG
 441 initWinClass(void)
 442 {
 443     if (g_winClass = MUI_CreateCustomClass(NULL,MUIC_Window,NULL,sizeof(struct data),DISP(dispatcher)))
 444     {
 445         localizeStrings(tabs);
 446
 447         return TRUE;
 448     }
 449
 450     return FALSE;
 451 }
 452
 453 /**************************************************************************/
 454
 455 void
 456 disposeWinClass(void)
 457 {
 458     if (g_winClass) MUI_DeleteCustomClass(g_winClass);
 459 }
 460
 461 /**************************************************************************/
 462