external/openurl/prefs/popph.c

   1 /***************************************************************************
   2
   3  openurl.library - universal URL display and browser launcher library
   4  Copyright (C) 1998-2005 by Troels Walsted Hansen, et al.
   5  Copyright (C) 2005-2013 by openurl.library Open Source Team
   6
   7  This library is free software; it has been placed in the public domain
   8  and you can freely redistribute it and/or modify it. Please note, however,
   9  that some components may be under the LGPL or GPL license.
  10
  11  This library is distributed in the hope that it will be useful,
  12  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14
  15  openurl.library project: http://sourceforge.net/projects/openurllib/
  16
  17  $Id$
  18
  19 ***************************************************************************/
  20
  21 #include "openurl.h"
  22
  23 #include <exec/execbase.h>
  24 #include <libraries/asl.h>
  25
  26 #include "SDI_hook.h"
  27 #include "macros.h"
  28
  29 #include "debug.h"
  30
  31 /**************************************************************************/
  32 /*
  33 ** Place holders list
  34 */
  35
  36 static struct MUI_CustomClass *listClass = NULL;
  37 #define listObject NewObject(listClass->mcc_Class,NULL
  38
  39 struct listData
  40 {
  41     STRPTR *phs;
  42     STRPTR *names;
  43     struct Hook dispHook;
  44 };
  45
  46 /**************************************************************************/
  47
  48 HOOKPROTONHNO(conFun, ULONG, ULONG num)
  49 {
  50     return num+1;
  51 }
  52 MakeStaticHook(conHook, conFun);
  53
  54 /**************************************************************************/
  55
  56 HOOKPROTO(dispFun, void, STRPTR *array, ULONG num)
  57 {
  58     struct listData *data = hook->h_Data;
  59
  60     if (num)
  61     {
  62         num--;
  63
  64         *array++ = data->phs[num];
  65         *array   = data->names[num];
  66     }
  67 }
  68 MakeStaticHook(dispHook, dispFun);
  69
  70 /**************************************************************************/
  71
  72 static IPTR
  73 mListNew(struct IClass *cl, Object *obj, struct opSet *msg)
  74 {
  75     struct TagItem *attrs = msg->ops_AttrList;
  76     STRPTR *phs, *names;
  77
  78     phs   = (STRPTR *)GetTagData(MUIA_Popph_Syms,(IPTR)NULL,attrs);
  79     names = (STRPTR *)GetTagData(MUIA_Popph_Names,(IPTR)NULL,attrs);
  80     if (!phs || !names) return 0;
  81
  82     if((obj = (Object *)DoSuperNew(cl,obj,
  83             InputListFrame,
  84             MUIA_List_Format,        ",",
  85             MUIA_List_Pool,          g_pool,
  86             MUIA_List_ConstructHook, &conHook,
  87             TAG_MORE, attrs)) != NULL)
  88     {
  89         struct listData *data = INST_DATA(cl,obj);
  90         int             i;
  91
  92         data->phs   = phs;
  93         data->names = names;
  94
  95         InitHook(&data->dispHook, dispHook, data);
  96
  97         superset(cl,obj,MUIA_List_DisplayHook,&data->dispHook);
  98
  99         conHook.h_Data  = data;
 100
 101         for (i = 0; phs[i]; i++)
 102             DoSuperMethod(cl,obj,MUIM_List_InsertSingle,i,MUIV_List_Insert_Bottom);
 103     }
 104
 105     return (IPTR)obj;
 106 }
 107
 108 /**************************************************************************/
 109
 110 SDISPATCHER(listDispatcher)
 111 {
 112     switch (msg->MethodID)
 113     {
 114         case OM_NEW: return mListNew(cl,obj,(APTR)msg);
 115
 116         default:     return DoSuperMethodA(cl,obj,msg);
 117     }
 118 }
 119
 120 /**************************************************************************/
 121
 122 static BOOL initListClass(void)
 123 {
 124     BOOL success = FALSE;
 125
 126     ENTER();
 127
 128     if((listClass = MUI_CreateCustomClass(NULL, MUIC_List, NULL, sizeof(struct listData), ENTRY(listDispatcher))) != NULL)
 129         success = TRUE;
 130
 131     RETURN(success);
 132     return success;
 133 }
 134
 135 /**************************************************************************/
 136
 137 static void disposeListClass(void)
 138 {
 139     if(listClass != NULL)
 140         MUI_DeleteCustomClass(listClass);
 141 }
 142
 143 /**************************************************************************/
 144
 145 struct data
 146 {
 147     Object               *str;
 148
 149     struct Hook          closeHook;
 150     struct FileRequester *req;
 151
 152     STRPTR               *phs;
 153     STRPTR               *names;
 154 };
 155
 156 /**************************************************************************/
 157
 158 HOOKPROTONH(windowFun, void, Object *pop, Object *win)
 159 {
 160   set(win,MUIA_Window_DefaultObject,pop);
 161 }
 162 MakeStaticHook(windowHook, windowFun);
 163
 164 /***********************************************************************/
 165
 166 HOOKPROTO(closeFun, void, Object *list, Object *str)
 167 {
 168     struct data *data = hook->h_Data;
 169     LONG       a;
 170
 171     a = xget(list,MUIA_List_Active);
 172     if (a>=0)
 173     {
 174         STRPTR buf, x;
 175         ULONG pos, lx, l;
 176
 177         pos = xget(str, MUIA_String_BufferPos);
 178         x = (STRPTR)xget(str, MUIA_String_Contents);
 179
 180         lx = strlen(x);
 181         l  = strlen(data->phs[a]);
 182
 183         if((buf = AllocPooled(g_pool,lx+l+1)) != NULL)
 184         {
 185             if (pos>0) CopyMem(x,buf,pos);
 186             CopyMem(data->phs[a],buf+pos,l);
 187             if (lx) CopyMem(x+pos,buf+pos+l,lx-pos+1);
 188             set(str,MUIA_String_Contents,buf);
 189             FreePooled(g_pool,buf,lx+l+1);
 190         }
 191     }
 192 }
 193 MakeStaticHook(closeHook, closeFun);
 194
 195 static IPTR mNew(struct IClass *cl, Object *obj, struct opSet *msg)
 196 {
 197     Object         *str, *lv;
 198     struct TagItem *attrs = msg->ops_AttrList;
 199     STRPTR         *phs, *names;
 200
 201     phs   = (STRPTR*)GetTagData(MUIA_Popph_Syms,(IPTR)NULL,attrs);
 202     if (!phs) return 0;
 203
 204     names = (STRPTR*)GetTagData(MUIA_Popph_Names,FALSE,attrs);
 205     if (!names) return 0;
 206
 207     if((obj = (Object *)DoSuperNew(cl,obj,
 208             MUIA_Group_Horiz,        TRUE,
 209             MUIA_Group_HorizSpacing, 1,
 210
 211             Child, PopobjectObject,
 212                 MUIA_Popstring_String, str = ostring(GetTagData(MUIA_Popph_MaxLen,0,attrs),GetTagData(MUIA_Popph_Key,(IPTR)NULL,attrs),0),
 213                 MUIA_Popstring_Button, opopbutton(MUII_PopUp,0),
 214                 MUIA_Popobject_Object, lv = ListviewObject,
 215                     MUIA_Listview_List, listObject,
 216                         MUIA_Popph_Syms,  phs,
 217                         MUIA_Popph_Names, names,
 218                     End,
 219                 End,
 220                 MUIA_Popobject_WindowHook, &windowHook,
 221             End,
 222
 223             TAG_MORE, attrs)) != NULL)
 224     {
 225
 226         struct data *data = INST_DATA(cl,obj);
 227
 228         data->str = str;
 229
 230         data->phs   = phs;
 231         data->names = names;
 232
 233         InitHook(&data->closeHook, closeHook, data);
 234         set(obj,MUIA_Popobject_ObjStrHook,&data->closeHook);
 235
 236         if (GetTagData(MUIA_Popph_Asl,FALSE,attrs))
 237         {
 238             APTR req;
 239
 240             if((req = MUI_AllocAslRequest(ASL_FileRequest, NULL)) != NULL)
 241             {
 242                 Object *bt;
 243
 244                 if((bt = opopbutton(MUII_PopFile, 0)) != NULL)
 245                 {
 246                     DoSuperMethod(cl,obj,OM_ADDMEMBER,(IPTR)bt);
 247
 248                     data->req = req;
 249
 250                     DoMethod(bt,MUIM_Notify,MUIA_Pressed,FALSE,(IPTR)obj,1,MUIM_Popph_RequestFile);
 251                 }
 252                 else MUI_FreeAslRequest(req);
 253             }
 254         }
 255
 256         DoMethod(lv,MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,(IPTR)obj,2,MUIM_Popstring_Close,TRUE);
 257     }
 258
 259     return (IPTR)obj;
 260 }
 261
 262 /***********************************************************************/
 263
 264 static IPTR mDispose(struct IClass *cl, Object *obj, Msg msg)
 265 {
 266     struct data *data = INST_DATA(cl,obj);
 267
 268     if (data->req) MUI_FreeAslRequest(data->req);
 269
 270     return DoSuperMethodA(cl,obj,(Msg)msg);
 271 }
 272
 273 /***********************************************************************/
 274
 275 HOOKPROTONO(reqIntuiFun, void, struct IntuiMessage *imsg)
 276 {
 277   if(imsg->Class==IDCMP_REFRESHWINDOW)
 278     DoMethod(hook->h_Data,MUIM_Application_CheckRefresh);
 279 }
 280 MakeStaticHook(reqIntuiHook, reqIntuiFun);
 281
 282 static IPTR mRequestFile(struct IClass *cl, Object *obj, UNUSED Msg msg)
 283 {
 284     struct data *data = INST_DATA(cl,obj);
 285     struct Hook intuiHook;
 286     TEXT       path[256], *x, *file, *p;
 287
 288     set(_app(obj),MUIA_Application_Sleep,TRUE);
 289
 290     InitHook(&intuiHook, reqIntuiHook, _app(obj));
 291
 292     x = (STRPTR)xget(data->str, MUIA_String_Contents);
 293     file = FilePart(x);
 294     if((p = PathPart(x)) != NULL)
 295     {
 296         strlcpy(path, x, p-x+1);
 297         p = path;
 298     }
 299
 300     if (MUI_AslRequestTags(data->req,
 301                            ASLFR_InitialFile,       (IPTR)file,
 302                            p ? ASLFR_InitialDrawer : TAG_IGNORE, (IPTR)p,
 303                            ASLFR_IntuiMsgFunc,      (IPTR)&intuiHook,
 304                            ASLFR_Window,            (IPTR)_window(obj),
 305                            ASLFR_PrivateIDCMP,      TRUE,
 306                            ASLFR_Flags1,            FRF_INTUIFUNC,
 307                            TAG_DONE))
 308     {
 309         TEXT buf[256];
 310
 311         strlcpy(buf, data->req->fr_Drawer, sizeof(buf));
 312         AddPart(buf, data->req->fr_File, sizeof(buf));
 313
 314         if (*buf) set(data->str,MUIA_String_Contents,buf);
 315     }
 316     else if (IoErr()) DisplayBeep(0);
 317
 318     set(_app(obj),MUIA_Application_Sleep,FALSE);
 319
 320     return 0;
 321 }
 322
 323 /***********************************************************************/
 324
 325 SDISPATCHER(dispatcher)
 326 {
 327     switch (msg->MethodID)
 328     {
 329         case OM_NEW:                 return mNew(cl,obj,(APTR)msg);
 330         case OM_DISPOSE:             return mDispose(cl,obj,(APTR)msg);
 331
 332         case MUIM_Popph_RequestFile: return mRequestFile(cl,obj,(APTR)msg);
 333
 334         default:                     return DoSuperMethodA(cl,obj,msg);
 335     }
 336 }
 337
 338 /***********************************************************************/
 339
 340 BOOL initPopphClass(void)
 341 {
 342     BOOL success = TRUE;
 343
 344     ENTER();
 345
 346     if(initListClass() == TRUE)
 347     {
 348         if((g_popphClass = MUI_CreateCustomClass(NULL, MUIC_Group, NULL, sizeof(struct data), ENTRY(dispatcher))) != NULL)
 349             success = TRUE;
 350         else
 351             disposeListClass();
 352     }
 353
 354     RETURN(success);
 355     return success;
 356 }
 357
 358 /**************************************************************************/
 359
 360 void disposePopphClass(void)
 361 {
 362     ENTER();
 363
 364     disposeListClass();
 365     if(g_popphClass != NULL)
 366         MUI_DeleteCustomClass(g_popphClass);
 367
 368     LEAVE();
 369 }
 370
 371 /**************************************************************************/
 372