home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 532.lha / ToolManager_v1.4 / Source.LZH / Source / editwindow.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-07-09  |  18.8 KB  |  574 lines
  1. /*
  2.  * editwindow.c   V1.4
  3.  *
  4.  * edit window
  5.  *
  6.  * (c) 1991 by Stefan Becker
  7.  *
  8.  */
  9. #include "ToolManager.h"
  10.  
  11. /* Structures for window */
  12. extern char WBScreenName[];
  13. static char WindowTitle[]="Edit Tool Definition";  /* Window title */
  14. extern struct NewWindow nw;
  15. static struct Window *w;
  16. static struct MsgPort *wp;
  17. static ULONG wh;             /* Window height */
  18. static struct Screen *pubsc; /* Workbench screen */
  19.  
  20. /* Structures for window gadgets */
  21. static void *vi;             /* Visual information is a *PRIVATE* data field! */
  22. static struct TextAttr ta={"topaz.font",8,0,0};
  23. static struct Gadget *gl;    /* Gadget list */
  24. #define TOGAD_ID  1
  25. static char ToolGadgetText[]="Type    ";
  26. static char *ToolLabelTexts[]={"Dummy","CLI","WB",NULL};
  27. #define ALGAD_ID  2
  28. extern char AliasKey[];
  29. static struct Gadget *alsg;
  30. #define RNGAD_ID  3
  31. extern char RealKey[];
  32. static struct Gadget *rnsg;
  33. #define WDGAD_ID  4
  34. extern char DirKey[];
  35. static struct Gadget *wdsg;
  36. #define STGAD_ID  5
  37. extern char StackKey[];
  38. static struct Gadget *stig;
  39. #define HKGAD_ID  6
  40. extern char HotKKey[];
  41. static struct Gadget *hksg;
  42. #define MNGAD_ID  7
  43. static char MenuLabelText[]="Menu";
  44. static struct Gadget *mncg;
  45. #define ICGAD_ID  8
  46. static struct Gadget *iccg;
  47. #define ARGAD_ID  9
  48. static char ArgsLabelText[]="Args";
  49. static struct Gadget *arcg;
  50. #define ITGAD_ID 10
  51. extern char ITypeKey[];
  52. extern char BrushKey[];
  53. extern char DObjKey[];
  54. static char *IconLabelTexts[]={BrushKey,DObjKey,NULL};
  55. static struct Gadget *itcg;
  56. #define IFGAD_ID 11
  57. extern char IFileKey[];
  58. static struct Gadget *ifsg;
  59. #define IXGAD_ID 12
  60. static char IconXLabelText[]="X Coord.";
  61. static struct Gadget *ixig;
  62. #define IYGAD_ID 13
  63. static char IconYLabelText[]="Y Coord.";
  64. static struct Gadget *iyig;
  65. #define OKGAD_ID 14
  66. static char OKButtonText[]="OK";
  67. #define CAGAD_ID 15
  68. static char CancelButtonText[]="Cancel";
  69. static struct Gadget *curg;     /* Current active string gadget */
  70.  
  71. /* miscellaneous */
  72. extern WORD lvord;
  73. static struct ToolNode *etn;    /* Pointer to edit tool node */
  74. static struct ConfigBlock *cb;  /* Pointer to config block */
  75.  
  76. /* Create config block */
  77. static BOOL GetConfigBlock(struct ToolNode *tn)
  78. {
  79.  if (!(cb=malloc(sizeof(struct ConfigBlock)))) return(FALSE);
  80.  
  81.  /* Init config block */
  82.  InitConfigBlock(cb);
  83.  
  84.  /* Copy tools parameters */
  85.  cb->cb_Type=tn->tn_Type;
  86.  cb->cb_Flags=tn->tn_Flags;
  87.  cb->cb_Stack=tn->tn_Stack;
  88.  strcpy(cb->cb_Alias,tn->tn_Node.ln_Name);
  89.  if (tn->tn_RealName) strcpy(cb->cb_RealName,tn->tn_RealName);
  90.  if (tn->tn_WorkDir) strcpy(cb->cb_WorkDir,tn->tn_WorkDir);
  91.  if (tn->tn_HotKey) strcpy(cb->cb_HotKey,tn->tn_HotKey);
  92.  if (tn->tn_IconFile) strcpy(cb->cb_IconFile,tn->tn_IconFile);
  93.  if (tn->tn_Icon)
  94.   {
  95.    cb->cb_IconX=tn->tn_Icon->do_CurrentX;
  96.    cb->cb_IconY=tn->tn_Icon->do_CurrentY;
  97.   }
  98.  
  99.  /* All OK */
  100.  return(TRUE);
  101. }
  102.  
  103. /* Create gadgets */
  104. static BOOL CreateGadgets(ULONG width)
  105. {
  106.  struct NewGadget ng;
  107.  struct Gadget *g;
  108.  struct TextFont *f;
  109.  UWORD topborder,leftedge,fheight;
  110.  UWORD fwidth,wg;
  111.  BOOL dummy=cb->cb_Type==TNTYPE_DUMMY;
  112.  BOOL nicon=dummy || !(cb->cb_Flags&TNFLAGS_ICON);
  113.  char buf[BUFLEN];
  114.  
  115.  if (!(f=OpenFont(pubsc->Font))) goto cge1; /* Open window font */
  116.  topborder=pubsc->WBorTop+f->tf_YSize+1;    /* Top border offset */
  117.  CloseFont(f);                              /* Close font */
  118.  
  119.  if (!(f=OpenFont(&ta))) goto cge1;         /* Open window font */
  120.  fheight=f->tf_YSize+INTERHEIGHT;           /* font height */
  121.  fwidth=f->tf_XSize;                        /* font width */
  122.  CloseFont(f);                              /* Close font */
  123.  
  124.  /* Create gadget list */
  125.  gl=NULL;
  126.  g=CreateContext(&gl);
  127.  
  128.  /* Calculate window values */
  129.  leftedge=8*fwidth+pubsc->WBorLeft+2*INTERWIDTH;
  130.  
  131.  /*  1. gadget: Cycle, Dummy tool */
  132.  ng.ng_LeftEdge=leftedge;
  133.  ng.ng_TopEdge=topborder+INTERHEIGHT;
  134.  ng.ng_Width=5*fwidth+WDRAGBARLEN;
  135.  ng.ng_Height=fheight;
  136.  ng.ng_GadgetText=ToolGadgetText;
  137.  ng.ng_TextAttr=&ta;
  138.  ng.ng_GadgetID=TOGAD_ID;
  139.  ng.ng_Flags=PLACETEXT_LEFT;
  140.  ng.ng_VisualInfo=vi;
  141.  ng.ng_UserData=NULL;
  142.  if (!(g=CreateGadget(CYCLE_KIND,g,&ng,
  143.                       GTCY_Labels,ToolLabelTexts,
  144.                       GTCY_Active,cb->cb_Type,
  145.                       TAG_DONE)))
  146.   goto cge2;
  147.  
  148.  /*  2. gadget: String, Alias */
  149.  ng.ng_TopEdge+=g->Height+INTERHEIGHT;
  150.  ng.ng_Width=width-leftedge+2*INTERWIDTH;
  151.  ng.ng_Height=fheight+2;
  152.  ng.ng_GadgetText=AliasKey;
  153.  ng.ng_GadgetID=ALGAD_ID;
  154.  if (!(alsg=g=CreateGadget(STRING_KIND,g,&ng,
  155.                            GTST_String,cb->cb_Alias,
  156.                            GTST_MaxChars,BUFLEN-1,
  157.                            TAG_DONE)))
  158.   goto cge2;
  159.  
  160.  /*  3. gadget: String, RealName */
  161.  ng.ng_TopEdge+=g->Height+2*INTERHEIGHT;
  162.  ng.ng_GadgetText=RealKey;
  163.  ng.ng_GadgetID=RNGAD_ID;
  164.  if (!(rnsg=g=CreateGadget(STRING_KIND,g,&ng,
  165.                            GTST_String,cb->cb_RealName,
  166.                            GTST_MaxChars,BUFLEN-1,
  167.                            GA_Disabled,dummy,
  168.                            TAG_DONE)))
  169.   goto cge2;
  170.  
  171.  /*  4. gadget: String, WorkDir */
  172.  ng.ng_TopEdge+=g->Height+2*INTERHEIGHT;
  173.  ng.ng_GadgetText=DirKey;
  174.  ng.ng_GadgetID=WDGAD_ID;
  175.  if (!(wdsg=g=CreateGadget(STRING_KIND,g,&ng,
  176.                            GTST_String,cb->cb_WorkDir,
  177.                            GTST_MaxChars,BUFLEN-1,
  178.                            GA_Disabled,dummy,
  179.                            TAG_DONE)))
  180.   goto cge2;
  181.  
  182.  /*  5. gadget: Integer, Stack */
  183.  ng.ng_TopEdge+=g->Height+2*INTERHEIGHT;
  184.  ng.ng_GadgetText=StackKey;
  185.  ng.ng_GadgetID=STGAD_ID;
  186.  if (!(stig=g=CreateGadget(INTEGER_KIND,g,&ng,
  187.                            GTIN_Number,cb->cb_Stack,
  188.                            GA_Disabled,dummy,
  189.                            TAG_DONE)))
  190.   goto cge2;
  191.  
  192.  /*  6. gadget: String, HotKey */
  193.  ng.ng_TopEdge+=g->Height+2*INTERHEIGHT;
  194.  ng.ng_GadgetText=HotKKey;
  195.  ng.ng_GadgetID=HKGAD_ID;
  196.  if (!(hksg=g=CreateGadget(STRING_KIND,g,&ng,
  197.                            GTST_String,cb->cb_HotKey,
  198.                            GTST_MaxChars,BUFLEN-1,
  199.                            GA_Disabled,dummy,
  200.                            TAG_DONE)))
  201.   goto cge2;
  202.  
  203.  /*  7. gadget: CheckBox, Menu */
  204.  wg=4*fwidth+2*INTERWIDTH;
  205.  ng.ng_LeftEdge=wg+pubsc->WBorLeft;
  206.  ng.ng_TopEdge+=g->Height+2*INTERHEIGHT;
  207.  ng.ng_Width=10;
  208.  ng.ng_Height=fheight;
  209.  ng.ng_GadgetText=MenuLabelText;
  210.  ng.ng_GadgetID=MNGAD_ID;
  211.  if (!(mncg=g=CreateGadget(CHECKBOX_KIND,g,&ng,
  212.                            GTCB_Checked,cb->cb_Flags&TNFLAGS_MENU,
  213.                            TAG_DONE)))
  214.   goto cge2;
  215.  
  216.  /*  8. gadget: CheckBox, Icon */
  217.  ng.ng_LeftEdge+=g->Width+wg;
  218.  ng.ng_GadgetText=DObjKey;
  219.  ng.ng_GadgetID=ICGAD_ID;
  220.  if (!(iccg=g=CreateGadget(CHECKBOX_KIND,g,&ng,
  221.                            GTCB_Checked,cb->cb_Flags&TNFLAGS_ICON,
  222.                            GA_Disabled,dummy,
  223.                            TAG_DONE)))
  224.   goto cge2;
  225.  
  226.  /*  9. gadget: CheckBox, Args */
  227.  ng.ng_LeftEdge+=g->Width+wg;
  228.  ng.ng_GadgetText=ArgsLabelText;
  229.  ng.ng_GadgetID=ARGAD_ID;
  230.  if (!(arcg=g=CreateGadget(CHECKBOX_KIND,g,&ng,
  231.                            GTCB_Checked,!(cb->cb_Flags&TNFLAGS_NARG),
  232.                            GA_Disabled,dummy,
  233.                            TAG_DONE)))
  234.   goto cge2;
  235.  
  236.  /* 10. gadget: Cycle, Icon type */
  237.  ng.ng_LeftEdge=leftedge;
  238.  ng.ng_TopEdge+=g->Height+INTERHEIGHT;
  239.  ng.ng_Width=5*fwidth+WDRAGBARLEN;
  240.  ng.ng_GadgetText=ITypeKey;
  241.  ng.ng_GadgetID=ITGAD_ID;
  242.  if (!(itcg=g=CreateGadget(CYCLE_KIND,g,&ng,
  243.                            GTCY_Labels,IconLabelTexts,
  244.                            GTCY_Active,(cb->cb_Flags&TNFLAGS_DOBJ)?1:0,
  245.                            GA_Disabled,nicon,
  246.                            TAG_DONE)))
  247.   goto cge2;
  248.  
  249.  /* 11. gadget: String, IconFile */
  250.  ng.ng_TopEdge+=g->Height+INTERHEIGHT;
  251.  ng.ng_Width=width-leftedge+2*INTERWIDTH;
  252.  ng.ng_Height=fheight+2;
  253.  ng.ng_GadgetText=IFileKey;
  254.  ng.ng_GadgetID=IFGAD_ID;
  255.  if (!(ifsg=g=CreateGadget(STRING_KIND,g,&ng,
  256.                            GTST_String,cb->cb_IconFile,
  257.                            GTST_MaxChars,BUFLEN-1,
  258.                            GA_Disabled,nicon,
  259.                            TAG_DONE)))
  260.   goto cge2;
  261.  
  262.  /* 12. gadget: Integer, Icon X Position */
  263.  ng.ng_TopEdge+=g->Height+2*INTERHEIGHT;
  264.  ng.ng_GadgetText=IconXLabelText;
  265.  ng.ng_GadgetID=IXGAD_ID;
  266.  if (!(ixig=g=CreateGadget(INTEGER_KIND,g,&ng,
  267.                            GTIN_Number,cb->cb_IconX,
  268.                            GA_Disabled,nicon,
  269.                            TAG_DONE)))
  270.   goto cge2;
  271.  
  272.  /* 13. gadget: Integer, Icon Y Position */
  273.  ng.ng_TopEdge+=g->Height+2*INTERHEIGHT;
  274.  ng.ng_GadgetText=IconYLabelText;
  275.  ng.ng_GadgetID=IYGAD_ID;
  276.  if (!(iyig=g=CreateGadget(INTEGER_KIND,g,&ng,
  277.                            GTIN_Number,cb->cb_IconY,
  278.                            GA_Disabled,nicon,
  279.                            TAG_DONE)))
  280.   goto cge2;
  281.  
  282.  /* 14. gadget: Button, OK */
  283.  wg=6*fwidth+INTERWIDTH;
  284.  ng.ng_LeftEdge=pubsc->WBorLeft+INTERWIDTH;
  285.  ng.ng_TopEdge+=g->Height+2*INTERHEIGHT;
  286.  ng.ng_Width=wg;
  287.  ng.ng_GadgetText=OKButtonText;
  288.  ng.ng_GadgetID=OKGAD_ID;
  289.  ng.ng_Flags=PLACETEXT_IN;
  290.  if (!(g=CreateGadget(BUTTON_KIND,g,&ng,TAG_DONE))) goto cge2;
  291.  
  292.  /* 15. gadget: Button, Cancel */
  293.  ng.ng_LeftEdge=pubsc->WBorLeft+width-wg+INTERWIDTH;
  294.  ng.ng_GadgetText=CancelButtonText;
  295.  ng.ng_GadgetID=CAGAD_ID;
  296.  if (!(g=CreateGadget(BUTTON_KIND,g,&ng,TAG_DONE))) goto cge2;
  297.  
  298.  /* Calculate window height */
  299.  wh=ng.ng_TopEdge+g->Height-topborder+INTERHEIGHT;
  300.  CloseFont(f);
  301.  return(TRUE);
  302.  
  303. cge2: FreeGadgets(gl);
  304. cge1: return(FALSE);
  305. }
  306.  
  307. /* Set current string gadget and activate it */
  308. static void SetAndActivateSG(struct Gadget *g)
  309. {
  310.  ActivateGadget(g,w,NULL);
  311.  curg=g;
  312. }
  313.  
  314. /* Open edit window */
  315. void OpenEditWindow(ULONG left, ULONG top, ULONG width, struct ToolNode *tn)
  316. {
  317.  if (!(pubsc=LockPubScreen(WBScreenName))) /* Lock Workbench screen */
  318.   goto oew1;
  319.  
  320.  if (!(vi=GetVisualInfo(pubsc,TAG_DONE))) /* Get visual information */
  321.   goto oew2;
  322.  
  323.  if (!GetConfigBlock(tn))                 /* Get memory for config block */
  324.   goto oew3;
  325.  
  326.  if (!CreateGadgets(width))               /* Create Gadgets */
  327.   goto oew4;
  328.  
  329.  /* Open window */
  330.  if (!(w=OpenWindowTags(&nw,
  331.                         WA_Left,left-INTERWIDTH,
  332.                         WA_Top,top+20,
  333.                         WA_InnerWidth,width+2*INTERWIDTH,
  334.                         WA_InnerHeight,wh,
  335.                         WA_Title,WindowTitle,
  336.                         WA_PubScreen,pubsc,
  337.                         WA_AutoAdjust,TRUE,
  338.                         TAG_DONE)))
  339.   goto oew5;
  340.  
  341.  wp=w->UserPort; /* Retrieve window port */
  342.  
  343.  /* Circumvent an intuition.library bug. See AutoDocs for LockPubScreen() */
  344.  UnlockPubScreen(NULL,pubsc);
  345.  pubsc=NULL;
  346.  
  347.  /* Add gadget list to window */
  348.  AddGList(w,gl,(UWORD) -1,(UWORD) -1,NULL);
  349.  RefreshGList(gl,w,NULL,(UWORD) -1);
  350.  GT_RefreshWindow(w,NULL);
  351.  SetAndActivateSG(alsg);
  352.  
  353.  /* Window open! */
  354.  etn=tn;
  355.  editwinsig=1L<<wp->mp_SigBit;
  356.  return;
  357.  
  358.  /* Something went wrong.... */
  359. oew5: FreeGadgets(gl);
  360. oew4: free(cb);
  361. oew3: FreeVisualInfo(vi);
  362. oew2: if (pubsc) UnlockPubScreen(NULL,pubsc);
  363. oew1: return;
  364. }
  365.  
  366. /* Close edit window */
  367. void CloseEditWindow(void)
  368. {
  369.  if (editwinsig)
  370.   {
  371.    CloseWindow(w);
  372.    FreeGadgets(gl);
  373.    free(cb);
  374.    FreeVisualInfo(vi);
  375.    editwinsig=0;
  376.   }
  377. }
  378.  
  379. /* Handle edit window events */
  380. void HandleEditWinEvent(void)
  381. {
  382.  BOOL clwin=FALSE; /* TRUE if window should be closed */
  383.  struct IntuiMessage *msg;
  384.  
  385.  while ((msg=GT_GetIMsg(wp)) /* && !clwin */)
  386.   {
  387.    switch (msg->Class)
  388.     {
  389.      case CLOSEWINDOW:          /* User clicked the close gadget */
  390.       clwin=TRUE;               /* Yes, close window */
  391.       break;
  392.      case REFRESHWINDOW:        /* Window must be refreshed */
  393.       GT_BeginRefresh(w);
  394.       GT_EndRefresh(w,TRUE);
  395.       break;
  396.      case GADGETUP:             /* User released the gadget */
  397.       switch(((struct Gadget *) msg->IAddress)->GadgetID)
  398.        {
  399.         case TOGAD_ID:          /* User selected the Type gadget */
  400.          BOOL dummy,nicon;
  401.  
  402.          /* Set type and status flags */
  403.          cb->cb_Type=msg->Code;
  404.          dummy=cb->cb_Type==TNTYPE_DUMMY;             /* DUMMY tool */
  405.          nicon=dummy || !(cb->cb_Flags&TNFLAGS_ICON); /* No icon */
  406.  
  407.          /* (de)activate all other gadgets according to the tool type */
  408.          GT_SetGadgetAttrs(rnsg,w,NULL,GA_Disabled,dummy,TAG_DONE);
  409.          GT_SetGadgetAttrs(wdsg,w,NULL,GA_Disabled,dummy,TAG_DONE);
  410.          GT_SetGadgetAttrs(stig,w,NULL,GA_Disabled,dummy,TAG_DONE);
  411.          GT_SetGadgetAttrs(hksg,w,NULL,GA_Disabled,dummy,TAG_DONE);
  412.          GT_SetGadgetAttrs(iccg,w,NULL,GA_Disabled,dummy,TAG_DONE);
  413.          GT_SetGadgetAttrs(arcg,w,NULL,GA_Disabled,dummy,TAG_DONE);
  414.          GT_SetGadgetAttrs(itcg,w,NULL,GA_Disabled,nicon,TAG_DONE);
  415.          GT_SetGadgetAttrs(ifsg,w,NULL,GA_Disabled,nicon,TAG_DONE);
  416.          GT_SetGadgetAttrs(ixig,w,NULL,GA_Disabled,nicon,TAG_DONE);
  417.          GT_SetGadgetAttrs(iyig,w,NULL,GA_Disabled,nicon,TAG_DONE);
  418.  
  419.          /* DUMMY tool? Yes -> Set standard values */
  420.          if (dummy)
  421.           {
  422.            GT_SetGadgetAttrs(mncg,w,NULL,GTCB_Checked,TRUE,TAG_DONE);
  423.            cb->cb_Flags|=TNFLAGS_MENU; /* Don't discard icon flag yet */
  424.  
  425.            /* Next active gadget */
  426.            SetAndActivateSG(alsg);
  427.           }
  428.          else
  429.           ActivateGadget(curg,w,NULL); /* Reactivate old string gadget */
  430.  
  431.          break;
  432.         case ALGAD_ID:          /* User pressed <return> on Alias gadget */
  433.          if (cb->cb_Type==TNTYPE_DUMMY) /* Activate next gadget */
  434.           SetAndActivateSG(alsg);
  435.          else
  436.           SetAndActivateSG(rnsg);
  437.          break;
  438.         case RNGAD_ID:          /* User pressed <return> on RealName gadget */
  439.          SetAndActivateSG(wdsg); /* Activate next gadget */
  440.          break;
  441.         case WDGAD_ID:          /* User pressed <return> on WorkDir gadget */
  442.          SetAndActivateSG(stig); /* Activate next gadget */
  443.          break;
  444.         case STGAD_ID:          /* User pressed <return> on Stack gadget */
  445.          SetAndActivateSG(hksg); /* Activate next gadget */
  446.          break;
  447.         case HKGAD_ID:          /* User pressed <return> on HotKey gadget */
  448.          if (cb->cb_Flags&TNFLAGS_ICON) /* Activate next gadget */
  449.           SetAndActivateSG(ifsg);
  450.          else
  451.           SetAndActivateSG(alsg);
  452.          break;
  453.         case MNGAD_ID:          /* User selected the Menu gadget */
  454.          cb->cb_Flags^=TNFLAGS_MENU;  /* Toggle menu flag */
  455.          ActivateGadget(curg,w,NULL); /* Reactivate old string gadget */
  456.          break;
  457.         case ICGAD_ID:          /* User selected the Icon gadget */
  458.          BOOL nicon=!(iccg->Flags&SELECTED); /* No icon */
  459.  
  460.          cb->cb_Flags^=TNFLAGS_ICON; /* Toggle icon flag */
  461.  
  462.          /* (de)activate icon parameter gadets according to icon flag state */
  463.          GT_SetGadgetAttrs(itcg,w,NULL,GA_Disabled,nicon,TAG_DONE);
  464.          GT_SetGadgetAttrs(ifsg,w,NULL,GA_Disabled,nicon,TAG_DONE);
  465.          GT_SetGadgetAttrs(ixig,w,NULL,GA_Disabled,nicon,TAG_DONE);
  466.          GT_SetGadgetAttrs(iyig,w,NULL,GA_Disabled,nicon,TAG_DONE);
  467.  
  468.          /* Activate next gadget */
  469.          if (nicon)
  470.           SetAndActivateSG(alsg);
  471.          else
  472.           ActivateGadget(curg,w,NULL);
  473.          break;
  474.         case ARGAD_ID:          /* User selected the Args gadget */
  475.          cb->cb_Flags^=TNFLAGS_NARG;  /* Toggle Args flag */
  476.          ActivateGadget(curg,w,NULL); /* Reactivate old string gadget */
  477.          break;
  478.         case ITGAD_ID:          /* User selected the IconType gadget */
  479.          cb->cb_Flags^=TNFLAGS_DOBJ;  /* Toggle icon type flag */
  480.          ActivateGadget(curg,w,NULL); /* Reactivate old string gadget */
  481.          break;
  482.         case IFGAD_ID:          /* User pressed <return> on IconFile gadget */
  483.          SetAndActivateSG(ixig); /* Activate next gadget */
  484.          break;
  485.         case IXGAD_ID:          /* User pressed <return> on X Coord. gadget */
  486.          SetAndActivateSG(iyig); /* Activate next gadget */
  487.          break;
  488.         case IYGAD_ID:          /* User pressed <return> on Y Coord. gadget */
  489.          SetAndActivateSG(alsg); /* Activate next gadget */
  490.          break;
  491.         case OKGAD_ID:          /* User selected the OK gadget */
  492.          UBYTE oldflags;
  493.  
  494.          /* Window in closing state? Yes --> Skip this event */
  495.          if (clwin) break;
  496.  
  497.          /* Copy new tool parameters */
  498.          strcpy(cb->cb_Alias,
  499.                 ((struct StringInfo *) alsg->SpecialInfo)->Buffer);
  500.          strcpy(cb->cb_RealName,
  501.                 ((struct StringInfo *) rnsg->SpecialInfo)->Buffer);
  502.          strcpy(cb->cb_WorkDir,
  503.                 ((struct StringInfo *) wdsg->SpecialInfo)->Buffer);
  504.          cb->cb_Stack=((struct StringInfo *) stig->SpecialInfo)->LongInt;
  505.          strcpy(cb->cb_HotKey,
  506.                 ((struct StringInfo *) hksg->SpecialInfo)->Buffer);
  507.          strcpy(cb->cb_IconFile,
  508.                 ((struct StringInfo *) ifsg->SpecialInfo)->Buffer);
  509.          cb->cb_IconX=((struct StringInfo *) ixig->SpecialInfo)->LongInt;
  510.          cb->cb_IconY=((struct StringInfo *) iyig->SpecialInfo)->LongInt;
  511.  
  512.          DetachToolList(); /* Tool list will be changed */
  513.  
  514.          /* If the user hasn't changed it's position, the new icon will not
  515.             appear at the choosen position if the old one is still there. */
  516.          if (etn->tn_AppIcon)
  517.           {
  518.            RemoveAppIcon(etn->tn_AppIcon);
  519.            etn->tn_AppIcon=NULL;
  520.           }
  521.  
  522.          /* If the user has changed the tool type to DUMMY, we forget the
  523.             previous state of the icon flag for real now */
  524.          oldflags=cb->cb_Flags;
  525.          if (cb->cb_Type==TNTYPE_DUMMY)
  526.           cb->cb_Flags=TNFLAGS_MENU|TNFLAGS_DOBJ;
  527.  
  528.          /* Build new ToolNode */
  529.          if (AddToolNode(cb,etn->tn_DirLock))
  530.           {
  531.            /* New ToolNode was added at the end of list */
  532.            struct ToolNode *tn=RemTail(&ToolList); /* Remove new node */
  533.  
  534.            /* Insert it after the old node */
  535.            Insert(&ToolList,(struct Node *) tn,(struct Node *) etn);
  536.            RemToolNode(etn); /* Remove old node */
  537.  
  538.            /* Now the new node has moved to same place in the list which was
  539.               occupied by the old one. Therefore it appears in the same place in
  540.               the config file. (But don't forget to save the new definition :-)
  541.               The same should be done for the AppMenuItem, but there is no
  542.               easy way to do this now... */
  543.  
  544.            clwin=TRUE;               /* Close window */
  545.           }
  546.          else /* No new ToolNode created --> reactivate Alias gadget */
  547.           {
  548.            /* Restore old flags */
  549.            cb->cb_Flags=oldflags;
  550.  
  551.            /* Let the old icon re-appear */
  552.            if (etn->tn_Flags&TNFLAGS_ICON)
  553.             etn->tn_AppIcon=AddAppIcon((ULONG) etn,NULL,etn->tn_Node.ln_Name,
  554.                                        MyMP,NULL,etn->tn_Icon,TAG_DONE);
  555.  
  556.            /* Beep the user and reactivate old string gadget */
  557.            DisplayBeep(NULL);
  558.            ActivateGadget(curg,w,NULL);
  559.           }
  560.  
  561.          AttachToolList(); /* Tool list has changed */
  562.          break;
  563.         case CAGAD_ID:          /* User selected the cancel gadget */
  564.          clwin=TRUE;            /* Close window */
  565.          break;
  566.        }
  567.       break;
  568.     }
  569.    GT_ReplyIMsg(msg);
  570.   }
  571.  
  572.  if (clwin) CloseEditWindow();
  573. }
  574.