home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / terms / term-4.1-source.lha / Extras / Source / term-Source.lha / UploadPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-02  |  3.8 KB  |  202 lines
  1. /*
  2. **    UploadPanel.c
  3. **
  4. **    ZModem auto-upload control panel support routines
  5. **
  6. **    Copyright © 1990-1994 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. BYTE
  13. UploadPanel()
  14. {
  15.     struct LayoutHandle    *Handle;
  16.     BYTE             Selection = UPLOAD_IGNORE,
  17.                  FromQueue = CheckUpload();
  18.  
  19.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  20.         LH_LocaleHook,    &LocaleHook,
  21.     TAG_DONE))
  22.     {
  23.         struct Window *PanelWindow;
  24.  
  25.         LT_New(Handle,
  26.             LA_Type,    VERTICAL_KIND,
  27.         TAG_DONE);
  28.         {
  29.             LT_New(Handle,
  30.                 LA_Type,    VERTICAL_KIND,
  31.                 LA_LabelID,    MSG_UPLOADPANEL_SELECT_ZMODEM_UPLOAD_TYPE_GAD,
  32.             TAG_DONE);
  33.             {
  34.                 LT_New(Handle,
  35.                     LA_Type,    BUTTON_KIND,
  36.                     LA_LabelID,    MSG_UPLOADPANEL_TEXT_UPLOAD_GAD,
  37.                     LA_ID,        UPLOAD_TEXT,
  38.                 TAG_DONE);
  39.  
  40.                 LT_New(Handle,
  41.                     LA_Type,    BUTTON_KIND,
  42.                     LA_LabelID,    MSG_UPLOADPANEL_BINARY_UPLOAD_GAD,
  43.                     LA_ID,        UPLOAD_BINARY,
  44.                     LABT_ReturnKey,    TRUE,
  45.                 TAG_DONE);
  46.  
  47.                 LT_EndGroup(Handle);
  48.             }
  49.  
  50.             LT_New(Handle,
  51.                 LA_Type,VERTICAL_KIND,
  52.             TAG_DONE);
  53.             {
  54.                 LT_New(Handle,
  55.                     LA_Type,    CHECKBOX_KIND,
  56.                     LA_LabelID,    MSG_UPLOADPANEL_FROM_UPLOAD_QUEUE_TXT,
  57.                     LA_BYTE,    &FromQueue,
  58.                     LABT_ReturnKey,    TRUE,
  59.                     LA_ID,        UPLOAD_DUMMY,
  60.                 TAG_DONE);
  61.  
  62.                 LT_New(Handle,
  63.                     LA_Type,    XBAR_KIND,
  64.                     LAXB_FullSize,    TRUE,
  65.                 TAG_DONE);
  66.  
  67.                 LT_EndGroup(Handle);
  68.             }
  69.  
  70.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  71.                 LAGR_SameSize,    TRUE,
  72.                 LAGR_Spread,    TRUE,
  73.             TAG_DONE);
  74.             {
  75.                 LT_New(Handle,
  76.                     LA_Type,    BUTTON_KIND,
  77.                     LA_LabelID,    MSG_UPLOADPANEL_IGNORE_GAD,
  78.                     LA_ID,        UPLOAD_IGNORE,
  79.                     LABT_ExtraFat,    TRUE,
  80.                 TAG_DONE);
  81.  
  82.                 LT_New(Handle,
  83.                     LA_Type,    BUTTON_KIND,
  84.                     LA_LabelID,    MSG_GLOBAL_ABORT_GAD,
  85.                     LA_ID,        UPLOAD_ABORT,
  86.                     LABT_EscKey,    TRUE,
  87.                     LABT_ExtraFat,    TRUE,
  88.                 TAG_DONE);
  89.  
  90.                 LT_EndGroup(Handle);
  91.             }
  92.  
  93.             LT_EndGroup(Handle);
  94.         }
  95.  
  96.         if(PanelWindow = LT_Layout(Handle,LocaleString(MSG_UPLOADPANEL_UPLOAD_TYPE_TXT),NULL,0,0,IDCMP_CLOSEWINDOW,0,
  97.             LAWN_HelpHook,        &GuideHook,
  98.             LAWN_Parent,        Window,
  99.             WA_DepthGadget,        TRUE,
  100.             WA_CloseGadget,        TRUE,
  101.             WA_DragBar,        TRUE,
  102.             WA_RMBTrap,        TRUE,
  103.             WA_Activate,        TRUE,
  104.         TAG_DONE))
  105.         {
  106.             struct IntuiMessage    *Message;
  107.             BOOLEAN             Done = FALSE;
  108.             ULONG             MsgClass,
  109.                          MsgQualifier;
  110.             UWORD             MsgCode;
  111.             struct Gadget        *MsgGadget;
  112.  
  113.             GuideContext(CONTEXT_TRANSFER);
  114.  
  115.             PushWindow(PanelWindow);
  116.  
  117.             LT_ShowWindow(Handle,TRUE);
  118.  
  119.             do
  120.             {
  121.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  122.                 {
  123.                     Selection = UPLOAD_ABORT;
  124.  
  125.                     break;
  126.                 }
  127.  
  128.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(PanelWindow -> UserPort))
  129.                 {
  130.                     MsgClass    = Message -> Class;
  131.                     MsgQualifier    = Message -> Qualifier;
  132.                     MsgCode        = Message -> Code;
  133.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  134.  
  135.                     GT_ReplyIMsg(Message);
  136.  
  137.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  138.  
  139.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  140.                     {
  141.                         Selection = UPLOAD_ABORT;
  142.  
  143.                         Done = TRUE;
  144.                     }
  145.  
  146.                     if(MsgClass == IDCMP_GADGETUP)
  147.                     {
  148.                         switch(MsgGadget -> GadgetID)
  149.                         {
  150.                             case UPLOAD_TEXT:
  151.  
  152.                                 if(FromQueue && !CheckUpload())
  153.                                     FromQueue = FALSE;
  154.  
  155.                                 if(FromQueue)
  156.                                     Selection = UPLOAD_TEXT_FROM_LIST;
  157.                                 else
  158.                                     Selection = UPLOAD_TEXT;
  159.  
  160.                                 Done = TRUE;
  161.  
  162.                                 break;
  163.  
  164.                             case UPLOAD_BINARY:
  165.  
  166.                                 if(FromQueue && !CheckUpload())
  167.                                     FromQueue = FALSE;
  168.  
  169.                                 if(FromQueue)
  170.                                     Selection = UPLOAD_BINARY_FROM_LIST;
  171.                                 else
  172.                                     Selection = UPLOAD_BINARY;
  173.  
  174.                                 Done = TRUE;
  175.  
  176.                                 break;
  177.  
  178.                             default:
  179.  
  180.                                 if(MsgGadget -> GadgetID != UPLOAD_DUMMY)
  181.                                 {
  182.                                     Selection = MsgGadget -> GadgetID;
  183.  
  184.                                     Done = TRUE;
  185.                                 }
  186.  
  187.                                 break;
  188.                         }
  189.                     }
  190.                 }
  191.             }
  192.             while(!Done);
  193.  
  194.             PopWindow();
  195.         }
  196.  
  197.         LT_DeleteHandle(Handle);
  198.     }
  199.  
  200.     return(Selection);
  201. }
  202.