workbench/libs/reqtools/filereq.c

   1 /**f************************************************************
   2 *                                                             *
   3 *      File/Font/Screenmode requester                         *
   4 *                                                             *
   5 *                                 (c) Nico François 1991-1994 *
   6 **************************************************************/
   7
   8 #include <proto/wb.h>
   9
  10 #include "filereq.h"
  11
  12 /****************************************************************************************/
  13
  14 struct Library          *WorkbenchBase;
  15
  16 char TOPAZSTR[] = "topaz.font";
  17 char DOTINFOSTR[] = ".info";
  18
  19 struct TextAttr topaz80 = { "topaz.font",8,FS_NORMAL,FPF_ROMFONT|FPF_DESIGNED };
  20
  21
  22 /****************************************************************************************/
  23
  24 #define FILEREQ_FLAGS \
  25         (FREQF_NOBUFFER|FREQF_DOWILDFUNC|FREQF_MULTISELECT|FREQF_SAVE|FREQF_NOFILES|\
  26          FREQF_PATGAD|FREQF_SELECTDIRS)
  27 #define FONTREQ_FLAGS \
  28         (FREQF_NOBUFFER|FREQF_DOWILDFUNC|FREQF_FIXEDWIDTH|FREQF_COLORFONTS|\
  29          FREQF_CHANGEPALETTE|FREQF_LEAVEPALETTE|FREQF_SCALE|FREQF_STYLE)
  30 #define SCREENMODEREQ_FLAGS \
  31         (SCREQF_SIZEGADS|SCREQF_DEPTHGAD|SCREQF_NONSTDMODES|SCREQF_GUIMODES|\
  32          SCREQF_AUTOSCROLLGAD|SCREQF_OVERSCANGAD)
  33
  34 /****************************************************************************************/
  35
  36 /********************
  37 *                   *
  38 *  REQUESTER ENTRY  *
  39 *                   *
  40 ********************/
  41
  42 /* This is also FontRequestA and ScreenModeRequestA! */
  43
  44 APTR ASM SAVEDS FileRequestA (
  45     REGPARAM(a1, struct RealFileRequester *, freq),
  46     REGPARAM(a2, char *, filename),
  47     REGPARAM(a3, char *, title),
  48     REGPARAM(a0, struct TagItem *, taglist))
  49 {
  50     GlobData                            *glob;
  51     struct ReqEntry                     *entry;
  52     struct TagItem                      *tag;
  53     const struct TagItem *tstate = taglist;
  54     struct RealFontRequester            *fontreq;
  55     struct RealScreenModeRequester      *scrmodereq = NULL;
  56     struct DiskfontBase                 *DiskfontBase;
  57     struct TextAttr                     *fontattr = NULL;
  58     struct TextFont                     *deffont;
  59     struct Locale                       *locale = NULL;
  60     char                                *pubname = NULL;
  61     int                                 reqhandler = FALSE, mon, propmaskset = FALSE;
  62     ULONG                               tagdata;
  63
  64
  65     if (!(glob = AllocVec (sizeof(GlobData), MEMF_PUBLIC|MEMF_CLEAR)))
  66          return ((APTR)FALSE);
  67
  68     glob->reqtype = REQTYPE(freq);
  69     if (glob->reqtype == RT_FILEREQ)
  70     {
  71
  72         /* AROS timer.device checks IO length to make sure apps
  73            dont use a too small/wrong iorequest structure */
  74
  75         glob->timereq.tr_node.io_Message.mn_Length = sizeof(glob->timereq);
  76
  77         if (OpenDevice ("timer.device", UNIT_VBLANK, (struct IORequest *)&glob->timereq, 0))
  78         {
  79
  80             FreeVec (glob);
  81             return ((APTR)FALSE);
  82         }
  83
  84         glob->buff = &freq->buff;
  85         glob->freq = freq;
  86         freq->filename = filename;
  87         glob->wilddotinfo = EndsInDotInfo (freq->patstr, strlen (freq->patstr));
  88         ParsePatternNoCase (freq->patstr, glob->matchpat, sizeof( glob->matchpat ) );
  89     }
  90     else if (glob->reqtype == RT_FONTREQ)
  91     {
  92
  93         DiskfontBase = (struct DiskfontBase *)OldOpenLibrary ("diskfont.library");
  94         glob->diskfontbase = DiskfontBase;
  95
  96         if (!DiskfontBase)
  97         {
  98             FreeAll (glob);
  99             return ((APTR)FALSE);
 100         }
 101
 102         glob->fontreq = fontreq = (struct RealFontRequester *)freq;
 103         glob->buff = &fontreq->buff;
 104         filename = fontreq->fontname;
 105         glob->sampleheight = 24;
 106         glob->maxsize = MAXINT;
 107     }
 108     else
 109     { /* RT_SCREENMODEREQ */
 110
 111         glob->scrmodereq = scrmodereq = (struct RealScreenModeRequester *)freq;
 112         glob->buff = &scrmodereq->buff;
 113     }
 114
 115     /* defaults */
 116     glob->flags = freq->Flags;              /* = [scmd|font]req->Flags */
 117     glob->reqpos = freq->ReqPos;           /* = [scmd|font]req->ReqPos */
 118     glob->leftedge = freq->LeftOffset;     /* = [scmd|font]req->LeftOffset */
 119     glob->topedge = freq->TopOffset;       /* = [scmd|font]req->TopOffset */
 120     deffont = freq->DefaultFont;           /* = [scmd|font]req->DefaultFont */
 121     glob->waitpointer = freq->WaitPointer; /* = [scmd|font]req->WaitPointer */
 122     glob->lockwindow = freq->LockWindow;        /* = [scmd|font]req->LockWindow */
 123     glob->shareidcmp = freq->ShareIDCMP;        /* = [scmd|font]req->ShareIDCMP */
 124     glob->reqheight = freq->ReqHeight;          /* = [scmd|font]req->ReqHeight */
 125
 126     /* These must be (but automatically are, MEMF_CLEAR) NULL */
 127 //      glob->gadtxt[4] = NULL;
 128 // glob->underchar = 0;
 129
 130     /* init global vars */
 131     glob->firstentry = glob->buff->firstname;
 132     glob->bufferentry = (glob->firstentry != NULL);
 133     glob->req = freq;
 134     glob->newdir = TRUE;
 135     glob->maxdepth = glob->maxwidth = glob->maxheight = MAXINT;
 136
 137
 138
 139     /* parse tags */
 140     while ((tag = NextTagItem (&tstate)))
 141     {
 142         tagdata = tag->ti_Data;
 143         if (tag->ti_Tag > RT_TagBase)
 144         {
 145             switch (tag->ti_Tag)
 146             {
 147                 case RT_Window:         glob->prwin = (struct Window *)tagdata;
 148                                         break;
 149                 case RT_ReqPos:         glob->reqpos = tagdata; break;
 150                 case RT_LeftOffset:     glob->leftedge = tagdata; break;
 151                 case RT_TopOffset:      glob->topedge = tagdata; break;
 152                 case RT_PubScrName:     pubname = (char *)tagdata; break;
 153                 case RT_Screen:         glob->scr = (struct Screen *)tagdata; break;
 154                 case RT_ReqHandler:     *(APTR *)tagdata = glob;
 155                                         reqhandler = TRUE;
 156                                         break;
 157                 case RT_DefaultFont:    deffont = (struct TextFont *)tagdata; break;
 158                 case RT_WaitPointer:    glob->waitpointer = tagdata; break;
 159                 case RT_Underscore:     glob->underchar = tagdata; break;
 160                 case RT_ShareIDCMP:     glob->shareidcmp = tagdata; break;
 161                 case RT_LockWindow:     glob->lockwindow = tagdata; break;
 162                 case RT_ScreenToFront:  glob->noscreenpop = !tagdata; break;
 163                 case RT_TextAttr:               fontattr = (struct TextAttr *)tagdata; break;
 164                 case RT_IntuiMsgFunc:   glob->imsghook = (struct Hook *)tagdata; break;
 165                 case RT_Locale:         locale = (struct Locale *)tagdata; break;
 166                 /* RTFO_Flags, RTSC_Flags */
 167                 case RTFI_Flags:        if (glob->reqtype == RT_FILEREQ)
 168                                                 tagdata &= FILEREQ_FLAGS;
 169                                         else if (glob->reqtype == RT_FONTREQ)
 170                                                 tagdata &= FONTREQ_FLAGS;
 171                                         else
 172                                         {
 173                                             tagdata &= SCREENMODEREQ_FLAGS;
 174                                             tagdata |= FREQF_NOBUFFER;
 175                                         }
 176                                         glob->flags = tagdata;
 177                                         break;
 178                 /* RTFO_Height, RTSC_Height */
 179                 case RTFI_Height:       glob->reqheight = tagdata;
 180                                         break;
 181                 /* RTFO_OkText, RTSC_OkText */
 182                 case RTFI_OkText:       glob->gadtxt[4] = (char *)tagdata; break;
 183                 case RTFI_VolumeRequest: glob->volumerequest = 0x80000000 | tagdata; break;
 184                 /* RTFO_FilterFunc, RTSC_FilterFunc */
 185                 case RTFI_FilterFunc:   glob->filterhook = (struct Hook *)tagdata; break;
 186                 case RTFI_AllowEmpty:   glob->allowempty = tagdata; break;
 187                 case RTFO_SampleHeight: glob->sampleheight = tagdata; break;
 188                 case RTFO_MinHeight:    glob->minsize = tagdata; break;
 189                 case RTFO_MaxHeight:    glob->maxsize = tagdata; break;
 190                 case RTSC_PropertyFlags: glob->propertyflags = tagdata;
 191                                          if (!propmaskset) glob->propertymask = 0xFFFFFFFF;
 192                                          break;
 193                 case RTSC_PropertyMask: glob->propertymask = tagdata;
 194                                         propmaskset = TRUE;
 195                                         break;
 196                 case RTSC_MinWidth:     glob->minwidth = tagdata; break;
 197                 case RTSC_MaxWidth:     glob->maxwidth = tagdata; break;
 198                 case RTSC_MinHeight:    glob->minheight = tagdata; break;
 199                 case RTSC_MaxHeight:    glob->maxheight = tagdata; break;
 200                 case RTSC_MinDepth:     glob->mindepth = tagdata; break;
 201                 case RTSC_MaxDepth:     glob->maxdepth = tagdata; break;
 202
 203             }
 204         }
 205     }
 206
 207
 208
 209     glob->catalog = RT_OpenCatalog (locale);
 210     if (!glob->gadtxt[4])
 211     {
 212         glob->gadtxt[4] = GetStr (glob->catalog, MSG_OK);
 213         glob->underchar = '_';
 214     }
 215
 216
 217     if (glob->volumerequest)
 218     {
 219         FreeReqBuffer (glob->req);
 220         glob->flags |= FREQF_NOFILES|FREQF_NOBUFFER;
 221         glob->flags &= ~(FREQF_SAVE|FREQF_PATGAD|FREQF_SELECTDIRS);
 222     }
 223
 224
 225     if (glob->reqtype == RT_FILEREQ)
 226     {
 227         if (glob->flags & FREQF_NOFILES)
 228                 SetFileDirMode (glob->buff, glob->flags);
 229         glob->file_id = glob->buff->file_id;
 230         glob->directory_id = glob->buff->directory_id;
 231     }
 232
 233
 234     if (!glob->prwin || !glob->prwin->UserPort
 235                      || (glob->prwin->UserPort->mp_SigTask != ThisProcess()))
 236         glob->shareidcmp = FALSE;
 237
 238
 239     if (!(glob->scr = GetReqScreen (&glob->newreqwin, &glob->prwin,
 240                                                       glob->scr, pubname)))
 241     {
 242         FreeAll (glob);
 243         return ((APTR)FALSE);
 244     }
 245
 246
 247     glob->vp = &glob->scr->ViewPort;
 248     if (glob->flags & FREQF_CHANGEPALETTE)
 249     {
 250         if (!(glob->colcount = GetVpCM (glob->vp, &glob->colormap)))
 251         {
 252             FreeAll (glob);
 253             return ((APTR)FALSE);
 254         }
 255         glob->colcount = (1 << glob->colcount);
 256     }
 257
 258
 259     if (fontattr) glob->font = *fontattr;
 260     else glob->font = *glob->scr->Font;
 261
 262     if (glob->reqtype == RT_SCREENMODEREQ)
 263     {
 264
 265         if (scrmodereq->DisplayID == INVALID_ID)
 266         {
 267             glob->modeid = GetVPModeID (glob->vp);
 268             glob->depth = glob->scr->BitMap.Depth;
 269             glob->width = glob->scr->Width;
 270             glob->height = glob->scr->Height;
 271             glob->autoscroll = (glob->scr->Flags & AUTOSCROLL);
 272         }
 273         else
 274         {
 275             glob->modeid = scrmodereq->DisplayID;
 276             glob->depth = scrmodereq->DisplayDepth;
 277             glob->width = scrmodereq->DisplayWidth;
 278             glob->height = scrmodereq->DisplayHeight;
 279             glob->autoscroll = scrmodereq->AutoScroll;
 280         }
 281
 282         glob->overscantype = scrmodereq->OverscanType;
 283         if (!GetModeData (glob, glob->modeid, &mon))
 284             glob->modeid = INVALID_ID;
 285         else
 286         {
 287             GetModeDimensions (glob);
 288             if (glob->width == 0xffff) glob->width = glob->defwidth;
 289             if (glob->height == 0xffff) glob->height = glob->defheight;
 290             if (glob->depth == 0xffff) glob->depth = glob->diminfo.MaxDepth;
 291             if (!(glob->flags & SCREQF_SIZEGADS))
 292                 glob->usedefwidth = glob->usedefheight = TRUE;
 293             else
 294             {
 295                 glob->usedefwidth = (glob->width == glob->defwidth);
 296                 glob->usedefheight = (glob->height == glob->defheight);
 297             }
 298         }
 299     }
 300
 301
 302     if (!(glob->visinfo = GetVisualInfoA (glob->scr, NULL))
 303         || !(glob->drinfo = GetScreenDrawInfo (glob->scr)))
 304     {
 305         FreeAll (glob);
 306         return ((APTR)FALSE);
 307     }
 308
 309
 310     glob->pens = glob->drinfo->dri_Pens;
 311     glob->title = title;
 312     glob->os30 = (IntuitionBase->LibNode.lib_Version >= 39);
 313
 314     if (!glob->buff->firstname)
 315     {
 316         glob->buff->gotopos = glob->buff->pos = glob->buff->currentnum = 0;
 317     }
 318
 319
 320     entry = glob->buff->firstname;
 321     while (entry)
 322     {
 323         entry->re_EntryLen = entry->re_SizeLenPix = 0;
 324         entry = (struct ReqEntry *)entry->re_Next;
 325     }
 326
 327
 328 retryopenwin:
 329
 330     if (!(glob->reqfont = GetReqFont (&glob->font, deffont, &glob->fontheight,
 331                                       &glob->fontwidth, TRUE)))
 332     {
 333         FreeAll (glob);
 334         return ((APTR)FALSE);
 335     }
 336     glob->fontbase = glob->reqfont->tf_Baseline;
 337
 338
 339     if (!SetupReqWindow (glob, FALSE))
 340     {
 341
 342         if (glob->font.ta_YSize > 8)
 343         {
 344             glob->font = topaz80;
 345             CloseFont (glob->reqfont);
 346             goto retryopenwin;
 347         }
 348         FreeAll (glob);
 349         return ((APTR)FALSE);
 350     }
 351
 352
 353     if (glob->reqtype == RT_SCREENMODEREQ) DisplayModeAttrs (glob);
 354     RenderReqWindow (glob, FALSE, TRUE);
 355     glob->winlock = DoLockWindow (glob->prwin, glob->lockwindow, NULL, TRUE);
 356     DoWaitPointer (glob->prwin, glob->waitpointer, TRUE);
 357
 358     /* initialize hook structure */
 359     glob->intuihook.h_Entry = (HOOKFUNC)IntuiMsgFunc;
 360     glob->intuihook.h_Data = (void *)glob;
 361
 362     glob->frontscr = IntuitionBase->FirstScreen;
 363     DoScreenToFront (glob->scr, glob->noscreenpop, TRUE);
 364
 365     my_SetStringGadget (glob->reqwin, glob->filegad, filename);
 366
 367     /* fill in RealHandlerInfo */
 368     glob->func = (ULONG (*)())PropReqHandler;
 369     glob->WaitMask = glob->winmask = (1 << glob->reqwin->UserPort->mp_SigBit);
 370     if (glob->appwindow) glob->WaitMask |= (1 << glob->appwinport->mp_SigBit);
 371     glob->DoNotWait = TRUE;
 372
 373     if (reqhandler) return ((APTR)CALL_HANDLER);
 374     return ((APTR)LoopReqHandler ((struct rtHandlerInfo *)glob));
 375 }
 376
 377 /****************************************************************************************/
 378
 379 /**************
 380 *             *
 381 *  MAIN LOOP  *
 382 *             *
 383 ***************/
 384
 385 void STDARGS SAVEDS FreeReqToolsFonts (void)
 386 {
 387     struct AssignList *list, *next;
 388
 389     FreeVec (ReqToolsBase->AvailFontsHeader);
 390     list = ReqToolsBase->FontsAssignList;
 391     while (list)
 392     {
 393         next = list->al_Next;
 394         FreeVec (list);
 395         list = next;
 396     }
 397     ReqToolsBase->AvailFontsHeader = NULL;
 398     ReqToolsBase->FontsAssignList = NULL;
 399 }
 400
 401 /****************************************************************************************/
 402
 403 int REGARGS CalcClicked (GlobData *glob, struct IntuiMessage *im)
 404 {
 405     return ((im->MouseY - glob->boxtop) / glob->entryheight);
 406 }
 407
 408 /****************************************************************************************/
 409
 410 void REGARGS CompClicked (GlobData *glob)
 411 {
 412     glob->displaylist[glob->clicked]->re_Flags ^= ENTRYF_SELECTED|ENTRYF_HIGHLIGHTED;
 413     PrintEntry (glob, glob->clicked);
 414 }
 415
 416 /****************************************************************************************/
 417
 418 /* TIMER STUFF */
 419
 420 void REGARGS StopTimer (GlobData *glob)
 421 {
 422     struct Node *node;
 423     int         othermsgs = FALSE, gotreply = FALSE;
 424
 425    if (glob->timerstarted)
 426     {
 427         AbortIO ((struct IORequest *)&glob->timereq);
 428         /* We don't use WaitIO() since not sure it leaves other messages
 429                 intact. */
 430         while (!gotreply)
 431         {
 432             Wait (glob->winmask);
 433             /* Traverse message list and look for timereq msg */
 434             Disable();
 435             for (node = glob->reqwin->UserPort->mp_MsgList.lh_Head;
 436                  node->ln_Succ; node = node->ln_Succ)
 437             {
 438                 if (node == (struct Node *)&glob->timereq)
 439                 {
 440                     Remove (node);
 441                     gotreply = TRUE;
 442                     break;
 443                 }
 444                 else othermsgs = TRUE;
 445             }
 446             Enable();
 447         }
 448
 449         if (othermsgs) Signal ((struct Task *)ThisProcess(), glob->winmask);
 450         glob->timerstarted = FALSE;
 451     }
 452
 453 }
 454
 455 /****************************************************************************************/
 456
 457 void REGARGS StartTimer (GlobData *glob, int micros)
 458 {
 459     StopTimer (glob);
 460
 461     glob->timereq.tr_node.io_Command = TR_ADDREQUEST;
 462     glob->timereq.tr_time.tv_secs = 0;
 463     glob->timereq.tr_time.tv_micro = micros;
 464     SendIO ((struct IORequest *)&glob->timereq);
 465
 466     glob->timerstarted = TRUE;
 467 }
 468
 469 /****************************************************************************************/
 470
 471 void REGARGS EndQuiet (GlobData *glob)
 472 {
 473     int i;
 474
 475     if (glob->quiet)
 476     {
 477         if (!glob->exnext)
 478         {
 479             if (rtLockPrefs()->Flags & RTPRF_IMMSORT) glob->firsttimer = TRUE;
 480             rtUnlockPrefs();
 481         }
 482
 483         if (glob->firsttimer)
 484         {
 485             ScrollerMoved (glob, glob->buff->gotopos);
 486             glob->firsttimer = FALSE;
 487         }
 488         else
 489         {
 490             if (glob->lastdisplaylistnum != -1)
 491             {
 492                 if (glob->lastdisplaylistnum < glob->numentries)
 493                 {
 494                     i = glob->lastdisplaylistnum;
 495                     glob->lastdisplaylistnum = -1;
 496                     while (i < glob->numentries) PrintEntry (glob, i++);
 497                 }
 498             }
 499             AdjustScroller (glob);
 500         }
 501     }
 502
 503     if (glob->exnext) StartTimer (glob, 200000);
 504     else
 505     {
 506         StopTimer (glob);
 507         glob->quiet = FALSE;
 508     }
 509 }
 510
 511 /****************************************************************************************/
 512
 513 /* MAIN LOOP */
 514
 515 struct IntuiMessage *REGARGS ProcessWin_Msg_Freq (GlobData *glob, struct IntuiMessage *imsg)
 516 {
 517     struct IntuiMessage *reqmsg;
 518
 519     if (imsg->IDCMPWindow == glob->reqwin)
 520     {
 521         reqmsg = GT_FilterIMsg (imsg);
 522         if (reqmsg) return (reqmsg);
 523         ReplyMsg ((struct Message *)imsg);
 524     }
 525     else
 526     {
 527         if (glob->imsghook)
 528         {
 529             SetDrawerAndFileFields (glob);
 530             CallHookPkt (glob->imsghook, glob->req, imsg);
 531             ResetDrawerAndFileFields (glob);
 532         }
 533         ReplyMsg ((struct Message *)imsg);
 534     }
 535
 536     return (NULL);
 537 }
 538
 539 /****************************************************************************************/
 540
 541 void REGARGS SetDrawerAndFileFields (GlobData *glob)
 542 {
 543     if (REQTYPE(glob->req) == RT_FILEREQ)
 544     {
 545         glob->tempdir = glob->freq->Dir;
 546         glob->freq->Dir = glob->freq->dirname;
 547         if (!(glob->flags & FREQF_NOFILES))
 548         {
 549             strcpy (glob->tempfname, glob->freq->filename);
 550             strcpy (glob->freq->filename, ((struct StringInfo *)glob->filegad->SpecialInfo)->Buffer);
 551         }
 552     }
 553 }
 554
 555 /****************************************************************************************/
 556
 557 void REGARGS ResetDrawerAndFileFields (GlobData *glob)
 558 {
 559     if (REQTYPE(glob->req) == RT_FILEREQ)
 560     {
 561         glob->freq->Dir = glob->tempdir;
 562         if (!(glob->flags & FREQF_NOFILES))
 563                 strcpy (glob->freq->filename, glob->tempfname);
 564     }
 565 }
 566
 567 /****************************************************************************************/
 568
 569 #ifdef __AROS__
 570 AROS_UFH3(void, IntuiMsgFunc,
 571     AROS_UFHA(struct Hook *, hook, A0),
 572     AROS_UFHA(APTR, req, A2),
 573     AROS_UFHA(struct IntuiMessage *, imsg, A1))
 574 {
 575     AROS_USERFUNC_INIT
 576 #else
 577 void ASM SAVEDS IntuiMsgFunc (
 578     REGPARAM(a0, struct Hook *, hook),
 579     REGPARAM(a2, APTR, req),
 580     REGPARAM(a1, struct IntuiMessage *,imsg))
 581 {
 582 #endif
 583     GlobData *glob = (GlobData *)hook->h_Data;
 584
 585     if (imsg->IDCMPWindow == glob->reqwin)
 586     {
 587         if (imsg->Class == IDCMP_REFRESHWINDOW) RenderReqWindow (glob, TRUE, FALSE);
 588     }
 589     else if ((glob->imsghook) && (glob->imsghook != hook))
 590     {
 591         SetDrawerAndFileFields (glob);
 592         CallHookPkt (glob->imsghook, glob->req, imsg);
 593         ResetDrawerAndFileFields (glob);
 594     }
 595 #ifdef __AROS__
 596     AROS_USERFUNC_EXIT
 597 #endif
 598 }
 599
 600 /****************************************************************************************/
 601
 602 /* Improve this function to handle:
 603  * 1) Volume lists in the file requester
 604  * 2) The font requester
 605  */
 606 int REGARGS FindEntryPos (GlobData *glob, char *name, int entry_id)
 607 {
 608     struct ReqEntry *entry, *entry2;
 609     int i, val;
 610
 611     if (!glob->buff->firstname) return (0);
 612     i = 0;
 613     if (*name && (entry = FindEntry (glob->buff, name, -1, entry_id, NULL, FIND_VOLUMENAME)))
 614     {
 615         entry2 = (struct ReqEntry *)glob->buff->firstname->re_Next;
 616         while (entry2 != (struct ReqEntry *)entry->re_Next)
 617         {
 618             if (!(entry2->re_Flags & ENTRYF_HIDDEN)) i++;
 619             entry2 = (struct ReqEntry *)entry2->re_Next;
 620         }
 621     }
 622
 623     glob->buff->gotopos = i;
 624     val = glob->buff->currentnum - glob->numentries;
 625
 626     if (glob->buff->gotopos > val) glob->buff->gotopos = val;
 627     if (glob->buff->gotopos < 0) glob->buff->gotopos = 0;
 628
 629     if (glob->buff->pos != glob->buff->gotopos)
 630     {
 631         glob->buff->pos = glob->buff->gotopos;
 632         AdjustScroller (glob);
 633         UpdateDisplayList (glob);
 634         PrintFiles (glob);
 635     }
 636
 637     if (i >= glob->buff->currentnum) i = (glob->buff->currentnum - 1);
 638
 639     return (i);
 640 }
 641
 642 /****************************************************************************************/
 643
 644 void REGARGS DeselectFiles (GlobData *glob, int clicked, int dirsonly)
 645 {
 646     int i;
 647
 648     for (i = 0; i < glob->numentries; i++)
 649     {
 650         if (i >= glob->buff->currentnum) break;
 651
 652         if (i != clicked)
 653         {
 654             if (dirsonly && (glob->displaylist[i]->re_Type == glob->file_id))
 655                 continue;
 656
 657             if (glob->displaylist[i]->re_Flags & ENTRYF_SELECTED)
 658             {
 659                 glob->numselected--;
 660                 glob->displaylist[i]->re_Flags &= ~ENTRYF_SELECTED;
 661                 PrintEntry (glob, i);
 662             }
 663         }
 664     }
 665 }
 666
 667 /****************************************************************************************/
 668
 669 int REGARGS
 670 ClickDown( GlobData *glob, int clicked, struct IntuiMessage *reqmsg, int qual )
 671 {
 672     struct BufferData   *buff;
 673     struct ReqEntry             *entry;
 674     char        *str, *str2, tempstr[108];
 675     int ctype, val;
 676
 677     buff = glob->buff;
 678
 679     if( clicked >= buff->currentnum )
 680     {
 681             return( FALSE );
 682     }
 683
 684     glob->clicked = clicked;
 685     entry = glob->displaylist[ clicked ];
 686
 687     if( entry->re_Flags & ENTRYF_GHOSTED )
 688     {
 689             entry->re_Flags &= ~ENTRYF_SELECTED;
 690             glob->downgadget = 0;
 691             return( FALSE );
 692     }
 693
 694     str = entry->re_Name;
 695     str2 = "";
 696     val = !( ( glob->flags & FREQF_MULTISELECT ) && ( qual & IEQUALIFIER_SHIFT ) );
 697     ctype = entry->re_Type;
 698
 699     if( ctype == glob->file_id )
 700     {
 701         if( !( entry->re_Flags & ENTRYF_SELECTED ) || val )
 702         {
 703             str2 = str;
 704         }
 705
 706         goto filefont;
 707     }
 708     else if( ctype == glob->directory_id )
 709     {
 710         if( !reqmsg )
 711         {
 712             strcpy( tempstr, str );
 713             StrCat( tempstr, "/" );
 714             str2 = tempstr;
 715         }
 716         else if( !( glob->flags & FREQF_SELECTDIRS ) )
 717         {
 718             goto nodirselect;
 719         }
 720
 721 filefont:
 722         my_SetStringGadget( glob->reqwin, glob->filegad, str2 );
 723
 724         if( !( glob->flags & FREQF_SELECTDIRS ) )
 725         {
 726             DeselectFiles( glob, clicked, TRUE );
 727             CountAllDeselect( glob, TRUE );
 728         }
 729
 730         if( val )
 731         {
 732             DeselectFiles( glob, clicked, FALSE );
 733             CountAllDeselect (glob, FALSE);
 734         }
 735
 736         if( reqmsg )
 737         {
 738             if( ( clicked == glob->lastclicked ) &&
 739                     DoubleClick( glob->sec, glob->mic, reqmsg->Seconds, reqmsg->Micros ) )
 740             {
 741                 if( ctype == glob->directory_id )
 742                 {
 743                     AddPart( glob->freq->dirname, str, sizeof( glob->freq->dirname ) );
 744                     NewDir( glob );
 745                     return( FALSE );
 746                 }
 747                 else if( !( glob->flags & ( FREQF_SAVE | FREQF_NOFILES ) ) )
 748                 {
 749                     entry->re_Flags |= ENTRYF_SELECTED;
 750                     return( TRUE );
 751                 }
 752             }
 753         }
 754
 755         if( glob->flags & FREQF_MULTISELECT )
 756         {
 757             if( entry->re_Flags & ENTRYF_SELECTED )
 758             {
 759                 glob->numselected--;
 760             }
 761             else
 762             {
 763                 glob->numselected++;
 764             }
 765
 766             UpdateNumSelGad( glob );
 767         }
 768
 769         entry->re_Flags ^= ENTRYF_SELECTED;
 770
 771         if( ( entry->re_Flags & ENTRYF_SELECTED ) && glob->buff->sorted )
 772         {
 773             glob->selectedpos = ( glob->buff->pos + clicked );
 774         }
 775
 776         PrintEntry( glob, clicked );
 777         glob->downgadget = 0;
 778
 779         if( reqmsg )
 780         {
 781             glob->sec = reqmsg->Seconds;
 782             glob->mic = reqmsg->Micros;
 783             glob->lastclicked = clicked;
 784         }
 785     }
 786     else
 787     {
 788         if( !reqmsg )
 789         {
 790             str2 = str;
 791
 792             if( ctype == VOLUME )
 793             {
 794                 while( *str2++ != ' ' )
 795                 {
 796                 }
 797
 798                 while( *str2 == ' ' )
 799                 {
 800                     str2++;
 801                 }
 802             }
 803
 804             goto filefont;
 805
 806         }
 807
 808 nodirselect:
 809         CompClicked( glob );
 810     }
 811
 812     return( FALSE );
 813 }
 814
 815 /****************************************************************************************/
 816
 817 /*****************
 818 * Requester exit *
 819 *****************/
 820
 821 ULONG REGARGS LeaveReq (GlobData *glob, char *filename)
 822 {
 823     struct rtFileList *selfile = (APTR)TRUE;
 824     int flags = glob->flags, nodir = glob->nodir;
 825     int allowempty = glob->allowempty;
 826
 827     if (glob->filestr) strcpy (filename, glob->filestr);
 828
 829     if (glob->reqtype == RT_FILEREQ)
 830     {
 831         if (!(flags & FREQF_MULTISELECT))
 832         {
 833             FreeAllCheckBuffer (glob);
 834             /* can't use glob here anymore because it is freed! */
 835             if (flags & FREQF_NOFILES) return ((ULONG)!nodir);
 836             if (!nodir && (filename[0] || allowempty)) return (TRUE);
 837             return 0;
 838         }
 839
 840         if (!nodir)
 841         {
 842             if (!(glob->flags & FREQF_SELECTDIRS)) CountAllDeselect (glob, TRUE);
 843             selfile = AllocSelectedFiles (glob);
 844         }
 845         else selfile = NULL;
 846     }
 847     else if (glob->reqtype == RT_FONTREQ)
 848     {
 849         glob->fontreq->Attr.ta_Style &= ~(FSF_ITALIC|FSF_BOLD|FSF_UNDERLINED);
 850         glob->fontreq->Attr.ta_Style |= glob->fontstyle;
 851         selfile = (APTR)(filename[0] != 0);
 852     }
 853     else
 854     {
 855         if (glob->modeid == INVALID_ID) selfile = FALSE;
 856         else
 857         {
 858             glob->scrmodereq->DisplayID = glob->modeid;
 859             if (glob->modeid & HAM ) glob->depth = (glob->depth == 7 ? 6 : 8 );
 860             glob->scrmodereq->DisplayDepth = glob->depth;
 861             glob->scrmodereq->DisplayWidth = glob->width;
 862             glob->scrmodereq->DisplayHeight = glob->height;
 863             glob->scrmodereq->OverscanType = glob->overscantype;
 864             glob->scrmodereq->AutoScroll = glob->autoscroll;
 865         }
 866     }
 867
 868     FreeAllCheckBuffer (glob);
 869
 870     return ((ULONG)selfile);
 871 }
 872
 873 /****************************************************************************************/
 874
 875 static void REGARGS CloseWinFreeRest (GlobData *glob)
 876 {
 877     StopTimer (glob);
 878
 879     if (glob->reqtype == RT_FILEREQ)
 880         CloseDevice ((struct IORequest *)&glob->timereq);
 881     FreeVpCM (glob->vp, glob->colormap, !(glob->flags & FREQF_LEAVEPALETTE));
 882
 883     if (glob->newreqwin.Type == PUBLICSCREEN) UnlockPubScreen (NULL, glob->scr);
 884     DoScreenToFront (glob->frontscr, glob->noscreenpop, FALSE);
 885
 886     if (glob->reqwin)
 887     {
 888         *glob->winaddr = glob->oldwinptr;
 889         DoLockWindow (glob->prwin, glob->lockwindow, glob->winlock, FALSE);
 890         DoWaitPointer (glob->prwin, glob->waitpointer, FALSE);
 891
 892         if (glob->appwindow) RemoveAppWindow (glob->appwindow);
 893
 894         DeleteMsgPort (glob->appwinport);
 895         CloseLibrary (WorkbenchBase);
 896         DoCloseWindow (glob->reqwin, glob->shareidcmp);
 897     }
 898
 899     my_FreeGadgets (glob->buttoninfo.glist);
 900     my_FreeLabelImages (&glob->labelimages);
 901     FreeVisualInfo (glob->visinfo);
 902
 903     if (glob->drinfo) FreeScreenDrawInfo (glob->scr, glob->drinfo);
 904     if (glob->reqfont) CloseFont (glob->reqfont);
 905
 906     CloseLibrary (glob->diskfontbase);
 907     FreeVec (glob);
 908 }
 909
 910 /****************************************************************************************/
 911
 912 void REGARGS FreeAllCheckBuffer (GlobData *glob)
 913 {
 914     if (glob->lock || (glob->disks && !glob->volumerequest)
 915                    || (glob->flags & FREQF_NOBUFFER))
 916         FreeAll (glob);
 917     else CloseWinFreeRest (glob);
 918 }
 919
 920 /****************************************************************************************/
 921
 922 void REGARGS FreeAll (GlobData *glob)
 923 {
 924     FreeReqBuffer (glob->req);
 925     UnLockReqLock (glob);
 926     CloseWinFreeRest (glob);
 927 }
 928
 929 /****************************************************************************************/
 930
 931 struct rtFileList *REGARGS AllocSelectedFiles (GlobData *glob)
 932 {
 933     struct rtFileList *ptr, **last, *selfile;
 934     struct ReqEntry *entry;
 935     int len, isfile, foundstr = FALSE;
 936     /* We do some checks agains the file gadget if available,
 937      * or the path gadget, if there is no file gadget, and we thus
 938      * are a volume requester or something similar
 939      */
 940     char *str, *gadstr = glob->filegad ? glob->filestr : glob->patgadstr;
 941
 942     selfile = NULL; last = &selfile;
 943     for (entry = (struct ReqEntry *)glob->firstentry->re_Next;;
 944          entry = (struct ReqEntry *)entry->re_Next)
 945    {
 946         if (!entry)
 947         {
 948             /* We build the filelist, now we check if the filename in
 949                     the gadget is among the ones in the list */
 950             str = gadstr;
 951             if (foundstr || !*str) break;
 952             /* The filename in the gadget is not is the list!
 953                     We will discard the list and only return the filename in the
 954                     gadget!  This is the most intuitive behaviour! */
 955             rtFreeFileList (selfile);
 956             selfile = NULL; last = &selfile;
 957             isfile = TRUE;
 958         }
 959         else
 960         {
 961             if (!(entry->re_Flags & ENTRYF_SELECTED)) continue;
 962             str = entry->re_Name;
 963             isfile = entry->re_Type == glob->file_id;
 964             if (!Stricmp (str, gadstr)) foundstr = TRUE;
 965         }
 966
 967         len = strlen (str);
 968
 969         if (!(ptr = (struct rtFileList *)AllocVec(sizeof (struct rtFileList) + len + 1,
 970                                                   MEMF_PUBLIC|MEMF_CLEAR)))
 971         {
 972             rtFreeFileList (selfile);
 973             return (NULL);
 974         }
 975
 976         ptr->StrLen = isfile ? len : -1;
 977         ptr->Name = (char *)(4 + (ULONG)&ptr->Name);
 978         strcpy (ptr->Name, str);
 979         *last = ptr;
 980         last = &ptr->Next;
 981
 982         if (!entry) break;
 983     }
 984
 985     return (selfile);
 986 }
 987
 988 /****************************************************************************************/