home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / term43-source.lha / Extras / Source / term-Source.lha / ClipPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-18  |  7.0 KB  |  351 lines
  1. /*
  2. **    ClipPanel.c
  3. **
  4. **    Editing panel for clipboard configuration
  5. **
  6. **    Copyright © 1990-1995 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_UNIT=1000,GAD_USE,GAD_CANCEL,GAD_DEFAULT,
  13.         GAD_PAGER,GAD_PAGEGROUP
  14.     };
  15.  
  16. STATIC STRPTR __saveds
  17. ShowTime(struct Gadget *SomeGadget,WORD Level)
  18. {
  19.     return(LocaleSeconds(Level));
  20. }
  21.  
  22. BYTE __regargs
  23. ClipPanel(struct Configuration *Config,BYTE *Default)
  24. {
  25.     STATIC LONG PageTitleID[3] =
  26.     {
  27.         MSG_V36_0019,
  28.         MSG_V36_0020,
  29.         -1
  30.     };
  31.  
  32.     STATIC BYTE         InitialPage = 0;
  33.  
  34.     struct LayoutHandle    *Handle;
  35.     BYTE             Cancel = FALSE;
  36.     STRPTR             PageTitle[3];
  37.  
  38.     LocalizeStringTable(PageTitle,PageTitleID);
  39.  
  40.     SaveConfig(Config,PrivateConfig);
  41.  
  42.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  43.         LH_LocaleHook,    &LocaleHook,
  44.         LH_ExitFlush,    FALSE,
  45.     TAG_DONE))
  46.     {
  47.         struct Window *PanelWindow;
  48.  
  49.         LT_New(Handle,
  50.             LA_Type,    VERTICAL_KIND,
  51.         TAG_DONE);
  52.         {
  53.             LT_New(Handle,
  54.                 LA_Type,VERTICAL_KIND,
  55.             TAG_DONE);
  56.             {
  57.                 LT_New(Handle,
  58.                     LA_Type,    CYCLE_KIND,
  59.                     LA_ID,        GAD_PAGER,
  60.                     LA_LabelID,    MSG_XFER_PAGE_TXT,
  61.                     GTCY_Labels,    PageTitle,
  62.                     LACY_AutoPageID,GAD_PAGEGROUP,
  63.                     LACY_TabKey,    TRUE,
  64.                     LA_BYTE,    &InitialPage,
  65.                 TAG_DONE);
  66.  
  67.                 LT_EndGroup(Handle);
  68.             }
  69.  
  70.             LT_New(Handle,
  71.                 LA_Type,    VERTICAL_KIND,
  72.                 LA_ID,        GAD_PAGEGROUP,
  73.                 LAGR_Frame,    TRUE,
  74.                 LAGR_ActivePage,InitialPage,
  75.             TAG_DONE);
  76.             {
  77.                 LT_New(Handle,
  78.                     LA_Type,    VERTICAL_KIND,
  79.                 TAG_DONE);
  80.                 {
  81.                     LT_New(Handle,
  82.                         LA_Type,    VERTICAL_KIND,
  83.                     TAG_DONE);
  84.                     {
  85.                         LT_New(Handle,
  86.                             LA_Type,        INTEGER_KIND,
  87.                             LA_LabelID,        MSG_CLIPPANEL_UNIT_GAD,
  88.                             LA_WORD,        &Config -> ClipConfig -> ClipboardUnit,
  89.                             LA_Chars,        20,
  90.                             LAIN_Min,        0,
  91.                             LAIN_Max,        255,
  92.                             LA_ID,            GAD_UNIT,
  93.                             LAIN_UseIncrementers,    TRUE,
  94.                             GTIN_MaxChars,        3,
  95.                         TAG_DONE);
  96.  
  97.                         LT_New(Handle,
  98.                             LA_Type,    STRING_KIND,
  99.                             LA_LabelID,    MSG_CLIPPANEL_PASTE_PREFIX_GAD,
  100.                             LA_STRPTR,    Config -> ClipConfig -> InsertPrefix,
  101.                             GTST_MaxChars,    79,
  102.                         TAG_DONE);
  103.  
  104.                         LT_New(Handle,
  105.                             LA_Type,    STRING_KIND,
  106.                             LA_LabelID,    MSG_CLIPPANEL_PASTE_SUFFIX_GAD,
  107.                             LA_STRPTR,    Config -> ClipConfig -> InsertSuffix,
  108.                             GTST_MaxChars,    79,
  109.                         TAG_DONE);
  110.  
  111.                         LT_EndGroup(Handle);
  112.                     }
  113.  
  114.                     LT_New(Handle,
  115.                         LA_Type,    VERTICAL_KIND,
  116.                     TAG_DONE);
  117.                     {
  118.                         LT_New(Handle,
  119.                             LA_Type,    CHECKBOX_KIND,
  120.                             LA_LabelID,    MSG_CONVERT_LF_TXT,
  121.                             LA_BYTE,    &Config -> ClipConfig -> ConvertLF,
  122.                         TAG_DONE);
  123.  
  124.                         LT_EndGroup(Handle);
  125.                     }
  126.  
  127.                     LT_EndGroup(Handle);
  128.                 }
  129.  
  130.                 LT_New(Handle,
  131.                     LA_Type,    VERTICAL_KIND,
  132.                 TAG_DONE);
  133.                 {
  134.                     LT_New(Handle,
  135.                         LA_Type,    VERTICAL_KIND,
  136.                     TAG_DONE);
  137.                     {
  138.                         LT_New(Handle,
  139.                             LA_Type,    CYCLE_KIND,
  140.                             LA_LabelID,    MSG_CLIPPANEL_TEXT_PACING_GAD,
  141.                             LA_UBYTE,    &Config -> ClipConfig -> PacingMode,
  142.                             LACY_FirstLabel,MSG_CLIPPANEL_DIRECT_TXT,
  143.                             LACY_LastLabel,    MSG_CLIPPANEL_KEYDELAY_TXT,
  144.                         TAG_DONE);
  145.  
  146.                         LT_EndGroup(Handle);
  147.                     }
  148.  
  149.                     LT_New(Handle,
  150.                         LA_Type,    VERTICAL_KIND,
  151.                         LA_LabelID,    MSG_V36_0021,
  152.                     TAG_DONE);
  153.                     {
  154.                         LT_New(Handle,
  155.                             LA_Type,        SliderType,
  156.                             LA_LabelID,        MSG_CLIPPANEL_CHAR_DELAY_GAD,
  157.                             GTSL_Min,        0,
  158.                             GTSL_Max,        10 * 100,
  159.                             LA_Chars,        10,
  160.                             LA_WORD,        &Config -> ClipConfig -> CharDelay,
  161.                             GTSL_LevelFormat,    "%s s",
  162.                             GTSL_DispFunc,        ShowTime,
  163.                         TAG_DONE);
  164.  
  165.                         LT_New(Handle,
  166.                             LA_Type,        SliderType,
  167.                             LA_LabelID,        MSG_CLIPPANEL_LINE_DELAY_GAD,
  168.                             GTSL_Min,        0,
  169.                             GTSL_Max,        10 * 100,
  170.                             LA_Chars,        10,
  171.                             LA_WORD,        &Config -> ClipConfig -> LineDelay,
  172.                             GTSL_LevelFormat,    "%s s",
  173.                             GTSL_DispFunc,        ShowTime,
  174.                         TAG_DONE);
  175.  
  176.                         LT_EndGroup(Handle);
  177.                     }
  178.  
  179.                     LT_New(Handle,
  180.                         LA_Type,    VERTICAL_KIND,
  181.                         LA_LabelID,    MSG_V36_0024,
  182.                     TAG_DONE);
  183.                     {
  184.                         LT_New(Handle,
  185.                             LA_Type,        STRING_KIND,
  186.                             LA_LabelID,        MSG_CLIPPANEL_LINE_PROMPT_GAD,
  187.                             LA_STRPTR,        Config -> ClipConfig -> LinePrompt,
  188.                             LA_Chars,        10,
  189.                             GTST_MaxChars,        255,
  190.                         TAG_DONE);
  191.  
  192.                         LT_New(Handle,
  193.                             LA_Type,        SliderType,
  194.                             LA_LabelID,        MSG_CLIPPANEL_SEND_TIMEOUT_GAD,
  195.                             GTSL_Min,        0,
  196.                             GTSL_Max,        10 * 100,
  197.                             LA_WORD,        &Config -> ClipConfig -> SendTimeout,
  198.                             GTSL_LevelFormat,    "%s s",
  199.                             GTSL_DispFunc,        ShowTime,
  200.                         TAG_DONE);
  201.  
  202.                         LT_EndGroup(Handle);
  203.                     }
  204.  
  205.                     LT_EndGroup(Handle);
  206.                 }
  207.  
  208.                 LT_EndGroup(Handle);
  209.             }
  210.  
  211.             LT_New(Handle,
  212.                 LA_Type,VERTICAL_KIND,
  213.             TAG_DONE);
  214.             {
  215.                 LT_New(Handle,
  216.                     LA_Type,    XBAR_KIND,
  217.                     LAXB_FullSize,    TRUE,
  218.                 TAG_DONE);
  219.  
  220.                 LT_EndGroup(Handle);
  221.             }
  222.  
  223.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  224.                 LAGR_SameSize,    TRUE,
  225.                 LAGR_Spread,    TRUE,
  226.             TAG_DONE);
  227.             {
  228.                 LT_New(Handle,
  229.                     LA_Type,    BUTTON_KIND,
  230.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  231.                     LA_ID,        GAD_USE,
  232.                     LABT_ReturnKey,    TRUE,
  233.                     LABT_ExtraFat,    TRUE,
  234.                 TAG_DONE);
  235.  
  236.                 if(Default)
  237.                 {
  238.                     LT_New(Handle,
  239.                         LA_Type,    BUTTON_KIND,
  240.                         LA_LabelID,    MSG_GLOBAL_DEFAULT_GAD,
  241.                         LA_ID,        GAD_DEFAULT,
  242.                         LABT_ExtraFat,    TRUE,
  243.                     TAG_DONE);
  244.                 }
  245.  
  246.                 LT_New(Handle,
  247.                     LA_Type,    BUTTON_KIND,
  248.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  249.                     LA_ID,        GAD_CANCEL,
  250.                     LABT_EscKey,    TRUE,
  251.                     LABT_ExtraFat,    TRUE,
  252.                 TAG_DONE);
  253.  
  254.                 LT_EndGroup(Handle);
  255.             }
  256.  
  257.             LT_EndGroup(Handle);
  258.         }
  259.  
  260.         if(PanelWindow = LT_Layout(Handle,LocaleString(MSG_CLIPPANEL_CLIP_SETTINGS_TXT),NULL,0,0,IDCMP_CLOSEWINDOW,0,
  261.             LAWN_HelpHook,        &GuideHook,
  262.             LAWN_Parent,        Window,
  263.             WA_DepthGadget,        TRUE,
  264.             WA_CloseGadget,        TRUE,
  265.             WA_DragBar,        TRUE,
  266.             WA_RMBTrap,        TRUE,
  267.             WA_Activate,        TRUE,
  268.         TAG_DONE))
  269.         {
  270.             struct IntuiMessage    *Message;
  271.             BOOLEAN             Done = FALSE;
  272.             ULONG             MsgClass,
  273.                          MsgQualifier;
  274.             UWORD             MsgCode;
  275.             struct Gadget        *MsgGadget;
  276.  
  277.             GuideContext(CONTEXT_CLIP);
  278.  
  279.             PushWindow(PanelWindow);
  280.  
  281.             LT_ShowWindow(Handle,TRUE);
  282.  
  283.             do
  284.             {
  285.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  286.                 {
  287.                     SaveConfig(PrivateConfig,Config);
  288.  
  289.                     break;
  290.                 }
  291.  
  292.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(PanelWindow -> UserPort))
  293.                 {
  294.                     MsgClass    = Message -> Class;
  295.                     MsgQualifier    = Message -> Qualifier;
  296.                     MsgCode        = Message -> Code;
  297.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  298.  
  299.                     GT_ReplyIMsg(Message);
  300.  
  301.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  302.  
  303.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  304.                     {
  305.                         SaveConfig(PrivateConfig,Config);
  306.  
  307.                         Done = TRUE;
  308.                     }
  309.  
  310.                     if(MsgClass == IDCMP_GADGETUP)
  311.                     {
  312.                         switch(MsgGadget -> GadgetID)
  313.                         {
  314.                             case GAD_USE:
  315.  
  316.                                 LT_UpdateStrings(Handle);
  317.  
  318.                                 Done = TRUE;
  319.                                 break;
  320.  
  321.                             case GAD_CANCEL:
  322.  
  323.                                 SaveConfig(PrivateConfig,Config);
  324.  
  325.                                 Cancel = Done = TRUE;
  326.                                 break;
  327.  
  328.                             case GAD_DEFAULT:
  329.  
  330.                                 *Default = TRUE;
  331.  
  332.                                 Done = TRUE;
  333.                                 break;
  334.                         }
  335.                     }
  336.                 }
  337.             }
  338.             while(!Done);
  339.  
  340.             PopWindow();
  341.         }
  342.  
  343.         LT_DeleteHandle(Handle);
  344.     }
  345.  
  346.     if(Default)
  347.         return((BYTE)(!Cancel));
  348.     else
  349.         return((BYTE)memcmp(PrivateConfig -> ClipConfig,Config -> ClipConfig,sizeof(struct ClipSettings)));
  350. }
  351.