?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Check for SYS/GL during library init. Reason is that
[AROS.git] / workbench / libs / reqtools / filereqmain.c
blobaaf790fe105cce860f6d5cb530cf0392578b8c91
1 /*
2 Copyright © 1995-2001, The AROS Development Team. All rights reserved.
3 $Id$
4
5 Desc:
6 Lang: English
7 */
8
9 /**************************************************************
10 * *
11 * File/Font/Screenmode requester *
12 * *
13 * (c) Nico François 1991-1994 *
14 **************************************************************/
15
16 #include "filereq.h"
17
18 /* The AmigaOS V40 ScrollWindowRaster() function is buggy and
19 causes Enforcer Hits */
20
21 #define NO_SCROLLWINDOWRASTER 1
22
23 #ifdef __AROS__
24
25 #define DEBUG 1
26 #include <aros/debug.h>
27 #else
28
29 #define D(x)
30
31 #endif
32
33
34 /****************************************************************************************/
35
36 #ifdef __AROS__
37 #define fib_EntryType fib_DirEntryType
38 #endif
39
40 /****************************************************************************************/
41
42 #ifndef MTYPE_APPWINDOW
43 #define MTYPE_APPWINDOW 7 /* msg from an app window */
44 #endif
45
46 /****************************************************************************************/
47
48 static const IPTR getstringtags[] = { RTGS_Width,180,RT_LockWindow,TRUE,
49 RT_ReqPos,REQPOS_CENTERWIN,RT_ShareIDCMP,TRUE,TAG_END };
50 static const IPTR ezreqtags[] = { RT_Underscore,'_',RTEZ_Flags,EZREQF_NORETURNKEY,
51 TAG_MORE, (IPTR)&getstringtags[2] };
52
53
54 /****************************************************************************************/
55
56 BOOL
57 ExpandLink( GlobData *glob )
58 {
59 #ifndef __AROS__
60 struct FileLock *fl;
61 #endif
62 BOOL rc = FALSE;
63 LONG res;
64
65 *glob->winaddr = ( APTR ) -1;
66
67 #ifdef __AROS__
68 res = ReadLink(NULL, glob->lock, glob->fib.fib_FileName, glob->linkbuf,
69 sizeof(glob->linkbuf));
70 #else
71 fl = BADDR( glob->lock );
72 res = ReadLink(fl->fl_Task, glob->lock, glob->fib.fib_FileName, glob->linkbuf, sizeof(glob->linkbuf));
73 #endif
74
75 if(res != 0)
76 {
77 BPTR lock;
78
79 if( ( lock = Lock( glob->linkbuf, SHARED_LOCK ) ) )
80 {
81 STRPTR end = FilePart( glob->linkbuf );
82
83 if( end != glob->linkbuf )
84 {
85 *end = 0;
86 }
87
88 Examine( lock, &glob->linkfib );
89 UnLock( lock );
90 rc = TRUE;
91 }
92 }
93
94 *glob->winaddr = glob->reqwin;
95
96 return( rc );
97 }
98
99 /****************************************************************************************/
100
101 IPTR ASM SAVEDS PropReqHandler (
102 REGPARAM(a1, struct RealHandlerInfo *, glob),
103 REGPARAM(d0, ULONG, sigs),
104 REGPARAM(a0, struct TagItem *, taglist))
105 {
106 struct IntuiMessage *reqmsg = NULL, *imsg, im;
107 struct Gadget *gad;
108 struct RealFileRequester *freq = NULL;
109 struct RealFontRequester *fontreq = NULL;
110 struct BufferData *buff;
111 struct DiskfontBase *DiskfontBase = glob->diskfontbase;
112 struct TagItem *tag, *tstate = taglist;
113 struct AvailFontsHeader *afh;
114 struct AvailFonts *af;
115 struct ReqEntry *entry;
116 struct DosList *dlist;
117 struct AppMessage *appmsg;
118 struct AssignList *assignlist, *fontslist, **prevassign;
119 int clicked, ctype, sel, val, code, qual, doubleclick, checkbox;
120 int i, step, start, stop, shortage, buffsize, mon, doactgad, lastpos;
121 UBYTE *fdir = NULL, *filename = NULL, *str, *str2, *str3, key;
122 ULONG tagdata;
123 BPTR parent;
124 APTR winlock;
125 ULONG id;
126
127 /* uncomment if sigs is no longer ignored */
128 // if (glob->DoNotWait) sigs = SetSignal (0, 0);
129
130 doactgad = !(glob->buttoninfo.lastcode);
131
132 if (glob->reqtype == RT_FILEREQ)
133 {
134 freq = glob->freq;
135 filename = freq->filename;
136 fdir = freq->dirname;
137 }
138
139 if (glob->reqtype == RT_FONTREQ)
140 {
141 fontreq = glob->fontreq;
142 filename = fontreq->fontname;
143 }
144
145 buff = glob->buff;
146
147 /* parse tags */
148 while ((tag = NextTagItem (&tstate)))
149 {
150 tagdata = tag->ti_Data;
151 if (tag->ti_Tag > RT_TagBase)
152 {
153 switch (tag->ti_Tag)
154 {
155 case RTRH_EndRequest:
156 if (tagdata == REQ_OK)
157 return (LeaveReq (glob, filename));
158
159 FreeAllCheckBuffer (glob);
160
161 return (FALSE);
162
163 }
164 }
165 }
166
167 /* MAIN LOOP */
168
169 if (glob->appwinport)
170 {
171 while ((appmsg = (struct AppMessage *)GetMsg (glob->appwinport)))
172 {
173 if (appmsg->am_Type == MTYPE_APPWINDOW)
174 {
175 if (appmsg->am_NumArgs >= 1)
176 {
177 NameFromLock (appmsg->am_ArgList->wa_Lock, fdir, 256);
178 my_SetStringGadget (glob->reqwin, glob->filegad,
179 appmsg->am_ArgList->wa_Name);
180 NewDir (glob);
181 }
182 ReplyMsg ((struct Message *)appmsg);
183 goto iterate;
184 }
185 ReplyMsg ((struct Message *)appmsg);
186 }
187 }
188
189 if (glob->newdir)
190 {
191
192 glob->disks = FALSE;
193
194 if (!glob->bufferentry)
195 {
196 ClearFilesRect (glob);
197 ClearAndInitReqBuffer (glob);
198 AdjustScroller (glob);
199 }
200 else RethinkReqDisplay (glob);
201
202 glob->selectedpos = -1;
203 glob->numselected = 0;
204 UpdateNumSelGad (glob);
205 glob->lastclicked = -1;
206 glob->exnext = FALSE;
207
208 if (!glob->bufferentry)
209 {
210 if (glob->reqtype == RT_FILEREQ)
211 {
212 if (!glob->volumerequest)
213 {
214 /* Render LED before lock, for good behaviour with ArcHandler */
215 glob->ledon = TRUE;
216 RenderLED (glob);
217 if ((glob->lock = Lock (fdir, SHARED_LOCK)))
218 {
219 Examine (glob->lock, &glob->fib);
220 if (glob->fib.fib_EntryType <= 0)
221 UnLockReqLock (glob);
222 }
223 else if ((glob->flags & FREQF_SAVE) &&
224 fdir[strlen(fdir)-1] != ':' &&
225 IoErr() != ERROR_DEVICE_NOT_MOUNTED)
226 {
227 struct TagItem tags[] =
228 {
229 {RT_Window , (IPTR)glob->reqwin },
230 {RT_IntuiMsgFunc , (IPTR)&glob->intuihook},
231 {TAG_MORE , (IPTR)ezreqtags }
232 };
233
234 if (rtEZRequestA (GetStr (glob->catalog, MSG_CREATE_DRAWER),
235 GetStr (glob->catalog, MSG_OK_BAR_CANCEL),
236 NULL, &glob->drawerstr, tags))
237 glob->lock = CreateDir (glob->drawerstr);
238 }
239
240 if (!glob->lock)
241 {
242 glob->ledon = FALSE;
243 RenderLED (glob);
244 SetWinTitleFlash (glob->reqwin,
245 GetStr (glob->catalog, MSG_DIR_ERROR));
246 FreeReqBuffer (glob->req);
247 ClearDisplayList (glob);
248 glob->nodir = TRUE;
249 }
250 else
251 {
252 i = strlen (fdir);
253
254 if (fdir[i-1] == '/' && i > 1)
255 {
256 if (fdir[i-2] != ':' && fdir[i-2] != '/') fdir[i-1] = 0;
257 }
258
259 my_SetStringGadget (glob->reqwin, glob->drawergad, fdir);
260 glob->exnext = TRUE;
261 glob->nodir = FALSE;
262 /* first examine before ExNext */
263 Examine (glob->lock, &glob->fib);
264 StartTimer (glob, 500000);
265 glob->firsttimer = glob->quiet = TRUE;
266
267 }
268
269 } /* if (glob->reqtype == RT_FILEREQ) */
270 else
271 {
272 /* Volume requester */
273 AddDiskNames (glob, glob->volumerequest);
274
275 if (fdir[0])
276 {
277 if (!FindCurrentPos (glob, fdir, MAXINT, VOLUME))
278 FindCurrentPos (glob, fdir, MAXINT, ASSIGN);
279
280 glob->buff->pos -= (glob->numentries - 1);
281
282 if (glob->buff->pos < 0) glob->buff->pos = 0;
283
284 glob->buff->gotopos = glob->buff->pos;
285 }
286
287 RethinkReqDisplay (glob);
288 glob->disks = TRUE;
289
290 } /* if (glob->reqtype == RT_FILEREQ) else ... */
291
292 } /* if (glob->reqtype == RT_FILEREQ) */
293 else if (glob->reqtype == RT_FONTREQ)
294 {
295 winlock = rtLockWindow (glob->reqwin);
296 ReqToolsBase->AvailFontsLock = TRUE;
297 afh = ReqToolsBase->AvailFontsHeader;
298
299 dlist = LockDosList (LDF_DEVICES|LDF_ASSIGNS|LDF_READ);
300 dlist = FindDosEntry (dlist, "FONTS", LDF_DEVICES|LDF_ASSIGNS);
301
302 if (afh)
303 {
304 if (!dlist) afh = NULL;
305 else
306 {
307 if (ReqToolsBase->FontsAssignType != dlist->dol_Type) afh = NULL;
308 else
309 {
310 if (ReqToolsBase->FontsAssignLock != dlist->dol_Lock)
311 afh = NULL;
312 else
313 {
314 fontslist = ReqToolsBase->FontsAssignList;
315 assignlist = dlist->dol_misc.dol_assign.dol_List;
316
317 while (assignlist)
318 {
319 if (fontslist->al_Lock != assignlist->al_Lock)
320 {
321 afh = NULL;
322 break;
323 }
324 fontslist = fontslist->al_Next;
325 assignlist = assignlist->al_Next;
326 }
327
328 if (fontslist) afh = NULL;
329
330 }
331 }
332 }
333 if (!afh) FreeReqToolsFonts();
334 }
335
336 if (!afh)
337 {
338 buffsize = 2000;
339 for (;;)
340 {
341 if (!(afh = AllocVec (buffsize, 0))) break;
342
343 shortage = AvailFonts ((STRPTR)afh, buffsize, AFF_DISK|AFF_MEMORY);
344 if (shortage)
345 {
346 buffsize += shortage;
347 FreeVec (afh);
348 }
349 else break;
350 }
351
352 ReqToolsBase->AvailFontsHeader = afh;
353 if (dlist)
354 {
355 ReqToolsBase->FontsAssignType = dlist->dol_Type;
356 ReqToolsBase->FontsAssignLock = dlist->dol_Lock;
357
358 if (dlist->dol_Type == DLT_DIRECTORY)
359 {
360 assignlist = dlist->dol_misc.dol_assign.dol_List;
361 prevassign = &(ReqToolsBase->FontsAssignList);
362
363 while (assignlist)
364 {
365 fontslist = AllocVec (sizeof (struct AssignList), MEMF_CLEAR);
366 *prevassign = fontslist;
367
368 if (!fontslist) break;
369
370 fontslist->al_Lock = assignlist->al_Lock;
371 assignlist = assignlist->al_Next;
372 prevassign = &(fontslist->al_Next);
373
374 }
375
376 }
377
378 }
379
380 } /* if (!afh) */
381
382 UnLockDosList (LDF_DEVICES|LDF_ASSIGNS|LDF_READ);
383
384 if (!afh)
385 DisplayBeep (NULL);
386 else
387 {
388 af = (struct AvailFonts *)((long)afh + 2);
389 for (i = 0; i < afh->afh_NumEntries; i++, af++)
390 {
391 if ((af->af_Type == AFF_MEMORY) &&
392 !(af->af_Attr.ta_Flags & FPF_ROMFONT)) continue;
393
394 if (glob->filterhook)
395 {
396 if (!CallHookPkt (glob->filterhook, fontreq, &af->af_Attr))
397 continue;
398 }
399 else
400 {
401 if (glob->flags & FREQF_DOWILDFUNC)
402 {
403 IPTR args[] = { REQHOOK_WILDFONT, (IPTR)&af->af_Attr };
404 if (CallHookA (fontreq->Hook, (Object *)fontreq, args ))
405 continue;
406 }
407 }
408
409 str = af->af_Attr.ta_Name;
410 val = strlen(str) - 5;
411 str[val] = 0;
412
413 if (!(entry = AddEntry (glob, buff, str, af->af_Attr.ta_YSize, FONT)))
414 break;
415
416 str[val] = '.';
417 entry->re_Flags = af->af_Attr.ta_Flags;
418 entry->re_Style = af->af_Attr.ta_Style;
419 }
420
421 str = filename;
422 val = strlen(str) - 5;
423 str[val] = 0;
424 FindCurrentPos (glob, str, glob->fontreq->Attr.ta_YSize, FONT);
425 str[val] = '.';
426
427 }
428
429 ReqToolsBase->AvailFontsLock = FALSE;
430 RethinkReqDisplay (glob);
431 rtUnlockWindow (glob->reqwin, winlock);
432
433 } /* else if (glob->reqtype == RT_FONTREQ) */
434 else
435 {
436 id = INVALID_ID;
437 while ((id = NextDisplayInfo (id)) != INVALID_ID)
438 {
439 if (glob->filterhook)
440 {
441 if (!CallHookPkt (glob->filterhook, glob->scrmodereq, (APTR)(IPTR)id))
442 continue;
443 }
444
445 /* filter out dual playfield modes */
446 if (id & DUALPF) continue;
447 /* filter out modes with default monitor */
448 if ((id & MONITOR_ID_MASK) == DEFAULT_MONITOR_ID) continue;
449 if (!GetModeData (glob, id, &mon)) continue;
450 /* is mode available ? */
451 if (glob->dispinfo.NotAvailable) continue;
452 if (!(entry = AddEntry (glob, buff, glob->nameinfo.Name, id, SCRMODE)))
453 break;
454 }
455 /* get mode data for currently selected mode */
456 GetModeData (glob, glob->modeid, &mon);
457
458 if (!FindCurrentPos (glob, glob->nameinfo.Name, glob->modeid, SCRMODE))
459 {
460 if (glob->firstentry->re_Next)
461 {
462 glob->modeid = (ULONG)(((struct ReqEntry *)glob->firstentry->re_Next)->re_Size);
463 SetTextGad (glob, glob->modetxtgad, ((struct ReqEntry *)glob->firstentry->re_Next)->re_Name);
464 GetModeData (glob, glob->modeid, &mon);
465 }
466 else
467 {
468 glob->modeid = INVALID_ID;
469 SetTextGad (glob, glob->modetxtgad, NULL);
470
471 if (glob->depthgad)
472 {
473 glob->currmindepth = glob->currmaxdepth = glob->maxdepth = glob->mindepth = glob->depth = 0;
474 UpdateDepthGad (glob);
475 myGT_SetGadgetAttrs (glob->maxcolgad, glob->reqwin, NULL, GTTX_Text, (IPTR) "0", TAG_END);
476 }
477
478 if (glob->flags & SCREQF_SIZEGADS)
479 {
480 myGT_SetGadgetAttrs (glob->widthgad, glob->reqwin, NULL, GA_Disabled, TRUE, TAG_END);
481 myGT_SetGadgetAttrs (glob->defwgad, glob->reqwin, NULL, GA_Disabled, TRUE, TAG_END);
482 myGT_SetGadgetAttrs (glob->heightgad, glob->reqwin, NULL, GA_Disabled, TRUE, TAG_END);
483 myGT_SetGadgetAttrs (glob->defhgad, glob->reqwin, NULL, GA_Disabled, TRUE, TAG_END);
484 }
485
486 if (glob->flags & SCREQF_OVERSCANGAD)
487 myGT_SetGadgetAttrs (glob->overscangad, glob->reqwin, NULL, GA_Disabled, TRUE, TAG_END);
488
489 if (glob->flags & SCREQF_AUTOSCROLLGAD)
490 myGT_SetGadgetAttrs (glob->checkboxgad[CHECKBOX_AUTOSCROLL], glob->reqwin, NULL,
491 GA_Disabled, TRUE, TAG_END);
492 }
493
494 } /* else if (glob->reqtype == RT_FONTREQ)*/
495
496 GetModeDimensions (glob);
497 DisplayModeAttrs (glob);
498 RethinkReqDisplay (glob);
499 }
500
501 } /* if (!glob->bufferentry) */
502
503 glob->bufferentry = glob->newdir = FALSE;
504
505 } /* if (glob->newdir) */
506
507 if (glob->exnext)
508 {
509 if ((glob->exnext = ExNext (glob->lock, &glob->fib)))
510 {
511 ULONG size = glob->fib.fib_Size;
512
513 ctype = glob->fib.fib_EntryType;
514
515 /* Try to examine links */
516 if( ( glob->fib.fib_EntryType == ST_SOFTLINK ) && ExpandLink( glob ) )
517 {
518 size = glob->linkfib.fib_Size;
519 ctype = glob->linkfib.fib_EntryType;
520 }
521
522 /* Hooks */
523 if (glob->filterhook)
524 {
525 SetDrawerAndFileFields (glob);
526 val = CallHookPkt (glob->filterhook, freq, &glob->fib);
527 ResetDrawerAndFileFields (glob);
528
529 if (!val) goto skipfile;
530 }
531 else
532 {
533 if (glob->flags & FREQF_DOWILDFUNC)
534 {
535 IPTR args[] = { REQHOOK_WILDFILE, (IPTR)&glob->fib};
536 SetDrawerAndFileFields (glob);
537 val = CallHookA (freq->Hook, (Object *)freq, args);
538 ResetDrawerAndFileFields (glob);
539
540 if (val) goto skipfile;
541 }
542 }
543
544 ctype = ( ctype > 0 ) ? glob->directory_id : glob->file_id;
545
546 if( !AddEntry( glob, buff, glob->fib.fib_FileName, size, ctype ) )
547 glob->exnext = FALSE;
548
549 skipfile:
550 ;
551
552 } /* if ((glob->exnext = ExNext (glob->lock, &glob->fib))) */
553
554 if (!glob->exnext)
555 {
556 UnLockReqLock (glob);
557 EndQuiet (glob);
558 }
559
560 } /* if (glob->exnext) */
561
562 do
563 {
564 reqmsg = NULL;
565
566 while ((imsg = (struct IntuiMessage *)GetMsg (glob->reqwin->UserPort)))
567 {
568 /* Reply message from timer.device ? */
569 if ((struct timerequest *)imsg == &glob->timereq)
570 {
571 glob->timerstarted = FALSE;
572 EndQuiet (glob);
573 continue;
574 }
575
576 /* Message from string gadget hook ? */
577 if (!imsg->Class && !imsg->Seconds)
578 {
579 /* Mark message so string gadget hook knows it has been received */
580 imsg->Micros = 0;
581
582 if (glob->selectedpos != -1)
583 {
584 DeselectFiles (glob, -1, FALSE);
585 CountAllDeselect (glob, FALSE);
586 UpdateNumSelGad (glob);
587 glob->selectedpos = -1;
588 }
589
590 if (*glob->filestr && !glob->disks)
591 FindEntryPos (glob, glob->filestr, glob->file_id);
592 continue;
593 }
594
595 if ((reqmsg = ProcessWin_Msg_Freq (glob, imsg))) break;
596 }
597
598 if (reqmsg)
599 {
600 memcpy( &im, reqmsg, sizeof( im ) );
601 Reply_GT_Msg (reqmsg);
602
603 gad = (struct Gadget *)im.IAddress;
604 code = im.Code;
605 qual = im.Qualifier;
606
607 switch (im.Class)
608 {
609 case IDCMP_DISKINSERTED:
610 case IDCMP_DISKREMOVED:
611 if (glob->disks)
612 {
613 glob->disks = FALSE;
614 ShowDisks (glob);
615 }
616 break;
617
618 case IDCMP_REFRESHWINDOW:
619 RenderReqWindow (glob, TRUE, FALSE);
620 break;
621
622 case IDCMP_CLOSEWINDOW:
623 FreeAllCheckBuffer (glob);
624 return (FALSE);
625
626 case IDCMP_NEWSIZE:
627 if (glob->filegad)
628 {
629 strcpy (glob->tempfname, glob->filestr);
630 }
631 RemoveGList (glob->reqwin, glob->buttoninfo.glist, -1);
632 my_FreeGadgets (glob->buttoninfo.glist);
633 glob->buttoninfo.glist = NULL;
634 my_FreeLabelImages (&glob->labelimages);
635 glob->labelimages.NextImage = NULL;
636 glob->reqheight = glob->reqwin->Height;
637
638 if (!SetupReqWindow (glob, TRUE))
639 {
640 glob->reqheight = glob->reqwin->MinHeight;
641 glob->reqwidth = glob->reqwin->MinWidth;
642
643 if (!SetupReqWindow (glob, TRUE))
644 {
645 DisplayBeep (NULL);
646 FreeAllCheckBuffer (glob);
647 return (FALSE);
648 }
649 }
650
651 my_SetStringGadget (glob->reqwin, glob->filegad, glob->tempfname);
652
653 if (!glob->nodir || glob->disks)
654 {
655 i = glob->buff->currentnum - glob->numentries;
656
657 if (i < 0)
658 glob->buff->gotopos = glob->buff->pos = 0;
659 else if (glob->buff->pos > i)
660 glob->buff->gotopos = glob->buff->pos = i;
661
662 AdjustScroller (glob);
663 UpdateDisplayList (glob);
664 PrintFiles (glob);
665 }
666 RenderReqWindow (glob, FALSE, FALSE);
667 break;
668
669 case IDCMP_MOUSEMOVE:
670 if (!glob->downgadget) break;
671
672 if (glob->downgadget == FILES)
673 {
674 if (glob->clicked != ~0)
675 {
676 clicked = CalcClicked (glob, &im);
677 sel = !(glob->displaylist[glob->clicked]->re_Flags & ENTRYF_HIGHLIGHTED);
678 val = !(clicked != glob->clicked || im.MouseX < glob->boxleft
679 || im.MouseX > glob->boxright);
680 if (val == sel) CompClicked (glob);
681 }
682 }
683 else if (gad->GadgetID == FPROP) ScrollerMoved (glob, code);
684 else if (gad->GadgetID == DEPTH) UpdateDepthDisplay (glob, code, glob->modeid);
685 break;
686
687 case IDCMP_MOUSEBUTTONS:
688 glob->downgadget = 0;
689
690 if( glob->reqtype == RT_FILEREQ )
691 {
692 if( ( code == MENUDOWN ) && !glob->volumerequest )
693 {
694 if( !glob->disks )
695 {
696 ShowDisks( glob );
697 }
698 else
699 {
700 strcpy( fdir, glob->drawerstr );
701 NewDir( glob );
702 }
703 }
704 else if( code == MIDDLEDOWN )
705 {
706 BOOL doit;
707
708 doit = rtLockPrefs()->Flags & RTPRF_MMBPARENT;
709 rtUnlockPrefs();
710
711 if( doit )
712 {
713 goto parentdir;
714 }
715 }
716 }
717
718 break;
719
720 case IDCMP_GADGETDOWN:
721 EndQuiet (glob);
722 glob->downgadget = id = gad->GadgetID;
723 if (id == FILES)
724 {
725 glob->clicked = ~0;
726 clicked = CalcClicked (glob, &im);
727 if (ClickDown (glob, clicked, &im, qual))
728 return (LeaveReq (glob, filename));
729 }
730 else if (id == FPROP)
731 {
732 ScrollerMoved (glob, code);
733 }
734 break;
735
736 case IDCMP_RAWKEY:
737 if ((glob->reqtype == RT_FILEREQ) && !(glob->flags & FREQF_NOFILES) &&
738 (code == RAWKEY_UP || code == RAWKEY_DOWN))
739 {
740 glob->activegadget = glob->mainstrgad;
741
742 if (glob->selectcurrpos || !glob->buff->firstname) break;
743
744 lastpos = glob->selectedpos;
745
746 if (glob->selectedpos == -1)
747 {
748 if (qual & IEQUALIFIER_SHIFT)
749 {
750 if (code == RAWKEY_UP)
751 glob->selectedpos = glob->buff->pos;
752 else
753 glob->selectedpos = glob->buff->pos +
754 MIN (glob->numentries, glob->buff->currentnum) - 1;
755 }
756 else if (qual & IEQUALIFIER_CONTROL)
757 {
758 if (code == RAWKEY_UP) glob->selectedpos = 0;
759 else glob->selectedpos = glob->buff->currentnum - 1;
760 }
761 else
762 {
763 if (glob->disks) i = (qual & IEQUALIFIER_ALT) ? ASSIGN : VOLUME;
764 else i = (qual & IEQUALIFIER_ALT) ? glob->directory_id : glob->file_id;
765 glob->selectedpos = FindEntryPos (glob, glob->filestr, i);
766 }
767 }
768 else
769 {
770 if (code == RAWKEY_UP)
771 {
772 if (qual & IEQUALIFIER_SHIFT)
773 {
774 if (glob->selectedpos != glob->buff->pos)
775 glob->selectedpos = glob->buff->pos;
776 else glob->selectedpos -= (glob->numentries - 1);
777 if (glob->selectedpos < 0) glob->selectedpos = 0;
778 }
779 else if (qual & IEQUALIFIER_CONTROL)
780 glob->selectedpos = 0;
781 else if (glob->selectedpos) glob->selectedpos--;
782 }
783 else
784 {
785 if (qual & IEQUALIFIER_SHIFT)
786 {
787 val = (glob->buff->pos + glob->numentries - 1);
788 if (glob->selectedpos != val) glob->selectedpos = val;
789 else glob->selectedpos += glob->numentries - 1;
790 if (glob->selectedpos >= glob->buff->currentnum)
791 glob->selectedpos = glob->buff->currentnum - 1;
792 }
793 else if (qual & IEQUALIFIER_CONTROL)
794 glob->selectedpos = glob->buff->currentnum - 1;
795 else if (glob->selectedpos < (glob->buff->currentnum - 1))
796 glob->selectedpos++;
797 }
798 }
799
800 if (glob->selectedpos != lastpos)
801 {
802 i = (glob->selectedpos - glob->buff->pos);
803 val = glob->buff->gotopos;
804
805 if (i < 0)
806 {
807 val += i;
808 if (val < 0) val = 0;
809 }
810
811 if (i >= glob->numentries)
812 {
813 val += (i - glob->numentries) + 1;
814 if (val > (glob->buff->currentnum - glob->numentries))
815 val = (glob->buff->currentnum - glob->numentries);
816 }
817 ScrollerMoved (glob, val);
818
819 if (glob->buff->pos != glob->buff->gotopos)
820 AdjustScroller (glob);
821
822 glob->selectcurrpos = TRUE;
823 }
824 break;
825 }
826
827 if ((id = CheckGadgetKey (code, qual, &key, &glob->buttoninfo)))
828 goto dogadgetup;
829
830 gad = NULL;
831 checkbox = -1;
832
833 if (key == 27) /* Esc? */
834 goto docancel;
835 else if (key == glob->gadkey[CHECKBOX_AUTOSCROLL])
836 checkbox = CHECKBOX_AUTOSCROLL;
837 else if (key == glob->gadkey[CHECKBOX_BOLD])
838 checkbox = CHECKBOX_BOLD;
839 else if (key == glob->gadkey[CHECKBOX_ITALIC])
840 checkbox = CHECKBOX_ITALIC;
841 else if (key == glob->gadkey[CHECKBOX_UNDERLINE])
842 checkbox = CHECKBOX_UNDERLINE;
843 else if (key == glob->patkey) gad = glob->patgad;
844 else if (key == glob->heightkey) gad = glob->heightgad;
845 else if (key == glob->widthkey) gad = glob->widthgad;
846 else if (key == glob->overscankey)
847 {
848 if (glob->overscangad)
849 {
850 if (qual & IEQUALIFIER_SHIFT)
851 glob->overscantype--;
852 else
853 glob->overscantype++;
854
855 if (glob->overscantype > OSCAN_MAX) glob->overscantype = 0;
856 if (glob->overscantype < 0) glob->overscantype = OSCAN_MAX;
857
858 code = glob->overscantype;
859 myGT_SetGadgetAttrs (glob->overscangad, glob->reqwin, NULL,
860 GTCY_Active, code, TAG_END);
861 id = OVERSCN;
862 goto dogadgetup;
863 }
864 }
865 else if (key == glob->depthkey)
866 {
867 if (glob->depthgad)
868 {
869 if (qual & IEQUALIFIER_SHIFT)
870 {
871 if (glob->depth > glob->currmindepth) glob->depth--;
872 }
873 else
874 {
875 if (glob->depth < glob->currmaxdepth) glob->depth++;
876 }
877 UpdateDepthGad (glob);
878 }
879 }
880
881 if (gad) glob->activegadget = gad;
882
883 if (checkbox != -1)
884 {
885 if ((gad = glob->checkboxgad[checkbox]))
886 {
887 IPTR checked;
888 struct TagItem get_tags[] =
889 {
890 {GTCB_Checked, (IPTR)&checked},
891 {TAG_DONE }
892 };
893
894 #ifdef __AROS__
895 /* the other way (checking GFLG_SELECTED) does
896 not work with AROS gadtools.library, and in
897 general not with boopsi gadgets. Only with
898 non-boopsi bool gadgets it works (but not
899 yet in AROS) */
900
901 GT_GetGadgetAttrsA(gad, glob->reqwin, NULL, get_tags);
902 myGT_SetGadgetAttrs (gad, glob->reqwin, NULL,
903 GTCB_Checked, !checked, TAG_END);
904
905 #else
906 myGT_SetGadgetAttrs (gad, glob->reqwin, NULL,
907 GTCB_Checked, !(gad->Flags & GFLG_SELECTED), TAG_END);
908 #endif
909 goto fakegadgetup;
910 }
911 }
912 break;
913
914 case IDCMP_GADGETUP:
915 #ifdef __AROS__
916 /* AROS gadtools library gadgets are boopsi gadgets, so checking
917 for GTYP_STRGADGET does not work*/
918 if ((code == KEYB_SHORTCUT) && ((gad->GadgetID == PATSTR) ||
919 (gad->GadgetID == DRAWERSTR) ||
920 (gad->GadgetID == FILESTR)) )
921
922
923 #else
924 if (((gad->GadgetType & GTYP_GTYPEMASK) == GTYP_STRGADGET)
925 && (code == KEYB_SHORTCUT))
926 #endif
927 {
928 doactgad = FALSE;
929 continue;
930 }
931
932 fakegadgetup:
933 id = gad->GadgetID;
934 dogadgetup:
935 glob->downgadget = 0;
936 switch (id)
937 {
938 case FILES:
939 clicked = CalcClicked (glob, &im);
940
941 if (clicked != glob->clicked) break;
942
943 entry = glob->displaylist[clicked];
944 str = entry->re_Name;
945 doubleclick = ((clicked == glob->lastclicked)
946 && DoubleClick (glob->sec, glob->mic, im.Seconds, im.Micros));
947 ctype = entry->re_Type;
948
949 if (ctype == glob->directory_id)
950 {
951 if (!(glob->flags & FREQF_SELECTDIRS))
952 {
953 AddPart (fdir, str, 256);
954 NewDir (glob);
955
956 /* CHECKME: added hoping to fix MuForce hit. See below. */
957
958 entry = NULL;
959
960 /* END CHECKME */
961 break;
962 }
963 }
964 else switch (ctype)
965 {
966 case VOLUME:
967 case ASSIGN:
968 CompClicked (glob);
969 if (ctype == VOLUME)
970 {
971 str2 = str;
972 while (*str2 != ' ') str2++;
973 str3 = str2;
974 while (*str3 == ' ') str3++;
975 if ((glob->volumerequest && !( *str == '-' && str[ 1 ] == ' ' ))
976 || *str3 == ':'
977 || FindVolume (glob, str3, entry))
978 {
979 strcpy (fdir, str);
980 fdir[str2-str] = 0;
981 }
982 else strcpy (fdir, str3);
983 }
984 else strcpy (fdir, str);
985
986 if (!glob->volumerequest)
987 {
988 NewDir (glob);
989
990 /* CHECKME: added hoping to fix MuForce hit. See below. */
991
992 entry = NULL;
993
994 /* END CHECKME */
995
996 break;
997 }
998
999 my_SetStringGadget (glob->reqwin, glob->drawergad, fdir);
1000 checkdoubleclick:
1001 if (doubleclick)
1002 return (LeaveReq (glob, filename));
1003
1004 goto rememberclicked;
1005
1006 case FONT:
1007 CompClicked (glob);
1008 strcpy (filename, str);
1009 StrCat (filename, DOTFONTSTR);
1010 my_SetStringGadget (glob->reqwin,
1011 glob->filegad, filename);
1012 if (doubleclick)
1013 return (LeaveReq (glob, filename));
1014
1015 fontreq->Attr.ta_YSize = entry->re_Size;
1016 fontreq->Attr.ta_Flags = entry->re_Flags;
1017 fontreq->Attr.ta_Style = entry->re_Style;
1018 fontreq->Attr.ta_Style &= ~(FSF_ITALIC|FSF_BOLD|FSF_UNDERLINED);
1019 fontreq->Attr.ta_Style |= glob->fontstyle;
1020 my_SetIntegerGadget (glob->reqwin,
1021 glob->drawergad, entry->re_Size);
1022 ShowFontSample (glob, FALSE, TRUE);
1023 rememberclicked:
1024 glob->lastclicked = clicked;
1025 glob->sec = im.Seconds; glob->mic = im.Micros;
1026 break;
1027
1028 case SCRMODE:
1029 CompClicked (glob);
1030 SetTextGad (glob, glob->modetxtgad, str);
1031 glob->modeid = (ULONG)entry->re_Size;
1032 if (!GetModeData (glob, glob->modeid, &mon))
1033 DisplayBeep (glob->scr);
1034 else
1035 {
1036 GetModeDimensions (glob);
1037 DisplayModeAttrs (glob);
1038 }
1039 goto checkdoubleclick;
1040 }
1041
1042 /* FIXME: check following line. causes MuForces hits on Amiga when clicking
1043 * on volume or assign entry. Both with old Amiga reqtools.library and
1044 * in new reqtools.library compiled from AROS sources.
1045 */
1046
1047 #if 0
1048 entry->re_Flags &= ~ENTRYF_HIGHLIGHTED;
1049 #else
1050 if (entry) entry->re_Flags &= ~ENTRYF_HIGHLIGHTED;
1051 #endif
1052 break;
1053
1054 case FONTSIZE:
1055 fontreq->Attr.ta_YSize = ((struct StringInfo *)glob->drawergad->SpecialInfo)->LongInt;
1056 ShowFontSample (glob, FALSE, TRUE);
1057 glob->activegadget = glob->mainstrgad;
1058 break;
1059
1060 case ITALIC:
1061 #ifdef __AROS__
1062 {
1063 IPTR checked;
1064 struct TagItem get_tags[] =
1065 {
1066 {GTCB_Checked, (IPTR)&checked},
1067 {TAG_DONE }
1068 };
1069
1070 GT_GetGadgetAttrsA(glob->checkboxgad[CHECKBOX_ITALIC], glob->reqwin, NULL, get_tags);
1071 if (checked)
1072 {
1073 glob->fontstyle |= FSF_ITALIC;
1074 }
1075 else
1076 {
1077 glob->fontstyle &= ~FSF_ITALIC;
1078 }
1079 }
1080
1081 #else
1082
1083 if (glob->checkboxgad[CHECKBOX_ITALIC]->Flags & GFLG_SELECTED)
1084 glob->fontstyle |= FSF_ITALIC;
1085 else glob->fontstyle &= ~FSF_ITALIC;
1086
1087 #endif
1088
1089 goto updatestyle;
1090
1091 case UNDERLINE:
1092 #ifdef __AROS__
1093 {
1094 IPTR checked;
1095 struct TagItem get_tags[] =
1096 {
1097 {GTCB_Checked, (IPTR)&checked},
1098 {TAG_DONE }
1099 };
1100
1101 GT_GetGadgetAttrsA(glob->checkboxgad[CHECKBOX_UNDERLINE], glob->reqwin, NULL, get_tags);
1102 if (checked)
1103 {
1104 glob->fontstyle |= FSF_UNDERLINED;
1105 }
1106 else
1107 {
1108 glob->fontstyle &= ~FSF_UNDERLINED;
1109 }
1110 }
1111
1112 #else
1113
1114 if (glob->checkboxgad[CHECKBOX_UNDERLINE]->Flags & GFLG_SELECTED)
1115 glob->fontstyle |= FSF_UNDERLINED;
1116 else glob->fontstyle &= ~FSF_UNDERLINED;
1117 #endif
1118
1119 goto updatestyle;
1120
1121 case BOLD:
1122 #ifdef __AROS__
1123 {
1124 IPTR checked;
1125 struct TagItem get_tags[] =
1126 {
1127 {GTCB_Checked, (IPTR)&checked},
1128 {TAG_DONE }
1129 };
1130
1131 GT_GetGadgetAttrsA(glob->checkboxgad[CHECKBOX_BOLD], glob->reqwin, NULL, get_tags);
1132 if (checked)
1133 {
1134 glob->fontstyle |= FSF_BOLD;
1135 }
1136 else
1137 {
1138 glob->fontstyle &= ~FSF_BOLD;
1139 }
1140 }
1141
1142 #else
1143
1144 if (glob->checkboxgad[CHECKBOX_BOLD]->Flags & GFLG_SELECTED)
1145 glob->fontstyle |= FSF_BOLD;
1146 else glob->fontstyle &= ~FSF_BOLD;
1147 #endif
1148 updatestyle:
1149 ShowFontSample (glob, FALSE, TRUE);
1150 break;
1151
1152 case ALL:
1153 EndQuiet (glob);
1154 if (!glob->nodir && !glob->disks) SelectAll (glob, "#?");
1155 break;
1156
1157 case PATTERN:
1158 EndQuiet (glob);
1159 if (!glob->nodir && !glob->disks)
1160 {
1161 struct TagItem tags[] =
1162 {
1163 {RT_Window , (IPTR)glob->reqwin },
1164 {RT_IntuiMsgFunc , (IPTR)&glob->intuihook},
1165 {TAG_MORE , (IPTR)getstringtags }
1166 };
1167
1168 if (rtGetStringA (glob->selpattern, 123,
1169 GetStr (glob->catalog, MSG_MATCH_WINTITLE),
1170 NULL, tags))
1171 SelectAll (glob, glob->selpattern);
1172 }
1173 break;
1174
1175 case CLR:
1176 EndQuiet (glob);
1177 if (!glob->nodir && !glob->disks)
1178 {
1179 CountAllDeselect (glob, FALSE);
1180 UpdateNumSelGad (glob);
1181 PrintFiles (glob);
1182 my_SetStringGadget (glob->reqwin, glob->filegad, "");
1183 }
1184 break;
1185
1186 case PATSTR:
1187 EndQuiet (glob);
1188 if (Stricmp (freq->patstr, glob->patgadstr))
1189 {
1190 strcpy (freq->patstr, glob->patgadstr);
1191 ParsePatternNoCase (freq->patstr, glob->matchpat, sizeof( glob->matchpat ) );
1192 glob->activegadget = glob->mainstrgad;
1193 goto refreshlist;
1194 }
1195 glob->activegadget = glob->mainstrgad;
1196 break;
1197
1198 case INFO:
1199 EndQuiet (glob);
1200 freq->hideinfo = !freq->hideinfo;
1201 refreshlist:
1202 RethinkReqDisplay (glob);
1203 UpdateNumSelGad (glob);
1204 break;
1205
1206 case DRAWERSTR:
1207 glob->activegadget = glob->mainstrgad;
1208
1209 if (glob->flags & FREQF_NOFILES)
1210 {
1211 if (glob->volumerequest ||
1212 (!glob->nodir && !Stricmp (fdir, glob->drawerstr)))
1213 {
1214 if (qual & IEQUALIFIER_SHIFT) break;
1215
1216 strcpy (fdir, glob->drawerstr);
1217 val = (glob->volumerequest && !*fdir);
1218 my_SelectGadget (!val ? glob->okgad : glob->cancelgad, glob->reqwin);
1219 ShortDelay();
1220
1221 if (val) goto docancel;
1222
1223 return (LeaveReq (glob, filename));
1224 }
1225 }
1226
1227 if (!glob->nodir && !glob->disks
1228 && !Stricmp (fdir, glob->drawerstr))
1229 break;
1230
1231 /* FALLTHROUGH */
1232
1233 case GETDIR:
1234 strcpy (fdir, glob->drawerstr);
1235 NewDir (glob);
1236 break;
1237
1238 case FILESTR:
1239 if (code == 0x09) break;
1240
1241 if (qual & IEQUALIFIER_SHIFT)
1242 {
1243 glob->activegadget = glob->drawergad;
1244 break;
1245 }
1246
1247 if ((qual & IEQUALIFIER_ALT) && (glob->flags & FREQF_PATGAD))
1248 {
1249 glob->activegadget = glob->patgad;
1250 break;
1251 }
1252
1253 if (glob->reqtype == RT_FILEREQ)
1254 {
1255 /* extract path from filename if one was entered */
1256 char tempstr[108];
1257 BPTR templock = BNULL, dirlock, oldcd;
1258
1259 str = glob->filestr;
1260
1261 if (*str == '/') {
1262 strcpy (tempstr, str + 1);
1263 my_SetStringGadget (glob->reqwin, glob->filegad,
1264 tempstr);
1265 goto parentdir;
1266 }
1267
1268 if (*str)
1269 {
1270 *glob->winaddr = (APTR)-1;
1271
1272 if ((dirlock = Lock (glob->drawerstr, SHARED_LOCK)))
1273 {
1274 oldcd = CurrentDir (dirlock);
1275 templock = Lock (str, SHARED_LOCK);
1276 CurrentDir (oldcd);
1277 }
1278
1279 *glob->winaddr = glob->reqwin;
1280
1281 if (dirlock) UnLock (dirlock);
1282
1283 if (templock)
1284 {
1285 Examine (templock, &glob->fib);
1286 UnLock (templock);
1287
1288 if (glob->fib.fib_EntryType > 0)
1289 {
1290 if (dirlock)
1291 {
1292 strcpy (fdir, glob->drawerstr);
1293 AddPart (fdir, str, 256);
1294 }
1295 else strcpy (fdir, str);
1296
1297 tempstr[0] = 0;
1298
1299 goto setfnamedirgads;
1300 }
1301 }
1302 }
1303
1304 if (PathPart (str) != str)
1305 {
1306 val = strlen (str);
1307
1308 for (i = 0; i < val; i++)
1309 {
1310 if (str[i] == ':')
1311 {
1312 strcpy (fdir, str);
1313 break;
1314 }
1315 }
1316
1317 if (i >= val) AddPart (fdir, str, 256);
1318
1319 *(PathPart (fdir)) = 0;
1320 strcpy (tempstr, FilePart (glob->filestr));
1321 setfnamedirgads:
1322 NewDir (glob);
1323 my_SetStringGadget (glob->reqwin, glob->filegad, tempstr);
1324 my_SetStringGadget (glob->reqwin, glob->drawergad, fdir);
1325 break;
1326
1327 }
1328
1329 } /* if (glob->reqtype == RT_FILEREQ) */
1330
1331 my_SelectGadget (
1332 (!glob->nodir &&
1333 (*glob->filestr || glob->allowempty
1334 || ((glob->flags & FREQF_MULTISELECT) &&
1335 (glob->numselected > 0))
1336 )
1337 ) ? glob->okgad : glob->cancelgad, glob->reqwin);
1338 ShortDelay();
1339
1340 case OK:
1341 return (LeaveReq (glob, filename));
1342
1343 case CANCEL:
1344 docancel:
1345 FreeAllCheckBuffer (glob);
1346 return (FALSE);
1347
1348 case PARENT:
1349 parentdir:
1350 UnLockReqLock (glob);
1351 // strcpy (fdir, glob->drawerstr);
1352 str = PathPart ( fdir );
1353 if (*str)
1354 {
1355 *str = 0;
1356 my_SetStringGadget (glob->reqwin, glob->drawergad, fdir);
1357 NewDir (glob);
1358 break;
1359 }
1360 else
1361 {
1362 if ((glob->lock = Lock (glob->drawerstr, SHARED_LOCK)))
1363 {
1364 if ((parent = ParentDir (glob->lock)))
1365 {
1366 NameFromLock (parent, fdir, 256);
1367 UnLock (parent);
1368 NewDir (glob);
1369 break;
1370 }
1371 }
1372 }
1373
1374 if(glob->disks)
1375 break;
1376 /* FALLTHROUGH! */
1377
1378 case DISKS:
1379 if (!glob->disks)
1380 ShowDisks (glob);
1381 else
1382 {
1383 strcpy (fdir, glob->drawerstr);
1384 NewDir (glob);
1385 }
1386 break;
1387
1388 case DEPTH:
1389 UpdateDepthDisplay (glob, code, glob->modeid);
1390 glob->depth = code;
1391 break;
1392
1393 case SCRWIDTH:
1394 glob->width = IntGadgetBounds (glob, glob->widthgad,
1395 MAX (glob->diminfo.MinRasterWidth, glob->minwidth),
1396 MIN (glob->diminfo.MaxRasterWidth, glob->maxwidth));
1397 glob->usedefwidth = (glob->width == glob->defwidth);
1398 myGT_SetGadgetAttrs (glob->defwgad, glob->reqwin, NULL,
1399 GTCB_Checked, glob->usedefwidth, TAG_END);
1400 glob->activegadget = glob->mainstrgad;
1401 break;
1402
1403 case SCRHEIGHT:
1404 glob->height = IntGadgetBounds (glob, glob->heightgad,
1405 MAX (glob->diminfo.MinRasterHeight, glob->minheight),
1406 MIN (glob->diminfo.MaxRasterHeight, glob->maxheight));
1407 glob->usedefheight = (glob->height == glob->defheight);
1408 myGT_SetGadgetAttrs (glob->defhgad, glob->reqwin, NULL,
1409 GTCB_Checked, glob->usedefheight, TAG_END);
1410 glob->activegadget = glob->mainstrgad;
1411 break;
1412
1413 case DEFWIDTH:
1414 glob->usedefwidth = !glob->usedefwidth;
1415 SetSizeGads (glob);
1416 break;
1417
1418 case DEFHEIGHT:
1419 glob->usedefheight = !glob->usedefheight;
1420 SetSizeGads (glob);
1421 break;
1422
1423 case AUTOSCR:
1424 glob->autoscroll = !glob->autoscroll;
1425 break;
1426
1427 case OVERSCN:
1428 glob->overscantype = code;
1429 GetModeDimensions (glob);
1430 SetSizeGads (glob);
1431 break;
1432
1433 } /* switch (id) */
1434 break;
1435
1436 } /* switch (im.Class) */
1437
1438 } /* if (reqmsg) */
1439
1440 iterate:
1441 if ((glob->downgadget != FILES) && (glob->buff->gotopos != glob->buff->pos))
1442 {
1443 #if NO_SCROLLWINDOWRASTER
1444 BOOL refreshall = FALSE;
1445 #endif
1446
1447 start = 0; stop = glob->numentries;
1448 step = glob->buff->gotopos - glob->buff->pos;
1449
1450 if (ABS(step) < stop)
1451 {
1452 if (ABS(step) > 1) step /= 2;
1453 if (step > 3) step = 3;
1454 if (step < -3) step = -3;
1455
1456 SetBPen (glob->reqrp, glob->pens[BACKGROUNDPEN]);
1457 mySetWriteMask (glob->reqrp, glob->entrymask);
1458
1459 #if !NO_SCROLLWINDOWRASTER
1460 if (glob->os30)
1461 {
1462 ScrollWindowRaster (glob->reqwin, 0, step * glob->entryheight,
1463 glob->boxleft, glob->boxtop, glob->boxright,
1464 glob->boxtop + glob->boxheight - 1);
1465 }
1466 else
1467 {
1468 #endif
1469 ScrollRaster (glob->reqrp, 0, step * glob->entryheight,
1470 glob->boxleft, glob->boxtop, glob->boxright,
1471 glob->boxtop + glob->boxheight - 1);
1472 if (glob->reqrp->Layer->Flags & LAYERREFRESH)
1473 refreshall = TRUE; /* RenderReqWindow (glob, TRUE, FALSE); */
1474
1475 #if !NO_SCROLLWINDOWRASTER
1476 }
1477 #endif
1478 mySetWriteMask (glob->reqrp, glob->rpmask);
1479
1480 if (step > 0)
1481 start = stop - step;
1482 else
1483 stop = -step;
1484
1485 } /* if (ABS(step) < stop) */
1486
1487 glob->buff->pos += step;
1488 UpdateDisplayList (glob);
1489
1490 #if NO_SCROLLWINDOWRASTER
1491 if (refreshall)
1492 {
1493 RenderReqWindow (glob, TRUE, FALSE);
1494 }
1495 #endif
1496
1497 for (i = start; i < stop; i++) PrintEntry (glob, i);
1498
1499 glob->DoNotWait = TRUE;
1500
1501 } /* if ((glob->downgadget != FILES) && (glob->buff->gotopos != glob->buff->pos)) */
1502 else
1503 {
1504 glob->DoNotWait = glob->exnext || glob->newdir;
1505 }
1506
1507 if (glob->selectcurrpos && (glob->buff->pos == glob->buff->gotopos))
1508 {
1509 if (glob->selectedpos != -1)
1510 {
1511 ClickDown (glob, (glob->selectedpos - glob->buff->pos), NULL, 0);
1512 }
1513 glob->selectcurrpos = FALSE;
1514 }
1515
1516 } while (reqmsg && !glob->newdir);
1517
1518 if (doactgad)
1519 {
1520 /*
1521 #ifdef __AROS__
1522 #warning Disabled this gadget activation here, as in Intuition this functions is slow (why? ask stegerg)
1523 #else
1524 */
1525 ActivateGadget (glob->activegadget, glob->reqwin, NULL);
1526
1527 /*
1528 #endif
1529 */
1530 if (!(glob->reqwin->IDCMPFlags & IDCMP_RAWKEY))
1531 {
1532 /* Add RAWKEY IDCMP only after initialzing and refreshing the window */
1533 ModifyIDCMP (glob->reqwin, IDCMP_RAWKEY|REQ_IDCMP);
1534 }
1535 }
1536
1537 return ((ULONG)CALL_HANDLER);
1538 }
1539
1540 /****************************************************************************************/
Mirror of AROS' svn.