?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Tabs => space
[AROS.git] / workbench / utilities / More / more.c
blob20b0d020c6b81d7903d0c2c887914f2ef02a4b8b
1 /*
2 Copyright © 1995-2012, The AROS Development Team. All rights reserved.
3 $Id$
4 */
5
6 /****************************************************************************************/
7
8 #include <exec/memory.h>
9 #include <dos/dos.h>
10 #include <intuition/intuition.h>
11 #include <intuition/imageclass.h>
12 #include <intuition/gadgetclass.h>
13 #include <libraries/locale.h>
14 #include <libraries/gadtools.h>
15 #include <devices/rawkeycodes.h>
16 #include <workbench/workbench.h>
17 #include <proto/wb.h>
18
19 #include <graphics/gfx.h>
20 #include <utility/hooks.h>
21 #include <workbench/startup.h>
22
23 #include <proto/exec.h>
24 #include <proto/dos.h>
25 #include <proto/intuition.h>
26 #include <proto/graphics.h>
27 #include <proto/gadtools.h>
28 #include <proto/alib.h>
29 #include <proto/utility.h>
30
31 #include <setjmp.h>
32
33 #include "global.h"
34 #include "req.h"
35
36 #define CATCOMP_NUMBERS
37 #include "strings.h"
38
39 #define DEBUG 0
40 #include <aros/debug.h>
41
42 static inline int abs(int x)
43 {
44 if (x < 0)
45 return -x;
46 return x;
47 }
48
49 static jmp_buf exit_buf;
50
51 /****************************************************************************************/
52
53 /* #define USE_WRITEMASK */
54 #define USE_SIMPLEREFRESH 0
55
56 #define DEFAULT_TABSIZE 8
57
58 #define INNER_SPACING_X 2
59 #define INNER_SPACING_Y 2
60
61 #define MAX_TEXTLINELEN 4096
62
63 #define ARG_TEMPLATE "FILE"
64
65 enum
66 {
67 ARG_FILE,
68 NUM_ARGS
69 };
70
71 enum
72 {
73 GAD_UPARROW,
74 GAD_DOWNARROW,
75 GAD_LEFTARROW,
76 GAD_RIGHTARROW,
77 GAD_VERTSCROLL,
78 GAD_HORIZSCROLL,
79 NUM_GADGETS
80 };
81
82 enum
83 {
84 IMG_UPARROW,
85 IMG_DOWNARROW,
86 IMG_LEFTARROW,
87 IMG_RIGHTARROW,
88 IMG_SIZE,
89 NUM_IMAGES
90 };
91
92 /****************************************************************************************/
93
94 struct LineNode
95 {
96 char *text;
97 UWORD stringlen;
98 UWORD textlen;
99 BOOL invert;
100 };
101
102 /****************************************************************************************/
103
104 struct IntuitionBase *IntuitionBase;
105 struct GfxBase *GfxBase;
106 struct Library *GadToolsBase;
107 struct Screen *scr;
108 struct DrawInfo *dri;
109 APTR vi;
110 struct Menu *menus;
111 struct Window *win;
112 struct MsgPort *msgport;
113 struct AppWindow *appwindow;
114
115 ULONG gotomask, findmask;
116 UBYTE filenamebuffer[300];
117
118 /****************************************************************************************/
119
120 static struct RastPort *rp;
121 static struct RDArgs *MyArgs;
122
123 static struct Gadget *gad[NUM_GADGETS], *firstgadget, *activearrowgad;
124 static struct Image *img[NUM_GADGETS];
125
126 static struct LineNode *linearray;
127
128 static UBYTE *filebuffer;
129
130 static char *filename, *fillename_dest, s[256], *searchtext;
131
132 static BPTR fh;
133
134 static UWORD tabsize = DEFAULT_TABSIZE;
135
136 static WORD fontwidth, fontheight, borderleft, bordertop;
137 static WORD shinepen, shadowpen, bgpen, textpen;
138 static WORD borderright, borderbottom, visiblex, visibley;
139 static WORD fontbaseline, textstartx, textstarty, textendx, textendy;
140 static WORD textwidth, textheight, viewstartx, viewstarty;
141 static WORD winwidth, winheight;
142
143 static ULONG winmask, msgmask;
144 static LONG filelen, num_lines, max_textlen;
145 static LONG search_startline, found_line = -1;
146 static WORD arrowticker;
147
148 static BOOL in_main_loop;
149
150 static IPTR Args[NUM_ARGS];
151
152 static BPTR oldlock = (BPTR)-1;
153 static BPTR parentlock = (BPTR)-1;
154
155 /*********************************************************************************************/
156
157 WORD ShowMessage(CONST_STRPTR title, CONST_STRPTR text, CONST_STRPTR gadtext)
158 {
159 struct EasyStruct es;
160
161 es.es_StructSize = sizeof(es);
162 es.es_Flags = 0;
163 es.es_Title = title;
164 es.es_TextFormat = text;
165 es.es_GadgetFormat = gadtext;
166
167 return EasyRequestArgs(win, &es, NULL, NULL);
168 }
169
170 /****************************************************************************************/
171
172 VOID Cleanup(CONST_STRPTR msg)
173 {
174 WORD rc, i;
175
176 if (msg)
177 {
178 if (IntuitionBase && !((struct Process *)FindTask(NULL))->pr_CLI)
179 {
180 ShowMessage("More", msg, MSG(MSG_OK));
181 } else {
182 Printf("More: %s\n", msg);
183 }
184 rc = RETURN_WARN;
185 } else {
186 rc = RETURN_OK;
187 }
188
189 CleanupRequesters();
190
191 KillMenus();
192
193 if (appwindow)
194 {
195 RemoveAppWindow(appwindow);
196 }
197 if (msgport)
198 {
199 DeleteMsgPort(msgport);
200 }
201
202 if (win)
203 {
204 for(i = 0; i < NUM_GADGETS;i++)
205 {
206 if (gad[i]) RemoveGadget(win, gad[i]);
207 }
208
209 CloseWindow(win);
210 }
211
212 for(i = 0; i < NUM_GADGETS;i++)
213 {
214 if (gad[i]) DisposeObject(gad[i]);
215 }
216 for(i = 0; i < NUM_IMAGES;i++)
217 {
218 if (img[i]) DisposeObject(img[i]);
219 }
220
221 if (vi) FreeVisualInfo(vi);
222 if (dri) FreeScreenDrawInfo(scr, dri);
223 if (scr) UnlockPubScreen(0, scr);
224
225 if (linearray) FreeVec(linearray);
226 if (filebuffer) FreeVec(filebuffer);
227
228 if (fh) Close(fh);
229
230 if (oldlock != (BPTR)-1) CurrentDir(oldlock);
231
232 if (GadToolsBase) CloseLibrary(GadToolsBase);
233 if (GfxBase) CloseLibrary((struct Library *)GfxBase);
234 if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
235
236 if (MyArgs) FreeArgs(MyArgs);
237 CleanupLocale();
238
239 longjmp(exit_buf, rc);
240 }
241
242 /****************************************************************************************/
243
244 static void DosError(void)
245 {
246 Fault(IoErr(), 0, s, 255);
247 if (in_main_loop)
248 {
249 ShowMessage("More", s, MSG(MSG_OK));
250 } else {
251 Cleanup(s);
252 }
253 }
254
255 /****************************************************************************************/
256
257 static void GetArguments(int argc, char **argv)
258 {
259 if (argc)
260 {
261 if (!(MyArgs = ReadArgs(ARG_TEMPLATE, Args, 0)))
262 {
263 DosError();
264 }
265
266 filename = (char *)Args[ARG_FILE];
267 }
268 else
269 {
270 struct WBStartup *startup = (struct WBStartup *) argv;
271 if (startup->sm_NumArgs > 1)
272 {
273 parentlock = startup->sm_ArgList[1].wa_Lock;
274 filename = startup->sm_ArgList[1].wa_Name;
275 if ((parentlock == BNULL) || (filename == NULL))
276 Cleanup(NULL);
277
278 oldlock = CurrentDir(parentlock);
279 }
280
281 }
282 if (!filename) filename = GetFile(TRUE);
283 if (!filename) Cleanup(NULL);
284
285 strncpy(filenamebuffer, filename, 299);
286
287 }
288
289 /****************************************************************************************/
290
291 static void OpenLibs(void)
292 {
293 if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 39)))
294 {
295 __sprintf(s, MSG(MSG_CANT_OPEN_LIB), "intuition.library", 39);
296 Cleanup(s);
297 }
298
299 if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 39)))
300 {
301 __sprintf(s, MSG(MSG_CANT_OPEN_LIB), "graphics.library", 39);
302 Cleanup(s);
303 }
304
305 if (!(GadToolsBase = OpenLibrary("gadtools.library", 39)))
306 {
307 __sprintf(s, MSG(MSG_CANT_OPEN_LIB), "gadtools.library", 39);
308 Cleanup(s);
309 }
310 }
311
312 /****************************************************************************************/
313
314 static UWORD CalcTextLen(char *text)
315 {
316 char c;
317 UWORD rc = 0;
318
319 while((c = *text++))
320 {
321 if (c == '\t')
322 {
323 rc += tabsize;
324 } else {
325 rc++;
326 }
327 }
328
329 if (rc > MAX_TEXTLINELEN) rc = MAX_TEXTLINELEN;
330
331 return rc;
332 }
333
334 /****************************************************************************************/
335
336 static BOOL OpenFile(void)
337 {
338 struct LineNode *new_linearray;
339 UBYTE *new_filebuffer;
340 LONG new_filelen;
341 LONG new_num_lines;
342
343 struct LineNode *linepos;
344 UBYTE *filepos;
345 LONG flen, act_line;
346
347 BOOL seekable;
348
349 if (!(fh = Open(filename, MODE_OLDFILE)))
350 {
351 DosError();
352 return FALSE;
353 }
354
355 if (Seek(fh, 0, OFFSET_END) >= 0) {
356 new_filelen = Seek(fh, 0, OFFSET_BEGINNING);
357 seekable = TRUE;
358 }
359 else {
360 new_filelen = 0x10000;
361 seekable = FALSE;
362 }
363
364 if (new_filelen < 0)
365 {
366 Close(fh); fh = 0;
367 DosError();
368 return FALSE;
369 }
370
371 if (!(new_filebuffer = AllocVec(new_filelen + 1, MEMF_PUBLIC)))
372 {
373 Close(fh); fh = 0;
374 if (in_main_loop)
375 {
376 ShowMessage("More", MSG(MSG_NO_MEM), MSG(MSG_OK));
377 return FALSE;
378 }
379 Cleanup(MSG(MSG_NO_MEM));
380 }
381
382 if ((flen=Read(fh, new_filebuffer, new_filelen)) != new_filelen && seekable)
383 {
384 FreeVec(new_filebuffer);
385 Close(fh); fh = 0;
386 DosError();
387 return FALSE;
388 }
389
390 new_filelen = flen;
391 new_filebuffer[new_filelen] = '\0';
392
393 Close(fh);fh = 0;
394
395 filepos = new_filebuffer;
396
397 new_num_lines = 1;
398
399 while(flen--)
400 {
401 if (*filepos++ == '\n') new_num_lines++;
402 }
403
404 new_linearray = AllocVec(new_num_lines * sizeof(struct LineNode), MEMF_PUBLIC | MEMF_CLEAR);
405 if (!new_linearray)
406 {
407 FreeVec(new_filebuffer);
408 if (in_main_loop)
409 {
410 ShowMessage("More", MSG(MSG_NO_MEM), MSG(MSG_OK));
411 return FALSE;
412 }
413 Cleanup(MSG(MSG_NO_MEM));
414 }
415
416 linepos = new_linearray;
417 filepos = new_filebuffer;
418
419 act_line = 1;
420 max_textlen = 0;
421 while(act_line <= new_num_lines)
422 {
423 linepos->text = (char *)filepos;
424
425 while ((*filepos != '\n') && (*filepos != '\0'))
426 {
427 linepos->stringlen++; filepos++;
428 }
429
430 *filepos++ = '\0';
431
432 linepos->textlen = CalcTextLen(linepos->text);
433 if (linepos->textlen > max_textlen) max_textlen = linepos->textlen;
434
435 linepos++; act_line++;
436 }
437
438 if (filebuffer) FreeVec(filebuffer);
439 if (linearray) FreeVec(linearray);
440
441 filebuffer = new_filebuffer;
442 filelen = new_filelen;
443 linearray = new_linearray;
444 num_lines = new_num_lines;
445
446 return TRUE;
447 }
448
449 /****************************************************************************************/
450
451 static void GetVisual(void)
452 {
453 if (!(scr = LockPubScreen(0)))
454 {
455 Cleanup(MSG(MSG_CANT_LOCK_SCR));
456 }
457
458 if (!(dri = GetScreenDrawInfo(scr)))
459 {
460 Cleanup(MSG(MSG_CANT_GET_DRI));
461 }
462
463 if (!(vi = GetVisualInfoA(scr, 0)))
464 {
465 Cleanup(MSG(MSG_CANT_GET_VI));
466 }
467
468 shinepen = dri->dri_Pens[SHINEPEN];
469 shadowpen = dri->dri_Pens[SHADOWPEN];
470 textpen = dri->dri_Pens[TEXTPEN];
471 bgpen = dri->dri_Pens[BACKGROUNDPEN];
472 }
473
474 /****************************************************************************************/
475
476 static void MakeGadgets(void)
477 {
478 static WORD img2which[] =
479 {
480 UPIMAGE,
481 DOWNIMAGE,
482 LEFTIMAGE,
483 RIGHTIMAGE,
484 SIZEIMAGE
485 };
486
487 IPTR imagew[NUM_IMAGES], imageh[NUM_IMAGES];
488 WORD v_offset, h_offset, btop, i;
489
490 for(i = 0;i < NUM_IMAGES;i++)
491 {
492 img[i] = NewObject(0, SYSICLASS, SYSIA_DrawInfo , (Tag) dri,
493 SYSIA_Which , (Tag) img2which[i],
494 TAG_DONE);
495
496 if (!img[i]) Cleanup(MSG(MSG_CANT_CREATE_SYSIMAGE));
497
498 GetAttr(IA_Width, (Object *)img[i], &imagew[i]);
499 GetAttr(IA_Height, (Object *)img[i], &imageh[i]);
500 }
501
502 btop = scr->WBorTop + dri->dri_Font->tf_YSize + 1;
503
504 v_offset = imagew[IMG_DOWNARROW] / 4;
505 h_offset = imageh[IMG_LEFTARROW] / 4;
506
507 firstgadget =
508 gad[GAD_UPARROW] = NewObject(0, BUTTONGCLASS, GA_Image , (Tag)img[IMG_UPARROW] ,
509 GA_RelRight , -imagew[IMG_UPARROW] + 1 ,
510 GA_RelBottom , -imageh[IMG_DOWNARROW] - imageh[IMG_UPARROW] - imageh[IMG_SIZE] + 1 ,
511 GA_ID , GAD_UPARROW ,
512 GA_RightBorder, TRUE ,
513 GA_Immediate , TRUE ,
514 GA_RelVerify , TRUE ,
515 TAG_DONE);
516
517 gad[GAD_DOWNARROW] = NewObject(0, BUTTONGCLASS, GA_Image , (Tag)img[IMG_DOWNARROW] ,
518 GA_RelRight , -imagew[IMG_UPARROW] + 1 ,
519 GA_RelBottom , -imageh[IMG_UPARROW] - imageh[IMG_SIZE] + 1 ,
520 GA_ID , GAD_DOWNARROW ,
521 GA_RightBorder , TRUE ,
522 GA_Previous , (Tag)gad[GAD_UPARROW] ,
523 GA_Immediate , TRUE ,
524 GA_RelVerify , TRUE ,
525 TAG_DONE);
526
527 gad[GAD_VERTSCROLL] = NewObject(0, PROPGCLASS, GA_Top , btop + 1 ,
528 GA_RelRight , -imagew[IMG_DOWNARROW] + v_offset + 1 ,
529 GA_Width , imagew[IMG_DOWNARROW] - v_offset * 2 ,
530 GA_RelHeight , -imageh[IMG_DOWNARROW] - imageh[IMG_UPARROW] - imageh[IMG_SIZE] - btop -2 ,
531 GA_ID , GAD_VERTSCROLL ,
532 GA_Previous , (Tag)gad[GAD_DOWNARROW] ,
533 GA_RightBorder , TRUE ,
534 GA_RelVerify , TRUE ,
535 GA_Immediate , TRUE ,
536 PGA_NewLook , TRUE ,
537 PGA_Borderless , TRUE ,
538 PGA_Total , 100 ,
539 PGA_Visible , 100 ,
540 PGA_Freedom , FREEVERT ,
541 TAG_DONE);
542
543 gad[GAD_RIGHTARROW] = NewObject(0, BUTTONGCLASS, GA_Image , (Tag)img[IMG_RIGHTARROW] ,
544 GA_RelRight , -imagew[IMG_SIZE] - imagew[IMG_RIGHTARROW] + 1,
545 GA_RelBottom , -imageh[IMG_RIGHTARROW] + 1 ,
546 GA_ID , GAD_RIGHTARROW ,
547 GA_BottomBorder , TRUE ,
548 GA_Previous , (Tag)gad[GAD_VERTSCROLL] ,
549 GA_Immediate , TRUE ,
550 GA_RelVerify , TRUE ,
551 TAG_DONE);
552
553 gad[GAD_LEFTARROW] = NewObject(0, BUTTONGCLASS, GA_Image , (Tag)img[IMG_LEFTARROW] ,
554 GA_RelRight , -imagew[IMG_SIZE] - imagew[IMG_RIGHTARROW] - imagew[IMG_LEFTARROW] + 1,
555 GA_RelBottom , -imageh[IMG_RIGHTARROW] + 1 ,
556 GA_ID , GAD_LEFTARROW ,
557 GA_BottomBorder , TRUE ,
558 GA_Previous , (Tag)gad[GAD_RIGHTARROW] ,
559 GA_Immediate , TRUE ,
560 GA_RelVerify , TRUE ,
561 TAG_DONE);
562
563 gad[GAD_HORIZSCROLL] = NewObject(0, PROPGCLASS, GA_Left , scr->WBorLeft,
564 GA_RelBottom , -imageh[IMG_LEFTARROW] + h_offset + 1 ,
565 GA_RelWidth , -imagew[IMG_LEFTARROW] - imagew[IMG_RIGHTARROW] - imagew[IMG_SIZE] - scr->WBorRight - 2,
566 GA_Height , imageh[IMG_LEFTARROW] - (h_offset * 2) ,
567 GA_ID , GAD_HORIZSCROLL ,
568 GA_Previous , (Tag)gad[GAD_LEFTARROW] ,
569 GA_BottomBorder , TRUE ,
570 GA_RelVerify , TRUE ,
571 GA_Immediate , TRUE ,
572 PGA_NewLook , TRUE ,
573 PGA_Borderless , TRUE ,
574 PGA_Total , 100 ,
575 PGA_Visible , 100 ,
576 PGA_Freedom , FREEHORIZ ,
577 TAG_DONE);
578
579 for(i = 0;i < NUM_GADGETS;i++)
580 {
581 if (!gad[i]) Cleanup(MSG(MSG_CANT_CREATE_GADGET));
582 }
583 }
584
585 /****************************************************************************************/
586
587 static void CalcVisible(void)
588 {
589 visiblex = (win->Width - borderleft - borderright -
590 INNER_SPACING_X * 2) / fontwidth;
591
592 visibley = (win->Height - bordertop - borderbottom -
593 INNER_SPACING_Y * 2) / fontheight;
594
595 if (visiblex < 1) visiblex = 1;
596 if (visibley < 1) visibley = 1;
597
598 textendx = textstartx + visiblex * fontwidth - 1;
599 textendy = textstarty + visibley * fontheight - 1;
600
601 textwidth = textendx - textstartx + 1;
602 textheight = textendy - textstarty + 1;
603 }
604
605 /****************************************************************************************/
606
607 static void MySetAPen(struct RastPort *rp, LONG reg)
608 {
609 static LONG oldreg = -1;
610
611 if (reg != oldreg)
612 {
613 oldreg = reg;
614 SetAPen(rp, reg);
615 }
616 }
617
618 /****************************************************************************************/
619
620 static void MySetBPen(struct RastPort *rp, LONG reg)
621 {
622 static LONG oldreg = -1;
623
624 if (reg != oldreg)
625 {
626 oldreg = reg;
627 SetBPen(rp, reg);
628 }
629 }
630
631 /****************************************************************************************/
632
633 static void DrawTextLine(WORD viewline, WORD columns, BOOL clearright)
634 {
635 static char tempstring[MAX_TEXTLINELEN + 1];
636 static char c, *stringpos, *text;
637 LONG realline = viewline + viewstarty;
638 WORD textlen, i = 0, t, x;
639 BOOL inverted;
640
641 /* column < 0 means draw only first -column chars
642 **
643 ** column > 0 means draw only last column chars
644 **
645 ** column = 0 means draw whole line
646 */
647
648 if (columns != 0)
649 {
650 clearright = FALSE; /* because already cleared by ScrollRaster */
651 }
652
653 if ((viewline >= 0) && (viewline < visibley) &&
654 (realline >= 0) && (realline < num_lines))
655 {
656 inverted = linearray[realline].invert;
657
658 text = linearray[realline].text;
659 textlen = linearray[realline].textlen;
660
661 stringpos = tempstring;
662
663 while((c = *text++) && (i < textlen))
664 {
665 if (c == '\t')
666 {
667 for(t = 0; (t < tabsize) && (i < textlen);t++)
668 {
669 *stringpos++ = ' ';
670 i++;
671 }
672 } else {
673 *stringpos++ = c;
674 i++;
675 }
676 } /* while((c = *text++) && (i < textlen)) */
677
678 stringpos = tempstring + viewstartx;
679 i -= viewstartx;
680
681 if (i < 0)
682 {
683 i = 0;
684 } else {
685 if (i > visiblex) i = visiblex;
686
687 x = textstartx;
688 if (columns < 0)
689 {
690 if (i > (-columns)) i = (-columns);
691 } else if (columns > 0) {
692 x = textstartx + (visiblex - columns) * fontwidth;
693 stringpos += (visiblex - columns);
694 i -= (visiblex - columns);
695 }
696
697 if (i > 0)
698 {
699 MySetAPen(rp, textpen);
700 MySetBPen(rp, inverted ? shinepen : bgpen);
701
702 Move(rp, x,
703 textstarty + (viewline * fontheight) + fontbaseline);
704
705 Text(rp, stringpos, i);
706 }
707 }
708
709 } /* if ((realline >= 0) && (realline < num_lines)) */
710
711 if ((i < visiblex) && clearright)
712 {
713 MySetAPen(rp, bgpen);
714 RectFill(rp, textstartx + (i * fontwidth),
715 textstarty + (viewline * fontheight),
716 textendx,
717 textstarty + (viewline * fontheight) + fontheight - 1);
718 }
719 }
720
721 /****************************************************************************************/
722
723 static void DrawAllText(void)
724 {
725 WORD y;
726
727 for(y = 0;y < visibley;y++)
728 {
729 DrawTextLine(y, 0, TRUE);
730 }
731 }
732
733 /****************************************************************************************/
734
735 static void SetWinTitle(void)
736 {
737 static UBYTE wintitle[256];
738 BPTR lock;
739
740 strcpy(s, filename);
741 if ((lock = Lock(filename, SHARED_LOCK)))
742 {
743 NameFromLock(lock, s, 255);
744 UnLock(lock);
745 }
746 __sprintf(wintitle, MSG(MSG_WIN_TITLE), s, num_lines, filelen);
747
748 SetWindowTitles(win, wintitle, (UBYTE *)~0L);
749 }
750
751 /****************************************************************************************/
752
753 static void HandleFileChange(void)
754 {
755 strncpy(filenamebuffer, filename, 299);
756 SetWinTitle();
757 MySetAPen(rp, bgpen);
758 RectFill(rp, textstartx, textstarty, textendx, textendy);
759
760 CalcVisible();
761
762 viewstartx = viewstarty = 0;
763
764 SetGadgetAttrs(gad[GAD_HORIZSCROLL], win, 0, PGA_Top , viewstartx ,
765 PGA_Visible, visiblex ,
766 PGA_Total , max_textlen ,
767 TAG_DONE);
768
769 SetGadgetAttrs(gad[GAD_VERTSCROLL], win, 0, PGA_Top , viewstarty ,
770 PGA_Visible , visibley ,
771 PGA_Total , num_lines ,
772 TAG_DONE);
773 DrawAllText();
774
775 }
776
777 /****************************************************************************************/
778
779 static void MakeWin(void)
780 {
781 if (!(win = OpenWindowTags(NULL, WA_PubScreen , (IPTR)scr ,
782 WA_Left , 0 ,
783 WA_Top , scr->BarHeight + 1 ,
784 WA_Width , 640 ,
785 WA_Height , 480 ,
786 WA_AutoAdjust , TRUE ,
787 USE_SIMPLEREFRESH ?
788 WA_SimpleRefresh :
789 TAG_IGNORE , TRUE ,
790 WA_CloseGadget , TRUE ,
791 WA_DepthGadget , TRUE ,
792 WA_DragBar , TRUE ,
793 WA_SizeGadget , TRUE ,
794 WA_SizeBBottom , TRUE ,
795 WA_SizeBRight , TRUE ,
796 WA_Activate , TRUE ,
797 WA_Gadgets , (IPTR)firstgadget ,
798 WA_MinWidth , 100 ,
799 WA_MinHeight , 100 ,
800 WA_MaxWidth , scr->Width ,
801 WA_MaxHeight , scr->Height ,
802 WA_ReportMouse , TRUE ,
803 WA_NewLookMenus , TRUE ,
804 WA_IDCMP , IDCMP_CLOSEWINDOW |
805 IDCMP_NEWSIZE |
806 IDCMP_GADGETDOWN |
807 IDCMP_GADGETUP |
808 IDCMP_MOUSEMOVE |
809 IDCMP_VANILLAKEY |
810 IDCMP_INTUITICKS |
811 (USE_SIMPLEREFRESH != 0) * IDCMP_REFRESHWINDOW |
812 IDCMP_RAWKEY |
813 IDCMP_MENUPICK ,
814 TAG_DONE)))
815 {
816 Cleanup(MSG(MSG_CANT_CREATE_WIN));
817 }
818
819 SetWinTitle();
820
821 winmask = 1L << win->UserPort->mp_SigBit;
822
823 if (!(msgport = CreateMsgPort()))
824 {
825 Cleanup(MSG(MSG_CANT_CREATE_MSGPORT));
826 }
827 if (!(appwindow = AddAppWindow(0,0,win,msgport,NULL)))
828 {
829 Cleanup(MSG(MSG_CANT_ADD_APPWINDOW));
830 }
831 msgmask = 1L << msgport->mp_SigBit;
832
833 winwidth = win->Width;
834 winheight = win->Height;
835
836 rp = win->RPort;
837
838 SetDrMd(rp, JAM2);
839
840 #ifdef USE_WRITEMASK
841 SetWriteMask(rp, 0x3);
842 #endif
843
844 fontwidth = rp->TxWidth;
845 fontheight = rp->TxHeight;
846 fontbaseline = rp->TxBaseline;
847
848 borderleft = win->BorderLeft;
849 bordertop = win->BorderTop;
850 borderright = win->BorderRight;
851 borderbottom = win->BorderBottom;
852
853 textstartx = borderleft + INNER_SPACING_X;
854 textstarty = bordertop + INNER_SPACING_Y;
855
856 CalcVisible();
857
858 SetGadgetAttrs(gad[GAD_HORIZSCROLL], win, 0, PGA_Top , 0 ,
859 PGA_Total , max_textlen ,
860 PGA_Visible , visiblex ,
861 TAG_DONE);
862
863 SetGadgetAttrs(gad[GAD_VERTSCROLL], win, 0, PGA_Top , 0 ,
864 PGA_Total , num_lines ,
865 PGA_Visible , visibley ,
866 TAG_DONE);
867
868 DrawAllText();
869
870 SetMenuStrip(win, menus);
871 }
872
873 /****************************************************************************************/
874
875 static void NewWinSize(void)
876 {
877 WORD new_winwidth, new_winheight;
878
879 new_winwidth = win->Width;
880 new_winheight = win->Height;
881
882 CalcVisible();
883
884 if ((viewstartx + visiblex) > max_textlen)
885 {
886 viewstartx = max_textlen - visiblex;
887 if (viewstartx < 0) viewstartx = 0;
888 }
889
890 if ((viewstarty + visibley) > num_lines)
891 {
892 viewstarty = num_lines - visibley;
893 if (viewstarty < 0) viewstarty = 0;
894 }
895
896 SetGadgetAttrs(gad[GAD_HORIZSCROLL], win, 0, PGA_Top , viewstartx ,
897 PGA_Visible , visiblex ,
898 TAG_DONE);
899
900 SetGadgetAttrs(gad[GAD_VERTSCROLL], win, 0, PGA_Top , viewstarty ,
901 PGA_Visible , visibley ,
902 TAG_DONE);
903
904 if (new_winwidth < winwidth)
905 {
906 MySetAPen(rp, bgpen);
907 RectFill(rp, textendx + 1,
908 bordertop + INNER_SPACING_Y,
909 new_winwidth - borderright - 1,
910 new_winheight - borderbottom - 1);
911 }
912
913 if (new_winheight < winheight)
914 {
915 MySetAPen(rp, bgpen);
916 RectFill(rp, borderleft + INNER_SPACING_X,
917 textendy + 1,
918 new_winwidth - borderright - 1,
919 new_winheight - borderbottom - 1);
920 }
921
922 if ((new_winwidth > winwidth) ||
923 (new_winheight > winheight))
924 {
925 DrawAllText();
926 }
927
928 winwidth = new_winwidth;
929 winheight = new_winheight;
930 }
931
932 /****************************************************************************************/
933
934 #ifdef USE_SIMPLEREFRESH
935
936 /****************************************************************************************/
937
938 static void RefreshAll(void)
939 {
940 DrawAllText();
941 }
942
943 /****************************************************************************************/
944
945 static void HandleRefresh(void)
946 {
947 BeginRefresh(win);
948 RefreshAll();
949 EndRefresh(win, TRUE);
950 }
951
952 /****************************************************************************************/
953
954 #endif /* USE_SIMPLEREFRESH */
955
956 /****************************************************************************************/
957
958 static void ScrollTo(WORD gadid, LONG top, BOOL refreshprop)
959 {
960 LONG y, dx, dy;
961
962 MySetBPen(rp, bgpen);
963
964 switch(gadid)
965 {
966 case GAD_VERTSCROLL:
967 if (top + visibley > num_lines)
968 {
969 top = num_lines - visibley;
970 }
971 if (top < 0) top = 0;
972
973 if (top != viewstarty )
974 {
975 dy = top - viewstarty;
976 viewstarty = top;
977
978 if (refreshprop)
979 {
980 SetGadgetAttrs(gad[gadid], win, 0, PGA_Top , viewstarty,
981 TAG_DONE);
982 }
983
984 if (abs(dy) >= visibley)
985 {
986 DrawAllText();
987 } else {
988 if (dy > 0)
989 {
990
991 #ifdef USE_SIMPLEREFRESH
992 ScrollRaster(rp,
993 0,
994 fontheight * dy,
995 textstartx,
996 textstarty,
997 textendx,
998 textendy);
999
1000 if (rp->Layer->Flags & LAYERREFRESH)
1001 {
1002 HandleRefresh();
1003 }
1004 #else
1005 ClipBlit(rp, textstartx,
1006 textstarty + dy * fontheight,
1007 rp, textstartx,
1008 textstarty,
1009 textwidth,
1010 textheight - dy * fontheight,
1011 192);
1012 #endif
1013
1014 for (y = visibley - dy;y < visibley;y++)
1015 {
1016 DrawTextLine(y, 0, TRUE);
1017 }
1018 } else {
1019 dy = -dy;
1020
1021 #ifdef USE_SIMPLEREFRESH
1022 ScrollRaster(rp,
1023 0,
1024 -fontheight * dy,
1025 textstartx,
1026 textstarty,
1027 textendx,
1028 textendy);
1029
1030 if (rp->Layer->Flags & LAYERREFRESH)
1031 {
1032 HandleRefresh();
1033 }
1034
1035 #else
1036 ClipBlit(rp, textstartx,
1037 textstarty,
1038 rp, textstartx,
1039 textstarty + dy * fontheight,
1040 textwidth,
1041 textheight - dy * fontheight,
1042 192);
1043 #endif
1044 for (y = 0;y < dy;y++)
1045 {
1046 DrawTextLine(y, 0, TRUE);
1047 }
1048 }
1049 }
1050
1051 } /* if (top != viewstarty ) */
1052 break;
1053
1054 case GAD_HORIZSCROLL:
1055 if (top + visiblex > max_textlen)
1056 {
1057 top = max_textlen - visiblex;
1058 }
1059 if (top < 0) top = 0;
1060
1061 if (top != viewstartx )
1062 {
1063 dx = top - viewstartx;
1064 viewstartx = top;
1065
1066 if (refreshprop)
1067 {
1068 SetGadgetAttrs(gad[gadid], win, 0, PGA_Top , viewstartx,
1069 TAG_DONE);
1070 }
1071
1072 if (abs(dx) >= visiblex)
1073 {
1074 DrawAllText();
1075 } else {
1076 if (dx > 0)
1077 {
1078
1079 #ifdef USE_SIMPLEREFRESH
1080 ScrollRaster(rp,
1081 fontwidth * dx,
1082 0,
1083 textstartx,
1084 textstarty,
1085 textendx,
1086 textendy);
1087
1088 if (rp->Layer->Flags & LAYERREFRESH)
1089 {
1090 HandleRefresh();
1091 }
1092 #else
1093 ClipBlit(rp, textstartx + dx * fontwidth,
1094 textstarty,
1095 rp, textstartx,
1096 textstarty,
1097 textwidth - dx * fontwidth,
1098 textheight,
1099 192);
1100 #endif
1101 for (y = 0;y < visibley;y++)
1102 {
1103 DrawTextLine(y, dx, TRUE);
1104 }
1105
1106 } else {
1107 dx = -dx;
1108
1109 #ifdef USE_SIMPLEREFRESH
1110 ScrollRaster(rp,
1111 -fontwidth * dx,
1112 0,
1113 textstartx,
1114 textstarty,
1115 textendx,
1116 textendy);
1117
1118 if (rp->Layer->Flags & LAYERREFRESH)
1119 {
1120 HandleRefresh();
1121 }
1122
1123 #else
1124 ClipBlit(rp, textstartx,
1125 textstarty,
1126 rp, textstartx + dx * fontwidth,
1127 textstarty,
1128 textwidth - dx * fontwidth,
1129 textheight,
1130 192);
1131 #endif
1132 for (y = 0;y < visibley;y++)
1133 {
1134 DrawTextLine(y, -dx, TRUE);
1135 }
1136 }
1137 }
1138
1139 } /* if (top != viewstartx ) */
1140 break;
1141
1142 } /* switch(gadid) */
1143
1144 }
1145
1146 /****************************************************************************************/
1147
1148 static void HandleScrollGadget(WORD gadid)
1149 {
1150 struct IntuiMessage *msg;
1151 IPTR top;
1152 BOOL ok=FALSE;
1153
1154 while (!ok)
1155 {
1156 WaitPort(win->UserPort);
1157 while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
1158 {
1159 switch (msg->Class)
1160 {
1161 case IDCMP_GADGETUP:
1162 ok=TRUE;
1163 /* fall through */
1164
1165 case IDCMP_MOUSEMOVE:
1166 GetAttr(PGA_Top, (Object *)gad[gadid], &top);
1167 ScrollTo(gadid, top, FALSE);
1168 break;
1169
1170 #ifdef USE_SIMPLEREFRESH
1171 case IDCMP_REFRESHWINDOW:
1172 HandleRefresh();
1173 break;
1174 #endif
1175
1176 } /* switch (msg->Class) */
1177 ReplyMsg((struct Message *)msg);
1178
1179 } /* while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort))) */
1180
1181 } /* while (!ok) */
1182 }
1183
1184 /****************************************************************************************/
1185
1186 static BOOL FindString(struct LineNode *ln, char *search, LONG searchlen)
1187 {
1188 char *text = ln->text;
1189 LONG textlen = ln->stringlen;
1190 LONG i;
1191 BOOL rc = FALSE;
1192
1193 textlen -= searchlen;
1194
1195 while(textlen >= 0)
1196 {
1197 for(i = 0;i < searchlen;i++)
1198 {
1199 if (ToUpper(text[i]) != ToUpper(search[i])) break;
1200 }
1201
1202 if (i == searchlen)
1203 {
1204 rc = TRUE;
1205 break;
1206 }
1207 text++;textlen--;
1208 }
1209
1210 return rc;
1211 }
1212
1213 /****************************************************************************************/
1214
1215 static void DoSearch(WORD kind)
1216 {
1217 LONG line, searchlen;
1218 BOOL done = FALSE;
1219
1220 if (!searchtext) return;
1221
1222 searchlen = strlen(searchtext);
1223 if (searchlen == 0) return;
1224
1225 line = search_startline;
1226
1227 if (kind == SEARCH_NEXT && line < num_lines - 1)
1228 line++;
1229 else if (kind == SEARCH_PREV && line > 0)
1230 line--;
1231
1232 if (kind == SEARCH_NEW)
1233 {
1234 line = 0;
1235 kind = SEARCH_NEXT;
1236 }
1237
1238 while(!done)
1239 {
1240 if (FindString(&linearray[line], searchtext, searchlen))
1241 {
1242 done = TRUE;
1243 if (found_line >= 0)
1244 {
1245 linearray[found_line].invert = FALSE;
1246 DrawTextLine(found_line - viewstarty, 0, TRUE);
1247 }
1248
1249 ScrollTo(GAD_VERTSCROLL, line - visibley / 2, TRUE);
1250
1251 found_line = line;
1252 search_startline = line;
1253 linearray[found_line].invert = TRUE;
1254 DrawTextLine(found_line - viewstarty, 0, TRUE);
1255 }
1256
1257 if (kind == SEARCH_NEXT)
1258 {
1259 line++;
1260 if (line >= num_lines)
1261 {
1262 done = TRUE;
1263 DisplayBeep(NULL);
1264 }
1265 } else {
1266 line--;
1267 if (line < 0)
1268 {
1269 done = TRUE;
1270 DisplayBeep(NULL);
1271 }
1272 }
1273
1274 } /* while(!done) */
1275
1276 }
1277
1278 /****************************************************************************************/
1279
1280 static BOOL HandleWin(void)
1281 {
1282 struct IntuiMessage *msg;
1283 struct MenuItem *item;
1284 WORD gadid, delta;
1285 UWORD men, code;
1286 UBYTE key;
1287 BOOL pagescroll, maxscroll, quitme = FALSE;
1288 TEXT editorvarbuffer[300];
1289 struct AppMessage *appmsg;
1290 //struct WBArg *argptr;
1291
1292 while ((appmsg = (struct AppMessage *) GetMsg(msgport)))
1293 {
1294 if (appmsg->am_Type == AMTYPE_APPWINDOW)
1295 {
1296 if (appmsg->am_NumArgs >= 1)
1297 {
1298 NameFromLock(appmsg->am_ArgList->wa_Lock, filenamebuffer, 299);
1299 AddPart(filenamebuffer, appmsg->am_ArgList->wa_Name, 299);
1300 filename = filenamebuffer;
1301 D(bug("[More] appwindow received message: filename = %s\n", filename));
1302 }
1303 }
1304
1305 ReplyMsg ((struct Message *) appmsg);
1306 ActivateWindow(win);
1307
1308 if (OpenFile())
1309 HandleFileChange();
1310
1311 } /* while ((appmsg = (struct AppMessage *) GetMsg(msgport))) */
1312
1313 while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
1314 {
1315 switch(msg->Class)
1316 {
1317 case IDCMP_CLOSEWINDOW:
1318 quitme = TRUE;
1319 break;
1320
1321 case IDCMP_NEWSIZE:
1322 NewWinSize();
1323 break;
1324
1325 #ifdef USE_SIMPLEREFRESH
1326 case IDCMP_REFRESHWINDOW:
1327 HandleRefresh();
1328 break;
1329 #endif
1330 case IDCMP_GADGETDOWN:
1331 gadid = ((struct Gadget *)msg->IAddress)->GadgetID;
1332 arrowticker = 3;
1333
1334 switch(gadid)
1335 {
1336 case GAD_HORIZSCROLL:
1337 case GAD_VERTSCROLL:
1338 HandleScrollGadget(gadid);
1339 break;
1340
1341 case GAD_UPARROW:
1342 activearrowgad = (struct Gadget *)msg->IAddress;
1343 ScrollTo(GAD_VERTSCROLL, viewstarty - 1, TRUE);
1344 break;
1345
1346 case GAD_DOWNARROW:
1347 activearrowgad = (struct Gadget *)msg->IAddress;
1348 ScrollTo(GAD_VERTSCROLL, viewstarty + 1, TRUE);
1349 break;
1350
1351 case GAD_LEFTARROW:
1352 activearrowgad = (struct Gadget *)msg->IAddress;
1353 ScrollTo(GAD_HORIZSCROLL, viewstartx - 1, TRUE);
1354 break;
1355
1356 case GAD_RIGHTARROW:
1357 activearrowgad = (struct Gadget *)msg->IAddress;
1358 ScrollTo(GAD_HORIZSCROLL, viewstartx + 1, TRUE);
1359 break;
1360 };
1361 break;
1362
1363 case IDCMP_INTUITICKS:
1364 if (activearrowgad)
1365 {
1366 if (arrowticker)
1367 {
1368 arrowticker--;
1369 }
1370 else if (activearrowgad->Flags & GFLG_SELECTED)
1371 {
1372 switch(activearrowgad->GadgetID)
1373 {
1374 case GAD_UPARROW:
1375 ScrollTo(GAD_VERTSCROLL, viewstarty - 1, TRUE);
1376 break;
1377
1378 case GAD_DOWNARROW:
1379 ScrollTo(GAD_VERTSCROLL, viewstarty + 1, TRUE);
1380 break;
1381
1382 case GAD_LEFTARROW:
1383 ScrollTo(GAD_HORIZSCROLL, viewstartx - 1, TRUE);
1384 break;
1385
1386 case GAD_RIGHTARROW:
1387 ScrollTo(GAD_HORIZSCROLL, viewstartx + 1, TRUE);
1388 break;
1389 }
1390 }
1391 }
1392 break;
1393
1394 case IDCMP_GADGETUP:
1395 activearrowgad = NULL;
1396 break;
1397
1398 case IDCMP_VANILLAKEY:
1399 key = ToUpper(msg->Code);
1400 if (key == 27)
1401 {
1402 quitme = TRUE;
1403 }
1404 else if (key == 8 || (key == ' ' && (0 != (msg->Qualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT)))))
1405 {
1406 ScrollTo(GAD_VERTSCROLL, viewstarty - (visibley - 1), TRUE);
1407 }
1408 else if (key == ' ')
1409 {
1410 ScrollTo(GAD_VERTSCROLL, viewstarty + visibley - 1, TRUE);
1411 }
1412 else if (key == 13)
1413 {
1414 ScrollTo(GAD_VERTSCROLL, viewstarty + 1, TRUE);
1415 }
1416 else if (strchr(MSG(MSG_SHORTCUT_TOP), key))
1417 {
1418 ScrollTo(GAD_VERTSCROLL, 0, TRUE);
1419 }
1420 else if (strchr(MSG(MSG_SHORTCUT_BOTTOM), key))
1421 {
1422 ScrollTo(GAD_VERTSCROLL, num_lines, TRUE);
1423 }
1424 else if (strchr(MSG(MSG_SHORTCUT_JUMP), key))
1425 {
1426 Make_Goto_Requester();
1427 }
1428 else if (strchr(MSG(MSG_SHORTCUT_FIND), key))
1429 {
1430 Make_Find_Requester();
1431 }
1432 else if (strchr(MSG(MSG_SHORTCUT_NEXT), key))
1433 {
1434 DoSearch(SEARCH_NEXT);
1435 }
1436 else if (strchr(MSG(MSG_SHORTCUT_PREV), key))
1437 {
1438 DoSearch(SEARCH_PREV);
1439 }
1440 else if (strchr(MSG(MSG_SHORTCUT_EDITOR), key))
1441 {
1442 if ( (GetVar("editor", editorvarbuffer, 299, GVF_GLOBAL_ONLY)) != -1L )
1443 {
1444 __sprintf(s, "Run QUIET \"%s\" \"%s\"", editorvarbuffer, filenamebuffer );
1445 if (SystemTags(s, TAG_END))
1446 DisplayBeep(NULL);
1447 }
1448 }
1449 break;
1450
1451 case IDCMP_RAWKEY:
1452 pagescroll = (0 != (msg->Qualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT)));
1453 maxscroll = (0 != (msg->Qualifier & (IEQUALIFIER_LALT | IEQUALIFIER_RALT | IEQUALIFIER_CONTROL)));
1454
1455 code = msg->Code; delta = 1;
1456
1457 switch(code)
1458 {
1459 case RAWKEY_NM_WHEEL_UP:
1460 code = CURSORUP;
1461 delta = 3;
1462 break;
1463
1464 case RAWKEY_NM_WHEEL_DOWN:
1465 code = CURSORDOWN;
1466 delta = 3;
1467 break;
1468
1469 case RAWKEY_NM_WHEEL_LEFT:
1470 code = CURSORLEFT;
1471 delta = 3;
1472 break;
1473
1474 case RAWKEY_NM_WHEEL_RIGHT:
1475 code = CURSORRIGHT;
1476 delta = 3;
1477 break;
1478 }
1479
1480 switch(code)
1481 {
1482 case CURSORUP:
1483 ScrollTo(GAD_VERTSCROLL,
1484 maxscroll ? 0 : viewstarty - (pagescroll ? visibley - 1 : delta),
1485 TRUE);
1486 break;
1487
1488 case CURSORDOWN:
1489 ScrollTo(GAD_VERTSCROLL,
1490 maxscroll ? num_lines : viewstarty + (pagescroll ? visibley - 1 : delta),
1491 TRUE);
1492 break;
1493
1494 case CURSORLEFT:
1495 ScrollTo(GAD_HORIZSCROLL,
1496 maxscroll ? 0 : viewstartx - (pagescroll ? visiblex - 1 : delta),
1497 TRUE);
1498 break;
1499
1500 case CURSORRIGHT:
1501 ScrollTo(GAD_HORIZSCROLL,
1502 maxscroll ? max_textlen : viewstartx + (pagescroll ? visiblex - 1 : delta),
1503 TRUE);
1504 break;
1505
1506 case RAWKEY_HOME:
1507 ScrollTo(GAD_VERTSCROLL, 0, TRUE);
1508 break;
1509
1510 case RAWKEY_END:
1511 ScrollTo(GAD_VERTSCROLL, num_lines, TRUE);
1512 break;
1513
1514 case RAWKEY_PAGEUP:
1515 ScrollTo(GAD_VERTSCROLL, viewstarty - (visibley - 1), TRUE);
1516 break;
1517
1518 case RAWKEY_PAGEDOWN:
1519 ScrollTo(GAD_VERTSCROLL, viewstarty + (visibley - 1), TRUE);
1520 break;
1521
1522 } /* switch(msg->Code) */
1523 break;
1524
1525 case IDCMP_MENUPICK:
1526 men = msg->Code;
1527 while(men != MENUNULL)
1528 {
1529 if ((item = ItemAddress(menus, men)))
1530 {
1531 switch((IPTR)GTMENUITEM_USERDATA(item))
1532 {
1533 case MSG_MEN_PROJECT_SAVEAS:
1534 fillename_dest = GetFile(FALSE);
1535 if (!fillename_dest)
1536 break;
1537
1538 case MSG_MEN_PROJECT_PRINT:
1539 __sprintf(s, "Run >NIL: Type \"%s\" TO \"%s\"", filenamebuffer, fillename_dest ? fillename_dest : "PRT:");
1540 if (System(s, TAG_END))
1541 DisplayBeep(NULL);
1542 fillename_dest = NULL;
1543 break;
1544
1545 case MSG_MEN_PROJECT_ABOUT:
1546 About();
1547 break;
1548
1549 case MSG_MEN_PROJECT_QUIT:
1550 quitme = TRUE;
1551 break;
1552
1553 case MSG_MEN_PROJECT_OPEN:
1554 if ((filename = GetFile(TRUE)))
1555 {
1556 if (OpenFile())
1557 {
1558 HandleFileChange();
1559 } /* if (OpenFile()) */
1560
1561 } /* if ((filename = GetFile())) */
1562
1563 break;
1564
1565 case MSG_MEN_NAVIGATION_FIND:
1566 Make_Find_Requester();
1567 break;
1568
1569 case MSG_MEN_NAVIGATION_FIND_NEXT:
1570 DoSearch(SEARCH_NEXT);
1571 break;
1572
1573 case MSG_MEN_NAVIGATION_FIND_PREV:
1574 DoSearch(SEARCH_PREV);
1575 break;
1576
1577 case MSG_MEN_NAVIGATION_JUMP:
1578 Make_Goto_Requester();
1579 break;
1580
1581 } /* switch(GTMENUITEM_USERDATA(item)) */
1582
1583 men = item->NextSelect;
1584 } else {
1585 men = MENUNULL;
1586 }
1587
1588 } /* while(men != MENUNULL) */
1589 break;
1590
1591 } /* switch(msg->Class) */
1592
1593 ReplyMsg((struct Message *)msg);
1594
1595 } /* while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort))) */
1596
1597 return quitme;
1598 }
1599
1600 /****************************************************************************************/
1601
1602 static void HandleAll(void)
1603 {
1604 ULONG sigs;
1605 LONG line;
1606 WORD search_kind;
1607 BOOL quitme = FALSE;
1608
1609 in_main_loop = TRUE;
1610
1611 ScreenToFront(win->WScreen);
1612
1613 while(!quitme)
1614 {
1615 sigs = Wait(msgmask | winmask | gotomask | findmask);
1616
1617 if ( (sigs & winmask) || (sigs & msgmask) )
1618 quitme = HandleWin();
1619
1620 if (sigs & gotomask)
1621 {
1622 if (Handle_Goto_Requester(&line))
1623 {
1624 ScrollTo(GAD_VERTSCROLL, line - 1, TRUE);
1625 }
1626 }
1627
1628 if (sigs & findmask)
1629 {
1630 if ((search_kind = Handle_Find_Requester(&searchtext)))
1631 {
1632 DoSearch(search_kind);
1633 }
1634 }
1635
1636 } /* while(!quitme) */
1637 }
1638
1639 /****************************************************************************************/
1640
1641 int main(int argc, char **argv)
1642 {
1643 int rc;
1644
1645 /* This is for when Cleanup() is called */
1646 rc = setjmp(exit_buf);
1647 if (rc)
1648 return rc;
1649
1650 InitLocale("System/Utilities/More.catalog", 1);
1651 InitMenus();
1652 GetArguments(argc, argv);
1653 OpenLibs();
1654 OpenFile();
1655 GetVisual();
1656 MakeGadgets();
1657 MakeMenus();
1658 MakeWin();
1659 HandleAll();
1660 Cleanup(0);
1661 return 0;
1662 }
1663
1664 /****************************************************************************************/
Mirror of AROS' svn.