?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Updated PCI IDs to latest snapshot.
[tangerine.git] / workbench / libs / openurl / prefs / applist.c
blob96936c466e4a60671b7b5fbc6425fc52b598f4e7
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 ** A clients page
14 */
15
16 #include "OpenURL.h"
17 #define CATCOMP_NUMBERS
18 #include "loc.h"
19 #include "libraries/openurl.h"
20
21 /**************************************************************************/
22 /*
23 ** Little lamp class for enabled/disabled
24 */
25
26 static struct MUI_CustomClass *lampClass = NULL;
27 #ifdef __AROS__
28 #define lampObject BOOPSIOBJMACRO_START(lampClass->mcc_Class)
29 #else
30 #define lampObject NewObject(lampClass->mcc_Class,NULL
31 #endif
32
33 struct lampData
34 {
35 struct MUI_PenSpec **specs; /* We don't need to save them, because of Pens window is always valid */
36
37 LONG enabled;
38 LONG disabled;
39 LONG detail;
40 WORD delta;
41
42 ULONG flags;
43 };
44
45 enum
46 {
47 FLG_LampSetup = 1<<0,
48 FLG_LampDisabled = 1<<1,
49 };
50
51 /***********************************************************************/
52
53 static ULONG
54 mLampNew(struct IClass *cl,Object *obj,struct opSet *msg)
55 {
56 return (ULONG)DoSuperNew(cl,obj,
57 MUIA_Font, MUIV_Font_List,
58 TAG_MORE, msg->ops_AttrList);
59 }
60
61 /**************************************************************************/
62
63 static ULONG
64 mLampSets(struct IClass *cl,Object *obj,struct opSet *msg)
65 {
66 struct lampData *data = INST_DATA(cl,obj);
67 struct TagItem *tag;
68
69 if (tag = FindTagItem(MUIA_Lamp_Disabled,msg->ops_AttrList))
70 {
71 if (tag->ti_Data) data->flags |= FLG_LampDisabled;
72 else data->flags &= ~FLG_LampDisabled;
73
74 /* Of course, we don't redraw here */
75 }
76
77 if (tag = FindTagItem(MUIA_App_Pens,msg->ops_AttrList))
78 {
79 struct MUI_PenSpec **specs = (struct MUI_PenSpec **)tag->ti_Data;
80
81 data->specs = specs;
82
83 if (data->flags & FLG_LampSetup)
84 {
85 MUI_ReleasePen(muiRenderInfo(obj),data->enabled);
86 MUI_ReleasePen(muiRenderInfo(obj),data->disabled);
87 MUI_ReleasePen(muiRenderInfo(obj),data->detail);
88 data->enabled = MUI_ObtainPen(muiRenderInfo(obj),specs[0],0);
89 data->disabled = MUI_ObtainPen(muiRenderInfo(obj),specs[1],0);
90 data->detail = MUI_ObtainPen(muiRenderInfo(obj),specs[2],0);
91
92 /* Of course, we don't redraw here */
93 data->flags |= FLG_LampSetup;
94 }
95 }
96
97 return DoSuperMethodA(cl,obj,(Msg)msg);
98 }
99
100 /***********************************************************************/
101
102 static ULONG
103 mLampSetup(struct IClass *cl,Object *obj,struct MUIP_Setup *msg)
104 {
105 struct lampData *data = INST_DATA(cl,obj);
106 if (!DoSuperMethodA(cl,obj,(APTR)msg)) return FALSE;
107 data->enabled = MUI_ObtainPen(muiRenderInfo(obj),data->specs[0],0);
108 data->disabled = MUI_ObtainPen(muiRenderInfo(obj),data->specs[1],0);
109 data->detail = MUI_ObtainPen(muiRenderInfo(obj),data->specs[2],0);
110
111 data->flags |= FLG_LampSetup;
112
113 return TRUE;
114 }
115
116 /***********************************************************************/
117
118 static ULONG
119 mLampCleanup(struct IClass *cl,Object *obj,struct MUIP_Setup *msg)
120 {
121 struct lampData *data = INST_DATA(cl,obj);
122
123 if (data->flags & FLG_LampSetup)
124 {
125 MUI_ReleasePen(muiRenderInfo(obj),data->enabled);
126 MUI_ReleasePen(muiRenderInfo(obj),data->disabled);
127 MUI_ReleasePen(muiRenderInfo(obj),data->detail);
128
129 data->flags &= ~FLG_LampSetup;
130 }
131
132 return DoSuperMethodA(cl,obj,(APTR)msg);
133 }
134
135 /***********************************************************************/
136
137 static ULONG
138 mLampAskMinMax(struct IClass *cl,Object *obj,struct MUIP_AskMinMax *msg)
139 {
140 struct lampData *data = INST_DATA(cl,obj);
141 struct RastPort rp;
142 struct TextExtent te;
143 UWORD w, h, d;
144
145 DoSuperMethodA(cl,obj,(APTR)msg);
146
147 CopyMem(&_screen(obj)->RastPort,&rp,sizeof(rp));
148
149 /* Don't ask or modify ! */
150
151 SetFont(&rp,_font(obj));
152 TextExtent(&rp," ",2,&te);
153
154 w = te.te_Width;
155 h = te.te_Height;
156
157 if (w>=h) d = w;
158 else d = h;
159
160 data->delta = te.te_Extent.MinY;
161
162 msg->MinMaxInfo->MinWidth += d;
163 msg->MinMaxInfo->MinHeight += h;
164 msg->MinMaxInfo->DefWidth += d;
165 msg->MinMaxInfo->DefHeight += h;
166 msg->MinMaxInfo->MaxWidth += d;
167 msg->MinMaxInfo->MaxHeight += h;
168
169 return 0;
170 }
171
172 /***********************************************************************/
173
174 static ULONG
175 mLampDraw(struct IClass *cl,Object *obj,struct MUIP_Draw *msg)
176 {
177 struct lampData *data = INST_DATA(cl,obj);
178 ULONG res;
179
180 res = DoSuperMethodA(cl,obj,(APTR)msg);
181
182 if (msg->flags & (MADF_DRAWOBJECT|MADF_DRAWUPDATE))
183 {
184 WORD l, t, r, b;
185
186 /* Don't ask or modify ! */
187
188 l = _mleft(obj);
189 r = _mright(obj);
190 t = _mtop(obj)+(_mheight(obj)+data->delta)/2-1;
191 b = t-data->delta;
192
193 if (r-l>2)
194 {
195 l += 1;
196 r -= 1;
197 }
198
199 if (b-t>2)
200 {
201 t += 1;
202 b -= 1;
203 }
204
205 SetAPen(_rp(obj),MUIPEN((data->flags & FLG_LampDisabled) ? data->disabled : data->enabled));
206 RectFill(_rp(obj),l,t,r,b);
207
208 SetAPen(_rp(obj),MUIPEN(data->detail));
209 Move(_rp(obj),l,t);
210 Draw(_rp(obj),r,t);
211 Draw(_rp(obj),r,b);
212 Draw(_rp(obj),l,b);
213 Draw(_rp(obj),l,t);
214 }
215
216 return res;
217 }
218
219 /***********************************************************************/
220
221 M_DISP(lampDispatcher)
222 {
223 M_DISPSTART
224
225 switch(msg->MethodID)
226 {
227 case OM_NEW: return mLampNew(cl,obj,(APTR)msg);
228 case OM_SET: return mLampSets(cl,obj,(APTR)msg);
229
230 case MUIM_Setup: return mLampSetup(cl,obj,(APTR)msg);
231 case MUIM_Cleanup: return mLampCleanup(cl,obj,(APTR)msg);
232 case MUIM_AskMinMax: return mLampAskMinMax(cl,obj,(APTR)msg);
233 case MUIM_Draw: return mLampDraw(cl,obj,(APTR)msg);
234
235 default: return DoSuperMethodA(cl,obj,msg);
236 }
237 }
238
239 M_DISPEND(lampDispatcher)
240
241 /***********************************************************************/
242
243 static ULONG
244 initLampClass(void)
245 {
246 return (ULONG)(lampClass = MUI_CreateCustomClass(NULL,MUIC_Rectangle,NULL,sizeof(struct lampData),DISP(lampDispatcher)));
247 }
248
249 /**************************************************************************/
250
251 static void
252 disposeLampClass(void)
253 {
254 if (lampClass) MUI_DeleteCustomClass(lampClass);
255 }
256
257 /**************************************************************************/
258 /*
259 ** List of clients with lamps
260 */
261
262 static struct MUI_CustomClass *listClass = NULL;
263 #ifdef __AROS__
264 #define listObject BOOPSIOBJMACRO_START(listClass->mcc_Class)
265 #else
266 #define listObject NewObject(listClass->mcc_Class,NULL
267 #endif
268
269 struct listData
270 {
271 Object *olamp;
272 APTR lamp;
273 TEXT col0buf[NAME_LEN+16];
274
275 ULONG nameOfs;
276 ULONG pathOfs;
277 ULONG nodeSize;
278
279 TEXT format[64];
280
281 ULONG flags;
282 };
283
284 enum
285 {
286 FLG_ListSetup = 1<<0,
287 };
288
289 /* Used for Import/Export */
290 struct listIO
291 {
292 ULONG len;
293 TEXT format[64];
294 };
295
296 /**************************************************************************/
297
298 #ifdef __MORPHOS__
299 static struct URL_Node *
300 conFun(void)
301 {
302 struct Hook *hook = (struct Hook *)REG_a0;
303 APTR pool = (APTR)REG_A2;
304 struct URL_Node *node = (struct URL_Node *)REG_A1;
305 #elif defined(__AROS__)
306 AROS_UFH3S(struct URL_Node *, conFun,
307 AROS_UFHA(struct Hook * , hook, A0),
308 AROS_UFHA(APTR , pool, A2),
309 AROS_UFHA(struct URL_Node *, node, A1))
310 {
311 AROS_USERFUNC_INIT
312 #else
313 static struct URL_Node * SAVEDS ASM
314 conFun(REG(a0,struct Hook *hook),REG(a2,APTR pool),REG(a1,struct URL_Node *node))
315 {
316 #endif
317 struct listData *data = hook->h_Data;
318 struct URL_Node *new;
319
320 if (node->Flags & UNF_NTALLOC)
321 {
322 new = node;
323 node->Flags &= ~UNF_NTALLOC;
324 }
325 else if (new = AllocPooled(pool,data->nodeSize)) CopyMem(node,new,data->nodeSize);
326
327 return new;
328 #ifdef __AROS__
329 AROS_USERFUNC_EXIT
330 #endif
331 }
332
333 #ifdef __MORPHOS__
334 static struct EmulLibEntry conTrap = {TRAP_LIB,0,(void (*)(void))conFun};
335 static struct Hook conHook = {0,0,(HOOKFUNC)&conTrap};
336 #else
337 static struct Hook conHook = {0,0,(HOOKFUNC)conFun};
338 #endif
339
340 /**************************************************************************/
341
342 #ifdef __MORPHOS__
343 static void
344 destFun(void)
345 {
346 struct Hook *hook = (struct Hook *)REG_a0;
347 APTR pool = (APTR)REG_A2;
348 struct URL_Node *node = (struct URL_Node *)REG_A1;
349 #elif defined(__AROS__)
350 AROS_UFH3S(void, destFun,
351 AROS_UFHA(struct Hook * , hook, A0),
352 AROS_UFHA(APTR , pool, A2),
353 AROS_UFHA(struct URL_Node *, node, A1))
354 {
355 AROS_USERFUNC_INIT
356 #else
357 static void SAVEDS ASM
358 destFun(REG(a0,struct Hook *hook),REG(a2,APTR pool),REG(a1,struct URL_Node *node))
359 {
360 #endif
361 struct listData *data = hook->h_Data;
362
363 FreePooled(pool,node,data->nodeSize);
364 #ifdef __AROS__
365 AROS_USERFUNC_EXIT
366 #endif
367 }
368
369 #ifdef __MORPHOS__
370 static struct EmulLibEntry destTrap = {TRAP_LIBNR,0,(void (*)(void))destFun};
371 static struct Hook destHook = {0,0,(HOOKFUNC)&destTrap};
372 #else
373 static struct Hook destHook = {0,0,(HOOKFUNC)destFun};
374 #endif
375
376 /**************************************************************************/
377
378 #ifdef __MORPHOS__
379 static void
380 dispFun(void)
381 {
382 struct Hook *hook = (struct Hook *)REG_a0;
383 STRPTR *array = (STRPTR *)REG_A2;
384 struct URL_Node *node = (struct URL_Node *)REG_A1;
385 #elif defined(__AROS__)
386 AROS_UFH3S(void, dispFun,
387 AROS_UFHA(struct Hook * , hook , A0),
388 AROS_UFHA(STRPTR * , array, A2),
389 AROS_UFHA(struct URL_Node *, node , A1))
390 {
391 AROS_USERFUNC_INIT
392 #else
393 static void SAVEDS ASM
394 dispFun(REG(a0,struct Hook *hook),REG(a2,STRPTR *array),REG(a1,struct URL_Node *node))
395 {
396 #endif
397 struct listData *data = hook->h_Data;
398
399 if (node)
400 {
401 if (data->lamp && data->olamp)
402 {
403 set(data->olamp,MUIA_Lamp_Disabled,node->Flags & UNF_DISABLED);
404 //msprintf(data->col0buf,"\33O[%08lx] %s",(ULONG)data->lamp,(ULONG)((UBYTE *)node+data->nameOfs));
405 msprintf(data->col0buf,"\33O[%08lx]",(ULONG)data->lamp);
406 *array++ = data->col0buf;
407 }
408 else
409 *array++ = "+";
410 //msprintf(data->col0buf,"%s %s",(ULONG)((node->Flags & UNF_DISABLED) ? " " : ">"),(ULONG)
411
412 *array++ = (STRPTR)node+data->nameOfs;
413 *array = (STRPTR)node+data->pathOfs;
414 }
415 else
416 {
417 *array++ = " ";
418 *array++ = getString(MSG_Edit_ListName);
419 *array = getString(MSG_Edit_ListPath);
420 }
421 #ifdef __AROS__
422 AROS_USERFUNC_EXIT
423 #endif
424 }
425
426 #ifdef __MORPHOS__
427 static struct EmulLibEntry dispTrap = {TRAP_LIBNR,0,(void (*)(void))dispFun};
428 static struct Hook dispHook = {0,0,(HOOKFUNC)&dispTrap};
429 #else
430 static struct Hook dispHook = {0,0,(HOOKFUNC)dispFun};
431 #endif
432
433 /**************************************************************************/
434
435 static ULONG
436 mListNew(struct IClass *cl,Object *obj,struct opSet *msg)
437 {
438 if (obj = (Object *)DoSuperNew(cl,obj,
439 InputListFrame,
440 MUIA_List_Title, TRUE,
441 MUIA_List_Format, "C=0,C=1,C=2",
442 MUIA_List_DragSortable, TRUE,
443 MUIA_List_Pool, g_pool,
444 MUIA_List_ConstructHook, &conHook,
445 MUIA_List_DestructHook, &destHook,
446 MUIA_List_DisplayHook, &dispHook,
447 MUIA_List_DragSortable, TRUE,
448 MUIA_List_ShowDropMarks, TRUE,
449 0x8042bc08, 1, /* MUI4 Auto Line Height: put the real name if you know it :P */
450 TAG_MORE, msg->ops_AttrList))
451 {
452 struct listData *data = INST_DATA(cl,obj);
453
454 data->nameOfs = GetTagData(MUIA_AppList_NodeNameOffset,0,msg->ops_AttrList);
455 data->pathOfs = GetTagData(MUIA_AppList_NodePathOffset,0,msg->ops_AttrList);
456 data->nodeSize = GetTagData(MUIA_AppList_NodeSize,0,msg->ops_AttrList);
457
458 strcpy(data->format,"C=0,C=1,C=2");
459
460 if (lampClass) data->olamp = lampObject, End;
461
462 conHook.h_Data = data;
463 destHook.h_Data = data;
464 dispHook.h_Data = data;
465 }
466
467 return (ULONG)obj;
468 }
469
470 /**************************************************************************/
471
472 static ULONG
473 mListDispose(struct IClass *cl,Object *obj,Msg msg)
474 {
475 struct listData *data = INST_DATA(cl,obj);
476
477 if (data->olamp) MUI_DisposeObject(data->olamp);
478
479 return DoSuperMethodA(cl,obj,msg);
480 }
481
482 /**************************************************************************/
483
484 static ULONG
485 mListSets(struct IClass *cl,Object *obj,struct opSet *msg)
486 {
487 struct TagItem *tag;
488
489 if (tag = FindTagItem(MUIA_App_Pens,msg->ops_AttrList))
490 {
491 struct listData *data = INST_DATA(cl,obj);
492 if (data->olamp)
493 {
494 struct MUI_PenSpec **specs = (struct MUI_PenSpec **)tag->ti_Data;
495 set(data->olamp,MUIA_App_Pens,specs);
496 tag->ti_Tag = TAG_IGNORE;
497
498 /* Don't want even know why a push is needed here! */
499 if (data->flags & FLG_ListSetup)
500 DoMethod(_app(obj),MUIM_Application_PushMethod,(ULONG)obj,2,MUIM_List_Redraw,MUIV_List_Redraw_All);
501 }
502 }
503
504 return DoSuperMethodA(cl,obj,(Msg)msg);
505 }
506
507 /***********************************************************************/
508
509 static ULONG
510 mListSetup(struct IClass *cl,Object *obj,struct MUIP_Setup *msg)
511 {
512 struct listData *data = INST_DATA(cl,obj);
513
514 if (!DoSuperMethodA(cl,obj,(APTR)msg)) return FALSE;
515
516 /* After thinking about that hard, I decided to use the lamp in >=8 color screen */
517 if (data->olamp && (GetBitMapAttr(_screen(obj)->RastPort.BitMap,BMA_DEPTH)>3))
518 data->lamp = (APTR)DoSuperMethod(cl,obj,MUIM_List_CreateImage,(ULONG)data->olamp,0);
519
520 data->flags |= FLG_ListSetup;
521
522 return TRUE;
523 }
524
525 /***********************************************************************/
526
527 static ULONG
528 mListCleanup(struct IClass *cl,Object *obj,struct MUIP_Setup *msg)
529 {
530 struct listData *data = INST_DATA(cl,obj);
531
532 if (data->flags & FLG_ListSetup)
533 {
534 if (data->lamp)
535 {
536 DoSuperMethod(cl,obj,MUIM_List_DeleteImage,(ULONG)data->lamp);
537 data->lamp = NULL;
538 }
539
540 data->flags &= ~FLG_ListSetup;
541 }
542
543 return DoSuperMethodA(cl,obj,(APTR)msg);
544 }
545
546 /***********************************************************************/
547 /*
548 ** Import format
549 */
550
551 static ULONG
552 mListImport(struct IClass *cl,Object *obj,struct MUIP_Import *msg)
553 {
554 register ULONG id;
555
556 if (id = (muiNotifyData(obj)->mnd_ObjectID))
557 {
558 register struct listIO *io;
559
560 if (io = (struct listIO *)DoMethod(msg->dataspace,MUIM_Dataspace_Find,id))
561 {
562 struct listData *data = INST_DATA(cl,obj);
563
564 stccpy(data->format,io->format,sizeof(data->format));
565 set(obj,MUIA_List_Format,data->format);
566 }
567 }
568
569 return 0;
570 }
571
572 /***********************************************************************/
573 /*
574 ** Export format
575 */
576
577 static ULONG
578 mListExport(struct IClass *cl,Object *obj,struct MUIP_Import *msg)
579 {
580 register ULONG id;
581
582 if (id = (muiNotifyData(obj)->mnd_ObjectID))
583 {
584 struct listIO io;
585 STRPTR f;
586
587 get(obj,MUIA_List_Format,&f);
588 io.len = strlen(f)+1;
589 stccpy(io.format,f,sizeof(io.format));
590
591 DoMethod(msg->dataspace,MUIM_Dataspace_Add,(ULONG)&io,sizeof(ULONG)+io.len,id);
592 }
593
594 return 0;
595 }
596
597 /**************************************************************************/
598 /*
599 ** Check if format changed
600 */
601
602 static ULONG
603 mListCheckSave(struct IClass *cl,Object *obj,Msg msg)
604 {
605 struct listData *data = INST_DATA(cl,obj);
606 #ifdef __AROS__
607 // Zune doesn't have MUIA_List_Format
608 return 1;
609 #else
610 UBYTE *f;
611
612 get(obj,MUIA_List_Format,&f);
613
614 return (ULONG)strcmp((STRPTR)f,(STRPTR)&data->format);
615 #endif
616 }
617
618 /**************************************************************************/
619
620 M_DISP(listDispatcher)
621 {
622 M_DISPSTART
623
624 switch (msg->MethodID)
625 {
626 case OM_NEW: return mListNew(cl,obj,(APTR)msg);
627 case OM_DISPOSE: return mListDispose(cl,obj,(APTR)msg);
628 case OM_SET: return mListSets(cl,obj,(APTR)msg);
629
630 case MUIM_Setup: return mListSetup(cl,obj,(APTR)msg);
631 case MUIM_Cleanup: return mListCleanup(cl,obj,(APTR)msg);
632 case MUIM_Import: return mListImport(cl,obj,(APTR)msg);
633 case MUIM_Export: return mListExport(cl,obj,(APTR)msg);
634
635 case MUIM_App_CheckSave: return mListCheckSave(cl,obj,(APTR)msg);
636
637 default: return DoSuperMethodA(cl,obj,msg);
638 }
639 }
640
641 M_DISPEND(listDispatcher)
642
643 /**************************************************************************/
644
645 static ULONG
646 initListClass(void)
647 {
648 return (ULONG)(listClass = MUI_CreateCustomClass(NULL,MUIC_List,NULL,sizeof(struct listData),DISP(listDispatcher)));
649 }
650
651 /**************************************************************************/
652
653 static void
654 disposeListClass(void)
655 {
656 if (listClass) MUI_DeleteCustomClass(listClass);
657 }
658
659 /**************************************************************************/
660
661 struct data
662 {
663 Object *appList;
664 Object *add;
665 Object *edit;
666 Object *clone;
667 Object *delete;
668 Object *disable;
669 Object *up;
670 Object *down;
671
672 ULONG nameOfs;
673 ULONG pathOfs;
674 ULONG nodeSize;
675 struct IClass *editClass;
676 ULONG editAttr;
677 ULONG listAttr;
678
679 STRPTR newNodeName;
680 };
681
682 /**************************************************************************/
683
684 static ULONG
685 mNew(struct IClass *cl,Object *obj,struct opSet *msg)
686 {
687 Object *appl, *addb, *editb, *cloneb, *deleteb, *disableb, *upb, *downb;
688 struct IClass *editWinClass;
689 STRPTR nodeName, helpNode;
690 ULONG nameOfs, pathOfs, nodeSize, editWinAttr, listAttr, help, id;
691
692 /* What we are */
693 switch (GetTagData(MUIA_AppList_Type,0,msg->ops_AttrList))
694 {
695 case MUIV_AppList_Type_Browser:
696 nameOfs = sizeof(struct MinNode) + sizeof(ULONG);
697 pathOfs = sizeof(struct MinNode) + sizeof(ULONG) + NAME_LEN;
698 nodeSize = sizeof(struct URL_BrowserNode);
699 editWinClass = g_browserEditWinClass->mcc_Class;
700 editWinAttr = MUIA_BrowserEditWin_Browser;
701 listAttr = MUIA_BrowserEditWin_ListObj;
702 nodeName = getString(MSG_Browser_NewBrowser);
703 helpNode = "BROWSER";
704 help = MSG_Browser_List_Help;
705 id = MAKE_ID('B','L','S','T');
706 break;
707
708 case MUIV_AppList_Type_Mailer:
709 nameOfs = sizeof(struct MinNode) + sizeof(ULONG);
710 pathOfs = sizeof(struct MinNode) + sizeof(ULONG) + NAME_LEN;
711 nodeSize = sizeof(struct URL_MailerNode);
712 editWinClass = g_mailerEditWinClass->mcc_Class;
713 editWinAttr = MUIA_MailerEditWin_Mailer;
714 listAttr = MUIA_MailerEditWin_ListObj;
715 nodeName = getString(MSG_Mailer_NewMailer);
716 helpNode = "MAILERS";
717 help = MSG_Mailer_List_Help;
718 id = MAKE_ID('M','L','S','T');
719 break;
720
721 case MUIV_AppList_Type_FTP:
722 nameOfs = sizeof(struct MinNode) + sizeof(ULONG);
723 pathOfs = sizeof(struct MinNode) + sizeof(ULONG) + NAME_LEN;
724 nodeSize = sizeof(struct URL_FTPNode);
725 editWinClass = g_FTPEditWinClass->mcc_Class;
726 editWinAttr = MUIA_FTPEditWin_FTP;
727 listAttr = MUIA_FTPEditWin_ListObj;
728 nodeName = getString(MSG_FTP_NewFTP);
729 helpNode = "FTPS";
730 help = MSG_FTP_List_Help;
731 id = MAKE_ID('F','L','S','T');
732 break;
733
734 default:
735 return 0;
736 }
737
738 if (obj = (Object *)DoSuperNew(cl,obj,
739 MUIA_HelpNode, helpNode,
740 MUIA_ShortHelp, getString(help),
741 MUIA_Group_Horiz, TRUE,
742 MUIA_Group_HorizSpacing, 2,
743
744 Child, ListviewObject,
745 MUIA_CycleChain, TRUE,
746 MUIA_Listview_DefClickColumn, 1,
747 MUIA_Listview_DragType, MUIV_Listview_DragType_Immediate,
748 MUIA_Listview_List, appl = listObject,
749 MUIA_ObjectID, id,
750 MUIA_AppList_NodeNameOffset, nameOfs,
751 MUIA_AppList_NodePathOffset, pathOfs,
752 MUIA_AppList_NodeSize, nodeSize,
753 End,
754 End,
755
756 Child, VGroup,
757 VirtualFrame,
758 MUIA_Background, MUII_GroupBack,
759 MUIA_Weight, 10,
760
761 Child, addb = obutton(MSG_AppList_Add,MSG_AppList_Add_Help),
762 Child, editb = obutton(MSG_AppList_Edit,MSG_AppList_Edit_Help),
763 Child, cloneb = obutton(MSG_AppList_Clone,MSG_AppList_Clone_Help),
764 Child, HGroup,
765 MUIA_Group_HorizSpacing, 1,
766 Child, upb = oibutton(IBT_Up,MSG_AppList_MoveUp_Help),
767 Child, downb = oibutton(IBT_Down,MSG_AppList_MoveDown_Help),
768 Child, disableb = otbutton(MSG_AppList_Disable,MSG_AppList_Disable_Help),
769 End,
770 Child, VSpace(0),
771 Child, deleteb = obutton(MSG_AppList_Delete,MSG_AppList_Delete_Help),
772 End,
773
774 TAG_MORE, msg->ops_AttrList))
775 {
776 struct data *data = INST_DATA(cl,obj);
777
778 /* init instance data */
779 data->appList = appl;
780 data->add = addb;
781 data->edit = editb;
782 data->clone = cloneb;
783 data->delete = deleteb;
784 data->disable = disableb;
785 data->up = upb;
786 data->down = downb;
787
788 data->nameOfs = nameOfs;
789 data->pathOfs = pathOfs;
790 data->nodeSize = nodeSize;
791
792 data->editClass = editWinClass;
793 data->editAttr = editWinAttr;
794 data->listAttr = listAttr;
795 data->newNodeName = nodeName;
796
797 /* listview */
798 DoMethod(appl,MUIM_Notify,MUIA_List_Active,MUIV_EveryTime,(ULONG)obj,1,MUIM_AppList_ActiveChanged);
799 DoMethod(appl,MUIM_Notify,MUIA_Listview_DoubleClick,MUIV_EveryTime,(ULONG)obj,2,MUIM_AppList_Edit,TRUE);
800
801 /* buttons */
802 DoMethod(obj,MUIM_MultiSet,MUIA_Disabled,TRUE,
803 (ULONG)editb,
804 (ULONG)cloneb,
805 (ULONG)deleteb,
806 (ULONG)disableb,
807 (ULONG)upb,
808 (ULONG)downb,
809 NULL);
810
811 /* list buttons */
812 DoMethod(addb,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,1,MUIM_AppList_Add);
813 DoMethod(editb,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,1,MUIM_AppList_Edit,FALSE);
814 DoMethod(cloneb,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,1,MUIM_AppList_Clone);
815 DoMethod(deleteb,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,1,MUIM_AppList_Delete);
816 DoMethod(disableb,MUIM_Notify,MUIA_Selected,MUIV_EveryTime,(ULONG)obj,2,MUIM_AppList_Disable,MUIV_TriggerValue);
817 DoMethod(upb,MUIM_Notify,MUIA_Timer,MUIV_EveryTime,(ULONG)obj,2,MUIM_AppList_Move,TRUE);
818 DoMethod(downb,MUIM_Notify,MUIA_Timer,MUIV_EveryTime,(ULONG)obj,2,MUIM_AppList_Move,FALSE);
819 }
820
821 return (ULONG)obj;
822 }
823
824 /**************************************************************************/
825 /*
826 ** I hate this: it will be removed asap!
827 */
828
829 static ULONG
830 mGet(struct IClass *cl,Object *obj,struct opGet *msg)
831 {
832 struct data *data = INST_DATA(cl,obj);
833
834 switch (msg->opg_AttrID)
835 {
836 case MUIA_AppList_ListObj: *msg->opg_Storage = (ULONG)data->appList; return TRUE;
837 default: return DoSuperMethodA(cl,obj,(Msg)msg);
838 }
839 }
840
841 /**************************************************************************/
842
843 static ULONG
844 mAdd(struct IClass *cl,Object *obj,Msg msg)
845 {
846 struct data *data = INST_DATA(cl,obj);
847 struct URL_Node *node;
848
849 if (!(node = AllocPooled(g_pool,data->nodeSize))) return FALSE;
850
851 memset(node,0,data->nodeSize);
852 strcpy((STRPTR)node+data->nameOfs,data->newNodeName);
853
854 node->Flags = UNF_NEW|UNF_NTALLOC;
855
856 DoMethod(data->appList,MUIM_List_InsertSingle,(ULONG)node,MUIV_List_Insert_Bottom);
857
858 set(data->appList,MUIA_List_Active,xget(data->appList,MUIA_List_InsertPosition));
859
860 DoMethod(obj,MUIM_AppList_Edit,FALSE);
861
862 return TRUE;
863 }
864
865 /**************************************************************************/
866
867 static ULONG
868 mEdit(struct IClass *cl,Object *obj,struct MUIP_AppList_Edit *msg)
869 {
870 struct data *data = INST_DATA(cl,obj);
871 struct URL_Node *node;
872
873 DoMethod(data->appList,MUIM_List_GetEntry,MUIV_List_GetEntry_Active,(ULONG)&node);
874 if (node)
875 {
876 if (msg->check && (xget(data->appList,MUIA_Listview_ClickColumn)==0))
877 {
878 set(data->appList,MUIA_Listview_ClickColumn,1);
879
880 if (node->Flags & UNF_DISABLED) node->Flags &= ~UNF_DISABLED;
881 else node->Flags |= UNF_DISABLED;
882
883 DoMethod(data->appList,MUIM_List_Redraw,xget(data->appList,MUIA_List_Active));
884 set(data->disable,MUIA_Selected,node->Flags & UNF_DISABLED);
885 }
886 else DoMethod(_app(obj),MUIM_App_OpenWin,(ULONG)data->editClass,data->editAttr,(ULONG)node,data->listAttr,(ULONG)data->appList,TAG_END);
887 }
888
889 return TRUE;
890 }
891
892 /**************************************************************************/
893
894 static ULONG
895 mClone(struct IClass *cl,Object *obj,Msg msg)
896 {
897 struct data *data = INST_DATA(cl,obj);
898 struct URL_Node *node;
899 ULONG active;
900
901 get(data->appList,MUIA_List_Active,&active);
902 DoMethod(data->appList,MUIM_List_GetEntry,active,(ULONG)&node);
903 if (node)
904 {
905 struct URL_Node *new;
906
907 if (!(new = AllocPooled(g_pool,data->nodeSize))) return FALSE;
908 CopyMem(node,new,data->nodeSize);
909 new->Flags |= UNF_NEW|UNF_NTALLOC;
910
911 DoMethod(data->appList,MUIM_List_InsertSingle,(ULONG)new,MUIV_List_Insert_Bottom);
912 set(data->appList,MUIA_List_Active,MUIV_List_Active_Bottom);
913
914 DoMethod(obj,MUIM_AppList_Edit,FALSE);
915 }
916
917 return TRUE;
918 }
919
920 /**************************************************************************/
921
922 static ULONG
923 mDelete(struct IClass *cl,Object *obj,Msg msg)
924 {
925 struct data *data = INST_DATA(cl,obj);
926 UBYTE *node;
927 ULONG active;
928
929 get(data->appList,MUIA_List_Active,&active);
930 DoMethod(data->appList,MUIM_List_GetEntry,active,(ULONG)&node);
931 if (node)
932 {
933 DoMethod(_app(obj),MUIM_App_CloseWin,data->editAttr,(ULONG)node);
934 DoMethod(data->appList,MUIM_List_Remove,active);
935 }
936
937 return TRUE;
938 }
939
940 /**************************************************************************/
941
942 static ULONG
943 mActiveChanged(struct IClass *cl,Object *obj,Msg msg)
944 {
945 struct data *data = INST_DATA(cl,obj);
946 LONG a;
947
948 a = (LONG)xget(data->appList,MUIA_List_Active);
949 if (a>=0)
950 {
951 struct URL_Node *node;
952 ULONG n;
953
954 DoMethod(obj,MUIM_MultiSet,MUIA_Disabled,FALSE,
955 (ULONG)data->edit,
956 (ULONG)data->clone,
957 (ULONG)data->delete,
958 (ULONG)data->disable,
959 NULL);
960
961 DoMethod(data->appList,MUIM_List_GetEntry,a,(ULONG)&node);
962 set(data->disable,MUIA_Selected,node->Flags & UNF_DISABLED);
963
964 if (a==0) SetAttrs(data->up,MUIA_Selected,FALSE,MUIA_Disabled,TRUE,TAG_DONE);
965 else set(data->up,MUIA_Disabled,FALSE);
966
967 n = xget(data->appList,MUIA_List_Entries);
968 if (n-1<=a) SetAttrs(data->down,MUIA_Selected,FALSE,MUIA_Disabled,TRUE,TAG_DONE);
969 else set(data->down,MUIA_Disabled,FALSE);
970 }
971 else
972 {
973 set(data->disable,MUIA_Selected,FALSE);
974
975 DoMethod(obj,MUIM_MultiSet,MUIA_Disabled,TRUE,
976 (ULONG)data->edit,
977 (ULONG)data->clone,
978 (ULONG)data->delete,
979 (ULONG)data->disable,
980 (ULONG)data->up,
981 (ULONG)data->down,
982 NULL);
983 }
984
985 return TRUE;
986 }
987
988 /**************************************************************************/
989
990 static ULONG
991 mDisable(struct IClass *cl,Object *obj,struct MUIP_AppList_Disable *msg)
992 {
993 struct data *data = INST_DATA(cl,obj);
994 struct URL_Node *node;
995
996 DoMethod(data->appList,MUIM_List_GetEntry,MUIV_List_GetEntry_Active,(ULONG)&node);
997 if (node)
998 {
999 if (!BOOLSAME(msg->disable,node->Flags & UNF_DISABLED))
1000 {
1001 if (msg->disable) node->Flags |= UNF_DISABLED;
1002 else node->Flags &= ~UNF_DISABLED;
1003
1004 DoMethod(data->appList,MUIM_List_Redraw,xget(data->appList,MUIA_List_Active));
1005 }
1006 }
1007
1008 return TRUE;
1009 }
1010
1011 /**************************************************************************/
1012
1013 static ULONG
1014 mMove(struct IClass *cl,Object *obj,struct MUIP_AppList_Move *msg)
1015 {
1016 struct data *data = INST_DATA(cl,obj);
1017
1018 DoMethod(data->appList,MUIM_List_Exchange,MUIV_List_Exchange_Active,msg->up ? MUIV_List_Exchange_Previous : MUIV_List_Exchange_Next);
1019 set(data->appList,MUIA_List_Active,msg->up ? MUIV_List_Active_Up : MUIV_List_Active_Down);
1020
1021 return 0;
1022 }
1023
1024 /**************************************************************************/
1025 /*
1026 ** Forward to the list
1027 */
1028
1029 static ULONG
1030 mCheckSave(struct IClass *cl,Object *obj,Msg msg)
1031 {
1032 struct data *data = INST_DATA(cl,obj);
1033
1034 return DoMethod(data->appList,MUIM_App_CheckSave);
1035 }
1036
1037 /**************************************************************************/
1038
1039 M_DISP(dispatcher)
1040 {
1041 M_DISPSTART
1042
1043 switch (msg->MethodID)
1044 {
1045 case OM_NEW: return mNew(cl,obj,(APTR)msg);
1046 case OM_GET: return mGet(cl,obj,(APTR)msg);
1047
1048 case MUIM_AppList_Add: return mAdd(cl,obj,(APTR)msg);
1049 case MUIM_AppList_Edit: return mEdit(cl,obj,(APTR)msg);
1050 case MUIM_AppList_Clone: return mClone(cl,obj,(APTR)msg);
1051 case MUIM_AppList_Delete: return mDelete(cl,obj,(APTR)msg);
1052 case MUIM_AppList_ActiveChanged: return mActiveChanged(cl,obj,(APTR)msg);
1053 case MUIM_AppList_Disable: return mDisable(cl,obj,(APTR)msg);
1054 case MUIM_AppList_Move: return mMove(cl,obj,(APTR)msg);
1055 case MUIM_App_CheckSave: return mCheckSave(cl,obj,(APTR)msg);
1056
1057 default: return DoSuperMethodA(cl,obj,msg);
1058 }
1059 }
1060
1061 M_DISPEND(dispatcher)
1062
1063 /**************************************************************************/
1064
1065 ULONG
1066 initAppListClass(void)
1067 {
1068 if (initListClass())
1069 {
1070 if (g_appListClass = MUI_CreateCustomClass(NULL,MUIC_Group,NULL,sizeof(struct data),DISP(dispatcher)))
1071 {
1072 initLampClass();
1073
1074 return TRUE;
1075 }
1076
1077 disposeListClass();
1078 }
1079
1080 return FALSE;
1081 }
1082
1083 /**************************************************************************/
1084
1085 void
1086 disposeAppListClass(void)
1087 {
1088 disposeLampClass();
1089 disposeListClass();
1090 if (g_appListClass) MUI_DeleteCustomClass(g_appListClass);
1091 }
1092
1093 /**************************************************************************/
1094
A totally sweet operating system