home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / source / driver / show / amiga / am_requ.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-26  |  44.8 KB  |  1,825 lines
  1. /*
  2. **    This file generated by localize 2.9 (AmigaDOS 2.1) from am_requ.c
  3. */
  4. /* *** am_requ.c *** */
  5.  
  6. #ifdef AMIGA
  7.  
  8.  
  9. #include "defines.h"
  10.  
  11. #include <sprof.h>
  12.  
  13. #include <stdio.h>
  14. #include <stdlib.h>
  15. #include <string.h>
  16.  
  17. #include <intuition/intuition.h>
  18. #include <libraries/dos.h>
  19. #include <libraries/asl.h>
  20. #include <dos/dostags.h>
  21.  
  22. #ifdef AZTEC_C
  23. #  include <functions.h>
  24. #endif
  25.  
  26. #include "globals.h"
  27.  
  28. #include <clib/intuition_protos.h>
  29. #include <clib/dos_protos.h>
  30. #include <clib/graphics_protos.h>
  31. #include <clib/gadtools_protos.h>
  32. #include <clib/asl_protos.h>
  33. #include <clib/exec_protos.h>
  34.  
  35. #include <pragmas/intuition_pragmas.h>
  36. #include <pragmas/dos_pragmas.h>
  37. #include <pragmas/graphics_pragmas.h>
  38. #include <pragmas/gadtools_pragmas.h>
  39. #include <pragmas/asl_pragmas.h>
  40. #include <pragmas/exec_pragmas.h>
  41.  
  42.  
  43.  
  44. #include "amscreen.h"
  45. #include "version.h"
  46. #include "gad_def.h"
  47. #include "searchwin.h"
  48.  
  49. #include "showdvi.i"
  50. #include "amscreen.i"
  51. #include "gadget.i"
  52. #include "am_requ.i"
  53. #include "globals.i"
  54. #include "dvihand.i"
  55. #include "search.i"
  56. #include "searchwin.i"
  57.  
  58. /*
  59.  * Fuer die locale-Library:
  60.  *
  61.  * Hier duerfen *nur* die MSG_#? Nummern eingebunden werden!
  62.  * Achtung:
  63.  * Es muss/sollte 'multiple-include' erlaubt sein!
  64.  */
  65. #include "local.i"
  66.  
  67. #undef  CATCOMP_ARRAY
  68. #undef  CATCOMP_BLOCK
  69. #undef  CATCOMP_STRINGS
  70. #define CATCOMP_NUMBERS
  71. #include "localstr.h"
  72.  
  73.  
  74.  
  75. /* locale Funktionen */
  76. static int ReadHelpTxtPages    Args((void));
  77. static void AboutWinToggleText    Args((void));
  78. #if !defined(REQ_LIBRARY)
  79. static void draw_active        Args((long x,
  80.                               long y));
  81. #endif
  82.  
  83. /* externe Variablen */
  84. extern struct TextFont        *font8,
  85.                 *font11;
  86. extern UBYTE            sig_aboutwin;
  87.  
  88. extern char            PubScreenName[];
  89. extern char            MyPubScreenName[];
  90.  
  91. /* lokale Variablen */
  92. static struct Window *AboutRequesterWin = NULL;
  93. static struct TextAttr AbWintxtAttr;        /* TxtAttr fuer das AboutWindow */
  94.  
  95. static short help_counter;
  96. static struct IntuiText VersionText;
  97.  
  98.  
  99. #include "am_requ.h"
  100.  
  101.  
  102. /* da kommt der gesamte Hilfstext rein ... */
  103. static          short         HelpTxtPages;
  104. static          short       *HelpTxtPagesLines;    /* Anzahl Zeilen pro Seite */
  105. static struct MyTextStruct **HelpTxt = NULL;
  106.  
  107. static struct TagItem       okBevelGadTags[] = { {GT_VisualInfo, NULL}, {TAG_DONE, 0L} };
  108. static struct TagItem       helpBevelGadTags[] = { {GT_VisualInfo, NULL}, {TAG_DONE, 0L} };
  109.  
  110. static        short       LineNumber;
  111. static        char         *ErrorMsg;
  112.  
  113.  
  114. void CenterWindow(WORD *LeftEdge, WORD *TopEdge, WORD Width, WORD Height)
  115. {
  116.   WORD vis_width, vis_height;
  117.  
  118.   vis_width  = screen->Width+1;
  119.   vis_height = screen->Height+1;
  120.  
  121.   if (is_os2) {
  122.     struct ViewPort *vp;
  123.     ULONG modeID;
  124.     struct DimensionInfo DimInfo;
  125.     
  126.     vp = &(screen->ViewPort);
  127.     if ((modeID = GetVPModeID(vp)) != INVALID_ID) {
  128.       GetDisplayInfoData(NULL, (UBYTE *)&DimInfo, sizeof(DimInfo), DTAG_DIMS, modeID);
  129.       vis_width  = DimInfo.TxtOScan.MaxX + 1;
  130.       vis_height = DimInfo.TxtOScan.MaxY + 1;
  131.     }
  132.   }
  133.  
  134.   if (screen->Width <= vis_width) {
  135.     *LeftEdge = ((screen->Width - Width) >> 1);
  136.   }
  137.   else {
  138.     *LeftEdge = abs(screen->LeftEdge) + ((vis_width - Width) >> 1);
  139.   }
  140.  
  141.   if (screen->Height <= vis_height) {
  142.     *TopEdge = ((screen->Height - Height) >> 1);
  143.   }
  144.   else {
  145.     *TopEdge = abs(screen->TopEdge) + ((vis_height - Height) >> 1);
  146.   }
  147. }
  148.  
  149. /* (von stefan st.)
  150.                                 GetDisplayInfoData(0, (UBYTE *)&di, sizeof(struct DimensionInfo), DTAG_DIMS, vpmid);
  151.                                 rect = &di.TxtOScan;
  152.                                 left = -(scr->LeftEdge) + (min((rect->MaxX - rect->MinX + 1), scr->Width) - mywindowtag[P_WA_Width].ti_Data) / 2;
  153.                                 top = -(scr->TopEdge) + (min((rect->MaxY - rect->MinY + 1), scr->Height) - mywindowtag[P_WA_Height].ti_Data) / 2;
  154.                                 zoompos[0] = mywindowtag[P_WA_Left].ti_Data = (left < 0) ? 0 : left;
  155.                                 zoompos[1] = mywindowtag[P_WA_Top].ti_Data = (top < 0) ? 0 : top;
  156. */
  157.  
  158. static int ReadHelpTxtPages(void)
  159. {
  160.   char *ptr, *p, *pp, line[128], pattern[40];
  161.   int len, found, anz = 0, zeilen, page, TxtLine;
  162.   int xpos, ypos;
  163.   struct MyTextStruct **HTxtArr = NULL;
  164.   struct MyTextStruct *HTxtPage;
  165.   FILE *fp;
  166.   LineNumber = 0;
  167.   ErrorMsg = NULL;
  168.  
  169.   fp = OpenConfigFile("ShowDVI.help", MODE_READ);
  170.  
  171.   if (fp == NULL) {
  172.     Warning(MSG_CANT_OPEN_HELP_FILE, "ShowDVI.help");
  173.   }
  174.   else {
  175.     /* so nun auf die Suche nach dem #helpwindow-Eintrag */
  176.     do {
  177.       ptr = fgets(line, 127, fp);
  178.       LineNumber++;
  179.       found = (strncmp(line, "#helpwindow", 11) == 0);
  180.     } while (ptr != NULL && !found);
  181.     
  182.     if (found) {
  183.       if (sscanf(line+11, "%d", &anz) == 1) {
  184.         /* allociere ein Array von Pointer */
  185.         HTxtArr = xmalloc(anz*sizeof(struct MyTextStruct *));
  186.         HelpTxtPagesLines = xmalloc(anz*sizeof(short));
  187.  
  188.     /*========= ueber alle Seiten ==========*/
  189.         for (page=0; page<anz; page++) {
  190.           sprintf(pattern, "#help %d,", page);
  191.           len = strlen(pattern);
  192.       do {
  193.         ptr = fgets(line, 127, fp);
  194.         LineNumber++;
  195.         found = (strncmp(line, pattern, len) == 0);
  196.       } while (ptr != NULL && !found);
  197.  
  198.       if (found) {
  199.         if (sscanf(line+len, "%d", &zeilen) == 1) {
  200.             /* allociere die Eintraege fuer die Zeilen */
  201.           HTxtPage = xmalloc(zeilen*sizeof(struct MyTextStruct));
  202.           HTxtArr[page] = HTxtPage;
  203.           HelpTxtPagesLines[page] = zeilen;
  204.  
  205.           /*=========== ueber alle Zeilen einer Seite ============*/
  206.           for (TxtLine=0; TxtLine<zeilen && ptr != NULL; TxtLine++) {
  207.             /* lese die einzelnen Zeilen hintereinander */
  208.             ptr = fgets(line, 127, fp);
  209.             LineNumber++;
  210.             if (ptr != NULL) {
  211.               if (sscanf(line, "%d %d", &xpos, &ypos) == 2) {
  212.                 p = strchr(line, '\"');
  213.                 if (p != NULL) {
  214.                   /* und nun die " weg.. */
  215.                   p++;    /* vorders AnfZeichen */
  216.                   if ((pp = strrchr(p, '\"')) != NULL) *pp = '\0';    /* hinteres */
  217.                   HTxtPage[TxtLine].xKoo          = xpos;
  218.                   HTxtPage[TxtLine].yKoo          = ypos;
  219.                   HTxtPage[TxtLine].txt.FrontPen  = 1;
  220.                   HTxtPage[TxtLine].txt.BackPen   = 0;
  221.                   HTxtPage[TxtLine].txt.DrawMode  = JAM1;
  222.                   HTxtPage[TxtLine].txt.LeftEdge  = 0;
  223.                   HTxtPage[TxtLine].txt.ITextFont = &AbWintxtAttr;
  224.                   HTxtPage[TxtLine].txt.IText     = strdup(p);
  225.                   if (TxtLine < zeilen-1) {
  226.                     /* noch nicht die letzte Zeile */
  227.                     HTxtPage[TxtLine].txt.NextText = &(HTxtPage[TxtLine+1].txt);
  228.                   }
  229.                   else {
  230.                     HTxtPage[TxtLine].txt.NextText = NULL;
  231.                   }
  232.                 }
  233.               }
  234.           else {
  235.                 /* kann xpos, ypos nicht lesen */
  236.                 ErrorMsg = "x/y-pos";
  237.                 return FALSE;
  238.                 /* Fatal(20, "Can't read x/y-pos! (%d, %d)", page, TxtLine); */
  239.               }
  240.             }
  241.           }
  242.           if (TxtLine != zeilen) {
  243.             /* habe nicht alle Zeilen lesen koennen */
  244.             ErrorMsg = "too few lines";
  245.             return FALSE;
  246.             /* Fatal(20, "Can't read all lines! (%d, %d)", page, TxtLine); */
  247.           }
  248.         }
  249.         else {
  250.           /* kann Zeilenanzahl nicht lesen! */
  251.           ErrorMsg = "no line number";
  252.           return FALSE;
  253.           /* Fatal(20, "Can't read line number! (%d)", page); */
  254.         }
  255.       }
  256.       else {
  257.         /* Kann #help %d, nicht finden */
  258.         ErrorMsg = "no #help";
  259.         return FALSE;
  260.         /* Fatal(20, "Can't find #help line!"); */
  261.       }
  262.         } /* for page */
  263.       }
  264.       else {
  265.         /* kann Anzahl Seiten nicht lesen! */
  266.         ErrorMsg = "no page number";
  267.         return FALSE;
  268.         /* Fatal(20, "Can't read page number!"); */
  269.       }
  270.     }
  271.     else {
  272.       /* kann #helpwin nicht finden */
  273.       ErrorMsg = "no #helpwin";
  274.       return FALSE;
  275.       /* Fatal(20, "Can't fint #helpwin entry!"); */
  276.     }
  277.     
  278.     fclose(fp);
  279.   }
  280.   HelpTxt = HTxtArr;
  281.   HelpTxtPages = anz;
  282.   return TRUE;
  283. }
  284.  
  285.  
  286. void AboutWinUp(void)
  287. {
  288.   struct RastPort *rp;
  289.   long i, x, y;
  290.   /* long YSize; */
  291.   short TextHeight, TextWidth;
  292.   struct NewWindow new_win; 
  293.  
  294.   if (is_about) {
  295.     return;        /* ignore such strange things */
  296.   }
  297.  
  298.   if (AboutRequesterWin != NULL) {
  299.     /* Window ist schon da, aber is_about ist FALSE?? */
  300.     Fatal(20,MSG_CONFUSED_ABOUT_REQ);
  301.   }
  302.  
  303. #if 0    /* das sollte nun auch gehen... */
  304. #if !defined(REQ_LIBRARY)
  305.   if (is_colre) {
  306.     remove_col_request();
  307.   }
  308. #endif
  309. #endif
  310.  
  311.   set_about;
  312.   help_counter = 0;
  313.  
  314. #if 0
  315.   if (win2 != NULL) {
  316.     AskFont(win2->RPort, &AbWintxtAttr);
  317.   }
  318.   YSize = AbWintxtAttr.ta_YSize;
  319.   /* soll ich's so machen und den System-Default Font nehmen.... das ist aber meinstens */
  320.   /* nur topaz 8 Font. Mein topaz 11 sieht besser aus! */
  321. #endif
  322.   /* ich verwende nun doch meine alten Sachen */
  323.   
  324.   if (TRUE /*(is_lace && YSize > 15) || (!is_lace && YSize > 12)*/) {
  325.     if (is_lace && font11 != NULL) {
  326.       /* struct Assignment! */
  327.       AbWintxtAttr = txtAttr11;    /* nehme topaz 11 bei interlace */
  328.     }
  329.     else {
  330.       /* struct Assignment! */
  331.       AbWintxtAttr = txtAttr8;    /* nehme topaz 8 bei noninterlace */
  332.     }
  333.   }
  334.  
  335.   about_ok_gadg.TopEdge   = ABOUT_OK_Y+win2->BorderTop;
  336.   about_ok_gadg.Height    = ABOUT_OK_HEIGHT;
  337.   about_help_gadg.TopEdge = ABOUT_OK_Y+win2->BorderTop;
  338.   about_help_gadg.Height  = ABOUT_OK_HEIGHT;
  339.   about_border_ok_pairs[5]= ABOUT_OK_HEIGHT+1;
  340.   about_border_ok_pairs[7]= ABOUT_OK_HEIGHT+1;
  341.   about_border_no_pairs[5]= ABOUT_OK_HEIGHT-1;
  342.   about_border_no_pairs[7]= ABOUT_OK_HEIGHT-1;
  343.   
  344.  
  345.   about_help_text.LeftEdge = 7;
  346.   about_help_text.IText = (UBYTE*)ABOUT_HELP_STRING;
  347.  
  348.  
  349.   if (is_os2) {
  350.     /* es werden die Bevel Boxes gezeichnet! */
  351.     about_ok_gadg.GadgetRender = NULL;
  352.     about_help_gadg.GadgetRender = NULL;
  353.   }
  354.  
  355.  
  356.   new_win.Width  = ABOUT_WIDTH;
  357.   new_win.Height = ABOUT_HEIGHT+win2->BorderTop;
  358.  
  359.   CenterWindow(&(new_win.LeftEdge), &(new_win.TopEdge), new_win.Width, new_win.Height);
  360.  
  361.   
  362.   new_win.DetailPen = 0;
  363.   new_win.BlockPen = 1; 
  364.   new_win.Title = GetTeXString(MSG_SHOWDVI_ABOUT_WINDOW);
  365.   new_win.Flags = WFLG_DEPTHGADGET | WFLG_CLOSEGADGET | WFLG_DRAGBAR | WFLG_ACTIVATE | WFLG_NOCAREREFRESH | WFLG_RMBTRAP;
  366.   new_win.IDCMPFlags = IDCMP_GADGETUP | IDCMP_VANILLAKEY | IDCMP_CLOSEWINDOW;
  367.   new_win.Type = CUSTOMSCREEN;
  368.   if (!is_os2 && !is_ownscr) {
  369.     new_win.Type = WBENCHSCREEN;
  370.   }
  371.   new_win.FirstGadget = &about_ok_gadg;
  372.   new_win.CheckMark = NULL;
  373.   new_win.Screen = screen;
  374.   new_win.BitMap = NULL;
  375.   AboutRequesterWin = (struct Window *)OpenWindow(&new_win);
  376.  
  377.   if (AboutRequesterWin == NULL) {
  378.     Fatal(20, MSG_CANT_OPEN_ABOUT_REQ);
  379.   }
  380.  
  381.   rp = AboutRequesterWin->RPort;
  382.  
  383.   if (is_os2) {
  384.     okBevelGadTags[0].ti_Data = (ULONG)SDVI_VI;
  385.     DrawBevelBoxA(rp, about_ok_gadg.LeftEdge, about_ok_gadg.TopEdge,
  386.     about_ok_gadg.Width, about_ok_gadg.Height, okBevelGadTags);
  387.     helpBevelGadTags[0].ti_Data = (ULONG)SDVI_VI;
  388.     DrawBevelBoxA(rp, about_help_gadg.LeftEdge, about_help_gadg.TopEdge,
  389.     about_help_gadg.Width, about_help_gadg.Height, helpBevelGadTags);
  390.   }
  391.  
  392.  
  393.   /* hier kommt nun die Initialisierung der IText Structuren je nach Fontgroesse... */
  394.   /* YSize = AboutReqText[0].txt.ITextFont->ta_YSize; */
  395.   /* Mit diesen Werten kann die gewuenschte Anzahl Zeilen ausgegeben werden */
  396.   if (is_lace) {
  397.     TextHeight = 15;
  398.   }
  399.   else {
  400.     TextHeight = 9;
  401.   }
  402.   
  403.   /* TextHeight = YSize + abs(((is_lace) ? 4 : 1) - (YSize - 8)); */
  404.  
  405.   TextWidth = 8;
  406.  
  407.   for (i=0; i<ABOUTREQNUM; i++) {
  408.     AboutReqText[i].txt.LeftEdge = (AboutReqText[i].xKoo * TextWidth) / 10;
  409.     AboutReqText[i].txt.TopEdge = (AboutReqText[i].yKoo * TextHeight) / 10;
  410.     if (i<ABOUTREQNUM-1) {
  411.       AboutReqText[i].txt.NextText = &(AboutReqText[i+1].txt);
  412.     }
  413.     if (i == 3) {    // Versionsstring kommt auf die Zeile mit dem 'X'
  414.       y = AboutReqText[i].txt.TopEdge;
  415.       x = (455 * TextWidth) / 10;
  416.     }
  417.   }
  418.  
  419.   AboutReqText[ABOUTREQNUM-1].txt.NextText = &VersionText;
  420.   VersionText.FrontPen  = 1;
  421.   VersionText.BackPen   = 0;
  422.   VersionText.DrawMode  = JAM1;
  423.   VersionText.LeftEdge  = x;
  424.   VersionText.TopEdge   = y;
  425.   VersionText.ITextFont = &AbWintxtAttr;
  426.   VersionText.IText     = "V" SHOWDVI_VERSION;
  427.   VersionText.NextText  = NULL;
  428.  
  429.   /* Ausgabe des 'about' Textes... */
  430.   PrintIText(rp,&(AboutReqText[0].txt),AboutRequesterWin->BorderLeft, AboutRequesterWin->BorderTop);
  431.   
  432.   sig_aboutwin = AboutRequesterWin->UserPort->mp_SigBit;
  433.  
  434.   /* lese (einmal) die Helpseiten ein */
  435.   if (HelpTxt == NULL) {
  436.     if (!ReadHelpTxtPages()) {        /* lies die Seiten vom File ein */
  437.       FatalStr(20, "Error in File \"%s\"\n  (Line %d, %s)", "ShowDVI.help", LineNumber, ErrorMsg);
  438.     }
  439.   }
  440.   
  441.   /* aber jedesmal muessen die Koordinaten korrigiert werden (lace/nicht lace) */
  442.   if (HelpTxt != NULL) {
  443.     int k;
  444.     /* TextWidth = 8; */
  445.     for (k=0; k<HelpTxtPages; k++) {
  446.       /* über alle Seiten */
  447.       /* Die Texthoehe wird nun strikt festgelegt */
  448.       /* YSize = HelpTxt[k][0].txt.ITextFont->ta_YSize; */
  449.       /* TextHeight = YSize + abs(((is_lace) ? 4 : 1) - (YSize - 8)); */
  450.       i = 0;
  451.       do {
  452.         /* ueber alle Zeilen */
  453.         HelpTxt[k][i].txt.LeftEdge = (HelpTxt[k][i].xKoo * TextWidth) / 10;
  454.         HelpTxt[k][i].txt.TopEdge  = (HelpTxt[k][i].yKoo * TextHeight) / 10;
  455.         i++;
  456.       } while (HelpTxt[k][i-1].txt.NextText != NULL);
  457.     }
  458.   }
  459.  
  460. }
  461.  
  462.  
  463.  
  464. static void AboutWinToggleText(void)
  465. {
  466.   struct RastPort *rp;
  467.   char str[20];
  468.  
  469.   if (AboutRequesterWin == NULL) return;
  470.  
  471.   rp = AboutRequesterWin->RPort;
  472.   SetAPen(rp,0);
  473.   RectFill(rp,AboutRequesterWin->BorderLeft + 1,
  474.         AboutRequesterWin->BorderTop + 1,
  475.           AboutRequesterWin->Width - AboutRequesterWin->BorderLeft - 1,
  476.           about_ok_gadg.TopEdge-4);
  477.   SetAPen(rp,1);
  478.  
  479.   help_counter++;
  480.   if (help_counter > HelpTxtPages) help_counter = 0;
  481.  
  482.   Move(rp, about_help_gadg.LeftEdge+about_help_gadg.Width+20, about_help_gadg.TopEdge+12);
  483.  
  484.   if (help_counter > 0) {
  485.     sprintf(str, "%2d/%d ", help_counter, HelpTxtPages);
  486.     Text(rp, str, strlen(str));
  487.  
  488.     if (HelpTxt != NULL) {
  489.       PrintIText(rp,&(HelpTxt[help_counter-1][0].txt),AboutRequesterWin->BorderLeft, 
  490.       AboutRequesterWin->BorderTop);
  491.     }
  492.     if (help_counter == HelpTxtPages) {
  493.       /* auf letzter HELP Seite */
  494.       about_help_text.LeftEdge = 3;
  495.       about_help_text.IText = (UBYTE*)ABOUT_ABOUT_STRING;
  496.     }
  497.     else {
  498.       /* es gibt noch mehr HELP Seiten */
  499.       about_help_text.LeftEdge = 7;
  500.       about_help_text.IText = (UBYTE*)ABOUT_MORE_STRING;
  501.     }
  502.   } 
  503.   else {
  504.     Text(rp, "       ", 7);
  505.  
  506.     PrintIText(rp,&(AboutReqText[0].txt),AboutRequesterWin->BorderLeft, 
  507.           AboutRequesterWin->BorderTop);
  508.     about_help_text.LeftEdge = 7;
  509.     about_help_text.IText = (UBYTE*)ABOUT_HELP_STRING;
  510.   }
  511.   RefreshGadgets(&about_help_gadg,AboutRequesterWin,NULL);
  512. }
  513.  
  514.  
  515.  
  516. long AboutWinMsg(void)
  517. {
  518.   struct IntuiMessage *msg;
  519.   long ex = 0;
  520.   ULONG msg_class, gid;
  521.   int i, k;
  522.   char c;
  523.  
  524.   if (AboutRequesterWin == NULL || !is_about) {
  525.     Fatal(20,MSG_CONFUSED_ABOUT_REQ);
  526.   }
  527.   
  528.   
  529.   while((msg = (struct IntuiMessage *)GetMsg(AboutRequesterWin->UserPort))!=NULL) {
  530.     msg_class = msg->Class;
  531.     switch (msg_class) {
  532.       case IDCMP_CLOSEWINDOW:
  533.             ReplyMsg(&(msg->ExecMessage));
  534.           AboutWinDown();
  535.           return ex; /* WEG  HIER, damit wir kein GetMsg von einem nicht mehr vorhandenen Window machen! */
  536.         break;
  537.       case IDCMP_VANILLAKEY:
  538.         c = msg->Code;
  539.             ReplyMsg(&(msg->ExecMessage));
  540.             if (c >= '0' && c <= '9') {
  541.               const int num = c - '1';
  542.               if (num < HelpTxtPages) {
  543.                 if (num == -1) {
  544.                   help_counter = HelpTxtPages;
  545.                 }
  546.                 else {
  547.                   help_counter = num;
  548.                 }
  549.                 AboutWinToggleText();
  550.               }
  551.             }
  552.             else {
  553.               switch (c) {
  554.                 case 8  :
  555.                 case 127:
  556.                 case 'b':
  557.                 case 'B':
  558.                 case '-':    if (help_counter <= 1) {
  559.                        help_counter = HelpTxtPages-1;/* cyklisch durch.. */
  560.                         }
  561.                         else {
  562.                           help_counter -= 2;
  563.                         }
  564.                         AboutWinToggleText();
  565.                         break;
  566.  
  567.             case ' ':
  568.             case '+':
  569.                 case 'h':
  570.                 case 'H':
  571.                 case 'm':
  572.                 case 'M':    if (help_counter == HelpTxtPages) {
  573.                        help_counter = 0;    /* cyklisch durch.. */
  574.                         }
  575.                         AboutWinToggleText();
  576.                         break;
  577.  
  578.                 case 'a':
  579.                 case 'A':    if (help_counter != 0) {
  580.                           help_counter = HelpTxtPages;    /* damit man wirklich auf about kommt */
  581.                           AboutWinToggleText();
  582.                         }
  583.                         break;
  584.  
  585.                 case 'Q':   /* Bei 'Q' wird der Speicher freigegeben */
  586.                 for (i=0; i<HelpTxtPages; i++) {
  587.                   for (k=0; k<HelpTxtPagesLines[i]; k++) {
  588.                     xfree(HelpTxt[i][k].txt.IText);    /* String   */
  589.                   }
  590.                   xfree(HelpTxt[i]);            /* Struktur */
  591.                 }
  592.                 xfree(HelpTxt);                /* Array of pages   */
  593.                 xfree(HelpTxtPagesLines);        /* Array of numbers */
  594.                 HelpTxt = NULL;
  595.                 HelpTxtPagesLines = NULL;
  596.                 HelpTxtPages = 0;
  597.                 case 'o':
  598.                 case 'O':
  599.                 case 'q':
  600.             case 27 :    /* ESC */
  601.                 case 13 :    AboutWinDown();
  602.                   return ex; /* WEG  HIER, damit wir kein GetMsg von einem nicht mehr vorhandenen Window machen! */
  603.  
  604.                 case  3 :         /* ^C */
  605.                 CXBRK();        /* lattice ^C funktion */
  606.                         break;
  607.               }
  608.             }
  609.         break;
  610.       case IDCMP_GADGETUP:
  611.         gid = ((struct Gadget *)msg->IAddress)->GadgetID;
  612.             ReplyMsg(&(msg->ExecMessage));
  613.         switch (gid) {
  614.             case ABOUT_OK_GAD_NR:
  615.                   AboutWinDown();
  616.                   return ex; /* WEG  HIER, damit wir kein GetMsg von einem nicht mehr vorhandenen Window machen! */
  617.             case ABOUT_HELP_GAD_NR:
  618.                     AboutWinToggleText();
  619.                   break;
  620.         }
  621.         break;
  622.       default:
  623.             ReplyMsg(&(msg->ExecMessage));
  624.         FatalStr(20, "Unknown Intuimessage!");
  625.         break;
  626.     }
  627.   }
  628.   
  629.   return ex;
  630. }
  631.  
  632.  
  633. void AboutWinDown(void)
  634. {
  635.   struct Message *msg;
  636.  
  637.   if (is_about && AboutRequesterWin != NULL) {
  638.     unset_about;
  639.     help_counter = 0;
  640.  
  641.     Forbid();
  642.     do {
  643.       msg = GetMsg(AboutRequesterWin->UserPort);
  644.       if (msg != NULL) ReplyMsg(msg);
  645.     } while (msg != NULL);
  646.     ModifyIDCMP(AboutRequesterWin, 0);
  647.     Permit();
  648.  
  649.     CloseWindow(AboutRequesterWin);            /* Requester Window loeschen */
  650.     AboutRequesterWin = NULL;                /* wichtig */
  651.   }
  652. }
  653.  
  654.  
  655.  
  656. /*************************************************************************/
  657.  
  658. #if !defined(REQ_LIBRARY)
  659.  
  660. static void draw_active(long x, long y)
  661. {
  662.   register struct RastPort *rp = &(screen->RastPort);
  663.  
  664.   Move(rp,x,y);
  665.   Draw(rp,x+CREQ_COL_WIDTH+3,y);
  666.   Draw(rp,x+CREQ_COL_WIDTH+3,y+CREQ_COL_HEIGHT+3);
  667.   Draw(rp,x,y+CREQ_COL_HEIGHT+3);
  668.   Draw(rp,x,y);
  669.  
  670.   Move(rp,x-1,y+2);
  671.   Draw(rp,x-1,y-1);
  672.   Draw(rp,x+2,y-1);
  673.  
  674.   Move(rp,x+CREQ_COL_WIDTH+1+3,y+2);
  675.   Draw(rp,x+CREQ_COL_WIDTH+1+3,y-1);
  676.   Draw(rp,x+CREQ_COL_WIDTH-2+3,y-1);
  677.  
  678.   Move(rp,x-1,y+CREQ_COL_HEIGHT-2+3);
  679.   Draw(rp,x-1,y+CREQ_COL_HEIGHT+1+3);
  680.   Draw(rp,x+2,y+CREQ_COL_HEIGHT+1+3);
  681.  
  682.   Move(rp,x+CREQ_COL_WIDTH+1+3,y+CREQ_COL_HEIGHT-2+3);
  683.   Draw(rp,x+CREQ_COL_WIDTH+1+3,y+CREQ_COL_HEIGHT+1+3);
  684.   Draw(rp,x+CREQ_COL_WIDTH-2+3,y+CREQ_COL_HEIGHT+1+3);
  685. }
  686.  
  687. void set_0_active(void)
  688. {
  689.   register struct RastPort *rp = &(screen->RastPort);
  690.   register long x = ((x_win_i_width-CREQ_WIDTH)/2) + WIN_X_KOO+CREQ_COL_0_X-2,
  691.             y = ((x_win_i_height-CREQ_HEIGHT)/2) + WIN_Y_KOO+CREQ_COL_0_Y-2;
  692.  
  693.   /* zeichnen */
  694.   SetAPen(rp,1);
  695.   draw_active(x,y);
  696.  
  697.   /* loeschen */
  698.   x = ((x_win_i_width-CREQ_WIDTH)/2) + WIN_X_KOO+CREQ_COL_1_X-2,
  699.   y = ((x_win_i_height-CREQ_HEIGHT)/2) + WIN_Y_KOO+CREQ_COL_1_Y-2;
  700.   SetAPen(rp,0);
  701.   draw_active(x,y);
  702.   SetAPen(rp,1);
  703.   current_col.col_number_t = 0;
  704. }
  705.  
  706. void set_1_active(void)
  707. {
  708.   register struct RastPort *rp = &(screen->RastPort);
  709.   register long x = ((x_win_i_width-CREQ_WIDTH)/2) + WIN_X_KOO+CREQ_COL_1_X-2,
  710.             y = ((x_win_i_height-CREQ_HEIGHT)/2) + WIN_Y_KOO+CREQ_COL_1_Y-2;
  711.  
  712.   /* zeichnen */
  713.   SetAPen(rp,1);
  714.   draw_active(x,y);
  715.  
  716.   /* loeschen */
  717.   x = ((x_win_i_width-CREQ_WIDTH)/2) + WIN_X_KOO+CREQ_COL_0_X-2,
  718.   y = ((x_win_i_height-CREQ_HEIGHT)/2) + WIN_Y_KOO+CREQ_COL_0_Y-2;
  719.   SetAPen(rp,0);
  720.   draw_active(x,y);
  721.   SetAPen(rp,1);
  722.   current_col.col_number_t = 1;
  723. }
  724.  
  725. void set_col_0(void)
  726. {
  727.   cprop_r_info.HorizPot = (USHORT)(current_col.red_t0 * 4095);
  728.   cprop_g_info.HorizPot = (USHORT)(current_col.green_t0 * 4095);
  729.   cprop_b_info.HorizPot = (USHORT)(current_col.blue_t0 * 4095);
  730. }
  731.  
  732. void set_col_1(void)
  733. {
  734.   cprop_r_info.HorizPot = (USHORT)(current_col.red_t1 * 4095);
  735.   cprop_g_info.HorizPot = (USHORT)(current_col.green_t1 * 4095);
  736.   cprop_b_info.HorizPot = (USHORT)(current_col.blue_t1 * 4095);
  737. }
  738.  
  739.  
  740. void show_col_request(void)
  741. {
  742.   register long y = (x_win_i_height - CREQ_HEIGHT) / 2,
  743.              x = (x_win_i_width - CREQ_WIDTH) / 2;
  744.  
  745.   if (is_colre) {
  746.     return;
  747.   }
  748.   if (is_about) {
  749.     AboutWinDown();
  750.   }
  751.  
  752.   current_col.red_t0   = current_col.red_0;
  753.   current_col.green_t0 = current_col.green_0;
  754.   current_col.blue_t0  = current_col.blue_0;
  755.   current_col.red_t1   = current_col.red_1;
  756.   current_col.green_t1 = current_col.green_1;
  757.   current_col.blue_t1  = current_col.blue_1;  
  758.  
  759.   color_request.TopEdge = y;
  760.   color_request.LeftEdge = x;
  761.  
  762.   set_col_0();
  763.  
  764.   PROFILE_OFF();
  765.   Request(&color_request,win2);
  766.   PROFILE_ON();
  767.  
  768.   set_colre;                /* Requester am Bildschirm */
  769.   x += WIN_X_KOO + CREQ_COL_1_X+1;
  770.   y += WIN_Y_KOO + CREQ_COL_1_Y+1;
  771.   SetAPen(&(screen->RastPort),1);
  772.   RectFill(&(screen->RastPort), x, y, x+CREQ_COL_WIDTH-3, y+CREQ_COL_HEIGHT-3);
  773.  
  774.   set_0_active();
  775. }
  776.  
  777. void refresh_props(void)
  778. {
  779.   RefreshGadgets(&color_blue_gadg,win2,&color_request);
  780. }
  781.  
  782.  
  783. void remove_col_request(void)
  784. {
  785.   if (is_colre && win2 != NULL) {
  786.     unset_colre;
  787.     EndRequest(&color_request,win2);
  788.   }
  789. }
  790.  
  791. #else    /* !REQ_LIBRARY */
  792.  
  793. #include     <stdarg.h>
  794. #include    <libraries/reqbase.h>
  795. #include     <clib/req_protos.h>
  796. #include    <pragmas/req.h>
  797.  
  798. extern struct ReqLib        *ReqBase;
  799.  
  800. void show_col_request(void)
  801. {
  802.   long newcolor;
  803.  
  804.   /* Fatal(10,"Huhu. bäää... %s Program ist tot!","Mein");  ** TEST */
  805.  
  806.   if (is_colre) {
  807.     return;
  808.   }
  809.   if (is_about) {
  810.     AboutWinDown();
  811.   }
  812.  
  813.   if (ReqBase == NULL) {
  814.     Warning(MSG_NEED_REQ_LIB);   
  815.     return;
  816.   }
  817.  
  818.   set_colre;
  819.   sleep_pointer();
  820.  
  821.   PROFILE_OFF();
  822.   newcolor = ColorRequester(1L);
  823.   PROFILE_ON();
  824.  
  825.   if (newcolor != -1) {
  826.      struct ColorMap *cmap = screen->ViewPort.ColorMap;
  827.      short *coltab;
  828.  
  829.      coltab = (short *)cmap->ColorTable;
  830.      
  831.      current_col.red_0   = (coltab[0] & 0x0F00) >> 8;
  832.      current_col.green_0 = (coltab[0] & 0x00F0) >> 4;
  833.      current_col.blue_0  =  coltab[0] & 0x000F;
  834.      current_col.red_1   = (coltab[1] & 0x0F00) >> 8;
  835.      current_col.green_1 = (coltab[1] & 0x00F0) >> 4;
  836.      current_col.blue_1  =  coltab[1] & 0x000F;
  837.      current_col.red_2   = (coltab[2] & 0x0F00) >> 8;
  838.      current_col.green_2 = (coltab[2] & 0x00F0) >> 4;
  839.      current_col.blue_2  =  coltab[2] & 0x000F;
  840.      current_col.red_3   = (coltab[3] & 0x0F00) >> 8;
  841.      current_col.green_3 = (coltab[3] & 0x00F0) >> 4;
  842.      current_col.blue_3  =  coltab[3] & 0x000F;
  843.      
  844.      /* wenn Farbe ueber Col-Req geaendert, dann nicht mehr clonen! */
  845.      unset_clwbcol;
  846.   }
  847.   
  848.   clear_pointer();
  849.   unset_colre;
  850. }
  851.  
  852. #endif    /* !REQ_LIBRARY */
  853.  
  854.  
  855. void __stdargs ok(char *format, ...)
  856. {
  857.   volatile va_list ap;
  858.  
  859.   va_start(ap,format);
  860.   MySimpleRequest(1, NULL, NULL, NULL, NULL, format, va_arg(ap, long), va_arg(ap, long), va_arg(ap, long));
  861.   va_end(ap);
  862. }
  863.  
  864. int __stdargs MySimpleRequest(int NrBut, char *Lbut, char *Rbut, char *Mbut, char *title, char *format,...)
  865. {
  866.   volatile va_list ap;
  867.   int ret = FALSE;
  868.   
  869.   if (title == NULL) title = GetTeXString(MSG_SHOWDVI_REQUEST);
  870.   if (Lbut == NULL)  Lbut = GetTeXString(MSG_OK);
  871.   if (Rbut == NULL)  Rbut = GetTeXString(MSG_CANCEL);
  872.   if (Mbut == NULL)  Mbut = GetTeXString(MSG_OK);
  873.  
  874.   va_start(ap,format);
  875.  
  876.   if (is_os2) {
  877.     struct EasyStruct MyES;
  878.     
  879.  
  880.     strcpy(m_string, Lbut);
  881.     if (NrBut > 2) {
  882.       strcat(m_string, "|");
  883.       strcat(m_string, Mbut);
  884.     }
  885.     if (NrBut > 1) {
  886.       strcat(m_string, "|");
  887.       strcat(m_string, Rbut);
  888.     }
  889.  
  890.     MyES.es_StructSize = sizeof(MyES);
  891.     MyES.es_Flags = 0;
  892.     MyES.es_Title = title;
  893.     MyES.es_TextFormat = format;
  894.     MyES.es_GadgetFormat = m_string;
  895.     
  896.     PROFILE_OFF();
  897.     ret = EasyRequestArgs(win2, &MyES, NULL, ap);
  898.     PROFILE_ON();
  899.   }
  900. #if defined(REQ_LIBRARY)
  901.   else {
  902.     if (ReqBase == NULL) {
  903.       Message(MSG_NEED_REQ_LIB);
  904.     }
  905.     else {
  906.       struct TRStructure trs;
  907.       
  908.       if (NrBut <= 1) {
  909.         Lbut = Mbut = NULL;
  910.         Rbut = GetTeXString(MSG_OK);
  911.       }
  912.       if (NrBut <= 2) {
  913.         Mbut = NULL;
  914.       }
  915.  
  916.       trs.Text     = format;
  917.       trs.Controls = ap;
  918.       trs.Window = 0;
  919.       trs.MiddleText = Mbut;
  920.       trs.PositiveText = Lbut;
  921.       trs.NegativeText = Rbut;
  922.       trs.Title = title;
  923.       trs.KeyMask = (short)0xFFFF;
  924.       trs.textcolor = 1;
  925.       trs.detailcolor = 1;
  926.       trs.blockcolor = 1;
  927.       trs.versionnumber = REQVERSION;
  928.       trs.Timeout = 0;         /* you could put a timeout here if you wanted */
  929.       trs.AbortMask = 0;      /* If you wanted to abort this requester from another */
  930.                 /* process, pass the mask for Signal() in this element. */
  931.                 /* Then just Signal() the process that brought up the requester */
  932.       trs.rfu1 = 0;
  933.       ret = TextRequest(&trs);
  934.     }
  935.   }
  936. #endif
  937.   va_end(ap);
  938.   
  939.   return ret;
  940. }
  941.  
  942.  
  943.  
  944. /* Struktur fuer den Fatal-Requester */
  945. static struct EasyStruct FatalES = {
  946.     sizeof (struct EasyStruct),
  947.     0,
  948.     NULL,
  949.     NULL,
  950.     NULL
  951. };
  952.  
  953. /* show the message in an easy-request... */
  954. void FatalMessage(int ret, char *msg)
  955. {
  956.   char *TxtFmt;
  957.   
  958.   FatalES.es_Title = GetTeXString(MSG_SHOWDVI_FATAL_MESSAGE);
  959.   FatalES.es_GadgetFormat = GetTeXString(MSG_OK);
  960.  
  961.   if (ret < 6)        TxtFmt = GetTeXString(MSG_FATAL_WRONG);
  962.   else if (ret ==  9) TxtFmt = GetTeXString(MSG_FATAL_CHIPMEM);
  963.   else if (ret == 10) TxtFmt = GetTeXString(MSG_FATAL_MEMORY);
  964.   else if (ret < 16)  TxtFmt = GetTeXString(MSG_FATAL_INTERNAL);
  965.   else              TxtFmt = GetTeXString(MSG_FATAL_FATAL);
  966.  
  967.   if (is_os2) {
  968.     FatalES.es_TextFormat = TxtFmt;
  969.     /* der Return-Code ist unwichtig, da das Programm ohnehin nur beendet werden soll */
  970.     PROFILE_OFF();
  971.     (void)EasyRequestArgs(win2, &FatalES, NULL, &msg);
  972.     PROFILE_ON();
  973.   }
  974. #if defined(REQ_LIBRARY)
  975.   else {
  976.     if (ReqBase != NULL) {
  977.       struct TRStructure trs;
  978.  
  979.       /* hier auf keinen Fall ein Fatal(), da sonst Endlosschleife!! */
  980.       trs.Text     = TxtFmt;
  981.       trs.Controls = (char *)&msg;    /* dies funktioniert sogar! */
  982.       trs.Window       = 0;
  983.       trs.MiddleText   = NULL;
  984.       trs.PositiveText = GetTeXString(MSG_OK);
  985.       trs.NegativeText = NULL;
  986.       trs.Title = GetTeXString(MSG_SHOWDVI_FATAL_MESSAGE);
  987.       trs.KeyMask = (short)0xFFFF;
  988.       trs.textcolor = 1;
  989.       trs.detailcolor = 1;
  990.       trs.blockcolor = 1;
  991.       trs.versionnumber = REQVERSION;
  992.       trs.Timeout = 60;         /* you could put a timeout here if you wanted */
  993.       trs.AbortMask = 0;          /* If you wanted to abort this requester from another */
  994.                     /* process, pass the mask for Signal() in this element. */
  995.                     /* Then just Signal() the process that brought up the requester */
  996.       trs.rfu1 = 0;
  997.       (void)TextRequest(&trs);
  998.     }
  999.   }
  1000. #endif
  1001. }
  1002.  
  1003.  
  1004. /* Struktur fuer die Exit-Abfrage */
  1005. static struct EasyStruct ExitES = {
  1006.     sizeof (struct EasyStruct),
  1007.     0,
  1008.     NULL,
  1009.     NULL,
  1010.     NULL
  1011. };
  1012.  
  1013.  
  1014. long real_prog_end(void)
  1015. { 
  1016.   long ret = FALSE;
  1017.   
  1018.   ExitES.es_Title     = GetTeXString(MSG_SHOWDVI_MESSAGE);
  1019.   ExitES.es_TextFormat     = GetTeXString(MSG_REALLY_QUIT);
  1020.   ExitES.es_GadgetFormat = GetTeXString(MSG_YES_NO);
  1021.  
  1022.   if (can_i_exit()) {
  1023.     if (is_quickex) {
  1024.       ret = TRUE;
  1025.     }
  1026.     else {
  1027.       if (is_os2) {
  1028.         PROFILE_OFF();
  1029.         ret = EasyRequestArgs(win2, &ExitES, NULL, NULL);
  1030.         PROFILE_ON();
  1031.       }
  1032.       else {
  1033.         ret = (long)AutoRequest(win2,&end_body_text,&end_positive_text,&end_negative_text,0,0,270,70);
  1034.       }
  1035.     }
  1036.   }
  1037.  
  1038.   /* weg mit MENUVERIFY!! */
  1039.   if (ret &&!is_osmenu) MyModifyIDCMP(0, IDCMP_MENUVERIFY);
  1040.  
  1041.   return ret;
  1042. }
  1043.  
  1044.  
  1045. #endif
  1046.  
  1047.  
  1048.  
  1049.  
  1050. /*======================================================================================*/
  1051. /*        F I L E R E Q E S T E R  --  F U N K T I O N E N            */
  1052. /*======================================================================================*/
  1053.  
  1054.  
  1055.  
  1056. #if defined(ARP_FILEREQ)
  1057.   static long __stdargs ArpFileFuncReq    (LONGBITS mask, CPTR object);
  1058.   static long         ArpLoadFileReq    (void);
  1059.   static void         ArpInitFileReq    (void);
  1060.   static void        ArpFreeFileReq    (void);
  1061.   static int         ArpShowFileReq  (char *str);
  1062. #endif
  1063.  
  1064. #if defined(REQ_FILEREQ)
  1065.   static long         ReqLoadFileReq    (void);
  1066.   static void         ReqInitFileReq    (void);
  1067.   static void        ReqFreeFileReq    (void);
  1068. #endif
  1069.  
  1070. #if defined(ASL_FILEREQ)
  1071.   static long         AslLoadFileReq    (void);
  1072.   static void         AslInitFileReq    (void);
  1073.   static void        AslFreeFileReq    (void);
  1074. /*
  1075.   static ULONG __stdargs AslFileFuncReq (ULONG Mask, struct AnchorPath *anchor, 
  1076.                         struct FileRequester *req);
  1077. */
  1078. #endif
  1079.  
  1080.  
  1081.  
  1082. void InitFileReq(void)
  1083. {
  1084. #if defined(ASL_FILEREQ)
  1085.   AslInitFileReq();
  1086. #endif
  1087. #if defined(REQ_FILEREQ)
  1088.   ReqInitFileReq();
  1089. #endif
  1090. #if defined(ARP_FILEREQ)
  1091.   ArpInitFileReq();
  1092. #endif
  1093. }
  1094.  
  1095. long LoadFileReq(void)
  1096. {
  1097. #if defined(ASL_FILEREQ)
  1098.   return AslLoadFileReq();
  1099. #endif
  1100. #if defined(REQ_FILEREQ)
  1101.   return ReqLoadFileReq();
  1102. #endif
  1103. #if defined(ARP_FILEREQ)
  1104.   return ArpLoadFileReq();
  1105. #endif
  1106. }
  1107.  
  1108. void FreeFileReq(void)
  1109. {
  1110. #if defined(ASL_FILEREQ)
  1111.   AslFreeFileReq();
  1112. #endif
  1113. #if defined(REQ_FILEREQ)
  1114.   ReqFreeFileReq();
  1115. #endif
  1116. #if defined(ARP_FILEREQ)
  1117.   ArpFreeFileReq();
  1118. #endif
  1119. }
  1120.  
  1121.  
  1122.  
  1123.  
  1124. #if defined(ARP_FILEREQ) /* ------------------------------------------------------ */
  1125.  
  1126. #undef FCHARS
  1127. #undef DSIZE
  1128. #include "small_arp.h"
  1129.  
  1130. static struct ARPFileRequester    *file_req;
  1131.  
  1132.  
  1133. static long __stdargs ArpFileFuncReq(LONGBITS mask, CPTR object)
  1134. {
  1135.   struct AnchorPath *info = (struct AnchorPath *)object;
  1136.   struct FileInfoBlock *fib;
  1137.   char *hptr;
  1138.  
  1139.   if (mask != FRF_DoWildFunc || info == NULL) {
  1140.     return 0L;
  1141.   }
  1142.  
  1143.   fib = &(info->ap_Info);
  1144.  
  1145.   if (fib->fib_EntryType > 0) return 0L;    /* Dirs immer */
  1146.   hptr = strrchr(fib->fib_FileName,'.');
  1147.   if (hptr == NULL) return 1L;            /* kein Punkt ?? */
  1148.   if (stricmp(hptr,".dvi")) return 1L;        /* kein .dvi ?? */
  1149.  
  1150.   return 0L;
  1151. }
  1152.  
  1153.  
  1154. static long ArpLoadFileReq(void)
  1155. {
  1156.   char fr_file[108], *ptr, fname[108], c;
  1157.   long ret;
  1158.   int i, ac;
  1159.  
  1160.   if (is_arp) {
  1161.     ac = 0;    /* importand */
  1162.     strcpy(file_req->fr_Dir,
  1163.         (char *)((struct StringInfo *)(dir_Gad.SpecialInfo))->Buffer);
  1164.     strcpy(file_req->fr_File,
  1165.         (char *)((struct StringInfo *)(fil_Gad.SpecialInfo))->Buffer);
  1166.  
  1167.     ptr = strrchr(file_req->fr_Dir,'/');
  1168.     if (ptr != NULL && *(ptr+1) == '\0') {    /* / at the end */
  1169.       *ptr = '\0';
  1170.     }
  1171.  
  1172.     ptr = strrchr(file_req->fr_File,'.');
  1173.     if (ptr == NULL || strcmp(ptr,".dvi") != 0) {
  1174.       strcat(file_req->fr_File,".dvi");
  1175.     }
  1176.  
  1177.     if (ArpShowFileReq(fr_file)) {
  1178.       strcpy(fname,file_req->fr_Dir);
  1179.       TackOn(fname,file_req->fr_File);
  1180.       ptr = strrchr(fname,'.');
  1181.       if (ptr == NULL || strcmp(ptr,".dvi") != 0 ||
  1182.           (ac = access(fname,4)) != 0 ) {
  1183.     ptr = (char *)((struct StringInfo *)(dir_Gad.SpecialInfo))->Buffer;
  1184.         strcpy(ptr, file_req->fr_Dir);
  1185.         i = strlen(ptr);
  1186.         if (i > 0)  {     /* haenge slash an */
  1187.           c = ptr[i-1];
  1188.           if (c != ':' && c != '/' )  {
  1189.              ptr[i] = '/';
  1190.              ptr[i+1] = (char)0;
  1191.           }
  1192.         }
  1193.         strcpy((char *)((struct StringInfo *)(fil_Gad.SpecialInfo))->Buffer,
  1194.         file_req->fr_File);
  1195.         RefreshGadgets(&dir_Gad,win2,NULL);
  1196.         if (strlen(fname) > 30) {
  1197.           strcpy(fname,file_req->fr_File);
  1198.         }
  1199.         if (ac == 0) {
  1200.           sprintf(m_string,GetTeXString(MSG_FILE_ISNT_DVI_FILE),fname);
  1201.         }
  1202.         else {
  1203.           sprintf(m_string,GetTeXString(MSG_CANT_FOUND_FILE),fname);
  1204.         }
  1205.         Message(m_string);
  1206.         beep();
  1207.         ret = 5L;
  1208.       }
  1209.       else {
  1210.         strcpy(filename,fname);
  1211.         OpenNewDVI(fname, FALSE);
  1212.         ret = 4L;            /* neues File, Name geaendert. */
  1213.       }
  1214.     }
  1215.     else {
  1216.       ret = 5L;
  1217.     }
  1218.   }
  1219.   else {
  1220.     Message("I need the ARP-Library!");
  1221.     beep();
  1222.     ret = 5L;
  1223.   }
  1224.   return ret;
  1225. }
  1226.  
  1227.  
  1228. static void ArpInitFileReq(void)
  1229. {
  1230.   void (*func)();
  1231.  
  1232.   if (!is_arp) {
  1233.     return;
  1234.   }
  1235.  
  1236.   func = (void *)&ArpFileFuncReq;
  1237.  
  1238.   file_req = ArpAllocFreq();
  1239.   if (file_req == NULL) {
  1240.     Fatal(10,MSG_CANT_ALLOC_FREQ);
  1241.   }
  1242.   file_req->fr_Hail = GetTeXString(MSG_LOAD_NEW_DVI);
  1243.   file_req->fr_FuncFlags |= FRF_DoWildFunc;
  1244.   file_req->fr_Function = func;
  1245. }
  1246.  
  1247.  
  1248. #define FR_HEIGHT    100
  1249. #define FR_WIDTH    200
  1250.  
  1251.  
  1252.  
  1253. static int ArpShowFileReq(char *str)
  1254. {
  1255.   char *hptr;
  1256.   register int x=(x_scr_width-FR_WIDTH-20)/2,
  1257.            y=(x_scr_height-FR_HEIGHT-20)/2;
  1258.  
  1259. /*
  1260.   if (x+FR_WIDTH > x_scr_width) x = x_scr_width-FR_WIDTH;
  1261.   if (y+FR_HEIGHT > x_scr_height) y = x_scr_height-FR_HEIGHT;
  1262. */
  1263.  
  1264.   file_req->fr_Window = win2;
  1265.   file_req->fr_LeftEdge = x;
  1266.   file_req->fr_TopEdge = y;
  1267.  
  1268.   PROFILE_OFF();
  1269.   hptr = FileRequest(file_req);
  1270.   PROFILE_ON();
  1271.  
  1272.   if (hptr == NULL)
  1273.     return (FALSE);
  1274.  
  1275.   strcpy(str,hptr);
  1276.   return (TRUE);
  1277. }
  1278.  
  1279.  
  1280. static void ArpFreeFileReq(void)
  1281. {
  1282.   return;
  1283. }
  1284.  
  1285.  
  1286. #endif /* ARP_FILEREQ  ------------------------------------------------------------- */
  1287.  
  1288.  
  1289.  
  1290.  
  1291. #if defined(REQ_FILEREQ)   /* ------------------------------------------------------ */
  1292.  
  1293.  
  1294. static struct ReqFileRequester    MyFileReqStruct;
  1295. static short IsReqStarted = FALSE;
  1296. static char ReqFileName[FCHARS];
  1297. static char ReqDirName[DSIZE];
  1298.  
  1299. static long ReqLoadFileReq(void)
  1300. {
  1301.   char answerarray[DSIZE+FCHARS];
  1302.   long ret;
  1303.   char *ptr;
  1304.  
  1305.  
  1306.  
  1307.   if (ReqBase != NULL) {
  1308.  
  1309.     answerarray[0] = 0;
  1310.  
  1311.  
  1312.  
  1313.     /* Initialize the 'PathName' field so that the file requester will */
  1314.     /* construct a complete path name for me.  It will also put the two */
  1315.     /* parts of the answer (directory and file name) into the directory */
  1316.     /* file name which I also decided to supply it with.  Since the */
  1317.     /* directory and file name arrays are present, it will use their */
  1318.     /* initial contents as the initial file and directory.  If they aren't */
  1319.     /* present it will leave both blank to start. */
  1320.  
  1321. #if 0
  1322.     strcpy(&(ReqDirName[0]),(char *)((struct StringInfo *)(dir_Gad.SpecialInfo))->Buffer);
  1323.     strcpy(&(ReqFileName[0]), (char *)((struct StringInfo *)(fil_Gad.SpecialInfo))->Buffer);
  1324. #else
  1325.     if (is_dir(filename)) {
  1326.       strcpy(ReqDirName, filename);
  1327.       ReqFileName[0] = '\0';
  1328.     }
  1329.     else {
  1330.       strcpy(ReqFileName, FilePart(filename));
  1331.       ptr = strrchr(filename, '/');
  1332.       if (ptr == NULL) ptr = strchr(filename, ':');
  1333.       if (ptr == NULL) ReqDirName[0] = '\0';
  1334.       else {
  1335.         int n = ptr - filename;
  1336.         if (*ptr == ':') n++;        // Doppelpunkt kommt mit
  1337.         strncpy(ReqDirName, filename, n);
  1338.         ReqDirName[n] = '\0';
  1339.       }
  1340.     }
  1341. #endif
  1342.   
  1343.     /* printf("Dir: '%s', File: '%s'\n", ReqDirName, ReqFileName); */
  1344.  
  1345.     MyFileReqStruct.PathName = answerarray;
  1346.     MyFileReqStruct.Dir = ReqDirName;
  1347.     MyFileReqStruct.File = ReqFileName;
  1348.  
  1349.     /* The directory caching of this file requester is one of its nice */
  1350.     /* features, so I decided to show it off.  It is completely optional */
  1351.     /* though, so if you don't want it, don't set this flag.  If you do */
  1352.     /* want it, don't forget to call PurgeFiles() when you are done. */
  1353.     MyFileReqStruct.Flags = FRQCACHINGM | FRQHIDEWILDSM | FRQABSOLUTEXYM;
  1354.  
  1355.     /* Initialize a few colour fields.  Not strictly necessary, but */
  1356.     /* personally, I like having my files a different colour from my */
  1357.     /* directories. */
  1358.     if (is_col4) {
  1359.       MyFileReqStruct.dirnamescolor = 2;
  1360.       MyFileReqStruct.devicenamescolor = 1;
  1361.     }
  1362.     else {
  1363.       MyFileReqStruct.dirnamescolor = 1;
  1364.       MyFileReqStruct.devicenamescolor = 1;
  1365.     }
  1366.  
  1367.     MyFileReqStruct.numlines = 30;
  1368.  
  1369.     /* I could also make it larger, pass it a file and/or directory */
  1370.     /* name, set the window title, set various flags and customize */
  1371.     /* in many other ways, but I wanted to show that it can be easily */
  1372.     /* used without having to fill in a lot of fields. */
  1373.  
  1374.     MyFileReqStruct.VersionNumber = REQVERSION;
  1375.     MyFileReqStruct.Title = GetTeXString(MSG_LOAD_NEW_DVI);
  1376.     strcpy(MyFileReqStruct.Show, "*.dvi");
  1377.  
  1378.     IsReqStarted = TRUE;
  1379.  
  1380.         PROFILE_OFF();
  1381.     if (FileRequester(&MyFileReqStruct)) {
  1382.   
  1383.             PROFILE_ON();
  1384.  
  1385.         /* printf("Result: '%s', Dir: '%s', File: '%s'\n",
  1386.                   MyFileReqStruct.PathName,
  1387.                   MyFileReqStruct.Dir,
  1388.                   MyFileReqStruct.File); */
  1389.  
  1390.         ptr = strrchr(answerarray, '.');
  1391.         if (ptr == NULL || stricmp(ptr, ".dvi") != 0) {
  1392.           strcat(answerarray, ".dvi");
  1393.         }
  1394.  
  1395.         if (access(answerarray, 4) != 0) {
  1396.           Message(MSG_CANT_FOUND_FILE, answerarray);
  1397.           beep();
  1398.           ret = 5L;
  1399.         }
  1400.         else {
  1401.           if (stricmp(filename, &(answerarray[0])) == 0) {
  1402.             OpenNewDVI(&(answerarray[0]), FALSE);
  1403.             ret = 3L;            /* neues File, Name *nicht* geaendert. */
  1404.           }
  1405.           else {
  1406.             strcpy(filename, &(answerarray[0]));
  1407.             OpenNewDVI(&(answerarray[0]), FALSE);
  1408.             ret = 4L;            /* neues File, Name geaendert. */
  1409.           }
  1410.         }
  1411.     }
  1412.     else {
  1413.         PROFILE_ON();
  1414.         ret = 5L;
  1415.     }
  1416.     
  1417.   }
  1418.   else {
  1419.     Message(MSG_NEED_REQ_LIB);
  1420.     ret = 5L;
  1421.   }
  1422.  
  1423.   return ret;
  1424. }
  1425.  
  1426. static void ReqInitFileReq(void)
  1427. {
  1428.   return;
  1429. }
  1430.  
  1431. static void ReqFreeFileReq(void)
  1432. {
  1433.   if (ReqBase && IsReqStarted) {
  1434.     PurgeFiles(&MyFileReqStruct);    /* Only necessary if the FRQCACHINGM flag */
  1435.     IsReqStarted = FALSE;
  1436.   }
  1437. }
  1438.  
  1439.  
  1440. #endif /* REQ_FILEREQ  ------------------------------------------------------------- */
  1441.  
  1442.  
  1443. #if defined(ASL_FILEREQ)  /* ------------------------------------------------------- */
  1444.  
  1445.  
  1446. #include <libraries/asl.h>
  1447. #include <clib/asl_protos.h>
  1448. #include <pragmas/asl_pragmas.h>
  1449.  
  1450. extern struct Library         * AslBase;
  1451. static struct FileRequester     * AslRequestPtr = NULL;
  1452. static char             * AslFileTitle  = NULL;
  1453. static char               AslFileName[FCHARS+1];
  1454. static char               AslDirName[DSIZE+1];
  1455.  
  1456.  
  1457. static long AslLoadFileReq(void)
  1458. {
  1459.   long ret = 5;
  1460.   char * ptr;
  1461.   char answerarray[FCHARS+DSIZE+1];
  1462.  
  1463.   if (AslBase != NULL && AslRequestPtr != NULL) {
  1464.     if (is_dir(filename)) {
  1465.       strcpy(AslDirName, filename);
  1466.       AslFileName[0] = '\0';
  1467.     }
  1468.     else {
  1469.       strcpy(AslFileName, FilePart(filename));
  1470.       ptr = strrchr(filename, '/');
  1471.       if (ptr == NULL) ptr = strchr(filename, ':');
  1472.       if (ptr == NULL) AslDirName[0] = '\0';
  1473.       else {
  1474.         int n = ptr - filename;
  1475.         if (*ptr == ':') n++;        // Doppelpunkt kommt mit
  1476.         strncpy(AslDirName, filename, n);
  1477.         AslDirName[n] = '\0';
  1478.       }
  1479.     }
  1480.  
  1481.     PROFILE_OFF();
  1482.     if (AslRequestTags(AslRequestPtr, ASLFR_Window, win2, 
  1483.                       ASLFR_PrivateIDCMP, TRUE, 
  1484.                       ASLFR_TitleText, AslFileTitle, 
  1485.                       ASLFR_InitialFile, AslFileName,
  1486.                       ASLFR_InitialDrawer, AslDirName,
  1487.                       TAG_DONE)) {
  1488.  
  1489.       PROFILE_ON();
  1490.       if (AslRequestPtr->rf_File[0] == 0) return 5;    // leere Eingabe
  1491.  
  1492.       strncpy(answerarray, AslRequestPtr->rf_Dir, sizeof(answerarray)-1);
  1493.       AddPart(answerarray, AslRequestPtr->rf_File, sizeof(answerarray)-1);
  1494.  
  1495.       if (access(answerarray, 4) != 0) {
  1496.         ptr = strrchr(answerarray, '.');
  1497.         if (ptr == NULL || stricmp(ptr, ".dvi") != 0) {
  1498.           strcat(answerarray, ".dvi");
  1499.         }
  1500.       }
  1501.  
  1502.       if (access(answerarray, 4) != 0) {
  1503.         Message(MSG_CANT_FOUND_FILE, answerarray);
  1504.         beep();
  1505.         ret = 5L;
  1506.       }
  1507.       else {
  1508.         if (stricmp(filename, &(answerarray[0])) == 0) {
  1509.           OpenNewDVI(&(answerarray[0]), FALSE);
  1510.           ret = 3L;            /* neues File, Name *nicht* geaendert. */
  1511.         }
  1512.         else {
  1513.           strcpy(filename, &(answerarray[0]));
  1514.           OpenNewDVI(&(answerarray[0]), FALSE);
  1515.           ret = 4L;            /* neues File, Name geaendert. */
  1516.         }
  1517.       }
  1518.     }
  1519.     else {
  1520.       PROFILE_ON();
  1521.     }
  1522.   }
  1523.   return ret;
  1524. }
  1525.  
  1526.  
  1527. static void AslInitFileReq(void)
  1528. {
  1529.   AslFileTitle = GetTeXString(MSG_LOAD_NEW_DVI);
  1530.   if (AslBase != NULL && AslFileTitle) {
  1531.     AslRequestPtr = AllocAslRequestTags(ASL_FileRequest, ASLFR_SleepWindow, TRUE, 
  1532.                              ASLFR_InitialPattern, "#?.dvi", 
  1533.                              ASLFR_DoPatterns, TRUE,
  1534.                              TAG_DONE);
  1535.     if (AslRequestPtr == NULL) {
  1536.       Warning(MSG_CANT_ALLOC_ASLREQ);
  1537.     }
  1538.   }
  1539. }
  1540.  
  1541.  
  1542. static void AslFreeFileReq(void)
  1543. {
  1544.   if (AslBase != NULL && AslRequestPtr != NULL) {
  1545.     FreeAslRequest(AslRequestPtr);
  1546.     AslRequestPtr = NULL;
  1547.   }
  1548. }
  1549.  
  1550. #endif /* ASL_FILEREQ  ------------------------------------------------------------- */
  1551.  
  1552.  
  1553.  
  1554.  
  1555.  
  1556. int MyGetString(char *title, char *result)
  1557. {
  1558. #if defined(REQ_LIBRARY)
  1559.   struct GetStringStruct gss;
  1560.  
  1561.   if (ReqBase != NULL) {
  1562.     memset(&gss, 0, sizeof(gss));
  1563.     gss.titlebar      = title;
  1564.     gss.stringbuffer  = result;
  1565.     gss.stringsize    = 100;
  1566.     gss.visiblesize   = 30;
  1567.     gss.versionnumber = REQVERSION;
  1568.     PROFILE_OFF();
  1569.     if (NewGetString(&gss)) {
  1570.       PROFILE_ON();
  1571.       return TRUE;
  1572.     }
  1573.     else {
  1574.       PROFILE_ON();
  1575.       return FALSE;
  1576.     }
  1577.   }
  1578.   else {
  1579.     Warning(MSG_NEED_REQ_LIB);
  1580.     return FALSE;
  1581.   }
  1582. #else
  1583.   return FALSE;
  1584. #endif
  1585. }
  1586.  
  1587. int MyGetLong(char *title, long min, long max, long defval, long *result)
  1588. {
  1589. #if defined(REQ_LIBRARY)
  1590.   struct GetLongStruct    gls;
  1591.  
  1592.   if (ReqBase != NULL) {
  1593.     gls.titlebar   = title;
  1594.     gls.defaultval = defval;
  1595.     gls.minlimit   = min;
  1596.     gls.maxlimit   = max;
  1597.     gls.window     = NULL;
  1598.     gls.versionnumber = REQVERSION;
  1599.     if (defval == -12321) {    /* magic number for 'no default' */
  1600.       gls.flags    = GLNODEFAULTM;
  1601.     }
  1602.     else {
  1603.       gls.flags    = 0;
  1604.     }
  1605.     gls.rfu2       = 0;
  1606.     PROFILE_OFF();
  1607.     if (GetLong(&gls)) {
  1608.       PROFILE_ON();
  1609.       *result = gls.result;
  1610.       return TRUE;
  1611.     }
  1612.     else {
  1613.       PROFILE_ON();
  1614.       return FALSE;
  1615.     }
  1616.   }
  1617.   else {
  1618.     return FALSE;
  1619.   }
  1620. #else
  1621.   return FALSE;
  1622. #endif
  1623. }
  1624.  
  1625.  
  1626. void Okay1(char *text)
  1627. {
  1628.   (void)MySimpleRequest(1, NULL, NULL, NULL, NULL, text);
  1629. }
  1630.  
  1631.  
  1632. int Okay2(char *text)
  1633. {
  1634.   return MySimpleRequest(2, NULL, NULL, NULL, NULL, text);
  1635. }
  1636.  
  1637.  
  1638. void ChangeFormatFile(void)
  1639. {
  1640.   char con[100];
  1641.   int ret;
  1642.  
  1643.   if (is_os2) {
  1644.     ret = GetVar("TEXFORMAT", con, 90, GVF_GLOBAL_ONLY);
  1645.     if (ret == -1) { 
  1646.       strcpy(con, "plain");
  1647.     }
  1648.     if (MyGetString(GetTeXString(MSG_FORMAT_FILE_NAME), con)) {
  1649.       if (!SetVar("TEXFORMAT", con, -1, GVF_GLOBAL_ONLY)) {
  1650.         Warning(MSG_CANT_SET_VARIABLE, "TEXFORMAT");
  1651.       }
  1652.     }
  1653.   }
  1654. }
  1655.  
  1656.  
  1657.  
  1658.  
  1659. static struct TagItem StartComTags[] = {
  1660.     {SYS_Input,     NULL },
  1661.     {SYS_Output,    NULL },
  1662.     {SYS_Asynch,    TRUE },
  1663.     {SYS_UserShell, TRUE },
  1664.     {NP_Priority,   0    },
  1665.     {NP_StackSize,  4096 },
  1666.     {NP_WindowPtr,  NULL },
  1667.     {TAG_DONE,      NULL } };
  1668.  
  1669. int start_command(char *title, char *name, char *PubScr)
  1670. {
  1671.   char con[150];
  1672.   BPTR fh;
  1673.   int ret = 0;
  1674.   
  1675.   if (is_os2) {
  1676.     sprintf(con, "CON:%d/%d/%d/%d/%s/AUTO/CLOSE/WAIT/SCREEN %s",
  1677.         win2->LeftEdge+win2->BorderLeft+3, win2->TopEdge+win2->BorderTop+3,
  1678.         win2->Width-win2->BorderLeft-win2->BorderRight-22,
  1679.         (is_lace) ? 200 : 120, title, ((PubScr != NULL) ? PubScr : GetCurrentPubScr()));
  1680.     if (fh = Open(con, MODE_NEWFILE)) {
  1681.       StartComTags[0].ti_Data = fh;
  1682.       StartComTags[6].ti_Data = (ULONG)win2;    /* das Fenster *muss* dann aber auch offen bleiben! */
  1683.       if (SystemTagList(name, StartComTags)) {
  1684.         Close(fh);
  1685.         ret = 1;
  1686.       }
  1687.     }
  1688.     else {
  1689.       ret = 2;
  1690.     }
  1691.   }
  1692.   return ret;
  1693. }
  1694.  
  1695.  
  1696. /*
  1697.  * GetScreenMode()
  1698.  *
  1699.  * Ruft den Screenmode Requester der asl-Library auf (V38)
  1700.  *
  1701.  * Das Argument DisplayID wird sowohl als Initial-Wert, als auch 
  1702.  * als Rueckgabe-Wert verwendet.
  1703.  * Das Window (zweite Argument) wird eingeschlaefert, solange der
  1704.  * Requester oben ist. Auch win2 wird eingeschlaefert.
  1705.  *
  1706.  * Rueckgabewert FALSE bedeutet, dass etwas fehlgeschlagen ist.
  1707.  * Dann ist das Argument unveraendert.
  1708.  *
  1709.  */
  1710.  
  1711. static struct TagItem ScrModeTags[] = 
  1712.  { { ASLSM_Screen, NULL        },
  1713.    { ASLSM_InitialDisplayID, 0L    },
  1714.    { ASLSM_Window, NULL        },
  1715.    { ASLSM_SleepWindow, TRUE    },
  1716.    { ASLSM_PrivateIDCMP, FALSE    },
  1717.    { TAG_DONE, TRUE        }
  1718.  };
  1719.  
  1720. int GetScreenMode(ULONG * DisplayID, struct Window * w)
  1721. {
  1722.   int ret = FALSE;
  1723.   struct ScreenModeRequester * requester;
  1724.   
  1725.   if (AslBase == NULL || AslBase->lib_Version < 38) return ret;    // V38 benoetigt
  1726.  
  1727.   ScrModeTags[0].ti_Data = (ULONG)screen;
  1728.   ScrModeTags[1].ti_Data = *DisplayID;
  1729.   ScrModeTags[2].ti_Data = (long)w;
  1730.   
  1731.   requester = AllocAslRequest(ASL_ScreenModeRequest, ScrModeTags);
  1732.   if (requester != NULL) {
  1733.     sleep_pointer();
  1734.     PROFILE_OFF();
  1735.     if (AslRequest(requester, ScrModeTags)) {
  1736.       PROFILE_ON();
  1737.       *DisplayID = requester->sm_DisplayID;
  1738.       ret = TRUE;
  1739.     }
  1740.     else {
  1741.       PROFILE_ON();
  1742.     }
  1743.     FreeAslRequest(requester);
  1744.     clear_pointer();
  1745.   }
  1746.   return ret;
  1747. }
  1748.  
  1749.  
  1750. /************************/
  1751.  
  1752. int StartSearch(enum SearchOpt opt)
  1753. {
  1754.   int ret = 5;
  1755.   ULONG ret_sigs;
  1756.   enum SearchActions sr = SEARCHWIN_ACTION_NONE;
  1757.   char SBuf[100] = "";
  1758.  
  1759.   if (is_dvif) {
  1760.   
  1761.     sleep_pointer();
  1762.   
  1763.     if (opt == SO_StartSearchAgain) {
  1764.       char * ptr = GetCurSearchString();
  1765.  
  1766.       if (ptr) {
  1767.       InitBMSearch(ptr);
  1768.     SearchStartPage = current_page_phy;
  1769.     InSearchMode = TRUE;
  1770.     ret = 6;
  1771.       }
  1772.       else {
  1773.         ret = 5;
  1774.       }
  1775.       
  1776.       clear_pointer();
  1777.       
  1778.       return ret;
  1779.     }
  1780.  
  1781.     OpenSearchWin();
  1782.  
  1783. #if 0    
  1784.     do {
  1785.       ret_sigs = Wait((1<<sig_searchwin) | SIGBREAKF_CTRL_C);
  1786.  
  1787.       if (ret_sigs & SIGBREAKF_CTRL_C) {
  1788.         CXBRK();        /* CTRL C  --  Prog. Ende     */
  1789.         return 5;        /* oder falls es nicht geht...     */
  1790.       }
  1791.  
  1792.       sr = DoSearchWin(SBuf, sizeof(SBuf)-1);
  1793.       
  1794.     } while (sr == SEARCHWIN_ACTION_NONE);
  1795.     
  1796.     switch (sr) {
  1797.       case SEARCHWIN_ACTION_CLOSE:
  1798.       case SEARCHWIN_ACTION_CANCEL:
  1799.         ret = 5;
  1800.           break;
  1801.       case SEARCHWIN_ACTION_SEARCH:
  1802.         // das Fenster bleibt noch auf!
  1803.         if (*SBuf != '\0') {
  1804.         InitBMSearch(SBuf);
  1805.       SearchStartPage = current_page_phy;
  1806.       InSearchMode = TRUE;
  1807.       ret = 6;
  1808.     }
  1809.     else {
  1810.       ret = 5;
  1811.     }
  1812.     break;
  1813.       default:
  1814.         ret = 5;    // eigentlich ein Fatal() wert..
  1815.     }
  1816. #endif
  1817.     
  1818.     clear_pointer();
  1819.   }
  1820.  
  1821.  
  1822.   return ret;
  1823. }
  1824.  
  1825.