?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
add casts to zune macros to silence some warnings
[tangerine.git] / workbench / libs / asl / filereqhooks.c
bloba19dbe44cf18240bf95ef0f04f171cf030da208b
1 /*
2 Copyright © 1995-2003, The AROS Development Team. All rights reserved.
3 $Id$
4
5 File requester specific code.
6 */
7
8
9 #include <proto/exec.h>
10 #include <proto/dos.h>
11 #include <proto/utility.h>
12 #include <proto/intuition.h>
13 #include <proto/graphics.h>
14 #include <proto/gadtools.h>
15 #include <exec/memory.h>
16 #include <dos/dos.h>
17 #include <intuition/screens.h>
18 #include <intuition/icclass.h>
19 #include <intuition/gadgetclass.h>
20 #include <graphics/gfx.h>
21 #include <devices/rawkeycodes.h>
22 #include <libraries/gadtools.h>
23 #include <workbench/startup.h>
24 #include <string.h>
25
26 #include "asl_intern.h"
27 #include "filereqhooks.h"
28 #include "layout.h"
29 #include "filereqsupport.h"
30 #include "specialreq.h"
31
32 #if USE_SHARED_COOLIMAGES
33 #include <libraries/coolimages.h>
34 #include <proto/coolimages.h>
35 #else
36 #include "coolimages.h"
37 #endif
38
39 #define CATCOMP_NUMBERS
40 #include "strings.h"
41
42 #define SDEBUG 0
43 #define DEBUG 0
44
45 #include <aros/debug.h>
46
47 /*****************************************************************************************/
48
49 STATIC BOOL FRGadInit(struct LayoutData *, struct AslBase_intern *);
50 STATIC BOOL FRGadLayout(struct LayoutData *, struct AslBase_intern *);
51 STATIC VOID FRGadCleanup(struct LayoutData *, struct AslBase_intern *);
52 STATIC ULONG FRHandleEvents(struct LayoutData *, struct AslBase_intern *);
53 STATIC ULONG FRGetSelectedFiles(struct LayoutData *, struct AslBase_intern *AslBase);
54
55 /*****************************************************************************************/
56
57 #define ID_BUTOK ID_MAINBUTTON_OK
58 #define ID_BUTVOLUMES ID_MAINBUTTON_MIDDLELEFT
59 #define ID_BUTPARENT ID_MAINBUTTON_MIDDLERIGHT
60 #define ID_BUTCANCEL ID_MAINBUTTON_CANCEL
61
62 #define ID_LISTVIEW 1
63 #define ID_STRDRAWER 2
64 #define ID_STRPATTERN 3
65 #define ID_STRFILE 4
66
67 #undef NUMBUTS
68 #define NUMBUTS 4L
69
70 #define CLASS_ASLBASE ((struct AslBase_intern *)cl->cl_UserData)
71 #define HOOK_ASLBASE ((struct AslBase_intern *)hook->h_Data)
72
73 #define AslBase HOOK_ASLBASE
74
75 /*****************************************************************************************/
76
77 AROS_UFH3(IPTR, ASLFRRenderHook,
78 AROS_UFHA(struct Hook *, hook, A0),
79 AROS_UFHA(struct ASLLVFileReqNode *,node, A2),
80 AROS_UFHA(struct ASLLVDrawMsg *, msg, A1)
81 )
82 {
83 AROS_USERFUNC_INIT
84
85 IPTR retval;
86
87 if (msg->lvdm_MethodID == LV_DRAW)
88 {
89 struct DrawInfo *dri = msg->lvdm_DrawInfo;
90 struct RastPort *rp = msg->lvdm_RastPort;
91
92 WORD min_x = msg->lvdm_Bounds.MinX;
93 WORD min_y = msg->lvdm_Bounds.MinY;
94 WORD max_x = msg->lvdm_Bounds.MaxX;
95 WORD max_y = msg->lvdm_Bounds.MaxY;
96
97 UWORD erasepen = BACKGROUNDPEN;
98 UWORD textpen = TEXTPEN;
99
100 if (node) switch(node->type)
101 {
102 case ASLLV_FRNTYPE_DIRECTORY:
103 if (node->subtype > 0) textpen = SHINEPEN;
104 break;
105 case ASLLV_FRNTYPE_VOLUMES:
106 switch(node->subtype)
107 {
108 case DLT_DIRECTORY:
109 case DLT_LATE:
110 case DLT_NONBINDING:
111 textpen = SHINEPEN;
112 break;
113 }
114 break;
115 }
116
117 SetDrMd(rp, JAM1);
118
119 switch (msg->lvdm_State)
120 {
121 case ASLLVR_SELECTED:
122 erasepen = FILLPEN;
123 textpen = FILLTEXTPEN;
124
125 /* Fall through */
126
127 case ASLLVR_NORMAL:
128 {
129 WORD numfit;
130 struct TextExtent te;
131
132 SetAPen(rp, dri->dri_Pens[erasepen]);
133 RectFill(rp, min_x, min_y, max_x, max_y);
134
135 if (node)
136 {
137 struct LayoutData *ld = ((struct LayoutData *)node->userdata);
138 struct FRUserData *udata = (struct FRUserData *)ld->ld_UserData;
139 WORD i;
140
141 SetFont(rp, ld->ld_Font);
142
143 min_x += BORDERLVITEMSPACINGX;
144 min_y += BORDERLVITEMSPACINGY;
145
146 max_x -= BORDERLVITEMSPACINGX;
147 max_y -= BORDERLVITEMSPACINGY;
148
149 for(i = 0; i < ASLLV_MAXCOLUMNS;i++)
150 {
151 WORD x;
152 UWORD len;
153
154 if (node->text[i] == NULL) continue;
155
156 len = strlen(node->text[i]);
157
158 switch(udata->LVColumnAlign[i])
159 {
160 case ASLLV_ALIGN_RIGHT:
161 x = min_x + udata->LVColumnWidth[i] -
162 TextLength(rp, node->text[i], len);
163 break;
164
165 default:
166 x = min_x;
167 break;
168 }
169
170 if (x > max_x) break;
171
172 numfit = TextFit(rp,
173 node->text[i],
174 len,
175 &te,
176 NULL,
177 1,
178 max_x - x + 1,
179 max_y - min_y + 1);
180
181 if (numfit < len) numfit++;
182
183 if (numfit < 1) break;
184
185 SetAPen(rp, dri->dri_Pens[textpen]);
186
187 /* Render text */
188 Move(rp, x, min_y + rp->Font->tf_Baseline);
189 Text(rp, node->text[i], numfit);
190
191 min_x += udata->LVColumnWidth[i] + rp->TxWidth * 2;
192
193 } /* for(i = 0; i < ASLLV_MAXCOLUMNS;i++) */
194
195 } /* if (node) */
196
197 } break;
198
199 } /* switch (msg->lvdm_State) */
200
201 retval = ASLLVCB_OK;
202
203 } /* if (msg->lvdm_MethodID == LV_DRAW) */
204 else
205 {
206 retval = ASLLVCB_UNKNOWN;
207 }
208
209 return retval;
210
211 AROS_USERFUNC_EXIT
212 }
213
214 /*****************************************************************************************/
215
216 #undef AslBase
217
218 /*****************************************************************************************/
219
220 AROS_UFH3(VOID, FRTagHook,
221 AROS_UFHA(struct Hook *, hook, A0),
222 AROS_UFHA(struct ParseTagArgs *, pta, A2),
223 AROS_UFHA(struct AslBase_intern *, AslBase, A1)
224 )
225 {
226 AROS_USERFUNC_INIT
227
228 struct TagItem *tag;
229 const struct TagItem *tstate;
230 struct IntFileReq *ifreq;
231 IPTR tidata;
232
233 EnterFunc(bug("FRTagHook(hook=%p, pta=%p)\n", hook, pta));
234
235 ifreq = (struct IntFileReq *)pta->pta_IntReq;
236
237 tstate = pta->pta_Tags;
238 while ((tag = NextTagItem(&tstate)) != NULL)
239 {
240 tidata = tag->ti_Data;
241
242 switch (tag->ti_Tag)
243 {
244 /* The tags that are put "in a row" are defined as the same value,
245 and therefor we only use one of them, but the effect is for all of them
246 */
247 case ASLFR_InitialDrawer:
248 /* case ASL_Dir: Obsolete */
249 if (tidata)
250 ifreq->ifr_Drawer = (STRPTR)tidata;
251 break;
252
253 case ASLFR_InitialFile:
254 /* case ASL_File: Obsolete */
255 if (tidata)
256 ifreq->ifr_File = (STRPTR)tidata;
257 break;
258
259 case ASLFR_InitialPattern:
260 /* case ASL_Pattern: Obsolete */
261 if (tidata)
262 ifreq->ifr_Pattern = (STRPTR)tidata;
263 break;
264
265 case ASLFR_UserData:
266 ((struct FileRequester *)pta->pta_Req)->fr_UserData = (APTR)tidata;
267 break;
268
269 /* Options */
270
271 case ASLFR_Flags1:
272 ifreq->ifr_Flags1 = (UBYTE)tidata;
273 /* Extract some flags that are common to all requester types and
274 put them into IntReq->ir_Flags
275 */
276 if (ifreq->ifr_Flags1 & FRF_PRIVATEIDCMP)
277 GetIR(ifreq)->ir_Flags |= IF_PRIVATEIDCMP;
278 else
279 GetIR(ifreq)->ir_Flags &= ~IF_PRIVATEIDCMP;
280 break;
281
282 case ASLFR_Flags2:
283 ifreq->ifr_Flags2 = (UBYTE)tidata;
284 break;
285
286 case ASLFR_DoSaveMode:
287 if (tidata)
288 ifreq->ifr_Flags1 |= FRF_DOSAVEMODE;
289 else
290 ifreq->ifr_Flags1 &= ~FRF_DOSAVEMODE;
291 break;
292
293 case ASLFR_DoMultiSelect:
294 if (tidata)
295 ifreq->ifr_Flags1 |= FRF_DOMULTISELECT;
296 else
297 ifreq->ifr_Flags1 &= ~FRF_DOMULTISELECT;
298 break;
299
300 case ASLFR_DoPatterns:
301 if (tidata)
302 ifreq->ifr_Flags1 |= FRF_DOPATTERNS;
303 else
304 ifreq->ifr_Flags1 &= ~FRF_DOPATTERNS;
305 break;
306
307 case ASLFR_DrawersOnly:
308 if (tidata)
309 ifreq->ifr_Flags2 |= FRF_DRAWERSONLY;
310 else
311 ifreq->ifr_Flags2 &= ~FRF_DRAWERSONLY;
312 break;
313
314 case ASLFR_FilterFunc:
315 ifreq->ifr_FilterFunc = (struct Hook *)tidata;
316 ifreq->ifr_Flags1 |= FRF_FILTERFUNC;
317 break;
318
319 case ASLFR_RejectIcons:
320 if (tidata)
321 ifreq->ifr_Flags2 |= FRF_REJECTICONS;
322 else
323 ifreq->ifr_Flags2 &= ~FRF_REJECTICONS;
324 break;
325
326 case ASLFR_RejectPattern:
327 if (tidata)
328 ifreq->ifr_RejectPattern = (STRPTR)tidata;
329 break;
330
331 case ASLFR_AcceptPattern:
332 if (tidata)
333 ifreq->ifr_AcceptPattern = (STRPTR)tidata;
334 break;
335
336 case ASLFR_FilterDrawers:
337 if (tidata)
338 ifreq->ifr_Flags2 |= FRF_FILTERDRAWERS;
339 else
340 ifreq->ifr_Flags2 &= ~FRF_FILTERDRAWERS;
341 break;
342
343 case ASLFR_HookFunc:
344 ifreq->ifr_HookFunc = (APTR)tidata;
345 break;
346
347 case ASLFR_SetSortBy:
348 ifreq->ifr_SortBy = tidata;
349 break;
350
351 case ASLFR_GetSortBy:
352 ifreq->ifr_GetSortBy = (ULONG *)tidata;
353 break;
354
355 case ASLFR_SetSortOrder:
356 ifreq->ifr_SortOrder = tidata;
357 break;
358
359 case ASLFR_GetSortOrder:
360 ifreq->ifr_GetSortOrder = (ULONG *)tidata;
361 break;
362
363 case ASLFR_SetSortDrawers:
364 ifreq->ifr_SortDrawers = tidata;
365 break;
366
367 case ASLFR_GetSortDrawers:
368 ifreq->ifr_GetSortDrawers = (ULONG *)tidata;
369 break;
370
371 case ASLFR_InitialShowVolumes:
372 ifreq->ifr_InitialShowVolumes = tidata ? TRUE : FALSE;
373 break;
374
375 default:
376 break;
377
378 } /* switch (tag->ti_Tag) */
379
380 } /* while ((tag = NextTagItem(&tstate)) != 0) */
381
382 /* DrawersOnly excludes multiselect */
383
384 if (ifreq->ifr_Flags2 & FRF_DRAWERSONLY)
385 {
386 ifreq->ifr_Flags1 &= ~FRF_DOMULTISELECT;
387 }
388
389 ReturnVoid("FRTagHook");
390
391 AROS_USERFUNC_EXIT
392 }
393
394 /*****************************************************************************************/
395
396 AROS_UFH3(ULONG, FRGadgetryHook,
397 AROS_UFHA(struct Hook *, hook, A0),
398 AROS_UFHA(struct LayoutData *, ld, A2),
399 AROS_UFHA(struct AslBase_intern *, AslBase, A1)
400 )
401 {
402 AROS_USERFUNC_INIT
403
404 ULONG retval;
405
406 switch (ld->ld_Command)
407 {
408 case LDCMD_INIT:
409 retval = (ULONG)FRGadInit(ld, ASLB(AslBase));
410 break;
411
412 case LDCMD_LAYOUT:
413 retval = (ULONG)FRGadLayout(ld, ASLB(AslBase));
414 break;
415
416 case LDCMD_HANDLEEVENTS:
417 retval = (ULONG)FRHandleEvents(ld, ASLB(AslBase));
418 break;
419
420 case LDCMD_CLEANUP:
421 FRGadCleanup(ld, ASLB(AslBase));
422 retval = GHRET_OK;
423 break;
424
425 default:
426 retval = GHRET_FAIL;
427 break;
428 }
429
430 return (retval);
431
432 AROS_USERFUNC_EXIT
433 }
434
435 /*****************************************************************************************/
436
437 struct ButtonInfo
438 {
439 WORD gadid;
440 char *text;
441 #if USE_SHARED_COOLIMAGES
442 ULONG coolid;
443 Object **objvar;
444 const struct CoolImage *coolimage;
445 #else
446 const struct CoolImage *coolimage;
447 Object **objvar;
448 #endif
449 };
450
451 /*****************************************************************************************/
452
453 STATIC BOOL FRGadInit(struct LayoutData *ld, struct AslBase_intern *AslBase)
454 {
455 struct FRUserData *udata = ld->ld_UserData;
456 struct IntFileReq *ifreq = (struct IntFileReq *)ld->ld_IntReq;
457 #if USE_SHARED_COOLIMAGES
458 ULONG okid = (GetIR(ifreq)->ir_Flags & IF_USER_POSTEXT) ? COOL_USEIMAGE_ID :
459 ((ifreq->ifr_Flags1 & FRF_DOSAVEMODE) ? COOL_SAVEIMAGE_ID :
460 COOL_LOADIMAGE_ID);
461 struct ButtonInfo bi[NUMBUTS] =
462 {
463 { ID_BUTOK , GetIR(ifreq)->ir_PositiveText , okid , &udata->OKBut },
464 { ID_BUTVOLUMES , NULL , COOL_DOTIMAGE_ID , &udata->VolumesBut },
465 { ID_BUTPARENT , NULL , COOL_DOTIMAGE_ID , &udata->ParentBut },
466 { ID_BUTCANCEL , GetIR(ifreq)->ir_NegativeText , COOL_CANCELIMAGE_ID , &udata->CancelBut }
467 };
468 #else
469 const struct CoolImage *okimage = (GetIR(ifreq)->ir_Flags & IF_USER_POSTEXT) ? &cool_useimage :
470 ((ifreq->ifr_Flags1 & FRF_DOSAVEMODE) ? &cool_saveimage :
471 &cool_loadimage);
472 struct ButtonInfo bi[NUMBUTS] =
473 {
474 { ID_BUTOK , GetIR(ifreq)->ir_PositiveText , okimage , &udata->OKBut },
475 { ID_BUTVOLUMES , NULL , &cool_dotimage , &udata->VolumesBut },
476 { ID_BUTPARENT , NULL , &cool_dotimage , &udata->ParentBut },
477 { ID_BUTCANCEL , GetIR(ifreq)->ir_NegativeText , &cool_cancelimage , &udata->CancelBut }
478 };
479 #endif
480 Object *gad;
481 STRPTR butstr[NUMBUTS];
482 LONG error = ERROR_NO_FREE_STORE;
483 WORD gadrows, x, y, w, h, i, y2;
484
485 NEWLIST(&udata->ListviewList);
486
487 udata->StringEditHook.h_Entry = (APTR)AROS_ASMSYMNAME(StringEditFunc);
488 udata->StringEditHook.h_SubEntry = NULL;
489 udata->StringEditHook.h_Data = AslBase;
490
491 udata->ListviewHook.h_Entry = (APTR)AROS_ASMSYMNAME(ASLFRRenderHook);
492 udata->ListviewHook.h_SubEntry = NULL;
493 udata->ListviewHook.h_Data = AslBase;
494
495 /* calc. min. size */
496
497 if (!bi[0].text) bi[0].text = GetString(MSG_FILEREQ_POSITIVE_GAD, GetIR(ifreq)->ir_Catalog, AslBase);
498 bi[1].text = GetString(MSG_FILEREQ_VOLUMES_GAD, GetIR(ifreq)->ir_Catalog, AslBase);
499 bi[2].text = GetString(MSG_FILEREQ_PARENT_GAD, GetIR(ifreq)->ir_Catalog, AslBase);
500 if (!bi[3].text) bi[3].text = GetString(MSG_FILEREQ_NEGATIVE_GAD, GetIR(ifreq)->ir_Catalog, AslBase);
501
502
503 w = 0;
504 for(i = 0; i < NUMBUTS; i++)
505 {
506 x = TextLength(&ld->ld_DummyRP, bi[i].text, strlen(bi[i].text));
507
508 #if FREQ_COOL_BUTTONS
509 #if USE_SHARED_COOLIMAGES
510 if (CoolImagesBase)
511 {
512 bi[i].coolimage = (const struct CoolImage *)COOL_ObtainImageA(bi[i].coolid, NULL);
513 }
514
515 if (CoolImagesBase)
516 #endif
517 if (ld->ld_TrueColor)
518 {
519 x += IMAGEBUTTONEXTRAWIDTH + bi[i].coolimage->width;
520 }
521 #endif
522
523 if (x > w) w = x;
524 }
525
526 udata->ButWidth = w + BUTTONEXTRAWIDTH;
527
528 ld->ld_ButWidth = udata->ButWidth;
529 ld->ld_NumButtons = 4;
530
531 #if FREQ_COOL_BUTTONS
532
533 #if USE_SHARED_COOLIMAGES
534 if (CoolImagesBase)
535 {
536 #endif
537 y = BUTTONEXTRAHEIGHT + ld->ld_Font->tf_YSize;
538 if (ld->ld_TrueColor)
539 {
540 y2 = IMAGEBUTTONEXTRAHEIGHT + DEF_COOLIMAGEHEIGHT;
541 } else {
542 y2 = 0;
543 }
544 udata->ButHeight = (y > y2) ? y : y2;
545 #if USE_SHARED_COOLIMAGES
546 }
547 else
548 {
549 udata->ButHeight = BUTTONEXTRAHEIGHT + ld->ld_Font->tf_YSize;
550 }
551 #endif
552
553 #else
554 udata->ButHeight = BUTTONEXTRAHEIGHT + ld->ld_Font->tf_YSize;
555 #endif
556
557 gadrows = 3; /* button row + file string + drawer string */
558 if (ifreq->ifr_Flags1 & FRF_DOPATTERNS) gadrows++;
559 if (ifreq->ifr_Flags2 & FRF_DRAWERSONLY) gadrows--;
560
561 ld->ld_MinWidth = OUTERSPACINGX * 2 +
562 GADGETSPACINGX * 3 +
563 udata->ButWidth * NUMBUTS;
564
565 ld->ld_MinHeight = OUTERSPACINGY * 2 +
566 (GADGETSPACINGY + udata->ButHeight) * gadrows +
567 BORDERLVSPACINGY * 2 +
568 (ld->ld_Font->tf_YSize + BORDERLVITEMSPACINGY * 2) * FREQ_MIN_VISIBLELINES;
569
570 /* make listview gadget */
571
572 x = ld->ld_WBorLeft + OUTERSPACINGX;
573 y = ld->ld_WBorTop + OUTERSPACINGY;
574 w = -ld->ld_WBorRight - ld->ld_WBorLeft - OUTERSPACINGX * 2 - PROPSIZE;
575 h = -ld->ld_WBorBottom - ld->ld_WBorTop - OUTERSPACINGY * 2 -
576 udata->ButHeight * gadrows -
577 GADGETSPACINGY * gadrows;
578
579 {
580 struct TagItem lv_tags[] =
581 {
582 {GA_Left , x },
583 {GA_Top , y },
584 {GA_RelWidth , w },
585 {GA_RelHeight , h },
586 {GA_UserData , (IPTR)ld },
587 {GA_ID , ID_LISTVIEW },
588 {GA_RelVerify , TRUE },
589 {ASLLV_CallBack , (IPTR)&udata->ListviewHook },
590 {ASLLV_DoMultiSelect, (ifreq->ifr_Flags1 & FRF_DOMULTISELECT) },
591 {TAG_DONE }
592 };
593
594 udata->Listview = gad = NewObjectA(AslBase->asllistviewclass, NULL, lv_tags);
595 if (!udata->Listview) goto failure;
596
597 }
598
599 /* make scroller gadget for listview */
600
601 x = -ld->ld_WBorRight - OUTERSPACINGX - PROPSIZE + 1;
602 y = ld->ld_WBorTop + OUTERSPACINGY;
603 w = PROPSIZE;
604 h = -ld->ld_WBorBottom - ld->ld_WBorTop - OUTERSPACINGY * 2 -
605 udata->ButHeight * gadrows -
606 GADGETSPACINGY * gadrows;
607 {
608 struct TagItem scroller_tags[] =
609 {
610 {GA_RelRight , x },
611 {GA_Top , y },
612 {GA_Width , w },
613 {GA_RelHeight , h },
614 {GA_ID , ID_LISTVIEW },
615 {PGA_NewLook , TRUE },
616 {PGA_Borderless , TRUE },
617 {PGA_Freedom , FREEVERT },
618 {PGA_Top , 0 },
619 {PGA_Total , 20 },
620 {PGA_Visible , 1 },
621 {GA_Previous , (IPTR)gad },
622 {TAG_DONE }
623 };
624
625 if (!makescrollergadget(&udata->ScrollGad, ld, scroller_tags, AslBase)) goto failure;
626 gad = udata->ScrollGad.arrow2;
627 }
628
629 connectscrollerandlistview(&udata->ScrollGad, udata->Listview, AslBase);
630
631 /* make button row */
632
633 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight + 1;
634
635 {
636 struct TagItem button_tags[] =
637 {
638 {GA_Text , 0 },
639 {GA_Previous , 0 },
640 {GA_ID , 0 },
641 #if FREQ_COOL_BUTTONS
642 {ASLBT_CoolImage , 0 },
643 #else
644 {TAG_IGNORE , 0 },
645 #endif
646 {GA_UserData , (IPTR)ld },
647 {GA_Left , 0 },
648 {GA_RelBottom , y },
649 {GA_Width , udata->ButWidth },
650 {GA_Height , udata->ButHeight },
651 {GA_RelVerify , TRUE },
652 {GA_Image , 0 }, /* means we want a frame */
653 {TAG_DONE }
654 };
655
656 for(i = 0; i < NUMBUTS; i++)
657 {
658 button_tags[0].ti_Data = (IPTR)bi[i].text;
659 button_tags[1].ti_Data = (IPTR)gad;
660 button_tags[2].ti_Data = bi[i].gadid;
661
662 #if USE_SHARED_COOLIMAGES
663 if (CoolImagesBase == NULL) button_tags[3].ti_Tag = TAG_IGNORE;
664 #endif
665 button_tags[3].ti_Data = (IPTR)bi[i].coolimage;
666
667 *(bi[i].objvar) = gad = NewObjectA(AslBase->aslbuttonclass, NULL, button_tags);
668 if (!gad) goto failure;
669 }
670
671 }
672
673 /* make labels */
674
675 {
676 struct LabelInfo
677 {
678 BOOL doit;
679 STRPTR text;
680 Object **objvar;
681 } li [] =
682 {
683 {TRUE, (STRPTR)MSG_FILEREQ_PATTERN_LABEL, &udata->PatternLabel },
684 {TRUE, (STRPTR)MSG_FILEREQ_DRAWER_LABEL , &udata->DrawerLabel },
685 {TRUE, (STRPTR)MSG_FILEREQ_FILE_LABEL , &udata->FileLabel }
686 };
687
688 struct TagItem label_tags[] =
689 {
690 {GA_Left , 0 },
691 {GA_RelBottom , 0 },
692 {GA_Width , 0 },
693 {GA_Height , udata->ButHeight },
694 {GA_Text , 0 },
695 {GA_Previous , (IPTR)gad },
696 {GA_UserData , (IPTR)ld },
697 {GA_Disabled , TRUE },
698 {TAG_DONE }
699 };
700
701 for(i = 0; i < 3; i++)
702 {
703 li[i].text = GetString((LONG)li[i].text, GetIR(ifreq)->ir_Catalog, AslBase);
704 }
705
706 /* Drawer label is always there */
707
708 w = TextLength(&ld->ld_DummyRP, li[1].text, strlen(li[1].text)) +
709 LABELSPACINGX +
710 ld->ld_Font->tf_XSize * 2; /* Frame symbol showing directory scan activity */
711
712 i = 0;
713 if (ifreq->ifr_Flags1 & FRF_DOPATTERNS)
714 {
715 butstr[i++] = li[0].text;
716 }
717 else
718 {
719 li[0].doit = FALSE;
720 }
721
722 if (!(ifreq->ifr_Flags2 & FRF_DRAWERSONLY))
723 {
724 butstr[i++] = li[2].text;
725 }
726 else
727 {
728 li[2].doit = FALSE;
729 }
730
731 if (i)
732 {
733 x = BiggestTextLength(butstr, i, &(ld->ld_DummyRP), AslBase);
734 if (x > w) w = x;
735 }
736
737 x = ld->ld_WBorLeft + OUTERSPACINGX;
738 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
739 (udata->ButHeight + GADGETSPACINGY) * (gadrows - 1) + 1;
740
741 label_tags[1].ti_Data = y;
742
743 for(i = 0; i < 3;i++)
744 {
745 if (!li[i].doit) continue;
746
747 if (i == 1) y2 = y;
748
749 label_tags[2].ti_Data = TextLength(&ld->ld_DummyRP, li[i].text, strlen(li[i].text));
750 label_tags[0].ti_Data = x + w - label_tags[2].ti_Data;
751 label_tags[4].ti_Data = (IPTR)li[i].text;
752 label_tags[5].ti_Data = (IPTR)gad;
753
754 *(li[i].objvar) = gad = NewObjectA(AslBase->aslbuttonclass, NULL, label_tags);
755 if (!gad) goto failure;
756
757 y += udata->ButHeight + GADGETSPACINGY;
758 label_tags[1].ti_Data = y;
759 }
760 }
761
762 /* Directory Scan Symbol */
763
764 {
765 struct TagItem sym_tags[] =
766 {
767 {GA_Left , x },
768 {GA_RelBottom , y2 + 1 },
769 {GA_Width , ld->ld_Font->tf_XSize * 2 },
770 {GA_Height , udata->ButHeight - 2 },
771 {GA_Image , 0 }, /* means we want a frame */
772 {GA_Previous , (IPTR)gad },
773 {GA_Disabled , TRUE },
774 {GA_UserData , (IPTR)ld },
775 {TAG_DONE }
776 };
777
778 udata->DirectoryScanSymbol = gad = NewObjectA(AslBase->aslbuttonclass, NULL, sym_tags);
779 if (!udata->DirectoryScanSymbol) goto failure;
780 }
781
782 /* make string gadgets */
783
784 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
785 (udata->ButHeight + GADGETSPACINGY) * (gadrows - 1) + 1;
786 x = ld->ld_WBorLeft + OUTERSPACINGX + w + LABELSPACINGX;
787
788 w = -ld->ld_WBorLeft - ld->ld_WBorRight - OUTERSPACINGX * 2 -
789 w - LABELSPACINGX;
790
791 {
792 struct StrInfo
793 {
794 WORD gadid;
795 char *text;
796 WORD maxchars;
797 Object **objvar;
798 } si [] =
799 {
800 {ID_STRPATTERN, ifreq->ifr_Pattern, MAX_PATTERN_LEN, &udata->PatternGad },
801 {ID_STRDRAWER , ifreq->ifr_Drawer , MAX_PATH_LEN , &udata->PathGad },
802 {ID_STRFILE , ifreq->ifr_File , MAX_FILE_LEN , &udata->FileGad },
803 };
804
805 struct TagItem string_tags[] =
806 {
807 {GA_Left , x },
808 {GA_RelBottom , y },
809 {GA_RelWidth , w },
810 {GA_Height , udata->ButHeight },
811 {GA_Previous , (IPTR)gad },
812 {STRINGA_TextVal , (IPTR)ifreq->ifr_Pattern },
813 {STRINGA_MaxChars , MAX_PATTERN_LEN },
814 {GA_ID , ID_STRPATTERN },
815 {GA_RelVerify , TRUE },
816 {GA_UserData , (IPTR)ld },
817 {GA_TabCycle , TRUE },
818 {STRINGA_EditHook , (IPTR)&udata->StringEditHook },
819 {STRINGA_Font , (IPTR)ld->ld_Font },
820 {TAG_DONE }
821 };
822
823 if (!(ifreq->ifr_Flags1 & FRF_DOPATTERNS)) si[0].gadid = 0;
824 if (ifreq->ifr_Flags2 & FRF_DRAWERSONLY) si[2].gadid = 0;
825
826 for(i = 0;i < 3; i++)
827 {
828 if (si[i].gadid == 0) continue;
829
830 string_tags[4].ti_Data = (IPTR)gad;
831 string_tags[5].ti_Data = (IPTR)si[i].text;
832 string_tags[6].ti_Data = si[i].maxchars;
833 string_tags[7].ti_Data = si[i].gadid;
834
835 *(si[i].objvar) = gad = NewObjectA(AslBase->aslstringclass, NULL, string_tags);
836 if (!gad) goto failure;
837
838 y += udata->ButHeight + GADGETSPACINGY;
839 string_tags[1].ti_Data = y;
840 }
841 }
842
843 #if AVOID_FLICKER
844 {
845 struct TagItem eraser_tags[] =
846 {
847 {GA_Previous, (IPTR)gad},
848 {TAG_DONE}
849 };
850
851 udata->EraserGad = gad = NewObjectA(AslBase->asleraserclass, NULL, eraser_tags);
852 /* Doesn't matter if this failed */
853 }
854 #endif
855
856 if (ifreq->ifr_InitialShowVolumes)
857 {
858 FRGetVolumes(ld, AslBase);
859 } else {
860 FRNewPath((STRPTR)ifreq->ifr_Drawer, ld, AslBase);
861 }
862
863 SetAttrs(udata->Listview, ASLLV_Labels, (IPTR)&udata->ListviewList,
864 TAG_DONE);
865
866 ld->ld_GList = (struct Gadget *)udata->Listview;
867
868 /* Menus */
869 {
870 struct NewMenu nm[] =
871 {
872 {NM_TITLE, (STRPTR)MSG_FILEREQ_MEN_CONTROL }, /* 0 */
873 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_LASTNAME , 0 , 0 , 0 , (APTR)FRMEN_LASTNAME }, /* 1 */
874 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_NEXTNAME , 0, 0 , 0 , (APTR)FRMEN_NEXTNAME }, /* 2 */
875 {NM_ITEM, NM_BARLABEL }, /* 3 */
876 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_RESTORE , 0, 0 , 0 , (APTR)FRMEN_RESTORE }, /* 4 */
877 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_PARENT , 0, 0 , 0 , (APTR)FRMEN_PARENT }, /* 5 */
878 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_VOLUMES , 0, 0 , 0 , (APTR)FRMEN_VOLUMES }, /* 6 */
879 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_UPDATE , 0, 0 , 0 , (APTR)FRMEN_UPDATE }, /* 7 */
880 {NM_ITEM, NM_BARLABEL }, /* 8 */
881 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_DELETE , 0, 0 , 0 , (APTR)FRMEN_DELETE }, /* 9 */
882 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_CREATEDRAWER , 0, 0 , 0 , (APTR)FRMEN_NEWDRAWER }, /* 10 */
883 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_RENAME , 0, 0 , 0 , (APTR)FRMEN_RENAME }, /* 11 */
884 {NM_ITEM, NM_BARLABEL }, /* 12 */
885 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_SELECT , 0, 0 , 0 , (APTR)FRMEN_SELECT }, /* 13 */
886 {NM_ITEM, NM_BARLABEL }, /* 14 */
887 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_OK , 0, 0 , 0 , (APTR)FRMEN_OK }, /* 15 */
888 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_CONTROL_CANCEL , 0, 0 , 0 , (APTR)FRMEN_CANCEL }, /* 16 */
889 {NM_TITLE, (STRPTR)MSG_FILEREQ_MEN_FILELIST }, /* 17 */
890 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_FILELIST_SORTNAME , 0, CHECKIT , 2 + 4 , (APTR)FRMEN_BYNAME }, /* 18 */
891 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_FILELIST_SORTDATE , 0, CHECKIT , 1 + 4 , (APTR)FRMEN_BYDATE }, /* 19 */
892 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_FILELIST_SORTSIZE , 0, CHECKIT , 1 + 2 , (APTR)FRMEN_BYSIZE }, /* 20 */
893 {NM_ITEM, NM_BARLABEL }, /* 21 */
894 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_FILELIST_SORTUP , 0, CHECKIT , 32 , (APTR)FRMEN_ASCENDING }, /* 22 */
895 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_FILELIST_SORTDOWN , 0, CHECKIT , 16 , (APTR)FRMEN_DESCENDING }, /* 23 */
896 {NM_ITEM, NM_BARLABEL }, /* 24 */
897 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_FILELIST_SORTDRAWERFIRST , 0, CHECKIT , 256 + 512 , (APTR)FRMEN_DRAWERSFIRST }, /* 25 */
898 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_FILELIST_SORTDRAWERSAME , 0, CHECKIT , 128 + 512 , (APTR)FRMEN_DRAWERSMIX }, /* 26 */
899 {NM_ITEM, (STRPTR)MSG_FILEREQ_MEN_FILELIST_SORTDRAWERLAST , 0, CHECKIT , 128 + 256 , (APTR)FRMEN_DRAWERSLAST }, /* 27 */
900 {NM_END } /* 28 */
901 };
902
903 struct TagItem menu_tags[] =
904 {
905 {GTMN_NewLookMenus , TRUE },
906 {GTMN_TextAttr , (IPTR)GetIR(ifreq)->ir_TextAttr },
907 {TAG_DONE }
908 };
909
910 if (menu_tags[1].ti_Data == 0) menu_tags[1].ti_Tag = TAG_IGNORE;
911
912 LocalizeMenus(nm, GetIR(ifreq)->ir_Catalog, AslBase);
913
914 nm[18 + ifreq->ifr_SortBy ].nm_Flags |= CHECKED;
915 nm[22 + ifreq->ifr_SortOrder ].nm_Flags |= CHECKED;
916 nm[25 + ifreq->ifr_SortDrawers].nm_Flags |= CHECKED;
917
918 /* Show "Select" menu item only if this is a multiselect file requester.
919 The orig Amiga asl.library disables (ghosts) the item, but why
920 show it if it cannot be used anyway. */
921
922 if (!(ifreq->ifr_Flags1 & FRF_DOMULTISELECT))
923 {
924 nm[13].nm_Type = NM_IGNORE;
925 nm[14].nm_Type = NM_IGNORE;
926 }
927
928 /* No Rename in drawersonly requesters */
929
930 if (ifreq->ifr_Flags2 & FRF_DRAWERSONLY)
931 {
932 nm[11].nm_Type = NM_IGNORE;
933 }
934
935 /* Don't fail, if menus cannot be created/layouted, because a requester
936 without menus is still better than no requester at all */
937
938 if ((ld->ld_Menu = CreateMenusA(nm, NULL)))
939 {
940 if (!LayoutMenusA(ld->ld_Menu, ld->ld_VisualInfo, menu_tags))
941 {
942 FreeMenus(ld->ld_Menu);ld->ld_Menu = NULL;
943 }
944 }
945 }
946
947 SetIoErr(0);
948
949 ReturnBool ("FRGadInit", TRUE);
950
951 failure:
952 D(bug("failure\n"));
953
954 FRGadCleanup(ld, ASLB(AslBase));
955
956 SetIoErr(error);
957
958 ReturnBool ("FRGadInit", FALSE);
959
960 }
961
962 /*****************************************************************************************/
963
964 STATIC BOOL FRGadLayout(struct LayoutData *ld, struct AslBase_intern *AslBase)
965 {
966 FRActivateMainStringGadget(ld, AslBase);
967
968 ReturnBool ("FRGadLayout", TRUE );
969 }
970
971 /*****************************************************************************************/
972
973 STATIC VOID FRClickOnVolumes(struct LayoutData *ld, struct AslBase_intern *AslBase)
974 {
975 struct FRUserData *udata = (struct FRUserData *)ld->ld_UserData;
976
977 if (udata->Flags & FRFLG_SHOWING_VOLUMES)
978 {
979 union
980 {
981 UBYTE *dir;
982 IPTR baz;
983 } foo;
984
985 GetAttr(STRINGA_TextVal, udata->PathGad, &foo.baz);
986 FRGetDirectory(foo.dir, ld, AslBase);
987 } else {
988 FRGetVolumes(ld, AslBase);
989 }
990 }
991
992 /*****************************************************************************************/
993
994 STATIC ULONG FRHandleEvents(struct LayoutData *ld, struct AslBase_intern *AslBase)
995 {
996 struct IntuiMessage *imsg;
997 ULONG retval = GHRET_OK;
998 struct FRUserData *udata;
999 struct IntFileReq *ifreq;
1000 WORD gadid;
1001
1002 EnterFunc(bug("FRHandleEvents: Class: %d\n", imsg->Class));
1003
1004 udata = (struct FRUserData *)ld->ld_UserData;
1005 ifreq = (struct IntFileReq *)ld->ld_IntReq;
1006
1007 imsg = ld->ld_Event;
1008
1009 switch (imsg->Class)
1010 {
1011 case IDCMP_CLOSEWINDOW:
1012 retval = FALSE;
1013 break;
1014
1015 case IDCMP_MOUSEBUTTONS:
1016 FRActivateMainStringGadget(ld, AslBase);
1017 break;
1018
1019 case IDCMP_RAWKEY:
1020 switch (imsg->Code)
1021 {
1022 case CURSORUP:
1023 FRChangeActiveLVItem(ld, -1, imsg->Qualifier, 0, AslBase);
1024 break;
1025
1026 case RAWKEY_PAGEUP:
1027 FRChangeActiveLVItem(ld, -1, IEQUALIFIER_LSHIFT, 0, AslBase);
1028 break;
1029
1030 case RAWKEY_HOME:
1031 FRChangeActiveLVItem(ld, -1, IEQUALIFIER_LALT, 0, AslBase);
1032 break;
1033
1034 case RAWKEY_NM_WHEEL_UP:
1035 FRChangeActiveLVItem(ld, -3, imsg->Qualifier, 0, AslBase);
1036 break;
1037
1038 case CURSORDOWN:
1039 FRChangeActiveLVItem(ld, 1, imsg->Qualifier, 0, AslBase);
1040 break;
1041
1042 case RAWKEY_PAGEDOWN:
1043 FRChangeActiveLVItem(ld, 1, IEQUALIFIER_LSHIFT, 0, AslBase);
1044 break;
1045
1046 case RAWKEY_END:
1047 FRChangeActiveLVItem(ld, 1, IEQUALIFIER_LALT, 0, AslBase);
1048 break;
1049
1050 case RAWKEY_NM_WHEEL_DOWN:
1051 FRChangeActiveLVItem(ld, 3, imsg->Qualifier, 0, AslBase);
1052 break;
1053
1054 }
1055 break;
1056
1057 case IDCMP_VANILLAKEY:
1058 switch(imsg->Code)
1059 {
1060 case 27:
1061 retval = FALSE;
1062 break;
1063 }
1064 break;
1065
1066 case IDCMP_GADGETUP:
1067 gadid = ((struct Gadget *)imsg->IAddress)->GadgetID;
1068
1069 D(bug("GADGETUP! gadgetid=%d\n", gadid));
1070
1071 switch (gadid)
1072 {
1073 case ID_BUTCANCEL:
1074 retval = FALSE;
1075 break;
1076
1077 case ID_BUTVOLUMES:
1078 FRClickOnVolumes(ld, AslBase);
1079 break;
1080
1081 case ID_BUTPARENT:
1082 FRParentPath(ld, AslBase);
1083 break;
1084
1085 case ID_STRFILE:
1086 if (imsg->Code == STRINGCODE_CURSORUP)
1087 {
1088 FRChangeActiveLVItem(ld, -1, imsg->Qualifier, (struct Gadget *)udata->FileGad, AslBase);
1089 break;
1090 }
1091 else if (imsg->Code == STRINGCODE_CURSORDOWN)
1092 {
1093 FRChangeActiveLVItem(ld, 1, imsg->Qualifier, (struct Gadget *)udata->FileGad, AslBase);
1094 break;
1095 }
1096 else if ((imsg->Code == 0) || (imsg->Code == 9))
1097 {
1098 char filestring[MAX_FILE_LEN], checkstring[MAX_FILE_LEN], *file;
1099 BOOL fall_through = (imsg->Code == 9) ? FALSE : TRUE;
1100 BOOL has_colon = FALSE;
1101 BOOL has_slash = FALSE;
1102
1103 GetAttr(STRINGA_TextVal, udata->FileGad, (IPTR *)&file);
1104 strcpy(filestring, file);
1105
1106 has_colon = strchr(filestring, ':') ? TRUE : FALSE;
1107 has_slash = strchr(filestring, '/') ? TRUE : FALSE;
1108
1109 if (has_colon || has_slash)
1110 {
1111 fall_through = FALSE;
1112
1113 if (strcmp(filestring, ":") == 0)
1114 {
1115 FRNewPath(filestring, ld, AslBase);
1116 FRSetFile("", ld, AslBase);
1117 } else if (stricmp(filestring, "/") == 0)
1118 {
1119 FRParentPath(ld, AslBase);
1120 FRSetFile("", ld, AslBase);
1121 } else {
1122 BPTR lock;
1123 BOOL isfile = TRUE;
1124
1125 if (has_colon)
1126 {
1127 strcpy(checkstring, filestring);
1128 } else {
1129 char *dir;
1130
1131 GetAttr(STRINGA_TextVal, udata->PathGad, (IPTR *)&dir);
1132
1133 strcpy(checkstring, dir);
1134 AddPart(checkstring, filestring, MAX_FILE_LEN);
1135 }
1136
1137 if ((lock = Lock(checkstring, ACCESS_READ)))
1138 {
1139 struct FileInfoBlock *fib;
1140 BOOL isfile = FALSE;
1141
1142 if ((fib = AllocDosObject(DOS_FIB, NULL)))
1143 {
1144 if (Examine(lock, fib))
1145 {
1146 if (fib->fib_DirEntryType > 0) isfile = FALSE;
1147 }
1148 FreeDosObject(DOS_FIB, fib);
1149 }
1150 UnLock(lock);
1151 }
1152
1153 if (isfile)
1154 {
1155 char *fp = FilePart(checkstring);
1156 char fpc = *fp;
1157
1158 *fp = '\0';
1159 FRNewPath(checkstring, ld, AslBase);
1160
1161 *fp = fpc;
1162 FRSetFile(fp, ld, AslBase);
1163
1164 } else {
1165 FRNewPath(filestring, ld, AslBase);
1166 FRSetFile("", ld, AslBase);
1167 }
1168 }
1169
1170 ActivateGadget((struct Gadget *)udata->FileGad, ld->ld_Window, NULL);
1171
1172 } /* has colon or slash */
1173
1174 if (!fall_through) break;
1175
1176 } /* if ((imsg->Code == 0) || (imsg->Code == 9)) */
1177 else
1178 {
1179 break;
1180 }
1181
1182 /* fall through */
1183
1184 case ID_BUTOK:
1185 retval = FRGetSelectedFiles(ld, ASLB(AslBase));
1186 break;
1187
1188 case ID_STRPATTERN:
1189 if (imsg->Code == STRINGCODE_CURSORUP)
1190 {
1191 FRChangeActiveLVItem(ld, -1, imsg->Qualifier, (struct Gadget *)udata->PatternGad, AslBase);
1192 break;
1193 }
1194 else if (imsg->Code == STRINGCODE_CURSORDOWN)
1195 {
1196 FRChangeActiveLVItem(ld, 1, imsg->Qualifier, (struct Gadget *)udata->PatternGad, AslBase);
1197 break;
1198 }
1199 else if ((imsg->Code == 0) || (imsg->Code == 9))
1200 {
1201 if (imsg->Code == 0) ActivateGadget((struct Gadget *)udata->PathGad, ld->ld_Window, NULL);
1202 /* fall through to ID_STRDRAWER */
1203 }
1204 else
1205 {
1206 break;
1207 }
1208 /* no break here!! */
1209
1210 case ID_STRDRAWER:
1211 if (imsg->Code == STRINGCODE_CURSORUP)
1212 {
1213 FRChangeActiveLVItem(ld, -1, imsg->Qualifier, (struct Gadget *)udata->PathGad, AslBase);
1214 }
1215 else if (imsg->Code == STRINGCODE_CURSORDOWN)
1216 {
1217 FRChangeActiveLVItem(ld, 1, imsg->Qualifier, (struct Gadget *)udata->PathGad, AslBase);
1218 }
1219 else if ((imsg->Code == 0) || (imsg->Code == 9))
1220 {
1221 UBYTE *dir;
1222
1223 if ((imsg->Code == 0) && (gadid == ID_STRDRAWER))
1224 {
1225 if (ifreq->ifr_Flags2 & FRF_DRAWERSONLY)
1226 {
1227 retval = FRGetSelectedFiles(ld, ASLB(AslBase));
1228 break;
1229 } else {
1230 ActivateGadget((struct Gadget *)udata->FileGad, ld->ld_Window, NULL);
1231 }
1232 }
1233 GetAttr(STRINGA_TextVal, udata->PathGad, (IPTR *)&dir);
1234 FRNewPath(dir, ld, AslBase);
1235 }
1236 break;
1237
1238 case ID_LISTVIEW:
1239 {
1240 struct ASLLVFileReqNode *node;
1241 IPTR active;
1242
1243 GetAttr(ASLLV_Active, udata->Listview, &active);
1244
1245 if ((node = (struct ASLLVFileReqNode *)FindListNode(&udata->ListviewList, (WORD)active)))
1246 {
1247 switch(node->type)
1248 {
1249 case ASLLV_FRNTYPE_VOLUMES:
1250 FRNewPath((STRPTR)node->text[0], ld, AslBase);
1251 break;
1252
1253 case ASLLV_FRNTYPE_DIRECTORY:
1254 if (node->subtype > 0)
1255 {
1256 FRAddPath((STRPTR)node->text[0], ld, AslBase);
1257 } else {
1258 FRSetFile((STRPTR)node->text[0], ld, AslBase);
1259
1260 if (imsg->Code) /* TRUE if double clicked */
1261 {
1262 retval = FRGetSelectedFiles(ld, AslBase);
1263 }
1264 }
1265 break;
1266
1267 } /* switch(node->type) */
1268
1269 } /* if ((node = (struct ASLLVFileReqNode *)FindNode(&udata->ListviewList, (WORD)active))) */
1270
1271 FRActivateMainStringGadget(ld, AslBase);
1272
1273 }
1274 break;
1275
1276 } /* switch (gadget ID) */
1277
1278 break; /* case IDCMP_GADGETUP: */
1279
1280 case IDCMP_MENUPICK:
1281 if (ld->ld_Menu)
1282 {
1283 UWORD men = imsg->Code;
1284
1285 while(men != MENUNULL)
1286 {
1287 struct MenuItem *item;
1288 BOOL resort = FALSE;
1289
1290 if ((item = ItemAddress(ld->ld_Menu, men)))
1291 {
1292 switch((IPTR)GTMENUITEM_USERDATA(item))
1293 {
1294 /* Control menu */
1295
1296 case FRMEN_LASTNAME:
1297 FRChangeActiveLVItem(ld, -1, 0, 0, AslBase);
1298 break;
1299
1300 case FRMEN_NEXTNAME:
1301 FRChangeActiveLVItem(ld, 1, 0, 0, AslBase);
1302 break;
1303
1304 case FRMEN_RESTORE:
1305 if (ifreq->ifr_Flags1 & FRF_DOPATTERNS)
1306 {
1307 FRSetPattern(ifreq->ifr_Pattern, ld, AslBase);
1308 }
1309 if (!(ifreq->ifr_Flags2 & FRF_DRAWERSONLY))
1310 {
1311 FRSetFile(ifreq->ifr_File, ld, AslBase);
1312 }
1313 FRNewPath(ifreq->ifr_Drawer, ld, AslBase);
1314 break;
1315
1316 case FRMEN_PARENT:
1317 FRParentPath(ld, AslBase);
1318 break;
1319
1320 case FRMEN_VOLUMES:
1321 FRClickOnVolumes(ld, AslBase);
1322 break;
1323
1324 case FRMEN_UPDATE:
1325 /* WARNING: a bit hacky */
1326 udata->Flags ^= FRFLG_SHOWING_VOLUMES;
1327 FRClickOnVolumes(ld, AslBase);
1328 break;
1329
1330 case FRMEN_DELETE:
1331 FRDeleteRequester(ld, AslBase);
1332 break;
1333
1334 case FRMEN_NEWDRAWER:
1335 FRNewDrawerRequester(ld, AslBase);
1336 break;
1337
1338 case FRMEN_RENAME:
1339 FRRenameRequester(ld, AslBase);
1340 break;
1341
1342 case FRMEN_SELECT:
1343 FRSelectRequester(ld, AslBase);
1344 break;
1345
1346 case FRMEN_OK:
1347 retval = FRGetSelectedFiles(ld, ASLB(AslBase));
1348 break;
1349
1350 case FRMEN_CANCEL:
1351 retval = FALSE;
1352 break;
1353
1354 /* File list menu */
1355
1356 case FRMEN_BYNAME:
1357 ifreq->ifr_SortBy = ASLFRSORTBY_Name;
1358 resort = TRUE;
1359 break;
1360
1361 case FRMEN_BYDATE:
1362 ifreq->ifr_SortBy = ASLFRSORTBY_Date;
1363 resort = TRUE;
1364 break;
1365
1366 case FRMEN_BYSIZE:
1367 ifreq->ifr_SortBy = ASLFRSORTBY_Size;
1368 resort = TRUE;
1369 break;
1370
1371 case FRMEN_ASCENDING:
1372 ifreq->ifr_SortOrder = ASLFRSORTORDER_Ascend;
1373 resort = TRUE;
1374 break;
1375
1376 case FRMEN_DESCENDING:
1377 ifreq->ifr_SortOrder = ASLFRSORTORDER_Descend;
1378 resort = TRUE;
1379 break;
1380
1381 case FRMEN_DRAWERSFIRST:
1382 ifreq->ifr_SortDrawers = ASLFRSORTDRAWERS_First;
1383 resort = TRUE;
1384 break;
1385
1386 case FRMEN_DRAWERSMIX:
1387 ifreq->ifr_SortDrawers = ASLFRSORTDRAWERS_Mix;
1388 resort = TRUE;
1389 break;
1390
1391 case FRMEN_DRAWERSLAST:
1392 ifreq->ifr_SortDrawers = ASLFRSORTDRAWERS_Last;
1393 resort = TRUE;
1394 break;
1395
1396 } /* switch id */
1397
1398 if (resort)
1399 {
1400 FRReSortListview(ld, AslBase);
1401 }
1402
1403 men = item->NextSelect;
1404 } /* if ((item = ItemAddress(ld->ld_Menu, men))) */
1405 else
1406 {
1407 men = MENUNULL;
1408 }
1409
1410 } /* while(men != MENUNULL) */
1411
1412 } /* if (ld->ld_Menu) */
1413
1414 break; /* case IDCMP_MENUPICK: */
1415
1416 } /* switch (imsg->Class) */
1417
1418 ReturnInt ("FRHandleEvents", ULONG, retval);
1419 }
1420
1421 /*****************************************************************************************/
1422
1423 STATIC VOID FRGadCleanup(struct LayoutData *ld, struct AslBase_intern *AslBase)
1424 {
1425 struct FRUserData *udata;
1426 struct FileRequester *req;
1427 struct IntReq *intreq;
1428
1429 EnterFunc(bug("FRGadCleanup(ld=%p)\n", ld));
1430
1431 udata = (struct FRUserData *)ld->ld_UserData;
1432 req = (struct FileRequester *)ld->ld_Req;
1433 intreq = ld->ld_IntReq;
1434
1435 if (ld->ld_Window && ld->ld_GList)
1436 {
1437 RemoveGList(ld->ld_Window, ld->ld_GList, -1);
1438 }
1439
1440 FreeObjects(&FREQ_FIRST_OBJECT(udata), &FREQ_LAST_OBJECT(udata), AslBase);
1441
1442 killscrollergadget(&udata->ScrollGad, AslBase);
1443
1444 FRFreeListviewList(ld, AslBase);
1445
1446 if (ld->ld_Window)
1447 {
1448 req->fr_LeftEdge = intreq->ir_LeftEdge = ld->ld_Window->LeftEdge;
1449 req->fr_TopEdge = intreq->ir_TopEdge = ld->ld_Window->TopEdge;
1450 req->fr_Width = intreq->ir_Width = ld->ld_Window->Width;
1451 req->fr_Height = intreq->ir_Height = ld->ld_Window->Height;
1452 }
1453
1454 ReturnVoid("FRGadCleanup");
1455 }
1456
1457 /*****************************************************************************************/
1458
1459 STATIC ULONG FRGetSelectedFiles(struct LayoutData *ld, struct AslBase_intern *AslBase)
1460 {
1461 struct FRUserData *udata = (struct FRUserData *)ld->ld_UserData;
1462 struct IntReq *intreq = ld->ld_IntReq;
1463 struct IntFileReq *ifreq = (struct IntFileReq *)intreq;
1464 struct FileRequester *req = (struct FileRequester *)ld->ld_Req;
1465 char *name;
1466
1467 ULONG retval = GHRET_OK;
1468
1469 /* Kill possible old output variables from a previous AslRequest call
1470 on the same requester */
1471
1472 #undef GetFR
1473 #define GetFR(r) ((struct FileRequester *)r)
1474 /*
1475 * must be done here and NOT in StripRequester
1476 */
1477 MyFreeVecPooled(GetFR(req)->fr_Drawer, AslBase);
1478 GetFR(req)->fr_Drawer = NULL;
1479
1480 MyFreeVecPooled(GetFR(req)->fr_File, AslBase);
1481 GetFR(req)->fr_File = NULL;
1482
1483 MyFreeVecPooled(GetFR(req)->fr_Pattern, AslBase);
1484 GetFR(req)->fr_Pattern = NULL;
1485
1486 StripRequester(req, ASL_FileRequest, AslBase);
1487
1488 /* Save drawer string gadget text in fr_Drawer */
1489
1490 GetAttr(STRINGA_TextVal, udata->PathGad, (IPTR *)&name);
1491 if (!(req->fr_Drawer = VecPooledCloneString(name, NULL, intreq->ir_MemPool, AslBase))) goto bye;
1492 D(bug("FRGetSelectedFiles: fr_Drawer 0x%lx <%s>\n",req->fr_Drawer,req->fr_Drawer));
1493 ifreq->ifr_Drawer = req->fr_Drawer;
1494
1495 /* Save file string gadget text in fr_File */
1496
1497 if (!(ifreq->ifr_Flags2 & FRF_DRAWERSONLY))
1498 {
1499 GetAttr(STRINGA_TextVal, udata->FileGad, (IPTR *)&name);
1500
1501 if (!(req->fr_File = VecPooledCloneString(name, NULL, intreq->ir_MemPool, AslBase))) goto bye;
1502 D(bug("FRGetSelectedFiles: fr_File 0x%lx <%s>\n",req->fr_File,req->fr_File));
1503 ifreq->ifr_File = req->fr_File;
1504 }
1505
1506 /* Save pattern string gadget text in fr_Patterns */
1507
1508 if (ifreq->ifr_Flags1 & FRF_DOPATTERNS)
1509 {
1510 GetAttr(STRINGA_TextVal, udata->PatternGad, (IPTR *)&name);
1511
1512 if (!(req->fr_Pattern = VecPooledCloneString(name, NULL, intreq->ir_MemPool, AslBase))) goto bye;
1513 ifreq->ifr_Pattern = req->fr_Pattern;
1514 }
1515
1516 /* Create ArgList in case of ASLFR_DoMultiSelect requesters */
1517
1518 req->fr_NumArgs = 0;
1519
1520 if (ifreq->ifr_Flags1 & FRF_DOMULTISELECT)
1521 {
1522 struct WBArg *wbarg;
1523 BPTR lock;
1524
1525 if ((lock = Lock(req->fr_Drawer, ACCESS_READ)))
1526 {
1527 WORD numargs, numselected = 0;
1528
1529 if (!(udata->Flags & FRFLG_SHOWING_VOLUMES))
1530 {
1531 numselected = CountNodes(&udata->ListviewList, NODEPRIF_SELECTED | NODEPRIF_MULTISEL);
1532 }
1533 numargs = numselected > 0 ? numselected : 1;
1534
1535 if ((wbarg = MyAllocVecPooled(intreq->ir_MemPool, sizeof(struct WBArg) * numargs, AslBase)))
1536 {
1537 struct ASLLVFileReqNode *node;
1538 WORD i = 0;
1539
1540 req->fr_ArgList = wbarg;
1541
1542 ForeachNode(&udata->ListviewList, node)
1543 {
1544 if (i == numselected) break;
1545
1546 if ((node->node.ln_Pri & (NODEPRIF_SELECTED | NODEPRIF_MULTISEL)) == (NODEPRIF_SELECTED | NODEPRIF_MULTISEL))
1547 {
1548 char *filename = node->text[0] ? node->text[0] : "";
1549
1550 if ((wbarg->wa_Name = VecPooledCloneString(filename, NULL, intreq->ir_MemPool, AslBase)))
1551 {
1552 wbarg->wa_Lock = lock;
1553 wbarg++;
1554 i++;
1555 }
1556 }
1557
1558 } /* ForeachNode(&udata->ListviewList, node) */
1559
1560 if (i == 0)
1561 {
1562 if ((wbarg->wa_Name = VecPooledCloneString(req->fr_File, NULL, intreq->ir_MemPool, AslBase)))
1563 {
1564 wbarg->wa_Lock = lock;
1565 i++;
1566 }
1567 }
1568
1569 if (i == 0)
1570 {
1571 MyFreeVecPooled(req->fr_ArgList, AslBase);
1572 req->fr_ArgList = NULL;
1573 } else {
1574 req->fr_NumArgs = i;
1575 lock = 0; /* clear lock to avoid that it is unlocked below */
1576 }
1577
1578 } /* if ((wbarg = MyAllocVecPooled(intreq->ir_MemPool, sizeof(struct WBArg) * numargs, AslBase))) */
1579
1580 if (lock) UnLock(lock);
1581
1582 } /* if ((lock = Lock(req->fr_Drawer, ACCESS_READ))) */
1583
1584 } /* if (ifreq->ifr_Flags1 & FRF_DOMULTISELECT) */
1585
1586 if (ifreq->ifr_GetSortBy) *ifreq->ifr_GetSortBy = ifreq->ifr_SortBy;
1587 if (ifreq->ifr_GetSortOrder) *ifreq->ifr_GetSortOrder = ifreq->ifr_SortOrder;
1588 if (ifreq->ifr_GetSortDrawers) *ifreq->ifr_GetSortDrawers = ifreq->ifr_SortDrawers;
1589
1590 retval = GHRET_FINISHED_OK;
1591
1592 bye:
1593 return retval;
1594 }
1595
1596 /*****************************************************************************************/
A totally sweet operating system