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 / EmulationPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-01  |  7.7 KB  |  344 lines
  1. /*
  2. **    EmulationPanel.c
  3. **
  4. **    Editing panel for emulation configuration
  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, GAD_SCROLL, GAD_JUMP_SCROLL };
  13.  
  14. BYTE __regargs
  15. EmulationPanel(struct Configuration *Config,BYTE *Default)
  16. {
  17.     struct LayoutHandle    *Handle;
  18.     BYTE             Changed = FALSE,
  19.                  Cancel = FALSE;
  20.  
  21.     SaveConfig(Config,PrivateConfig);
  22.  
  23.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  24.         LH_LocaleHook,    &LocaleHook,
  25.     TAG_DONE))
  26.     {
  27.         struct Window *PanelWindow;
  28.  
  29.         LT_New(Handle,
  30.             LA_Type,    VERTICAL_KIND,
  31.         TAG_DONE);
  32.         {
  33.             LT_New(Handle,
  34.                 LA_Type,    VERTICAL_KIND,
  35.                 LA_LabelID,    MSG_V36_0034,
  36.             TAG_DONE);
  37.             {
  38.                 LT_New(Handle,
  39.                     LA_Type,    CYCLE_KIND,
  40.                     LA_LabelID,    MSG_EMULATIONPANEL_CURSOR_KEYS_GAD,
  41.                     LA_BYTE,    &Config -> EmulationConfig -> CursorMode,
  42.                     LACY_FirstLabel,MSG_EMULATIONPANEL_STANDARD_MODE_TXT,
  43.                     LACY_LastLabel,    MSG_EMULATIONPANEL_APPLICATION_MODE_TXT,
  44.                     LA_Chars,    20,
  45.                 TAG_DONE);
  46.     
  47.                 LT_New(Handle,
  48.                     LA_Type,    CHECKBOX_KIND,
  49.                     LA_LabelID,    MSG_LOCK_CURSOR_KEY_MODE_TXT,
  50.                     LA_BYTE,    &Config -> EmulationConfig -> CursorLocked,
  51.                 TAG_DONE);
  52.     
  53.                 LT_New(Handle,
  54.                     LA_Type,    CYCLE_KIND,
  55.                     LA_LabelID,    MSG_EMULATIONPANEL_NUMERIC_KEYPAD_GAD,
  56.                     LA_BYTE,    &Config -> EmulationConfig -> NumericMode,
  57.                     LACY_FirstLabel,MSG_EMULATIONPANEL_STANDARD_MODE_TXT,
  58.                     LACY_LastLabel,    MSG_EMULATIONPANEL_APPLICATION_MODE_TXT,
  59.                 TAG_DONE);
  60.     
  61.                 LT_New(Handle,
  62.                     LA_Type,    CHECKBOX_KIND,
  63.                     LA_LabelID,    MSG_V36_1820,
  64.                     LA_BYTE,    &Config -> EmulationConfig -> KeysLocked,
  65.                 TAG_DONE);
  66.     
  67.                 LT_New(Handle,
  68.                     LA_Type,    CHECKBOX_KIND,
  69.                     LA_LabelID,    MSG_EMULATIONPANEL_SWAP_BS_AND_DEL_GAD,
  70.                     LA_BYTE,    &Config -> EmulationConfig -> SwapBSDelete,
  71.                 TAG_DONE);
  72.  
  73.                 LT_EndGroup(Handle);
  74.             }
  75.  
  76.             LT_New(Handle,
  77.                 LA_Type,    HORIZONTAL_KIND,
  78.                 LA_LabelID,    MSG_V36_0035,
  79.             TAG_DONE);
  80.             {
  81.                 LT_New(Handle,
  82.                     LA_Type,    VERTICAL_KIND,
  83.                 TAG_DONE);
  84.                 {
  85.                     LT_New(Handle,
  86.                         LA_Type,    CHECKBOX_KIND,
  87.                         LA_LabelID,    MSG_EMULATIONPANEL_WRAP_CURSOR_MOVES_GAD,
  88.                         LA_BYTE,    &Config -> EmulationConfig -> CursorWrap,
  89.                     TAG_DONE);
  90.  
  91.                     LT_New(Handle,
  92.                         LA_Type,    CHECKBOX_KIND,
  93.                         LA_LabelID,    MSG_EMULATIONPANEL_WRAP_CHARACTERS_GAD,
  94.                         LA_BYTE,    &Config -> EmulationConfig -> LineWrap,
  95.                     TAG_DONE);
  96.  
  97.                     LT_New(Handle,
  98.                         LA_Type,    CHECKBOX_KIND,
  99.                         LA_LabelID,    MSG_EMULATIONPANEL_INSERT_MODE_GAD,
  100.                         LA_BYTE,    &Config -> EmulationConfig -> InsertMode,
  101.                     TAG_DONE);
  102.  
  103.                     LT_EndGroup(Handle);
  104.                 }
  105.  
  106.                 LT_New(Handle,
  107.                     LA_Type,    VERTICAL_KIND,
  108.                 TAG_DONE);
  109.                 {
  110.                     LT_New(Handle,
  111.                         LA_Type,    CHECKBOX_KIND,
  112.                         LA_LabelID,    MSG_EMULATIONPANEL_NEW_LINE_MODE_GAD,
  113.                         LA_BYTE,    &Config -> EmulationConfig -> NewLineMode,
  114.                     TAG_DONE);
  115.  
  116.                     LT_New(Handle,
  117.                         LA_Type,    CHECKBOX_KIND,
  118.                         LA_LabelID,    MSG_EMULATIONPANEL_CLS_RESETS_CURSOR_GAD,
  119.                         LA_BYTE,    &Config -> EmulationConfig -> CLSResetsCursor,
  120.                     TAG_DONE);
  121.  
  122.                     LT_New(Handle,
  123.                         LA_Type,    CHECKBOX_KIND,
  124.                         LA_LabelID,    MSG_EMULATIONPANEL_PRINTER_CONTROL_GAD,
  125.                         LA_BYTE,    &Config -> EmulationConfig -> PrinterEnabled,
  126.                     TAG_DONE);
  127.  
  128.                     LT_EndGroup(Handle);
  129.                 }
  130.  
  131.                 LT_EndGroup(Handle);
  132.             }
  133.  
  134.             LT_New(Handle,
  135.                 LA_Type,    VERTICAL_KIND,
  136.                 LA_LabelID,    MSG_V36_0036,
  137.             TAG_DONE);
  138.             {
  139.                 LT_New(Handle,
  140.                     LA_Type,    CYCLE_KIND,
  141.                     LA_LabelID,    MSG_EMULATIONPANEL_FONT_SCALE_GAD,
  142.                     LA_BYTE,    &Config -> EmulationConfig -> FontScale,
  143.                     LACY_FirstLabel,MSG_EMULATIONPANEL_NORMAL_SCALE_TXT,
  144.                     LACY_LastLabel,    MSG_EMULATIONPANEL_HALF_WIDTH_TXT,
  145.                     LA_Chars,    20,
  146.                 TAG_DONE);
  147.  
  148.                 LT_New(Handle,
  149.                     LA_Type,    CHECKBOX_KIND,
  150.                     LA_LabelID,    MSG_LOCK_FONT_MODE_TXT,
  151.                     LA_BYTE,    &Config -> EmulationConfig -> FontLocked,
  152.                 TAG_DONE);
  153.  
  154.                 LT_New(Handle,
  155.                     LA_Type,    CYCLE_KIND,
  156.                     LA_LabelID,    MSG_EMULATIONPANEL_SMOOTH_SCROLLING_GAD,
  157.                     LA_BYTE,    &Config -> EmulationConfig -> ScrollMode,
  158.                     LACY_FirstLabel,MSG_EMULATIONPANEL_JUMP_TXT,
  159.                     LACY_LastLabel,    MSG_EMULATIONPANEL_SMOOTH_TXT,
  160.                 TAG_DONE);
  161.  
  162.                 LT_New(Handle,
  163.                     LA_Type,    CYCLE_KIND,
  164.                     LA_LabelID,    MSG_EMULATIONPANEL_DESTRUCTIVE_BACKSPACE_GAD,
  165.                     LA_BYTE,    &Config -> EmulationConfig -> DestructiveBackspace,
  166.                     LACY_FirstLabel,MSG_DESTRUCTIVE_BS_OFF_TXT,
  167.                     LACY_LastLabel,    MSG_DESTRUCTIVE_BS_SHIFT_TXT,
  168.                 TAG_DONE);
  169.  
  170.                 LT_New(Handle,
  171.                     LA_Type,    STRING_KIND,
  172.                     LA_LabelID,    MSG_EMULATIONPANEL_ANSWERBACK_MESSAGE_GAD,
  173.                     LA_STRPTR,    Config -> EmulationConfig -> AnswerBack,
  174.                     GTST_MaxChars,    79,
  175.                 TAG_DONE);
  176.  
  177.                 LT_New(Handle,
  178.                     LA_Type,        INTEGER_KIND,
  179.                     LA_LabelID,        MSG_EMULATIONPANEL_PRESCROLL_TXT,
  180.                     LA_UBYTE,        &Config -> EmulationConfig -> MaxScroll,
  181.                     LAIN_Min,        0,
  182.                     LAIN_Max,        255,
  183.                     LA_ID,            GAD_SCROLL,
  184.                     LAIN_UseIncrementers,    TRUE,
  185.                     GTIN_MaxChars,        3,
  186.                 TAG_DONE);
  187.  
  188.                 LT_New(Handle,
  189.                     LA_Type,        INTEGER_KIND,
  190.                     LA_LabelID,        MSG_EMULATIONPANEL_JUMP_SCROLL_TXT,
  191.                     LA_UBYTE,        &Config -> EmulationConfig -> MaxJump,
  192.                     LAIN_Min,        0,
  193.                     LAIN_Max,        255,
  194.                     LA_ID,            GAD_JUMP_SCROLL,
  195.                     LAIN_UseIncrementers,    TRUE,
  196.                     GTIN_MaxChars,        3,
  197.                 TAG_DONE);
  198.  
  199.                 LT_EndGroup(Handle);
  200.             }
  201.  
  202.             LT_New(Handle,
  203.                 LA_Type,VERTICAL_KIND,
  204.             TAG_DONE);
  205.             {
  206.                 LT_New(Handle,
  207.                     LA_Type,    XBAR_KIND,
  208.                     LAXB_FullSize,    TRUE,
  209.                 TAG_DONE);
  210.  
  211.                 LT_EndGroup(Handle);
  212.             }
  213.  
  214.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  215.                 LAGR_SameSize,    TRUE,
  216.                 LAGR_Spread,    TRUE,
  217.             TAG_DONE);
  218.             {
  219.                 LT_New(Handle,
  220.                     LA_Type,    BUTTON_KIND,
  221.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  222.                     LA_ID,        GAD_USE,
  223.                     LABT_ReturnKey,    TRUE,
  224.                     LABT_ExtraFat,    TRUE,
  225.                 TAG_DONE);
  226.  
  227.                 if(Default)
  228.                 {
  229.                     LT_New(Handle,
  230.                         LA_Type,    BUTTON_KIND,
  231.                         LA_LabelID,    MSG_GLOBAL_DEFAULT_GAD,
  232.                         LA_ID,        GAD_DEFAULT,
  233.                         LABT_ExtraFat,    TRUE,
  234.                     TAG_DONE);
  235.                 }
  236.  
  237.                 LT_New(Handle,
  238.                     LA_Type,    BUTTON_KIND,
  239.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  240.                     LA_ID,        GAD_CANCEL,
  241.                     LABT_EscKey,    TRUE,
  242.                     LABT_ExtraFat,    TRUE,
  243.                 TAG_DONE);
  244.  
  245.                 LT_EndGroup(Handle);
  246.             }
  247.  
  248.             LT_EndGroup(Handle);
  249.         }
  250.  
  251.         if(PanelWindow = LT_Layout(Handle,LocaleString(MSG_EMULATIONPANEL_EMULATION_PREFERENCES_TXT),NULL,0,0,IDCMP_CLOSEWINDOW,0,
  252.             LAWN_HelpHook,        &GuideHook,
  253.             LAWN_Parent,        Window,
  254.             WA_DepthGadget,        TRUE,
  255.             WA_CloseGadget,        TRUE,
  256.             WA_DragBar,        TRUE,
  257.             WA_RMBTrap,        TRUE,
  258.             WA_Activate,        TRUE,
  259.         TAG_DONE))
  260.         {
  261.             struct IntuiMessage    *Message;
  262.             BOOLEAN             Done = FALSE;
  263.             ULONG             MsgClass,
  264.                          MsgQualifier;
  265.             UWORD             MsgCode;
  266.             struct Gadget        *MsgGadget;
  267.  
  268.             GuideContext(CONTEXT_EMULATION);
  269.  
  270.             PushWindow(PanelWindow);
  271.  
  272.             LT_ShowWindow(Handle,TRUE);
  273.  
  274.             do
  275.             {
  276.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  277.                 {
  278.                     SaveConfig(PrivateConfig,Config);
  279.  
  280.                     break;
  281.                 }
  282.  
  283.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(PanelWindow -> UserPort))
  284.                 {
  285.                     MsgClass    = Message -> Class;
  286.                     MsgQualifier    = Message -> Qualifier;
  287.                     MsgCode        = Message -> Code;
  288.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  289.  
  290.                     GT_ReplyIMsg(Message);
  291.  
  292.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  293.  
  294.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  295.                     {
  296.                         SaveConfig(PrivateConfig,Config);
  297.  
  298.                         Done = TRUE;
  299.                     }
  300.  
  301.                     if(MsgClass == IDCMP_GADGETUP)
  302.                     {
  303.                         switch(MsgGadget -> GadgetID)
  304.                         {
  305.                             case GAD_USE:
  306.  
  307.                                 Changed = TRUE;
  308.  
  309.                                 Done = TRUE;
  310.                                 break;
  311.  
  312.                             case GAD_CANCEL:
  313.  
  314.                                 SaveConfig(PrivateConfig,Config);
  315.  
  316.                                 Cancel = Done = TRUE;
  317.                                 break;
  318.  
  319.                             case GAD_DEFAULT:
  320.  
  321.                                 *Default = TRUE;
  322.  
  323.                                 Done = TRUE;
  324.                                 break;
  325.                         }
  326.                     }
  327.                 }
  328.             }
  329.             while(!Done);
  330.  
  331.             PopWindow();
  332.         }
  333.  
  334.         LT_DeleteHandle(Handle);
  335.     }
  336.  
  337.     ScreenSizeStuff();
  338.  
  339.     if(Default)
  340.         return((BYTE)(!Cancel));
  341.     else
  342.         return(Changed);
  343. }
  344.