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