workbench/libs/openurl/prefs/popph.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 **  Popplaceholder replacement
  14 */
  15
  16
  17 #include "OpenURL.h"
  18 #include <exec/execbase.h>
  19 #include <libraries/asl.h>
  20
  21 /**************************************************************************/
  22 /*
  23 ** Place holders list
  24 */
  25
  26 static struct MUI_CustomClass *listClass = NULL;
  27 #define listObject NewObject(listClass->mcc_Class,NULL
  28
  29 struct listData
  30 {
  31     UBYTE       **phs;
  32     UBYTE       **names;
  33     struct Hook dispHook;
  34 };
  35
  36 /**************************************************************************/
  37
  38 #ifdef __MORPHOS__
  39 static ULONG
  40 conFun(void)
  41 {
  42     ULONG num = REG_A1;
  43 #else
  44 static ULONG SAVEDS ASM
  45 conFun(REG(a0,struct Hook *hook),REG(a2,APTR pool),REG(a1,ULONG num))
  46 {
  47 #endif
  48     return num+1;
  49 }
  50
  51 #ifdef __MORPHOS__
  52 static struct EmulLibEntry conTrap = {TRAP_LIB,0,(void (*)(void))conFun};
  53 static struct Hook conHook = {0,0,(HOOKFUNC)&conTrap};
  54 #else
  55 static struct Hook conHook = {0,0,(HOOKFUNC)conFun};
  56 #endif
  57
  58 /**************************************************************************/
  59
  60 #ifdef __MORPHOS__
  61 static void
  62 dispFun(void)
  63 {
  64     struct Hook  *hook = (struct Hook *)REG_a0;
  65     UBYTE        **array = (UBYTE **)REG_A2;
  66     ULONG        num = REG_A1;
  67 #else
  68 static void SAVEDS ASM
  69 dispFun(REG(a0,struct Hook *hook),REG(a2,UBYTE **array),REG(a1,ULONG num))
  70 {
  71 #endif
  72     struct listData *data = hook->h_Data;
  73
  74     if (num)
  75     {
  76         num--;
  77
  78         *array++ = data->phs[num];
  79         *array   = data->names[num];
  80     }
  81 }
  82
  83 #ifdef __MORPHOS__
  84 static struct EmulLibEntry dispTrap = {TRAP_LIBNR,0,(void (*)(void))dispFun};
  85 #endif
  86
  87 /**************************************************************************/
  88
  89 static ULONG
  90 mListNew(struct IClass *cl,Object *obj,struct opSet *msg)
  91 {
  92     struct TagItem *attrs = msg->ops_AttrList;
  93     UBYTE          **phs, **names;
  94
  95     phs   = (UBYTE **)GetTagData(MUIA_Popph_Syms,(ULONG)NULL,attrs);
  96     names = (UBYTE **)GetTagData(MUIA_Popph_Names,(ULONG)NULL,attrs);
  97     if (!phs || !names) return 0;
  98
  99     if (obj = (Object *)DoSuperNew(cl,obj,
 100             InputListFrame,
 101             MUIA_List_Format,        ",",
 102             MUIA_List_Pool,          g_pool,
 103             MUIA_List_ConstructHook, &conHook,
 104             TAG_MORE, attrs))
 105     {
 106         struct listData *data = INST_DATA(cl,obj);
 107         int             i;
 108
 109         data->phs   = phs;
 110         data->names = names;
 111
 112         #ifdef __MORPHOS__
 113         data->dispHook.h_Entry = (HOOKFUNC)&dispTrap;
 114         #else
 115         data->dispHook.h_Entry = (HOOKFUNC)dispFun;
 116         #endif
 117         data->dispHook.h_Data  = data;
 118
 119         superset(cl,obj,MUIA_List_DisplayHook,&data->dispHook);
 120
 121         conHook.h_Data  = data;
 122
 123         for (i = 0; phs[i]; i++)
 124             DoSuperMethod(cl,obj,MUIM_List_InsertSingle,i,MUIV_List_Insert_Bottom);
 125     }
 126
 127     return (ULONG)obj;
 128 }
 129
 130 /**************************************************************************/
 131
 132 M_DISP(listDispatcher)
 133 {
 134     M_DISPSTART
 135
 136     switch (msg->MethodID)
 137     {
 138         case OM_NEW: return mListNew(cl,obj,(APTR)msg);
 139
 140         default:     return DoSuperMethodA(cl,obj,msg);
 141     }
 142 }
 143
 144 M_DISPEND(listDispatcher)
 145
 146 /**************************************************************************/
 147
 148 static ULONG
 149 initListClass(void)
 150 {
 151     return (ULONG)(listClass = MUI_CreateCustomClass(NULL,MUIC_List,NULL,sizeof(struct listData),DISP(listDispatcher)));
 152 }
 153
 154 /**************************************************************************/
 155
 156 static void
 157 disposeListClass(void)
 158 {
 159     if (listClass) MUI_DeleteCustomClass(listClass);
 160 }
 161
 162 /**************************************************************************/
 163
 164 struct data
 165 {
 166     Object               *str;
 167
 168     struct Hook          closeHook;
 169     struct FileRequester *req;
 170
 171     STRPTR               *phs;
 172     STRPTR               *names;
 173 };
 174
 175 /**************************************************************************/
 176
 177 #ifdef __MORPHOS__
 178 static void
 179 windowFun(void)
 180 {
 181     //struct Hook *hook = (struct Hook *)REG_A0;
 182     Object      *pop = (Object *)REG_A2;
 183     Object      *win = (Object *)REG_A1;
 184 #else
 185 static void SAVEDS ASM
 186 windowFun(REG(a0,struct Hook *hook),REG(a2,Object *pop),REG(a1,Object *win))
 187 {
 188 #endif
 189     set(win,MUIA_Window_DefaultObject,pop);
 190 }
 191
 192 #ifdef __MORPHOS__
 193 static struct EmulLibEntry windowTrap = {TRAP_LIB,0,(void (*)(void))windowFun};
 194 static struct Hook windowHook = {0,0,(HOOKFUNC)&windowTrap};
 195 #else
 196 static struct Hook windowHook = {0,0,(HOOKFUNC)&windowFun};
 197 #endif
 198
 199 /***********************************************************************/
 200
 201 #ifdef __MORPHOS__
 202 static void closeFun(void)
 203 {
 204     struct Hook *hook = (struct Hook *)REG_A0;
 205     Object      *list = (Object *)REG_A2;
 206     Object      *str = (Object *)REG_A1;
 207 #else
 208 static void SAVEDS ASM
 209 closeFun(REG(a0,struct Hook *hook),REG(a2,Object *list),REG(a1,Object *str))
 210 {
 211 #endif
 212     struct data *data = hook->h_Data;
 213     ULONG       a;
 214
 215     get(list,MUIA_List_Active,&a);
 216     if (a>=0)
 217     {
 218         STRPTR buf, x;
 219         ULONG pos, lx, l;
 220
 221         get(str,MUIA_String_BufferPos,&pos);
 222         get(str,MUIA_String_Contents,&x);
 223
 224         lx = strlen(x);
 225         l  = strlen(data->phs[a]);
 226
 227         if (buf = AllocPooled(g_pool,lx+l+1))
 228         {
 229             if (pos>0) CopyMem(x,buf,pos);
 230             CopyMem(data->phs[a],buf+pos,l);
 231             if (lx) CopyMem(x+pos,buf+pos+l,lx-pos+1);
 232             set(str,MUIA_String_Contents,buf);
 233             FreePooled(g_pool,buf,lx+l+1);
 234         }
 235     }
 236 }
 237
 238 #ifdef __MORPHOS__
 239 static struct EmulLibEntry closeTrap = {TRAP_LIB,0,(void (*)(void))closeFun};
 240 #endif
 241
 242 static ULONG
 243 mNew(struct IClass *cl,Object *obj,struct opSet *msg)
 244 {
 245     Object         *str, *lv;
 246     struct TagItem *attrs = msg->ops_AttrList;
 247     STRPTR         *phs, *names;
 248
 249     phs   = (STRPTR*)GetTagData(MUIA_Popph_Syms,(ULONG)NULL,attrs);
 250     if (!phs) return 0;
 251
 252     names = (STRPTR*)GetTagData(MUIA_Popph_Names,FALSE,attrs);
 253     if (!names) return 0;
 254
 255     if (obj = (Object *)DoSuperNew(cl,obj,
 256             MUIA_Group_Horiz,        TRUE,
 257             MUIA_Group_HorizSpacing, 1,
 258
 259             Child, PopobjectObject,
 260                 MUIA_Popstring_String, str = ostring(GetTagData(MUIA_Popph_MaxLen,0,attrs),GetTagData(MUIA_Popph_Key,(ULONG)NULL,attrs),0),
 261                 MUIA_Popstring_Button, opopbutton(MUII_PopUp,0),
 262                 MUIA_Popobject_Object, lv = ListviewObject,
 263                     MUIA_Listview_List, listObject,
 264                         MUIA_Popph_Syms,  phs,
 265                         MUIA_Popph_Names, names,
 266                     End,
 267                 End,
 268                 MUIA_Popobject_WindowHook, &windowHook,
 269             End,
 270
 271             TAG_MORE, attrs))
 272     {
 273
 274         struct data *data = INST_DATA(cl,obj);
 275
 276         data->str = str;
 277
 278         data->phs   = phs;
 279         data->names = names;
 280
 281         #ifdef __MORPHOS__
 282         data->closeHook.h_Entry = (HOOKFUNC)&closeTrap;
 283         #else
 284         data->closeHook.h_Entry = (HOOKFUNC)closeFun;
 285         #endif
 286         data->closeHook.h_Data  = data;
 287         set(obj,MUIA_Popobject_ObjStrHook,&data->closeHook);
 288
 289         if (GetTagData(MUIA_Popph_Asl,FALSE,attrs))
 290         {
 291             APTR req;
 292
 293             if (req = MUI_AllocAslRequest(ASL_FileRequest,NULL))
 294             {
 295                 Object *bt;
 296
 297                 if (bt = opopbutton(MUII_PopFile,0))
 298                 {
 299                     DoSuperMethod(cl,obj,OM_ADDMEMBER,(ULONG)bt);
 300
 301                     data->req = req;
 302
 303                     DoMethod(bt,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,1,MUIM_Popph_RequestFile);
 304                 }
 305                 else MUI_FreeAslRequest(req);
 306             }
 307         }
 308
 309         DoMethod(lv,MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,(ULONG)obj,2,MUIM_Popstring_Close,TRUE);
 310     }
 311
 312     return (ULONG)obj;
 313 }
 314
 315 /***********************************************************************/
 316
 317 static ULONG
 318 mDispose(struct IClass *cl,Object *obj,Msg msg)
 319 {
 320     struct data *data = INST_DATA(cl,obj);
 321
 322     if (data->req) MUI_FreeAslRequest(data->req);
 323
 324     return DoSuperMethodA(cl,obj,(Msg)msg);
 325 }
 326
 327 /***********************************************************************/
 328
 329 #ifdef __MORPHOS__
 330 static void
 331 reqIntuiFun(void)
 332 {
 333     struct Hook     *hook = (struct Hook *)REG_A0;
 334     struct IntuiMessage *imsg = (struct IntuiMessage *)REG_A1;
 335 #else
 336 static void SAVEDS ASM
 337 reqIntuiFun(REG(a0,struct Hook *hook),REG(a1,struct IntuiMessage *imsg))
 338 {
 339 #endif
 340     if (imsg->Class==IDCMP_REFRESHWINDOW)
 341     DoMethod(hook->h_Data,MUIM_Application_CheckRefresh);
 342 }
 343
 344 #ifdef __MORPHOS__
 345 static struct EmulLibEntry reqIntuiTrap = {TRAP_LIBNR,0,(void (*)(void))reqIntuiFun};
 346 #endif
 347
 348 static ULONG
 349 mRequestFile(struct IClass *cl,Object *obj,Msg msg)
 350 {
 351     struct data *data = INST_DATA(cl,obj);
 352     struct Hook reqIntuiHook = {0};
 353     TEXT       path[256], *x, *file, *p;
 354
 355     set(_app(obj),MUIA_Application_Sleep,TRUE);
 356
 357     #ifdef __MORPHOS__
 358     reqIntuiHook.h_Entry = (HOOKFUNC)&reqIntuiTrap;
 359     #else
 360     reqIntuiHook.h_Entry = (HOOKFUNC)reqIntuiFun;
 361     #endif
 362     reqIntuiHook.h_Data  = _app(obj);
 363
 364
 365     get(data->str,MUIA_String_Contents,&x);
 366     file = FilePart(x);
 367     if (p = PathPart(x))
 368     {
 369         stccpy(path,x,p-x+1);
 370         p = path;
 371     }
 372
 373     if (MUI_AslRequestTags(data->req,
 374                            ASLFR_InitialFile,       (ULONG)file,
 375                            p ? ASLFR_InitialDrawer : TAG_IGNORE, (ULONG)p,
 376                            ASLFR_IntuiMsgFunc,      (ULONG)&reqIntuiHook,
 377                            ASLFR_Window,            (ULONG)_window(obj),
 378                            ASLFR_PrivateIDCMP,      TRUE,
 379                            ASLFR_Flags1,            FRF_INTUIFUNC,
 380                            TAG_DONE))
 381     {
 382         TEXT buf[256];
 383
 384         strcpy(buf,data->req->fr_Drawer);
 385         AddPart(buf,data->req->fr_File,sizeof(buf));
 386
 387         if (*buf) set(data->str,MUIA_String_Contents,buf);
 388     }
 389     else if (IoErr()) DisplayBeep(0);
 390
 391     set(_app(obj),MUIA_Application_Sleep,FALSE);
 392
 393     return 0;
 394 }
 395
 396 /***********************************************************************/
 397
 398 M_DISP(dispatcher)
 399 {
 400     M_DISPSTART
 401
 402     switch (msg->MethodID)
 403     {
 404         case OM_NEW:                 return mNew(cl,obj,(APTR)msg);
 405         case OM_DISPOSE:             return mDispose(cl,obj,(APTR)msg);
 406
 407         case MUIM_Popph_RequestFile: return mRequestFile(cl,obj,(APTR)msg);
 408
 409         default:                     return DoSuperMethodA(cl,obj,msg);
 410     }
 411 }
 412
 413 M_DISPEND(dispatcher)
 414
 415 /***********************************************************************/
 416
 417 ULONG
 418 initPopphClass(void)
 419 {
 420     if (initListClass())
 421     {
 422         if (g_popphClass = MUI_CreateCustomClass(NULL,MUIC_Group,NULL,sizeof(struct data),DISP(dispatcher)))
 423         {
 424             return TRUE;
 425         }
 426
 427         disposeListClass();
 428     }
 429
 430     return FALSE;
 431 }
 432
 433 /**************************************************************************/
 434
 435 void
 436 disposePopphClass(void)
 437 {
 438     disposeListClass();
 439     if (g_popphClass) MUI_DeleteCustomClass(g_popphClass);
 440 }
 441
 442 /**************************************************************************/
 443