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 / CommandPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-31  |  4.5 KB  |  227 lines
  1. /*
  2. **    CommandPanel.c
  3. **
  4. **    Editing panel for command sequences
  5. **
  6. **    Copyright © 1990-1994 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_USE=1000,GAD_CANCEL,GAD_DEFAULT };
  13.  
  14. BYTE __regargs
  15. CommandPanel(struct Configuration *Config,BYTE *Default)
  16. {
  17.     struct LayoutHandle    *Handle;
  18.     BYTE             Cancel = FALSE;
  19.  
  20.     SaveConfig(Config,PrivateConfig);
  21.  
  22.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  23.         LH_LocaleHook,    &LocaleHook,
  24.     TAG_DONE))
  25.     {
  26.         struct Window *PanelWindow;
  27.  
  28.         LT_New(Handle,
  29.             LA_Type,    VERTICAL_KIND,
  30.         TAG_DONE);
  31.         {
  32.             LT_New(Handle,
  33.                 LA_Type,    VERTICAL_KIND,
  34.                 LA_LabelID,    MSG_V36_0026,
  35.             TAG_DONE);
  36.             {
  37.                 LT_New(Handle,
  38.                     LA_Type,    STRING_KIND,
  39.                     LA_LabelID,    MSG_COMMANDPANEL_STARTUP_LOGIN_MACRO_GAD,
  40.                     LA_STRPTR,    Config -> CommandConfig -> StartupMacro,
  41.                     LA_Chars,    30,
  42.                     GTST_MaxChars,    255,
  43.                 TAG_DONE);
  44.  
  45.                 LT_New(Handle,LA_Type,XBAR_KIND,TAG_DONE);
  46.  
  47.                 LT_New(Handle,
  48.                     LA_Type,    STRING_KIND,
  49.                     LA_LabelID,    MSG_COMMANDPANEL_LOGIN_MACRO_GAD,
  50.                     LA_STRPTR,    Config -> CommandConfig -> LoginMacro,
  51.                     LA_Chars,    30,
  52.                     GTST_MaxChars,    255,
  53.                 TAG_DONE);
  54.  
  55.                 LT_New(Handle,
  56.                     LA_Type,    STRING_KIND,
  57.                     LA_LabelID,    MSG_COMMANDPANEL_LOGOFF_MACRO_GAD,
  58.                     LA_STRPTR,    Config -> CommandConfig -> LogoffMacro,
  59.                     GTST_MaxChars,    255,
  60.                 TAG_DONE);
  61.  
  62.                 LT_EndGroup(Handle);
  63.             }
  64.  
  65.             LT_New(Handle,
  66.                 LA_Type,        VERTICAL_KIND,
  67.                 LA_LabelID,        MSG_V36_0027,
  68.                 LAGR_LastAttributes,    TRUE,
  69.             TAG_DONE);
  70.             {
  71.                 LT_New(Handle,
  72.                     LA_Type,    STRING_KIND,
  73.                     LA_LabelID,    MSG_COMMANDPANEL_UPLOAD_MACRO_GAD,
  74.                     LA_STRPTR,    Config -> CommandConfig -> UploadMacro,
  75.                     LA_Chars,    30,
  76.                     GTST_MaxChars,    255,
  77.                 TAG_DONE);
  78.  
  79.                 LT_New(Handle,
  80.                     LA_Type,    STRING_KIND,
  81.                     LA_LabelID,    MSG_COMMANDPANEL_DOWNLOAD_MACRO_GAD,
  82.                     LA_STRPTR,    Config -> CommandConfig -> DownloadMacro,
  83.                     GTST_MaxChars,    255,
  84.                 TAG_DONE);
  85.  
  86.                 LT_EndGroup(Handle);
  87.             }
  88.  
  89.             LT_New(Handle,
  90.                 LA_Type,VERTICAL_KIND,
  91.             TAG_DONE);
  92.             {
  93.                 LT_New(Handle,
  94.                     LA_Type,    XBAR_KIND,
  95.                     LAXB_FullSize,    TRUE,
  96.                 TAG_DONE);
  97.  
  98.                 LT_EndGroup(Handle);
  99.             }
  100.  
  101.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  102.                 LAGR_SameSize,    TRUE,
  103.                 LAGR_Spread,    TRUE,
  104.             TAG_DONE);
  105.             {
  106.                 LT_New(Handle,
  107.                     LA_Type,    BUTTON_KIND,
  108.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  109.                     LA_ID,        GAD_USE,
  110.                     LABT_ReturnKey,    TRUE,
  111.                     LABT_ExtraFat,    TRUE,
  112.                 TAG_DONE);
  113.  
  114.                 if(Default)
  115.                 {
  116.                     LT_New(Handle,
  117.                         LA_Type,    BUTTON_KIND,
  118.                         LA_LabelID,    MSG_GLOBAL_DEFAULT_GAD,
  119.                         LA_ID,        GAD_DEFAULT,
  120.                         LABT_ExtraFat,    TRUE,
  121.                     TAG_DONE);
  122.                 }
  123.  
  124.                 LT_New(Handle,
  125.                     LA_Type,    BUTTON_KIND,
  126.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  127.                     LA_ID,        GAD_CANCEL,
  128.                     LABT_EscKey,    TRUE,
  129.                     LABT_ExtraFat,    TRUE,
  130.                 TAG_DONE);
  131.  
  132.                 LT_EndGroup(Handle);
  133.             }
  134.  
  135.             LT_EndGroup(Handle);
  136.         }
  137.  
  138.         if(PanelWindow = LT_Layout(Handle,LocaleString(MSG_COMMANDPANEL_COMMAND_PREFERENCES_GAD),NULL,0,0,IDCMP_CLOSEWINDOW,0,
  139.             LAWN_HelpHook,        &GuideHook,
  140.             LAWN_Parent,        Window,
  141.             WA_DepthGadget,        TRUE,
  142.             WA_CloseGadget,        TRUE,
  143.             WA_DragBar,        TRUE,
  144.             WA_RMBTrap,        TRUE,
  145.             WA_Activate,        TRUE,
  146.         TAG_DONE))
  147.         {
  148.             struct IntuiMessage    *Message;
  149.             BOOLEAN             Done = FALSE;
  150.             ULONG             MsgClass,
  151.                          MsgQualifier;
  152.             UWORD             MsgCode;
  153.             struct Gadget        *MsgGadget;
  154.  
  155.             GuideContext(CONTEXT_COMMAND);
  156.  
  157.             PushWindow(PanelWindow);
  158.  
  159.             LT_ShowWindow(Handle,TRUE);
  160.  
  161.             do
  162.             {
  163.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  164.                 {
  165.                     SaveConfig(PrivateConfig,Config);
  166.  
  167.                     break;
  168.                 }
  169.  
  170.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(PanelWindow -> UserPort))
  171.                 {
  172.                     MsgClass    = Message -> Class;
  173.                     MsgQualifier    = Message -> Qualifier;
  174.                     MsgCode        = Message -> Code;
  175.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  176.  
  177.                     GT_ReplyIMsg(Message);
  178.  
  179.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  180.  
  181.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  182.                     {
  183.                         SaveConfig(PrivateConfig,Config);
  184.  
  185.                         Done = TRUE;
  186.                     }
  187.  
  188.                     if(MsgClass == IDCMP_GADGETUP)
  189.                     {
  190.                         switch(MsgGadget -> GadgetID)
  191.                         {
  192.                             case GAD_USE:
  193.  
  194.                                 Done = TRUE;
  195.                                 break;
  196.  
  197.                             case GAD_CANCEL:
  198.  
  199.                                 SaveConfig(PrivateConfig,Config);
  200.  
  201.                                 Cancel = Done = TRUE;
  202.                                 break;
  203.  
  204.                             case GAD_DEFAULT:
  205.  
  206.                                 *Default = TRUE;
  207.  
  208.                                 Done = TRUE;
  209.                                 break;
  210.                         }
  211.                     }
  212.                 }
  213.             }
  214.             while(!Done);
  215.  
  216.             PopWindow();
  217.         }
  218.  
  219.         LT_DeleteHandle(Handle);
  220.     }
  221.  
  222.     if(Default)
  223.         return((BYTE)(!Cancel));
  224.     else
  225.         return((BYTE)memcmp(PrivateConfig -> CommandConfig,Config -> CommandConfig,sizeof(struct CommandSettings)));
  226. }
  227.