workbench/libs/openurl/prefs-aros/app.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 **  Handle the all thing
  14 */
  15
  16
  17 #include "OpenURL.h"
  18 #define CATCOMP_NUMBERS
  19 #include "loc.h"
  20 #include "OpenURL_rev.h"
  21 #include "libraries/openurl.h"
  22
  23 /**************************************************************************/
  24
  25 struct data
  26 {
  27     Object            *win;
  28     Object            *pens;
  29     Object            *about;
  30     Object            *aboutMUI;
  31
  32     struct DiskObject *icon;
  33 };
  34
  35 /**************************************************************************/
  36 /*
  37 ** Menus
  38 */
  39
  40 static struct NewMenu menu[] =
  41 {
  42     MTITLE(MSG_Menu_Project),
  43         MITEM(MSG_Menu_About),
  44         MITEM(MSG_Menu_AboutMUI),
  45         MBAR,
  46         MITEM(MSG_Menu_Hide),
  47         MBAR,
  48         MITEM(MSG_Menu_Quit),
  49
  50     MTITLE(MSG_Menu_Prefs),
  51         MITEM(MSG_Menu_Save),
  52         MITEM(MSG_Menu_Use),
  53         MBAR,
  54         MITEM(MSG_Menu_LastSaveds),
  55         MITEM(MSG_Menu_Restore),
  56         MITEM(MSG_Menu_Defaults),
  57         MBAR,
  58         MITEM(MSG_Menu_Pens),
  59         MBAR,
  60         MITEM(MSG_Menu_MUI),
  61
  62     MEND
  63 };
  64
  65 /*
  66 ** Used classes
  67 */
  68
  69 static STRPTR usedClasses[] =
  70 {
  71     "Textinput.mcc",
  72     "Urltext.mcc",
  73
  74     NULL
  75 };
  76
  77 /*
  78 ** Here we go
  79 */
  80 static ULONG
  81 mNew(struct IClass *cl,Object *obj,struct opSet *msg)
  82 {
  83     Object *strip, *win, *pens;
  84
  85     if (obj = (Object *)DoSuperNew(cl,obj,
  86             MUIA_Application_Title,       PRG,
  87             MUIA_Application_Version,     "$VER: "PRGNAME,
  88             MUIA_Application_Author,      APPAUTHOR,
  89             MUIA_Application_Copyright,   getString(MSG_App_Copyright),
  90             MUIA_Application_Description, getString(MSG_App_Description),
  91             MUIA_Application_HelpFile,    APPHELP,
  92             MUIA_Application_Base,        APPBASENAME,
  93             MUIA_Application_Menustrip,   strip = MUI_MakeObject(MUIO_MenustripNM,(ULONG)menu,MUIO_MenustripNM_CommandKeyCheck),
  94             MUIA_Application_UsedClasses, usedClasses,
  95             MUIA_Application_Window,      win = winObject, End,
  96             MUIA_Application_Window,      pens = pensObject, End,
  97             TAG_MORE,msg->ops_AttrList))
  98     {
  99         struct data *data = INST_DATA(cl,obj);
 100
 101         /*
 102         ** Setup data
 103         */
 104
 105         data->win  = win;
 106         data->pens = pens;
 107
 108         if (data->icon = GetDiskObject("PROGDIR:OpenURL"))
 109             superset(cl,obj,MUIA_Application_DiskObject,data->icon);
 110
 111         /*
 112         ** Pens window
 113         */
 114
 115         DoMethod(pens,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,MUIV_Notify_Self,3,MUIM_Set,MUIA_Window_Open,FALSE);
 116
 117         /* Menus */
 118
 119         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_About),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)obj,1,MUIM_App_About);
 120         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_AboutMUI),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)obj,2,MUIM_Application_AboutMUI,(ULONG)win);
 121         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_Hide),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)obj,3,MUIM_Set,MUIA_Application_Iconified,TRUE);
 122         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_Quit),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)obj,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
 123
 124         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_Save),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)win,2,MUIM_Win_StorePrefs,MUIV_Win_StorePrefs_Save);
 125         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_Use),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)win,2,MUIM_Win_StorePrefs,MUIV_Win_StorePrefs_Use);
 126         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_LastSaveds),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)obj,2,MUIM_App_GetPrefs,MUIV_App_GetPrefs_LastSaveds);
 127         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_Restore),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)obj,2,MUIM_App_GetPrefs,MUIV_App_GetPrefs_Restore);
 128         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_Defaults),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)obj,2,MUIM_App_GetPrefs,MUIV_App_GetPrefs_Defaults);
 129         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_MUI),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)obj,2,MUIM_Application_OpenConfigWindow,0);
 130         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MSG_Menu_Pens),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,(ULONG)pens,3,MUIM_Set,MUIA_Window_Open,TRUE);
 131
 132         /* Menus help */
 133         DoSuperMethod(cl,obj,MUIM_Notify,MUIA_Application_MenuHelp,MUIV_EveryTime,MUIV_Notify_Self,
 134             5,MUIM_Application_ShowHelp,(ULONG)win,(ULONG)APPHELP,(ULONG)"MENUS",0);
 135
 136         /*
 137         ** Setup default lamps pens
 138         */
 139         DoMethod(pens,MUIM_Pens_Change);
 140
 141         /*
 142         ** Load list formats and pens prefs
 143         */
 144         DoSuperMethod(cl,obj,MUIM_Application_Load,(ULONG)MUIV_Application_Load_ENV);
 145
 146         /*
 147         ** Try to get OpenURL prefs and open window
 148         */
 149         if (!DoMethod(win,MUIM_Win_GetPrefs,MUIV_Win_GetPrefs_Restore) || !openWindow(obj,win))
 150         {
 151             CoerceMethod(cl,obj,OM_DISPOSE);
 152
 153             return 0;
 154         }
 155     }
 156
 157     return (ULONG)obj;
 158 }
 159
 160 /***********************************************************************/
 161
 162 static ULONG
 163 mDispose(struct IClass *cl,Object *obj,Msg msg)
 164 {
 165     struct data       *data = INST_DATA(cl,obj);
 166     struct DiskObject *icon = data->icon;
 167     ULONG             res;
 168
 169     /*
 170     ** Because of users hate an app that saves on disc
 171     ** at any exit, we check if something changed
 172     */
 173     if (DoMethod(data->win,MUIM_App_CheckSave) || DoMethod(data->pens,MUIM_App_CheckSave))
 174     {
 175         DoSuperMethod(cl,obj,MUIM_Application_Save,(ULONG)MUIV_Application_Save_ENV);
 176         DoSuperMethod(cl,obj,MUIM_Application_Save,(ULONG)MUIV_Application_Save_ENVARC);
 177     }
 178
 179     res = DoSuperMethodA(cl,obj,msg);
 180
 181     if (icon) FreeDiskObject(icon);
 182
 183     return res;
 184 }
 185
 186 /***********************************************************************/
 187 /*
 188 ** We just care of pens
 189 */
 190
 191 static ULONG
 192 mSets(struct IClass *cl,Object *obj,struct opSet *msg)
 193 {
 194     struct MUI_PenSpec **specs;
 195
 196     if (specs = (struct MUI_PenSpec **)GetTagData(MUIA_App_Pens,(ULONG)NULL,msg->ops_AttrList))
 197     {
 198         struct data *data = INST_DATA(cl,obj);
 199
 200         set(data->win,MUIA_App_Pens,specs);
 201     }
 202
 203     return DoSuperMethodA(cl,obj,(Msg)msg);
 204 }
 205
 206 /***********************************************************************/
 207
 208 static Object *
 209 findWinObjByAttr(Object *app,ULONG attr,ULONG val)
 210 {
 211     struct List *winlist;
 212     Object      *obj;
 213     APTR        state;
 214
 215     /* return the window object which supports OM_GET on attr, and
 216        whose value of attr == val */
 217
 218     get(app,MUIA_Application_WindowList,&winlist);
 219     state = winlist->lh_Head;
 220
 221     while(obj = NextObject(&state))
 222     {
 223         ULONG value;
 224
 225         if (get(obj,attr,&value) && (value==val)) break;
 226     }
 227
 228     return obj;
 229 }
 230
 231 /**************************************************************************/
 232
 233 static ULONG
 234 mOpenWin(struct IClass *cl,Object *obj,struct MUIP_App_OpenWin *msg)
 235 {
 236     Object *win = findWinObjByAttr(obj,msg->IDAttr,msg->IDVal);
 237
 238     if (!win)
 239     {
 240         set(obj,MUIA_Application_Sleep,TRUE);
 241
 242         win = NewObject(msg->Class,  NULL,
 243                         msg->IDAttr, msg->IDVal,
 244                         TAG_MORE,    &msg->InitAttrs);
 245
 246         if (win) DoMethod(obj,OM_ADDMEMBER,(ULONG)win);
 247
 248         set(obj,MUIA_Application_Sleep,FALSE);
 249     }
 250
 251     return openWindow(obj,win);
 252 }
 253
 254 /**************************************************************************/
 255
 256 static ULONG
 257 mCloseWin(struct IClass *cl,Object *obj,struct MUIP_App_CloseWin *msg)
 258 {
 259     struct data *data = INST_DATA(cl,obj);
 260     Object      *win = findWinObjByAttr(obj,msg->IDAttr,msg->IDVal);
 261
 262     if (win)
 263     {
 264         set(win,MUIA_Window_Open,FALSE);
 265         DoMethod(obj,OM_REMMEMBER,(ULONG)win);
 266         MUI_DisposeObject(win);
 267
 268         if (((struct URL_Node *)msg->IDVal)->Flags & UNF_NEW)
 269             DoMethod(data->win,MUIM_Win_Delete,msg->IDVal);
 270     }
 271
 272     return TRUE;
 273 }
 274
 275 /**************************************************************************/
 276
 277 static ULONG
 278 mOpenConfigWindow(struct IClass *cl,Object *obj,Msg msg)
 279 {
 280     ULONG res;
 281
 282     set(obj,MUIA_Application_Sleep,TRUE);
 283     res = DoSuperMethodA(cl,obj,(Msg)msg);
 284     set(obj,MUIA_Application_Sleep,FALSE);
 285
 286     return res;
 287 }
 288
 289 /***********************************************************************/
 290
 291 static ULONG
 292 mDisposeWin(struct IClass *cl,Object *obj,struct MUIP_App_DisposeWin *msg)
 293 {
 294     struct data *data = INST_DATA(cl,obj);
 295     Object      *win = msg->win;
 296
 297     set(win,MUIA_Window_Open,FALSE);
 298     DoSuperMethod(cl,obj,OM_REMMEMBER,(ULONG)win);
 299     MUI_DisposeObject(win);
 300
 301     if (win==data->about) data->about = NULL;
 302     else if (win==data->aboutMUI) data->aboutMUI = NULL;
 303
 304     return 0;
 305 }
 306
 307 /***********************************************************************/
 308
 309 static ULONG
 310 mAboutMUI(struct IClass *cl,Object *obj, Msg msg)
 311 {
 312     struct data *data = INST_DATA(cl,obj);
 313
 314     superset(cl,obj,MUIA_Application_Sleep,TRUE);
 315
 316     if (!data->aboutMUI)
 317     {
 318         if (data->aboutMUI = AboutmuiObject,
 319                 MUIA_HelpNode,             "MUI",
 320                 MUIA_Aboutmui_Application, obj,
 321                 MUIA_Window_RefWindow,     data->win,
 322             End)
 323             DoMethod(data->aboutMUI,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,(ULONG)obj,5,
 324                 MUIM_Application_PushMethod,(ULONG)obj,2,MUIM_App_DisposeWin,(ULONG)data->aboutMUI);
 325     }
 326
 327     openWindow(obj,data->aboutMUI);
 328
 329     superset(cl,obj,MUIA_Application_Sleep,FALSE);
 330
 331     return 0;
 332 }
 333
 334 /***********************************************************************/
 335
 336 static ULONG
 337 mAbout(struct IClass *cl,Object *obj,Msg msg)
 338 {
 339     struct data *data = INST_DATA(cl,obj);
 340
 341     superset(cl,obj,MUIA_Application_Sleep,TRUE);
 342
 343     if (!data->about)
 344     {
 345         if (g_aboutClass || initAboutClass())
 346         {
 347             if (data->about = aboutObject,
 348                     MUIA_Aboutmui_Application, obj,
 349                     MUIA_Window_RefWindow,     data->win,
 350                 End)
 351             {
 352                 DoSuperMethod(cl,obj,OM_ADDMEMBER,(ULONG)data->about);
 353                 DoMethod(data->about,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,(ULONG)obj,5,
 354                     MUIM_Application_PushMethod,(ULONG)obj,2,MUIM_App_DisposeWin,(ULONG)data->about);
 355             }
 356         }
 357     }
 358
 359     openWindow(obj,data->about);
 360
 361     superset(cl,obj,MUIA_Application_Sleep,FALSE);
 362
 363     return 0;
 364 }
 365
 366 /***********************************************************************/
 367
 368 static void
 369 closeAllWindows(Object *app)
 370 {
 371     ULONG loop;
 372
 373     do
 374     {
 375         struct List *list;
 376         Object      *mstate;
 377         Object      *win;
 378
 379         loop = FALSE;
 380
 381         get(app,MUIA_Application_WindowList,&list);
 382         mstate = (Object *)list->lh_Head;
 383
 384         while (win = NextObject(&mstate))
 385         {
 386             ULONG ok = FALSE;
 387
 388             get(win,MUIA_App_IsSubWin,&ok);
 389             if (ok)
 390             {
 391                 set(win,MUIA_Window_Open,FALSE);
 392                 DoMethod(app,OM_REMMEMBER,(ULONG)win);
 393                 MUI_DisposeObject(win);
 394                 loop = TRUE;
 395                 break;
 396             }
 397         }
 398
 399     }
 400     while (loop);
 401 }
 402
 403 /***********************************************************************/
 404
 405 static ULONG
 406 mGetPrefs(struct IClass *cl,Object *obj,struct MUIP_App_GetPrefs *msg)
 407 {
 408     struct data *data = INST_DATA(cl,obj);
 409
 410     set(obj,MUIA_Application_Sleep,TRUE);
 411
 412     closeAllWindows(obj);
 413     DoMethod(data->win,MUIM_Win_GetPrefs,msg->mode);
 414
 415     set(obj,MUIA_Application_Sleep,FALSE);
 416
 417     return 0;
 418 }
 419
 420 /***********************************************************************/
 421
 422 M_DISP(dispatcher)
 423 {
 424     M_DISPSTART
 425
 426     switch (msg->MethodID)
 427     {
 428         case OM_NEW:                            return mNew(cl,obj,(APTR)msg);
 429         case OM_DISPOSE:                        return mDispose(cl,obj,(APTR)msg);
 430         case OM_SET:                            return mSets(cl,obj,(APTR)msg);
 431
 432         case MUIM_Application_AboutMUI:         return mAboutMUI(cl,obj,(APTR)msg);
 433         case MUIM_Application_OpenConfigWindow: return mOpenConfigWindow(cl,obj,(APTR)msg);
 434
 435         case MUIM_App_OpenWin:                  return mOpenWin(cl,obj,(APTR)msg);
 436         case MUIM_App_CloseWin:                 return mCloseWin(cl,obj,(APTR)msg);
 437         case MUIM_App_About:                    return mAbout(cl,obj,(APTR)msg);
 438         case MUIM_App_DisposeWin:               return mDisposeWin(cl,obj,(APTR)msg);
 439         case MUIM_App_GetPrefs:                 return mGetPrefs(cl,obj,(APTR)msg);
 440
 441         default:                                return DoSuperMethodA(cl,obj,msg);
 442     }
 443 }
 444
 445 M_DISPEND(dispatcher)
 446
 447 /**************************************************************************/
 448
 449 ULONG
 450 initAppClass(void)
 451 {
 452     if (g_appClass = MUI_CreateCustomClass(NULL,MUIC_Application,NULL,sizeof(struct data),DISP(dispatcher)))
 453     {
 454         localizeNewMenu(menu);
 455
 456         return TRUE;
 457     }
 458
 459     return FALSE;
 460 }
 461
 462 /**************************************************************************/
 463
 464 void
 465 disposeAppClass(void)
 466 {
 467     if (g_appClass) MUI_DeleteCustomClass(g_appClass);
 468 }
 469
 470 /**************************************************************************/
 471