home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / communication / bbs / termv4.6 / extras / source / term-source.lha / TerminalPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-03-18  |  16.7 KB  |  672 lines
  1. /*
  2. **    TerminalPanel.c
  3. **
  4. **    Editing panel for terminal configuration
  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. enum    {    GAD_EMULATIONTYPE=1000, GAD_EMULATIONLIBRARY, GAD_COLUMNS, GAD_LINES,
  15.         GAD_KEYMAP, GAD_TEXTFONT, GAD_FONTMODE, GAD_EMULATIONTASK, GAD_IBMFONT,
  16.         GAD_USE, GAD_CANCEL, GAD_PAGER, GAD_PAGEGROUP, GAD_BBS_ANSI_COMPLIANT,
  17.         GAD_AUTO_SIZE
  18.     };
  19.  
  20. STATIC LONG    LocalMaxColumns,
  21.         LocalMaxLines;
  22.  
  23. STATIC STRPTR __saveds __stdargs
  24. ShowColumn(struct Gadget *SomeGadget,LONG Level)
  25. {
  26.     STATIC UBYTE Buffer[10];
  27.  
  28.     if(Level == LocalMaxColumns + 1)
  29.         strcpy(Buffer,LocaleString(MSG_TERMINALPANEL_MAXIMUM_TXT));
  30.     else
  31.         SPrintf(Buffer,LocaleBase ? "%9lD" : "%9ld",Level);
  32.  
  33.     return(Buffer);
  34. }
  35.  
  36. STATIC STRPTR __saveds __stdargs
  37. ShowLine(struct Gadget *SomeGadget,LONG Level)
  38. {
  39.     STATIC UBYTE Buffer[10];
  40.  
  41.     if(Level == LocalMaxLines + 1)
  42.         strcpy(Buffer,LocaleString(MSG_TERMINALPANEL_MAXIMUM_TXT));
  43.     else
  44.         SPrintf(Buffer,LocaleBase ? "%9lD" : "%9ld",Level);
  45.  
  46.     return(Buffer);
  47. }
  48.  
  49.     /* SelectKeymap(UBYTE *Name,struct Window *ParentWindow):
  50.      *
  51.      *    Select a new keymap file using the asl.library file requester.
  52.      */
  53.  
  54. STATIC BOOL
  55. SelectKeymap(UBYTE *Name,struct Window *ParentWindow)
  56. {
  57.     struct FileRequester    *AslFileRequest;
  58.     UBYTE            *File,*Temp;
  59.     BOOL             NewMap = FALSE;
  60.  
  61.     File = Name;
  62.  
  63.     strcpy(SharedBuffer,File);
  64.  
  65.     Temp = PathPart(SharedBuffer);
  66.  
  67.     Temp[0] = 0;
  68.  
  69.     if(!SharedBuffer[0])
  70.     {
  71.         APTR OldPtr = ThisProcess -> pr_WindowPtr;
  72.         BPTR FileLock;
  73.  
  74.         ThisProcess -> pr_WindowPtr = (APTR)-1;
  75.  
  76.         if(FileLock = Lock("KEYMAPS:",ACCESS_READ))
  77.         {
  78.             strcpy(SharedBuffer,"KEYMAPS:");
  79.  
  80.             UnLock(FileLock);
  81.         }
  82.         else
  83.             strcpy(SharedBuffer,"Devs:Keymaps");
  84.  
  85.         ThisProcess -> pr_WindowPtr = OldPtr;
  86.     }
  87.  
  88.     File = FilePart(File);
  89.  
  90.     if(AslFileRequest = GetFile(ParentWindow,LocaleString(MSG_TERMINALPANEL_SELECT_KEYMAP_TXT),SharedBuffer,File,SharedBuffer,NULL,FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SELECT_TXT),FALSE))
  91.     {
  92.         if(SharedBuffer[0])
  93.         {
  94.             if(Stricmp(SharedBuffer,Name))
  95.             {
  96.                 strcpy(Name,SharedBuffer);
  97.  
  98.                 NewMap = TRUE;
  99.             }
  100.         }
  101.  
  102.         FreeAslRequest(AslFileRequest);
  103.     }
  104.  
  105.     return(NewMap);
  106. }
  107.  
  108. BOOL
  109. TerminalPanel(struct Window *Parent,struct Configuration *LocalConfig)
  110. {
  111.     STATIC LONG PageTitleID[5] =
  112.     {
  113.         MSG_V36_1024,
  114.         MSG_V36_1020,
  115.         MSG_V36_1021,
  116.         MSG_V36_1025,
  117.         -1
  118.     };
  119.  
  120.     STATIC BYTE         InitialPage = 0;
  121.  
  122.     struct LayoutHandle    *Handle;
  123.     BOOL             UseIt = FALSE;
  124.  
  125.     SaveConfig(LocalConfig,PrivateConfig);
  126.  
  127.     if(Handle = LT_CreateHandleTags(Parent -> WScreen,
  128.         LH_LocaleHook,    &LocaleHook,
  129.         LH_ExitFlush,    FALSE,
  130.     TAG_DONE))
  131.     {
  132.         struct Window    *PanelWindow;
  133.         LONG         LocalColumns,
  134.                  LocalLines;
  135.         UBYTE         FontName[MAX_FILENAME_LENGTH],
  136.                  IBMName[MAX_FILENAME_LENGTH];
  137.  
  138.         BuildFontName(FontName,PrivateConfig -> TerminalConfig -> TextFontName,PrivateConfig -> TerminalConfig -> TextFontHeight);
  139.  
  140.         BuildFontName(IBMName,PrivateConfig -> TerminalConfig -> IBMFontName,PrivateConfig -> TerminalConfig -> IBMFontHeight);
  141.  
  142.         if(PrivateConfig != Config)
  143.         {
  144.             LocalMaxColumns    = 132;
  145.             LocalMaxLines    = 64;
  146.         }
  147.         else
  148.         {
  149.             LONG    Width,
  150.                 Height;
  151.  
  152.             if(Screen)
  153.             {
  154.                 struct Rectangle DisplayClip;
  155.  
  156.                 Width    = PrivateConfig -> ScreenConfig -> DisplayWidth;
  157.                 Height    = PrivateConfig -> ScreenConfig -> DisplayHeight;
  158.  
  159.                 QueryOverscan(PrivateConfig -> ScreenConfig -> DisplayMode,&DisplayClip,PrivateConfig -> ScreenConfig -> OverscanType);
  160.  
  161.                 if(!Width)
  162.                     Width = DisplayClip . MaxX - DisplayClip . MinX + 1;
  163.  
  164.                 if(!Height)
  165.                     Height = DisplayClip . MaxY - DisplayClip . MinY + 1;
  166.             }
  167.             else
  168.             {
  169.                 Width    = Window -> WScreen -> Width - Window -> WScreen -> WBorLeft - Window -> WScreen -> WBorRight;
  170.                 Height    = Window -> WScreen -> Height - Window -> WScreen -> WBorTop - Window -> WScreen -> WBorBottom - Window -> WScreen -> Font -> ta_YSize - 1;
  171.  
  172.                 if(!StatusWindow)
  173.                     Height -= StatusDisplayHeight;
  174.  
  175.                 if(ChatMode)
  176.                     Height -= UserFontHeight + 2;
  177.             }
  178.  
  179.             if(WindowWidth > Width)
  180.                 Width = WindowWidth;
  181.  
  182.             if(WindowHeight > Height)
  183.                 Height = WindowHeight;
  184.  
  185.             LocalMaxColumns    = Width  / TextFontWidth;
  186.             LocalMaxLines    = Height / TextFontHeight;
  187.  
  188.             if(LocalMaxColumns < 20)
  189.                 LocalMaxColumns = 20;
  190.  
  191.             if(LocalMaxLines < 20)
  192.                 LocalMaxLines = 20;
  193.         }
  194.  
  195.         LT_New(Handle,
  196.             LA_Type,    VERTICAL_KIND,
  197.         TAG_DONE);
  198.         {
  199.             LT_New(Handle,
  200.                 LA_Type,VERTICAL_KIND,
  201.             TAG_DONE);
  202.             {
  203.                 LT_New(Handle,
  204.                     LA_Type,    TAB_KIND,
  205.                     LA_ID,        GAD_PAGER,
  206.                     LA_LabelID,    MSG_XFER_PAGE_TXT,
  207.                     LACY_LabelTable,PageTitleID,
  208.                     LACY_AutoPageID,GAD_PAGEGROUP,
  209.                     LACY_TabKey,    TRUE,
  210.                     LA_BYTE,    &InitialPage,
  211.                     LATB_FullWidth,    TRUE,
  212.                 TAG_DONE);
  213.  
  214.                 LT_EndGroup(Handle);
  215.             }
  216.  
  217.             LT_New(Handle,
  218.                 LA_Type,    VERTICAL_KIND,
  219.                 LA_ID,        GAD_PAGEGROUP,
  220.                 LAGR_ActivePage,InitialPage,
  221.             TAG_DONE);
  222.             {
  223.                 LT_New(Handle,
  224.                     LA_Type,    VERTICAL_KIND,
  225.                 TAG_DONE);
  226.                 {
  227.                     LT_New(Handle,
  228.                         LA_Type,    VERTICAL_KIND,
  229.                     TAG_DONE);
  230.                     {
  231.                         LT_New(Handle,
  232.                             LA_Type,    CHECKBOX_KIND,
  233.                             LA_LabelID,    MSG_BBS_ANSI_COMPLIANT_TXT,
  234.                             LA_ID,        GAD_BBS_ANSI_COMPLIANT,
  235.                             GTCB_Checked,    PrivateConfig -> TerminalConfig -> FontMode != FONT_STANDARD && PrivateConfig -> TerminalConfig -> NumColumns == 80 && PrivateConfig -> TerminalConfig -> NumLines == 25,
  236.                         TAG_DONE);
  237.  
  238.                         LT_New(Handle,
  239.                             LA_Type,XBAR_KIND,
  240.                         TAG_DONE);
  241.  
  242.                         LT_EndGroup(Handle);
  243.                     }
  244.  
  245.                     LT_New(Handle,
  246.                         LA_Type,    VERTICAL_KIND,
  247.                     TAG_DONE);
  248.                     {
  249.                         LT_New(Handle,
  250.                             LA_Type,    TEXT_KIND,
  251.                             LA_LabelID,    MSG_TERMINALPANEL_TEXT_FONT_GAD,
  252.                             LA_Chars,    20,
  253.                             LA_ID,        GAD_TEXTFONT,
  254.                             GTTX_Text,    FontName,
  255.                             GTTX_Border,    TRUE,
  256.                             LATX_Picker,    TRUE,
  257.                             LATX_LockSize,    TRUE,
  258.                             GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL,
  259.                         TAG_DONE);
  260.  
  261.                         LT_New(Handle,
  262.                             LA_Type,    TEXT_KIND,
  263.                             LA_LabelID,    MSG_TERMINALPANEL_IBM_FONT_GAD,
  264.                             LA_Chars,    20,
  265.                             LA_ID,        GAD_IBMFONT,
  266.                             GTTX_Text,    IBMName,
  267.                             GTTX_Border,    TRUE,
  268.                             LATX_Picker,    TRUE,
  269.                             LATX_LockSize,    TRUE,
  270.                             GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL,
  271.                         TAG_DONE);
  272.  
  273.                         LT_New(Handle,
  274.                             LA_Type,    CYCLE_KIND,
  275.                             LA_LabelID,    MSG_TERMINALPANEL_FONT_GAD,
  276.                             LA_ID,        GAD_FONTMODE,
  277.                             LA_BYTE,    &PrivateConfig -> TerminalConfig -> FontMode,
  278.                             LACY_FirstLabel,MSG_TERMINALPANEL_FONT_STANDARD_TXT,
  279.                             LACY_LastLabel,    MSG_TERMINALPANEL_FONT_PC_RAW,
  280.                             GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL,
  281.                         TAG_DONE);
  282.  
  283.                         LT_New(Handle,
  284.                             LA_Type,XBAR_KIND,
  285.                         TAG_DONE);
  286.  
  287.                         if(PrivateConfig -> TerminalConfig -> NumColumns < 20)
  288.                             LocalColumns = LocalMaxColumns + 1;
  289.                         else
  290.                             LocalColumns = PrivateConfig -> TerminalConfig -> NumColumns;
  291.  
  292.                         LT_New(Handle,
  293.                             LA_Type,        SliderType,
  294.                             LA_LabelID,        MSG_TERMINALPANEL_NUMCOLUMNS_GAD,
  295.                             LA_ID,            GAD_COLUMNS,
  296.                             LA_LONG,        &LocalColumns,
  297.                             GTSL_Min,        20,
  298.                             GTSL_Max,        LocalMaxColumns + 1,
  299.                             GTSL_DispFunc,        ShowColumn,
  300.                             GTSL_LevelFormat,    "%s",
  301.                         TAG_DONE);
  302.  
  303.                         if(PrivateConfig -> TerminalConfig -> NumLines < 20)
  304.                             LocalLines = LocalMaxLines + 1;
  305.                         else
  306.                             LocalLines = PrivateConfig -> TerminalConfig -> NumLines;
  307.  
  308.                         LT_New(Handle,
  309.                             LA_Type,        SliderType,
  310.                             LA_LabelID,        MSG_TERMINALPANEL_NUMLINES_GAD,
  311.                             LA_LONG,        &LocalLines,
  312.                             LA_ID,            GAD_LINES,
  313.                             GTSL_Min,        20,
  314.                             GTSL_Max,        LocalMaxLines + 1,
  315.                             GTSL_DispFunc,        ShowLine,
  316.                             GTSL_LevelFormat,    "%s",
  317.                         TAG_DONE);
  318.  
  319.                         LT_EndGroup(Handle);
  320.                     }
  321.  
  322.                     if(PrivateConfig -> ScreenConfig -> UseWorkbench || PrivateConfig -> ScreenConfig -> ShareScreen)
  323.                     {
  324.                         LT_New(Handle,
  325.                             LA_Type,VERTICAL_KIND,
  326.                         TAG_DONE);
  327.                         {
  328.                             LT_New(Handle,
  329.                                 LA_Type,    CHECKBOX_KIND,
  330.                                 LA_LabelID,    MSG_AUTO_ADAPT_WINDOW_SIZE_GAD,
  331.                                 LA_ID,        GAD_AUTO_SIZE,
  332.                                 LA_BYTE,    &PrivateConfig -> TerminalConfig -> AutoSize,
  333.                             TAG_DONE);
  334.  
  335.                             LT_EndGroup(Handle);
  336.                         }
  337.                     }
  338.  
  339.                     LT_EndGroup(Handle);
  340.                 }
  341.  
  342.                 LT_New(Handle,
  343.                     LA_Type,    VERTICAL_KIND,
  344.                 TAG_DONE);
  345.                 {
  346.                     LT_New(Handle,
  347.                         LA_Type,    CYCLE_KIND,
  348.                         LA_LabelID,    MSG_TERMINALPANEL_EMULATION_GAD,
  349.                         LA_ID,        GAD_EMULATIONTYPE,
  350.                         LA_BYTE,    &PrivateConfig -> TerminalConfig -> EmulationMode,
  351.                         LACY_FirstLabel,MSG_TERMINALPANEL_EMULATION_ANSI_VT102_TXT,
  352.                         LACY_LastLabel,    MSG_TERMINALPANEL_EMULATION_HEX_TXT,
  353.                     TAG_DONE);
  354.  
  355.                     LT_New(Handle,
  356.                         LA_Type,    STRING_KIND,
  357.                         LA_LabelID,    MSG_TERMINALPANEL_EMULATION_NAME_GAD,
  358.                         LA_Chars,    20,
  359.                         LA_ID,        GAD_EMULATIONLIBRARY,
  360.                         LA_STRPTR,    PrivateConfig -> TerminalConfig -> EmulationFileName,
  361.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  362.                         LAST_Picker,    TRUE,
  363.                         GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode != EMULATION_EXTERNAL,
  364.                     TAG_DONE);
  365.  
  366.                     LT_New(Handle,
  367.                         LA_Type,    CHECKBOX_KIND,
  368.                         LA_LabelID,    MSG_EMULATIONPANEL_USE_TERMINAL_TASK_TXT,
  369.                         LA_BYTE,    &PrivateConfig -> TerminalConfig -> UseTerminalTask,
  370.                         LA_ID,        GAD_EMULATIONTASK,
  371.                         GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL,
  372.                     TAG_DONE);
  373.  
  374.                     LT_EndGroup(Handle);
  375.                 }
  376.  
  377.                 LT_New(Handle,
  378.                     LA_Type,    VERTICAL_KIND,
  379.                 TAG_DONE);
  380.                 {
  381.                     LT_New(Handle,
  382.                         LA_Type,    CYCLE_KIND,
  383.                         LA_LabelID,    MSG_TERMINALPANEL_BELL_GAD,
  384.                         LA_BYTE,    &PrivateConfig -> TerminalConfig -> BellMode,
  385.                         LACY_FirstLabel,MSG_TERMINALPANEL_BELL_IGNORE_TXT,
  386.                         LACY_LastLabel,    MSG_TERMINALPANEL_BELL_DEFAULT_TXT,
  387.                     TAG_DONE);
  388.  
  389.                     LT_New(Handle,
  390.                         LA_Type,    STRING_KIND,
  391.                         LA_LabelID,    MSG_TERMINALPANEL_KEYMAP_FILE_GAD,
  392.                         LA_Chars,    20,
  393.                         LA_ID,        GAD_KEYMAP,
  394.                         LA_STRPTR,    PrivateConfig -> TerminalConfig -> KeyMapFileName,
  395.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  396.                         LAST_Picker,    TRUE,
  397.                     TAG_DONE);
  398.  
  399.                     LT_EndGroup(Handle);
  400.                 }
  401.  
  402.                 LT_New(Handle,
  403.                     LA_Type,    VERTICAL_KIND,
  404.                 TAG_DONE);
  405.                 {
  406.                     LT_New(Handle,
  407.                         LA_Type,    CYCLE_KIND,
  408.                         LA_LabelID,    MSG_TERMINALPANEL_SEND_CR_GAD,
  409.                         LA_BYTE,    &PrivateConfig -> TerminalConfig -> SendCR,
  410.                         GTCY_Labels,    EOL_Labels,
  411.                     TAG_DONE);
  412.  
  413.                     LT_New(Handle,
  414.                         LA_Type,    CYCLE_KIND,
  415.                         LA_LabelID,    MSG_TERMINALPANEL_SEND_LF_GAD,
  416.                         LA_BYTE,    &PrivateConfig -> TerminalConfig -> SendLF,
  417.                         GTCY_Labels,    EOL_Labels,
  418.                     TAG_DONE);
  419.  
  420.                     LT_New(Handle,
  421.                         LA_Type,    XBAR_KIND,
  422.                     TAG_DONE);
  423.  
  424.                     LT_New(Handle,
  425.                         LA_Type,    CYCLE_KIND,
  426.                         LA_LabelID,    MSG_TERMINALPANEL_RECEIVE_CR_GAD,
  427.                         LA_BYTE,    &PrivateConfig -> TerminalConfig -> ReceiveCR,
  428.                         GTCY_Labels,    EOL_Labels,
  429.                     TAG_DONE);
  430.  
  431.                     LT_New(Handle,
  432.                         LA_Type,    CYCLE_KIND,
  433.                         LA_LabelID,    MSG_TERMINALPANEL_RECEIVE_LF_GAD,
  434.                         LA_BYTE,    &PrivateConfig -> TerminalConfig -> ReceiveLF,
  435.                         GTCY_Labels,    EOL_Labels,
  436.                     TAG_DONE);
  437.  
  438.                     LT_EndGroup(Handle);
  439.                 }
  440.  
  441.                 LT_EndGroup(Handle);
  442.             }
  443.  
  444.             LT_New(Handle,
  445.                 LA_Type,    VERTICAL_KIND,
  446.             TAG_DONE);
  447.             {
  448.                 LT_New(Handle,LA_Type,XBAR_KIND,LAXB_FullSize,TRUE,TAG_DONE);
  449.  
  450.                 LT_EndGroup(Handle);
  451.             }
  452.  
  453.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  454.                 LAGR_SameSize,    TRUE,
  455.                 LAGR_Spread,    TRUE,
  456.             TAG_DONE);
  457.             {
  458.                 LT_New(Handle,
  459.                     LA_Type,    BUTTON_KIND,
  460.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  461.                     LA_ID,        GAD_USE,
  462.                     LABT_ReturnKey,    TRUE,
  463.                     LABT_ExtraFat,    TRUE,
  464.                 TAG_DONE);
  465.  
  466.                 LT_New(Handle,
  467.                     LA_Type,    BUTTON_KIND,
  468.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  469.                     LA_ID,        GAD_CANCEL,
  470.                     LABT_EscKey,    TRUE,
  471.                     LABT_ExtraFat,    TRUE,
  472.                 TAG_DONE);
  473.  
  474.                 LT_EndGroup(Handle);
  475.             }
  476.  
  477.             LT_EndGroup(Handle);
  478.         }
  479.  
  480.         if(PanelWindow = LT_Build(Handle,
  481.             LAWN_TitleID,        MSG_TERMINALPANEL_TERMINAL_PREFERENCES_TXT,
  482.             LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  483.             LAWN_HelpHook,        &GuideHook,
  484.             LAWN_Parent,        Parent,
  485.             WA_DepthGadget,        TRUE,
  486.             WA_CloseGadget,        TRUE,
  487.             WA_DragBar,        TRUE,
  488.             WA_RMBTrap,        TRUE,
  489.             WA_Activate,        TRUE,
  490.             WA_SimpleRefresh,    TRUE,
  491.         TAG_DONE))
  492.         {
  493.             struct IntuiMessage    *Message;
  494.             BOOL             Done = FALSE;
  495.             ULONG             MsgClass;
  496.             struct Gadget        *MsgGadget;
  497.             UBYTE             DummyBuffer[MAX_FILENAME_LENGTH];
  498.  
  499.             GuideContext(CONTEXT_TERMINAL);
  500.  
  501.             PushWindow(PanelWindow);
  502.  
  503.             LT_ShowWindow(Handle,TRUE);
  504.  
  505.             do
  506.             {
  507.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  508.                     break;
  509.  
  510.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  511.                 {
  512.                     MsgClass    = Message -> Class;
  513.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  514.  
  515.                     LT_ReplyIMsg(Message);
  516.  
  517.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  518.                         Done = TRUE;
  519.  
  520.                     if(MsgClass == IDCMP_GADGETUP)
  521.                     {
  522.                         switch(MsgGadget -> GadgetID)
  523.                         {
  524.                             case GAD_COLUMNS:
  525.                             case GAD_LINES:
  526.                             case GAD_FONTMODE:
  527.  
  528.                                 LT_SetAttributes(Handle,GAD_BBS_ANSI_COMPLIANT,
  529.                                     GTCB_Checked,    PrivateConfig -> TerminalConfig -> FontMode != FONT_STANDARD && (LocalColumns % (LocalMaxColumns + 1)) == 80 && (LocalLines % (LocalMaxLines + 1)) == 25,
  530.                                 TAG_DONE);
  531.  
  532.                                 break;
  533.  
  534.                             case GAD_BBS_ANSI_COMPLIANT:
  535.  
  536.                                 LT_SetAttributes(Handle,GAD_COLUMNS,
  537.                                     GTSL_Level,    80,
  538.                                 TAG_DONE);
  539.  
  540.                                 LT_SetAttributes(Handle,GAD_LINES,
  541.                                     GTSL_Level,    25,
  542.                                 TAG_DONE);
  543.  
  544.                                 LT_SetAttributes(Handle,GAD_FONTMODE,
  545.                                     GTCY_Active,    PrivateConfig -> TerminalConfig -> FontMode == FONT_STANDARD ? FONT_IBM : PrivateConfig -> TerminalConfig -> FontMode,
  546.                                 TAG_DONE);
  547.  
  548.                                 break;
  549.  
  550.                             case GAD_USE:
  551.  
  552.                                 LT_UpdateStrings(Handle);
  553.  
  554.                                 PrivateConfig -> TerminalConfig -> NumColumns    = LocalColumns % (LocalMaxColumns + 1);
  555.                                 PrivateConfig -> TerminalConfig -> NumLines    = LocalLines % (LocalMaxLines + 1);
  556.  
  557.                                 if(!PrivateConfig -> TerminalConfig -> EmulationFileName[0] && PrivateConfig -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL)
  558.                                     PrivateConfig -> TerminalConfig -> EmulationMode = EMULATION_ANSIVT100;
  559.  
  560.                                 UseIt = Done = TRUE;
  561.                                 break;
  562.  
  563.                             case GAD_EMULATIONTYPE:
  564.  
  565.                                 LT_SetAttributes(Handle,GAD_TEXTFONT,
  566.                                     GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL,
  567.                                 TAG_DONE);
  568.  
  569.                                 LT_SetAttributes(Handle,GAD_IBMFONT,
  570.                                     GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL,
  571.                                 TAG_DONE);
  572.  
  573.                                 LT_SetAttributes(Handle,GAD_FONTMODE,
  574.                                     GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL,
  575.                                 TAG_DONE);
  576.  
  577.                                 LT_SetAttributes(Handle,GAD_EMULATIONLIBRARY,
  578.                                     GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode != EMULATION_EXTERNAL,
  579.                                 TAG_DONE);
  580.  
  581.                                 LT_SetAttributes(Handle,GAD_EMULATIONTASK,
  582.                                     GA_Disabled,    PrivateConfig -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL,
  583.                                 TAG_DONE);
  584.  
  585.                                 break;
  586.  
  587.                             case GAD_CANCEL:
  588.  
  589.                                 Done = TRUE;
  590.                                 break;
  591.                         }
  592.                     }
  593.  
  594.                     if(MsgClass == IDCMP_IDCMPUPDATE)
  595.                     {
  596.                         switch(MsgGadget -> GadgetID)
  597.                         {
  598.                             case GAD_EMULATIONLIBRARY:
  599.  
  600.                                 LT_LockWindow(PanelWindow);
  601.  
  602.                                 strcpy(DummyBuffer,(STRPTR)LT_GetAttributes(Handle,GAD_EMULATIONLIBRARY,TAG_DONE));
  603.                                 strcpy(SharedBuffer,DummyBuffer);
  604.  
  605.                                 if(PickFile(PanelWindow,"Libs:","xem#?.library",LocaleString(MSG_TERMINALPANEL_SELECT_EMULATOR_TXT),SharedBuffer,NT_LIBRARY))
  606.                                 {
  607.                                     if(Stricmp(SharedBuffer,DummyBuffer))
  608.                                         LT_SetAttributes(Handle,GAD_EMULATIONLIBRARY,GTST_String,SharedBuffer,TAG_DONE);
  609.                                 }
  610.  
  611.                                 LT_ShowWindow(Handle,TRUE);
  612.  
  613.                                 LT_UnlockWindow(PanelWindow);
  614.                                 break;
  615.  
  616.                             case GAD_KEYMAP:
  617.  
  618.                                 LT_LockWindow(PanelWindow);
  619.  
  620.                                 strcpy(DummyBuffer,(STRPTR)LT_GetAttributes(Handle,GAD_KEYMAP,TAG_DONE));
  621.  
  622.                                 if(SelectKeymap(DummyBuffer,PanelWindow))
  623.                                     LT_SetAttributes(Handle,GAD_KEYMAP,GTST_String,SharedBuffer,TAG_DONE);
  624.  
  625.                                 LT_UnlockWindow(PanelWindow);
  626.                                 break;
  627.  
  628.                             case GAD_TEXTFONT:
  629.  
  630.                                 if(PickFont(PanelWindow,PrivateConfig -> TerminalConfig -> TextFontName,&PrivateConfig -> TerminalConfig -> TextFontHeight,TRUE))
  631.                                 {
  632.                                     BuildFontName(FontName,PrivateConfig -> TerminalConfig -> TextFontName,PrivateConfig -> TerminalConfig -> TextFontHeight);
  633.  
  634.                                     LT_SetAttributes(Handle,GAD_TEXTFONT,
  635.                                         GTTX_Text,    FontName,
  636.                                     TAG_DONE);
  637.                                 }
  638.  
  639.                                 break;
  640.  
  641.                             case GAD_IBMFONT:
  642.  
  643.                                 if(PickFont(PanelWindow,PrivateConfig -> TerminalConfig -> IBMFontName,&PrivateConfig -> TerminalConfig -> IBMFontHeight,TRUE))
  644.                                 {
  645.                                     BuildFontName(IBMName,PrivateConfig -> TerminalConfig -> IBMFontName,PrivateConfig -> TerminalConfig -> IBMFontHeight);
  646.  
  647.                                     LT_SetAttributes(Handle,GAD_IBMFONT,
  648.                                         GTTX_Text,    IBMName,
  649.                                     TAG_DONE);
  650.                                 }
  651.  
  652.                                 break;
  653.                         }
  654.                     }
  655.                 }
  656.             }
  657.             while(!Done);
  658.  
  659.             PopWindow();
  660.         }
  661.  
  662.         LT_DeleteHandle(Handle);
  663.     }
  664.  
  665.     if(UseIt)
  666.         SwapConfig(LocalConfig,PrivateConfig);
  667.     else
  668.         SaveConfig(LocalConfig,PrivateConfig);
  669.  
  670.     return(UseIt);
  671. }
  672.