home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d049 / plot.lha / Plot / save.c < prev   
Encoding:
C/C++ Source or Header  |  1987-01-11  |  4.9 KB  |  154 lines
  1. /* save.c -- open a window to get filename,
  2. close it, and proceed as directed.... */
  3.  
  4. #define SWX 270      /* Save Window Size  */
  5. #define SWY 70
  6.  
  7. #define CANCEL_GAD 0
  8. #define OKAY_GAD 1
  9.  
  10. extern char filename[31];
  11. extern struct TextAttr TestFont;
  12. /* define ok and cancel gadgets */
  13. struct IntuiText okay_text = {3,2,JAM2,0,2,NL,(UBYTE *) "  OK  ",NL};
  14. struct IntuiText cancel_text = {3,2,JAM2,0,2,NL,(UBYTE *) "Cancel",NL};
  15. struct Gadget cancel_gadget = {
  16.    NL, 155,50, 60,11, GADGHCOMP, RELVERIFY,
  17.    BOOLGADGET, NL, NL,
  18.    &cancel_text, NL,NL, CANCEL_GAD, NL };
  19.  
  20. struct Gadget okay_gadget = {
  21.    &cancel_gadget, 155,30, 60,11, GADGHCOMP, RELVERIFY,
  22.    BOOLGADGET, NL, NL,
  23.    &okay_text, NL,NL, OKAY_GAD, NL };
  24.  
  25. /* define filename gadget */
  26.  
  27. #define BUFFERSIZE 26
  28. USHORT FileNameVectors[] = {
  29.    -1,-1,
  30.    152,-1,
  31.    152, 12,
  32.    -1, 12,
  33.    -1, -1,
  34. };
  35.  
  36. struct Border FileNameBorder = {
  37.    -1, -1,           /* initial offsets, gadget relative */
  38.    1, 0, JAM1, /* pens (fore, back) and drawmode */
  39.    5,                /* number of vectors */
  40.    FileNameVectors,     /* pointer to the actual array of vectors */
  41.    NULL       /* no next Border, can point to another border */
  42. };
  43.  
  44. /* default text */
  45. UBYTE FileNameBuffer[BUFFERSIZE] = "temp";
  46. UBYTE UndoNameBuffer[BUFFERSIZE];
  47. struct StringInfo FileNameInfo = {
  48.    FileNameBuffer,    /* pointer to I/O buffer */
  49.    UndoNameBuffer,    /* pointer to undo buffer */
  50.    0,             /* buffer position */
  51.    BUFFERSIZE,   /* max number of chars, including NULL */
  52.    0, 0,          /* first char in display, undo positions */
  53.    5,          /* number of chars (currently) in the buffer */
  54.    0, 0, 0,    /* position variables calculated by Intuition */
  55.    NULL,          /* no pointer to RastPort */
  56.    0,            /* not a LongInt string gadget */
  57.    NULL           /* no pointer to alternate keymap */
  58. };
  59. struct IntuiText FileNameText = {
  60.    2, 2,    /* FrontPen, BackPen */
  61.    JAM1,          /* DrawMode */
  62.    -101, 0,        /* LeftEdge, TopEdge (relative to gadget) */
  63.    &TestFont,     /* pointer to TextFont */
  64.    (UBYTE *) "Filename:",    /* pointer to Text */
  65.    NL           /* no pointer to NextText */
  66. };
  67.  
  68. #define FILENAME_GAD 2
  69.  
  70. struct Gadget FileNameGadget = {
  71.    &okay_gadget,             /* pointer to Next Gadget */
  72.    110, 10, 150, 11,  /* (Left Top Width Height) Hit Box */
  73.    GADGHCOMP,        /* Flags */
  74.    RELVERIFY,        /* Activation flags */
  75.    STRGADGET,        /* Type */
  76.    (APTR)&FileNameBorder, /* pointer to Border Image */
  77.    NL,             /* no pointer to SelectRender */
  78.    &FileNameText,        /* pointer to GadgetText */
  79.    NL,                /* no MutualExclude */
  80.    (APTR)&FileNameInfo,  /* pointer to SpecialInfo */
  81.    FILENAME_GAD,                /*  ID */
  82.    NL              /* no pointer to special data */
  83. };
  84.  
  85. /* Used to open a Window   */
  86. struct NewWindow NewSwin = {
  87.    25,65, SWX,SWY, 2,BCOL, NL,    /* IDCMP set up AFTER CALL */
  88.    ACTIVATE | SMART_REFRESH,
  89.    &FileNameGadget,NL, NL,    /* FirstGadget, CheckMark, Title  */
  90.    NL,NL,              /* MUST SET SCREEN AFTER OPENSCREEN!!! */
  91.    SWX,SWY,SWX,SWY, CUSTOMSCREEN }; /* MinW, MinH, MaxW, MaxH */
  92.  
  93.  
  94. /********************************************************************
  95. * save(window)
  96. *    This is the meat. This routine opens the save window and
  97. * retains control until the user selects the OK or CANCEL gadget.
  98. *     The calling arguement is a window pointer.  That window
  99. * is expected to have opened an IDCMP port, which save uses.
  100. ********************************************************************/
  101. int save(calling_window)
  102. struct Window *calling_window;
  103. {
  104. struct Window *cW;      /* save window handle   */
  105.  
  106. FAST struct IntuiMessage *imsg;
  107. FAST struct Gadget *igad;
  108.  
  109. FAST int class;
  110. int confirmed;
  111. BOOL stayhere;
  112.  
  113.    /* Get screen from calling window   */
  114.    NewSwin.Screen = calling_window->WScreen;  /* NEED TO SET SCREEN!!! */
  115.    if ( ! (cW = (struct Window *)OpenWindow(&NewSwin)) ) {
  116.       return(FALSE); /* Oops...  */
  117.       }
  118.  
  119.    cW->UserPort = calling_window->UserPort;
  120.    ModifyIDCMP(cW, GADGETUP | GADGETDOWN);
  121.    stayhere=TRUE;
  122.    while (stayhere == TRUE) {
  123.       while (imsg=(struct IntuiMessage *)GetMsg(cW->UserPort)) {
  124.          class = imsg->Class;
  125.          ReplyMsg(imsg);
  126.          switch ( class ) {
  127.             case GADGETUP:
  128.             case GADGETDOWN:
  129.                igad =(struct Gadget *) imsg->IAddress;
  130.                switch ( igad->GadgetID ) {
  131.                   case CANCEL_GAD:
  132.                      confirmed=0;
  133.                      stayhere=FALSE;
  134.                      break;
  135.                   case OKAY_GAD:
  136.                      strcpy(filename,FileNameBuffer);
  137.                      confirmed=1;
  138.                      stayhere=FALSE;
  139.                      break;
  140.                   case FILENAME_GAD:
  141.                      strcpy(filename,FileNameBuffer);
  142.                      break;
  143.                }
  144.          }
  145.       }
  146.    }
  147.    cW->UserPort = NL;
  148.    CloseWindow(cW);
  149.    if (confirmed==1)
  150.       return(1);
  151.    else
  152.       return(0);
  153. }
  154.