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 / TrapPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-02  |  19.5 KB  |  851 lines
  1. /*
  2. **    TrapPanel.c
  3. **
  4. **    Editing panel for trap list
  5. **
  6. **    Copyright © 1990-1994 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_LIST,GAD_SEQUENCE,GAD_COMMAND,
  13.         GAD_TOP,GAD_UP,GAD_DOWN,GAD_END,
  14.         GAD_NEW,GAD_REMOVE,GAD_CLEAR,
  15.         GAD_LOAD,GAD_SAVE,GAD_USE
  16.     };
  17.  
  18. VOID
  19. TrapPanel()
  20. {
  21.     struct LayoutHandle    *Handle;
  22.     struct GenericList    *TrapList;
  23.     struct TrapNode        *Node,
  24.                 *Next;
  25.  
  26.     ObtainSemaphore(&GenericListTable[GLIST_TRAP] -> ListSemaphore);
  27.  
  28.     TrapList = GenericListTable[GLIST_TRAP];
  29.  
  30.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  31.         LH_LocaleHook,    &LocaleHook,
  32.     TAG_DONE))
  33.     {
  34.         struct Window    *LocalWindow;
  35.         struct IBox     Bounds;
  36.  
  37.         LT_New(Handle,
  38.             LA_Type,    VERTICAL_KIND,
  39.         TAG_DONE);
  40.         {
  41.             LT_New(Handle,
  42.                 LA_Type,    VERTICAL_KIND,
  43.                 LA_LabelID,    MSG_TRAPPANEL_TRAP_CONTROLS_TXT,
  44.             TAG_DONE);
  45.             {
  46.                 LT_New(Handle,
  47.                     LA_Type,    LISTVIEW_KIND,
  48.                     LA_LabelID,    MSG_TRAPPANEL_TRAP_LIST_TXT,
  49.                     LA_LabelPlace,    PLACE_LEFT,
  50.                     LA_Chars,    30,
  51.                     LA_Lines,    10,
  52.                     LA_ID,        GAD_LIST,
  53.                     LALV_CursorKey,    TRUE,
  54.                     LALV_MaxGrowY,    20,
  55.                     LALV_MaxGrowX,    50,
  56.                     GTLV_Labels,    TrapList,
  57.  
  58.                     Kick30 ? LALV_Link : TAG_IGNORE, NIL_LINK,
  59.                 TAG_DONE);
  60.  
  61.                 LT_New(Handle,
  62.                     LA_Type,    STRING_KIND,
  63.                     LA_LabelID,    MSG_TRAPPANEL_SEQUENCE_TXT,
  64.                     LA_ID,        GAD_SEQUENCE,
  65.                     GTST_MaxChars,    255,
  66.                     GA_Disabled,    TRUE,
  67.                 TAG_DONE);
  68.  
  69.                 LT_New(Handle,
  70.                     LA_Type,    STRING_KIND,
  71.                     LA_LabelID,    MSG_TRAPPANEL_COMMAND_TXT,
  72.                     LA_ID,        GAD_COMMAND,
  73.                     GTST_MaxChars,    255,
  74.                     GA_Disabled,    TRUE,
  75.                 TAG_DONE);
  76.  
  77.                 LT_EndGroup(Handle);
  78.             }
  79.  
  80.             LT_New(Handle,
  81.                 LA_Type,    HORIZONTAL_KIND,
  82.             TAG_DONE);
  83.             {
  84.                 LT_New(Handle,
  85.                     LA_Type,    HORIZONTAL_KIND,
  86.                     LA_LabelID,    MSG_V36_0038,
  87.                     LA_Spread,    TRUE,
  88.                     LA_SameSize,    TRUE,
  89.                 TAG_DONE);
  90.                 {
  91.                     LT_New(Handle,
  92.                         LA_Type,    BUTTON_KIND,
  93.                         LA_LabelText,    "|<",
  94.                         LA_ID,        GAD_TOP,
  95.                         LA_NoKey,    TRUE,
  96.                         GA_Disabled,    TRUE,
  97.                     TAG_DONE);
  98.  
  99.                     LT_New(Handle,
  100.                         LA_Type,    BUTTON_KIND,
  101.                         LA_LabelText,    "<",
  102.                         LA_ID,        GAD_UP,
  103.                         LA_NoKey,    TRUE,
  104.                         GA_Disabled,    TRUE,
  105.                     TAG_DONE);
  106.  
  107.                     LT_New(Handle,
  108.                         LA_Type,    BUTTON_KIND,
  109.                         LA_LabelText,    ">",
  110.                         LA_ID,        GAD_DOWN,
  111.                         LA_NoKey,    TRUE,
  112.                         GA_Disabled,    TRUE,
  113.                     TAG_DONE);
  114.  
  115.                     LT_New(Handle,
  116.                         LA_Type,    BUTTON_KIND,
  117.                         LA_LabelText,    ">|",
  118.                         LA_ID,        GAD_END,
  119.                         LA_NoKey,    TRUE,
  120.                         GA_Disabled,    TRUE,
  121.                     TAG_DONE);
  122.  
  123.                     LT_EndGroup(Handle);
  124.                 }
  125.  
  126.                 LT_New(Handle,
  127.                     LA_Type,    HORIZONTAL_KIND,
  128.                     LA_LabelID,    MSG_V36_0043,
  129.                     LA_Spread,    TRUE,
  130.                     LA_SameSize,    TRUE,
  131.                 TAG_DONE);
  132.                 {
  133.                     LT_New(Handle,
  134.                         LA_Type,    BUTTON_KIND,
  135.                         LA_LabelID,    MSG_FASTMACROPANEL_NEW_GAD,
  136.                         LA_ID,        GAD_NEW,
  137.                     TAG_DONE);
  138.  
  139.                     LT_New(Handle,
  140.                         LA_Type,    BUTTON_KIND,
  141.                         LA_LabelID,    MSG_GLOBAL_REMOVE_GAD,
  142.                         LA_ID,        GAD_REMOVE,
  143.                         GA_Disabled,    TRUE,
  144.                     TAG_DONE);
  145.  
  146.                     LT_New(Handle,
  147.                         LA_Type,    BUTTON_KIND,
  148.                         LA_LabelID,    MSG_UPLOADQUEUE_CLEAR_TXT,
  149.                         LA_ID,        GAD_CLEAR,
  150.                         GA_Disabled,    TrapList -> ListHeader . mlh_Head -> mln_Succ == NULL,
  151.                     TAG_DONE);
  152.  
  153.                     LT_EndGroup(Handle);
  154.                 }
  155.  
  156.                 LT_EndGroup(Handle);
  157.             }
  158.  
  159.             LT_New(Handle,
  160.                 LA_Type,    VERTICAL_KIND,
  161.             TAG_DONE);
  162.             {
  163.                 LT_New(Handle,LA_Type,XBAR_KIND,LAXB_FullSize,TRUE,TAG_DONE);
  164.  
  165.                 LT_EndGroup(Handle);
  166.             }
  167.  
  168.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  169.                 LAGR_SameSize,    TRUE,
  170.                 LAGR_Spread,    TRUE,
  171.                 LA_ExtraSpace,    TRUE,
  172.             TAG_DONE);
  173.             {
  174.                 LT_New(Handle,
  175.                     LA_Type,    BUTTON_KIND,
  176.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  177.                     LA_ID,        GAD_USE,
  178.                     LABT_ReturnKey,    TRUE,
  179.                     LABT_ExtraFat,    TRUE,
  180.                 TAG_DONE);
  181.  
  182.                 LT_New(Handle,
  183.                     LA_Type,    BUTTON_KIND,
  184.                     LA_LabelID,    MSG_GLOBAL_LOAD_GAD,
  185.                     LA_ID,        GAD_LOAD,
  186.                     LABT_ExtraFat,    TRUE,
  187.                 TAG_DONE);
  188.  
  189.                 LT_New(Handle,
  190.                     LA_Type,    BUTTON_KIND,
  191.                     LA_LabelID,    MSG_GLOBAL_SAVE_GAD,
  192.                     LA_ID,        GAD_SAVE,
  193.                     LABT_ExtraFat,    TRUE,
  194.                     GA_Disabled,    TrapList -> ListHeader . mlh_Head -> mln_Succ == NULL,
  195.                 TAG_DONE);
  196.  
  197.                 LT_EndGroup(Handle);
  198.             }
  199.  
  200.             LT_EndGroup(Handle);
  201.         }
  202.  
  203.         if(Screen && Window)
  204.         {
  205.             Bounds . Left    = Window -> LeftEdge;
  206.             Bounds . Top    = Window -> TopEdge;
  207.             Bounds . Width    = Window -> Width;
  208.             Bounds . Height    = Window -> Height;
  209.         }
  210.  
  211.         if(LocalWindow = LT_Layout(Handle,LocaleString(MSG_TRAPPANEL_TRAP_PREFERENCES_TXT),Screen ? &Bounds : NULL,0,0,IDCMP_CLOSEWINDOW,0,
  212.             LAWN_HelpHook,        &GuideHook,
  213.             LAWN_Parent,        Window,
  214.             WA_DepthGadget,        TRUE,
  215.             WA_CloseGadget,        TRUE,
  216.             WA_DragBar,        TRUE,
  217.             WA_RMBTrap,        TRUE,
  218.             WA_Activate,        TRUE,
  219.         TAG_DONE))
  220.         {
  221.             struct IntuiMessage    *Message;
  222.             BOOLEAN             Done = FALSE;
  223.             ULONG             MsgClass,
  224.                          MsgQualifier;
  225.             UWORD             MsgCode;
  226.             struct Gadget        *MsgGadget;
  227.  
  228.             struct TrapNode        *Selected = NULL;
  229.             ULONG             Offset = 0;
  230.  
  231.             UBYTE              DummyBuffer[MAX_FILENAME_LENGTH],
  232.                         *DummyChar;
  233.             struct FileRequester    *FileRequest;
  234.  
  235.             GuideContext(CONTEXT_TRAPS);
  236.  
  237.             PushWindow(LocalWindow);
  238.  
  239.             do
  240.             {
  241.                 if(Wait(PORTMASK(LocalWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  242.                     break;
  243.  
  244.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(LocalWindow -> UserPort))
  245.                 {
  246.                     MsgClass    = Message -> Class;
  247.                     MsgQualifier    = Message -> Qualifier;
  248.                     MsgCode        = Message -> Code;
  249.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  250.  
  251.                     GT_ReplyIMsg(Message);
  252.  
  253.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  254.  
  255.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  256.                         Done = TRUE;
  257.  
  258.                     if(MsgClass == IDCMP_GADGETUP)
  259.                     {
  260.                         switch(MsgGadget -> GadgetID)
  261.                         {
  262.                             case GAD_USE:
  263.  
  264.                                 Done = TRUE;
  265.                                 break;
  266.  
  267.                             case GAD_TOP:
  268.  
  269.                                 LT_SetAttributes(Handle,GAD_LIST,
  270.                                     GTLV_Labels,    ~0,
  271.                                 TAG_DONE);
  272.  
  273.                                 Remove((struct Node *)Selected);
  274.  
  275.                                 AddHead((struct List *)TrapList,(struct Node *)Selected);
  276.  
  277.                                 Offset = 0;
  278.  
  279.                                 LT_SetAttributes(Handle,GAD_LIST,
  280.                                     GTLV_Labels,    TrapList,
  281.                                     GTLV_Selected,    Offset,
  282.                                     GTLV_Top,    Offset,
  283.                                 TAG_DONE);
  284.  
  285.                                 LT_SetAttributes(Handle,GAD_TOP,
  286.                                     GA_Disabled,    TRUE,
  287.                                 TAG_DONE);
  288.  
  289.                                 LT_SetAttributes(Handle,GAD_UP,
  290.                                     GA_Disabled,    TRUE,
  291.                                 TAG_DONE);
  292.  
  293.                                 LT_SetAttributes(Handle,GAD_DOWN,
  294.                                     GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  295.                                 TAG_DONE);
  296.  
  297.                                 LT_SetAttributes(Handle,GAD_END,
  298.                                     GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  299.                                 TAG_DONE);
  300.  
  301.                                 TrapsChanged = TRUE;
  302.                                 break;
  303.  
  304.                             case GAD_UP:
  305.  
  306.                                 LT_SetAttributes(Handle,GAD_LIST,
  307.                                     GTLV_Labels,    ~0,
  308.                                 TAG_DONE);
  309.  
  310.                                 Node = (struct TrapNode *)Selected -> Node . ln_Pred -> ln_Pred;
  311.  
  312.                                 Remove((struct Node *)Selected);
  313.  
  314.                                 Insert((struct List *)TrapList,(struct Node *)Selected,(struct Node *)Node);
  315.  
  316.                                 Offset--;
  317.  
  318.                                 LT_SetAttributes(Handle,GAD_LIST,
  319.                                     GTLV_Labels,    TrapList,
  320.                                     GTLV_Selected,    Offset,
  321.                                     GTLV_Top,    Offset,
  322.                                 TAG_DONE);
  323.  
  324.                                 LT_SetAttributes(Handle,GAD_TOP,
  325.                                     GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  326.                                 TAG_DONE);
  327.  
  328.                                 LT_SetAttributes(Handle,GAD_UP,
  329.                                     GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  330.                                 TAG_DONE);
  331.  
  332.                                 LT_SetAttributes(Handle,GAD_DOWN,
  333.                                     GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  334.                                 TAG_DONE);
  335.  
  336.                                 LT_SetAttributes(Handle,GAD_END,
  337.                                     GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  338.                                 TAG_DONE);
  339.  
  340.                                 TrapsChanged = TRUE;
  341.  
  342.                                 break;
  343.  
  344.                             case GAD_DOWN:
  345.  
  346.                                 LT_SetAttributes(Handle,GAD_LIST,
  347.                                     GTLV_Labels,    ~0,
  348.                                 TAG_DONE);
  349.  
  350.                                 Node = (struct TrapNode *)Selected -> Node . ln_Succ;
  351.  
  352.                                 Remove((struct Node *)Selected);
  353.  
  354.                                 Insert((struct List *)TrapList,(struct Node *)Selected,(struct Node *)Node);
  355.  
  356.                                 Offset++;
  357.  
  358.                                 LT_SetAttributes(Handle,GAD_LIST,
  359.                                     GTLV_Labels,    TrapList,
  360.                                     GTLV_Selected,    Offset,
  361.                                     GTLV_Top,    Offset,
  362.                                 TAG_DONE);
  363.  
  364.                                 LT_SetAttributes(Handle,GAD_TOP,
  365.                                     GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  366.                                 TAG_DONE);
  367.  
  368.                                 LT_SetAttributes(Handle,GAD_UP,
  369.                                     GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  370.                                 TAG_DONE);
  371.  
  372.                                 LT_SetAttributes(Handle,GAD_DOWN,
  373.                                     GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  374.                                 TAG_DONE);
  375.  
  376.                                 LT_SetAttributes(Handle,GAD_END,
  377.                                     GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  378.                                 TAG_DONE);
  379.  
  380.                                 TrapsChanged = TRUE;
  381.  
  382.                                 break;
  383.  
  384.                             case GAD_END:
  385.  
  386.                                 LT_SetAttributes(Handle,GAD_LIST,
  387.                                     GTLV_Labels,    ~0,
  388.                                 TAG_DONE);
  389.  
  390.                                 Remove((struct Node *)Selected);
  391.  
  392.                                 AddTail((struct List *)TrapList,(struct Node *)Selected);
  393.  
  394.                                 Offset = TrapList -> ListCount - 1;
  395.  
  396.                                 LT_SetAttributes(Handle,GAD_LIST,
  397.                                     GTLV_Labels,    TrapList,
  398.                                     GTLV_Selected,    Offset,
  399.                                     GTLV_Top,    Offset,
  400.                                 TAG_DONE);
  401.  
  402.                                 LT_SetAttributes(Handle,GAD_TOP,
  403.                                     GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  404.                                 TAG_DONE);
  405.  
  406.                                 LT_SetAttributes(Handle,GAD_UP,
  407.                                     GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  408.                                 TAG_DONE);
  409.  
  410.                                 LT_SetAttributes(Handle,GAD_DOWN,
  411.                                     GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  412.                                 TAG_DONE);
  413.  
  414.                                 LT_SetAttributes(Handle,GAD_END,
  415.                                     GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  416.                                 TAG_DONE);
  417.  
  418.                                 TrapsChanged = TRUE;
  419.  
  420.                                 break;
  421.  
  422.                             case GAD_NEW:
  423.  
  424.                                 if(Node = CreateTrapNode("",""))
  425.                                 {
  426.                                     LT_SetAttributes(Handle,GAD_LIST,
  427.                                         GTLV_Labels,    ~0,
  428.                                     TAG_DONE);
  429.  
  430.                                     AddTail((struct List *)TrapList,(struct Node *)Node);
  431.  
  432.                                     LT_SetAttributes(Handle,GAD_LIST,
  433.                                         GTLV_Labels,    TrapList,
  434.                                         GTLV_Selected,    TrapList -> ListCount++,
  435.                                     TAG_DONE);
  436.  
  437.                                     LT_SetAttributes(Handle,GAD_COMMAND,
  438.                                         GTST_String,    "",
  439.                                         GA_Disabled,    FALSE,
  440.                                     TAG_DONE);
  441.  
  442.                                     LT_SetAttributes(Handle,GAD_SEQUENCE,
  443.                                         GTST_String,    "",
  444.                                         GA_Disabled,    FALSE,
  445.                                     TAG_DONE);
  446.  
  447.                                     LT_SetAttributes(Handle,GAD_REMOVE,
  448.                                         GA_Disabled,    FALSE,
  449.                                     TAG_DONE);
  450.  
  451.                                     LT_SetAttributes(Handle,GAD_SAVE,
  452.                                         GA_Disabled,    FALSE,
  453.                                     TAG_DONE);
  454.  
  455.                                     LT_SetAttributes(Handle,GAD_CLEAR,
  456.                                         GA_Disabled,    FALSE,
  457.                                     TAG_DONE);
  458.  
  459.                                     Selected = Node;
  460.  
  461.                                     Offset = MsgCode;
  462.  
  463.                                     LT_SetAttributes(Handle,GAD_TOP,
  464.                                         GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  465.                                     TAG_DONE);
  466.  
  467.                                     LT_SetAttributes(Handle,GAD_UP,
  468.                                         GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  469.                                     TAG_DONE);
  470.  
  471.                                     LT_SetAttributes(Handle,GAD_DOWN,
  472.                                         GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  473.                                     TAG_DONE);
  474.  
  475.                                     LT_SetAttributes(Handle,GAD_END,
  476.                                         GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  477.                                     TAG_DONE);
  478.  
  479.                                     LT_Activate(Handle,GAD_SEQUENCE);
  480.  
  481.                                     TrapsChanged = TRUE;
  482.                                 }
  483.                                 else
  484.                                     DisplayBeep(LocalWindow -> WScreen);
  485.  
  486.                                 break;
  487.  
  488.                             case GAD_CLEAR:
  489.  
  490.                                 LT_SetAttributes(Handle,GAD_LIST,
  491.                                     GTLV_Labels,    ~0,
  492.                                 TAG_DONE);
  493.  
  494.                                 FreeList((struct List *)TrapList);
  495.  
  496.                                 TrapList -> ListCount = 0;
  497.  
  498.                                 LT_SetAttributes(Handle,GAD_LIST,
  499.                                     GTLV_Labels,    TrapList,
  500.                                     GTLV_Selected,    ~0,
  501.                                 TAG_DONE);
  502.  
  503.                                 Selected = NULL;
  504.  
  505.                                 LT_SetAttributes(Handle,GAD_TOP,
  506.                                     GA_Disabled,    TRUE,
  507.                                 TAG_DONE);
  508.  
  509.                                 LT_SetAttributes(Handle,GAD_UP,
  510.                                     GA_Disabled,    TRUE,
  511.                                 TAG_DONE);
  512.  
  513.                                 LT_SetAttributes(Handle,GAD_DOWN,
  514.                                     GA_Disabled,    TRUE,
  515.                                 TAG_DONE);
  516.  
  517.                                 LT_SetAttributes(Handle,GAD_END,
  518.                                     GA_Disabled,    TRUE,
  519.                                 TAG_DONE);
  520.  
  521.                                 LT_SetAttributes(Handle,GAD_REMOVE,
  522.                                     GA_Disabled,    TRUE,
  523.                                 TAG_DONE);
  524.  
  525.                                 LT_SetAttributes(Handle,GAD_SEQUENCE,
  526.                                     GTST_String,    "",
  527.                                     GA_Disabled,    TRUE,
  528.                                 TAG_DONE);
  529.  
  530.                                 LT_SetAttributes(Handle,GAD_COMMAND,
  531.                                     GTST_String,    "",
  532.                                     GA_Disabled,    TRUE,
  533.                                 TAG_DONE);
  534.  
  535.                                 LT_SetAttributes(Handle,GAD_SAVE,
  536.                                     GA_Disabled,    TRUE,
  537.                                 TAG_DONE);
  538.  
  539.                                 LT_SetAttributes(Handle,GAD_CLEAR,
  540.                                     GA_Disabled,    TRUE,
  541.                                 TAG_DONE);
  542.  
  543.                                 TrapsChanged = FALSE;
  544.  
  545.                                 break;
  546.  
  547.                             case GAD_REMOVE:
  548.  
  549.                                 if(Selected)
  550.                                 {
  551.                                     LT_SetAttributes(Handle,GAD_LIST,
  552.                                         GTLV_Labels,    ~0,
  553.                                     TAG_DONE);
  554.  
  555.                                     if(--TrapList -> ListCount)
  556.                                     {
  557.                                         if(Selected -> Node . ln_Succ -> ln_Succ)
  558.                                             Node = (struct TrapNode *)Selected -> Node . ln_Succ;
  559.                                         else
  560.                                         {
  561.                                             Node = (struct TrapNode *)Selected -> Node . ln_Pred;
  562.  
  563.                                             Offset = 0;
  564.                                         }
  565.                                     }
  566.  
  567.                                     FreeNode((struct Node *)Selected);
  568.  
  569.                                     LT_SetAttributes(Handle,GAD_LIST,
  570.                                         GTLV_Labels,    TrapList,
  571.                                         GTLV_Selected,    Node -> Node . ln_Succ ? GetNodeOffset((struct Node *)Node,(struct List *)TrapList) : ~0,
  572.                                     TAG_DONE);
  573.  
  574.                                     if(!TrapList -> ListCount)
  575.                                     {
  576.                                         Selected = NULL;
  577.  
  578.                                         LT_SetAttributes(Handle,GAD_TOP,
  579.                                             GA_Disabled,    TRUE,
  580.                                         TAG_DONE);
  581.  
  582.                                         LT_SetAttributes(Handle,GAD_UP,
  583.                                             GA_Disabled,    TRUE,
  584.                                         TAG_DONE);
  585.  
  586.                                         LT_SetAttributes(Handle,GAD_DOWN,
  587.                                             GA_Disabled,    TRUE,
  588.                                         TAG_DONE);
  589.  
  590.                                         LT_SetAttributes(Handle,GAD_END,
  591.                                             GA_Disabled,    TRUE,
  592.                                         TAG_DONE);
  593.  
  594.                                         LT_SetAttributes(Handle,GAD_REMOVE,
  595.                                             GA_Disabled,    TRUE,
  596.                                         TAG_DONE);
  597.  
  598.                                         LT_SetAttributes(Handle,GAD_SEQUENCE,
  599.                                             GTST_String,    "",
  600.                                             GA_Disabled,    TRUE,
  601.                                         TAG_DONE);
  602.  
  603.                                         LT_SetAttributes(Handle,GAD_COMMAND,
  604.                                             GTST_String,    "",
  605.                                             GA_Disabled,    TRUE,
  606.                                         TAG_DONE);
  607.  
  608.                                         LT_SetAttributes(Handle,GAD_SAVE,
  609.                                             GA_Disabled,    TRUE,
  610.                                         TAG_DONE);
  611.  
  612.                                         LT_SetAttributes(Handle,GAD_CLEAR,
  613.                                             GA_Disabled,    TRUE,
  614.                                         TAG_DONE);
  615.                                     }
  616.                                     else
  617.                                     {
  618.                                         Selected = Node;
  619.  
  620.                                         LT_SetAttributes(Handle,GAD_COMMAND,
  621.                                             GTST_String,    Selected -> Command,
  622.                                         TAG_DONE);
  623.  
  624.                                         LT_SetAttributes(Handle,GAD_SEQUENCE,
  625.                                             GTST_String,    Selected -> Node . ln_Name,
  626.                                         TAG_DONE);
  627.  
  628.                                         LT_SetAttributes(Handle,GAD_TOP,
  629.                                             GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  630.                                         TAG_DONE);
  631.  
  632.                                         LT_SetAttributes(Handle,GAD_UP,
  633.                                             GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  634.                                         TAG_DONE);
  635.  
  636.                                         LT_SetAttributes(Handle,GAD_DOWN,
  637.                                             GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  638.                                         TAG_DONE);
  639.  
  640.                                         LT_SetAttributes(Handle,GAD_END,
  641.                                             GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  642.                                         TAG_DONE);
  643.                                     }
  644.  
  645.                                     TrapsChanged = TRUE;
  646.                                 }
  647.  
  648.                                 break;
  649.  
  650.                             case GAD_LIST:
  651.  
  652.                                 if(Selected = (struct TrapNode *)GetListNode(MsgCode,(struct List *)TrapList))
  653.                                 {
  654.                                     Offset = MsgCode;
  655.  
  656.                                     LT_SetAttributes(Handle,GAD_SEQUENCE,
  657.                                         GTST_String,    Selected -> Node . ln_Name,
  658.                                         GA_Disabled,    FALSE,
  659.                                     TAG_DONE);
  660.  
  661.                                     LT_SetAttributes(Handle,GAD_COMMAND,
  662.                                         GTST_String,    Selected -> Command,
  663.                                         GA_Disabled,    FALSE,
  664.                                     TAG_DONE);
  665.  
  666.                                     LT_SetAttributes(Handle,GAD_REMOVE,
  667.                                         GA_Disabled,    FALSE,
  668.                                     TAG_DONE);
  669.  
  670.                                     LT_SetAttributes(Handle,GAD_TOP,
  671.                                         GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  672.                                     TAG_DONE);
  673.  
  674.                                     LT_SetAttributes(Handle,GAD_UP,
  675.                                         GA_Disabled,    !Selected -> Node . ln_Pred -> ln_Pred,
  676.                                     TAG_DONE);
  677.  
  678.                                     LT_SetAttributes(Handle,GAD_DOWN,
  679.                                         GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  680.                                     TAG_DONE);
  681.  
  682.                                     LT_SetAttributes(Handle,GAD_END,
  683.                                         GA_Disabled,    !Selected -> Node . ln_Succ -> ln_Succ,
  684.                                     TAG_DONE);
  685.                                 }
  686.  
  687.                                 break;
  688.  
  689.                             case GAD_SEQUENCE:
  690.  
  691.                                 if(Selected)
  692.                                 {
  693.                                     LT_SetAttributes(Handle,GAD_LIST,
  694.                                         GTLV_Labels,    ~0,
  695.                                     TAG_DONE);
  696.  
  697.                                     Selected = ChangeTrapNode(TrapList,Selected,(STRPTR)LT_GetAttributes(Handle,GAD_SEQUENCE,TAG_DONE),NULL);
  698.  
  699.                                     LT_SetAttributes(Handle,GAD_LIST,
  700.                                         GTLV_Labels,    TrapList,
  701.                                         GTLV_Selected,    GetNodeOffset((struct Node *)Selected,(struct List *)TrapList),
  702.                                     TAG_DONE);
  703.  
  704.                                     LT_SetAttributes(Handle,GAD_COMMAND,
  705.                                         GTST_String,    Selected -> Command,
  706.                                     TAG_DONE);
  707.  
  708.                                     LT_SetAttributes(Handle,GAD_SEQUENCE,
  709.                                         GTST_String,    Selected -> Node . ln_Name,
  710.                                     TAG_DONE);
  711.  
  712.                                     TrapsChanged = TRUE;
  713.  
  714.                                     LT_Activate(Handle,GAD_COMMAND);
  715.                                 }
  716.  
  717.                                 break;
  718.  
  719.                             case GAD_COMMAND:
  720.  
  721.                                 if(Selected)
  722.                                 {
  723.                                     Selected = ChangeTrapNode(TrapList,Selected,NULL,(STRPTR)LT_GetAttributes(Handle,GAD_COMMAND,TAG_DONE));
  724.  
  725.                                     TrapsChanged = TRUE;
  726.                                 }
  727.  
  728.                                 break;
  729.  
  730.                             case GAD_LOAD:
  731.  
  732.                                 SplitFileName(LastTraps,&DummyChar,DummyBuffer);
  733.  
  734.                                 LT_LockWindow(LocalWindow);
  735.  
  736.                                 if(FileRequest = GetFile(LocalWindow,LocaleString(MSG_TRAPPANEL_LOAD_TRAP_SETTINGS_TXT),DummyBuffer,FilePart(LastTraps),DummyBuffer,"#?.prefs",FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_LOAD_TXT),TRUE))
  737.                                 {
  738.                                     LT_SetAttributes(Handle,GAD_LIST,
  739.                                         GTLV_Labels,    ~0,
  740.                                     TAG_DONE);
  741.  
  742.                                     Selected = NULL;
  743.  
  744.                                     if(!LoadTraps(DummyBuffer,TrapList))
  745.                                         ShowError(LocalWindow,ERR_LOAD_ERROR,IoErr(),DummyBuffer);
  746.                                     else
  747.                                     {
  748.                                         strcpy(LastTraps,DummyBuffer);
  749.  
  750.                                         TrapsChanged = FALSE;
  751.                                     }
  752.  
  753.                                     LT_SetAttributes(Handle,GAD_LIST,
  754.                                         GTLV_Labels,    TrapList,
  755.                                     TAG_DONE);
  756.  
  757.                                     LT_SetAttributes(Handle,GAD_COMMAND,
  758.                                         GTST_String,    "",
  759.                                         GA_Disabled,    TRUE,
  760.                                     TAG_DONE);
  761.  
  762.                                     LT_SetAttributes(Handle,GAD_SEQUENCE,
  763.                                         GTST_String,    "",
  764.                                         GA_Disabled,    TRUE,
  765.                                     TAG_DONE);
  766.  
  767.                                     LT_SetAttributes(Handle,GAD_REMOVE,
  768.                                         GA_Disabled,    TRUE,
  769.                                     TAG_DONE);
  770.  
  771.                                     LT_SetAttributes(Handle,GAD_TOP,
  772.                                         GA_Disabled,    TRUE,
  773.                                     TAG_DONE);
  774.  
  775.                                     LT_SetAttributes(Handle,GAD_UP,
  776.                                         GA_Disabled,    TRUE,
  777.                                     TAG_DONE);
  778.  
  779.                                     LT_SetAttributes(Handle,GAD_DOWN,
  780.                                         GA_Disabled,    TRUE,
  781.                                     TAG_DONE);
  782.  
  783.                                     LT_SetAttributes(Handle,GAD_END,
  784.                                         GA_Disabled,    TRUE,
  785.                                     TAG_DONE);
  786.  
  787.                                     LT_SetAttributes(Handle,GAD_SAVE,
  788.                                         GA_Disabled,    !TrapList -> ListCount,
  789.                                     TAG_DONE);
  790.  
  791.                                     LT_SetAttributes(Handle,GAD_CLEAR,
  792.                                         GA_Disabled,    !TrapList -> ListCount,
  793.                                     TAG_DONE);
  794.  
  795.                                     FreeAslRequest(FileRequest);
  796.                                 }
  797.  
  798.                                 LT_UnlockWindow(LocalWindow);
  799.  
  800.                                 break;
  801.  
  802.                             case GAD_SAVE:
  803.  
  804.                                 SplitFileName(LastTraps,&DummyChar,DummyBuffer);
  805.  
  806.                                 LT_LockWindow(LocalWindow);
  807.  
  808.                                 if(FileRequest = GetFile(LocalWindow,LocaleString(MSG_TRAPPANEL_SAVE_TRAP_SETTINGS_TXT),DummyBuffer,FilePart(LastTraps),DummyBuffer,"#?.prefs",TRUE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SAVE_TXT),TRUE))
  809.                                 {
  810.                                     if(!SaveTraps(DummyBuffer,(struct List *)TrapList))
  811.                                         ShowError(LocalWindow,ERR_SAVE_ERROR,IoErr(),DummyBuffer);
  812.                                     else
  813.                                     {
  814.                                         strcpy(LastTraps,DummyBuffer);
  815.  
  816.                                         TrapsChanged = FALSE;
  817.                                     }
  818.  
  819.                                     FreeAslRequest(FileRequest);
  820.                                 }
  821.  
  822.                                 LT_UnlockWindow(LocalWindow);
  823.  
  824.                                 break;
  825.                         }
  826.                     }
  827.                 }
  828.             }
  829.             while(!Done);
  830.  
  831.             PopWindow();
  832.         }
  833.  
  834.         LT_DeleteHandle(Handle);
  835.     }
  836.  
  837.     for(Node = (struct TrapNode *)TrapList -> ListHeader . mlh_Head ; Next = (struct TrapNode *)Node -> Node . ln_Succ ; Node = Next)
  838.     {
  839.         if(!Node -> Node . ln_Name[0] || !Node -> SequenceLen)
  840.         {
  841.             Remove(Node);
  842.  
  843.             FreeVecPooled(Node);
  844.  
  845.             TrapList -> ListCount--;
  846.         }
  847.     }
  848.  
  849.     ReleaseSemaphore(&GenericListTable[GLIST_TRAP] -> ListSemaphore);
  850. }
  851.