home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tm1.4patch2 < prev   
Encoding:
Text File  |  1995-06-29  |  38.4 KB  |  1,427 lines
  1. *** tmAppInit.c    Fri May 19 11:50:08 1995
  2. --- ../../tm-1-4.org/src/tmAppInit.c    Mon Feb 27 19:38:24 1995
  3. ***************
  4. *** 119,127 ****
  5.       }
  6.   
  7.        moatinterp = interp;
  8. ! #if defined(__sun__) && !defined(__sysv__)
  9. !     on_exit(cleanup,0);
  10. ! #else
  11.        atexit(cleanup);
  12.   #endif
  13.   
  14. --- 119,125 ----
  15.       }
  16.   
  17.        moatinterp = interp;
  18. ! #ifdef __STDC__
  19.        atexit(cleanup);
  20.   #endif
  21.   
  22. ***************
  23. *** 140,145 ****
  24.       tcl_RcFileName = "tmrc";
  25.       return TCL_OK;
  26.   }
  27. - 
  28. - 
  29. - 
  30. --- 138,140 ----
  31. *** tmBasic.c    Fri May 19 11:54:22 1995
  32. --- ../../tm-1-4.org/src/tmBasic.c    Mon Feb 27 19:40:00 1995
  33. ***************
  34. *** 301,311 ****
  35.       char *name;
  36.   {
  37.       Tm_Display *d;
  38. ! 
  39. !     if (NULL!=name)
  40. !     for(d = tm_display_list; NULL!=d; d = d->next)
  41. !         if(0 == strcmp(name,XDisplayString(d->display)))
  42. !         return d;
  43.       return NULL;
  44.   }
  45.   
  46. --- 301,310 ----
  47.       char *name;
  48.   {
  49.       Tm_Display *d;
  50. !     
  51. !     for(d = tm_display_list; NULL!=d; d = d->next)
  52. !       if(0 == strcmp(name,XDisplayString(d->display)))
  53. !           return d;
  54.       return NULL;
  55.   }
  56.   
  57. ***************
  58. *** 379,392 ****
  59.           p->widget,XDisplayString(d->display));
  60.   #endif
  61.       for(i=0; i<d->numshellwidgets; ++i) {
  62. !     if(NULL!=d->shellwidgets[i]) {
  63. !         if(p==d->shellwidgets[i]) {
  64. !         d->shellwidgets[i] = NULL;
  65. !         if(cnt)
  66. !             return;
  67. !         } else
  68. !         ++cnt;
  69. !     }
  70.       }
  71.       if(!cnt) {
  72.       Tm_Display *p = tm_display_list;
  73. --- 378,390 ----
  74.           p->widget,XDisplayString(d->display));
  75.   #endif
  76.       for(i=0; i<d->numshellwidgets; ++i) {
  77. !       if(p==d->shellwidgets[i]) {
  78. !           d->shellwidgets[i] = NULL;
  79. !           if(cnt)
  80. !               return;
  81. !       } else
  82. !           if(NULL!=d->shellwidgets[i])
  83. !               ++cnt;
  84.       }
  85.       if(!cnt) {
  86.       Tm_Display *p = tm_display_list;
  87. ***************
  88. *** 466,471 ****
  89. --- 464,487 ----
  90.       Tcl_SplitList(interp, app_argv_str, &app_argc, &app_argv);
  91.       old_app_argc = app_argc;
  92.   
  93. + #if 0
  94. +     /* don't copy - we don't free this after all! */
  95. +     /* bug workaround */
  96. +     for (n = 0; n < app_argc; n++) {
  97. +     if (app_argv[n][0] == '-') {
  98. +         if (strcmp(app_argv[n], "-geometry") == 0) {
  99. +         /* the Intrinsics don't copy this resource (do they?)
  100. +            so make our own copy, 'cos it gets freed later, trashing
  101. +            the value
  102. +          */
  103. +         n++;
  104. +         app_argv[n] = XtNewString(app_argv[n]);
  105. +         }
  106. +     }
  107. +     }
  108. + #endif
  109. + 
  110. + 
  111.       for (n = 1; n < argc; n++) {
  112.       if (argv[n][0] == '-') {
  113.           if (strcmp(argv[n], "-appContext") == 0) {
  114. ***************
  115. *** 553,558 ****
  116. --- 569,575 ----
  117.       XtGetApplicationNameAndClass(XtDisplay(toplevel),
  118.                                  &applicationname,&applicationclass);
  119.   
  120. + 
  121.       wPtr = (Tm_Widget *) XtMalloc (sizeof (Tm_Widget));
  122.       wPtr -> interp = interp;
  123.       wPtr -> widget = toplevel;
  124. ***************
  125. *** 560,579 ****
  126.       wPtr -> parent = ".";    /* kludge to stop later breakages */
  127.       wPtr -> displayInfo = displayInfo;
  128.   
  129. !     Tcl_CreateCommand(interp, ".", Tm_RootCmd,
  130. !               (ClientData) wPtr, (void (*) ()) NULL);
  131. !     Tm_DisplayAddShell(displayInfo,wPtr);
  132.       XtAddCallback(toplevel, XmNdestroyCallback, Tm_DestroyWidgetHandler, wPtr);
  133.       Tm_RegisterConverters(interp, appContext);
  134.   
  135.       /* now try to create the "send" command */
  136.       Tm_RegisterSendCmd(interp, app_argv[0], toplevel);
  137.   
  138. !     /*
  139. !      * don't free this - the AppShell resource XmNargv points to the
  140. !      * set of strings contained in app_argv!
  141. !      free((char *) app_argv);
  142. !      */
  143.   
  144.       /* register the tear-off menu converter */
  145.   #   ifndef MOTIF11
  146. --- 577,598 ----
  147.       wPtr -> parent = ".";    /* kludge to stop later breakages */
  148.       wPtr -> displayInfo = displayInfo;
  149.   
  150. !     Tm_StoreWidgetInfo(".", wPtr, interp);
  151. ! 
  152. !     Tcl_CreateCommand (interp, ".", Tm_RootCmd,
  153. !                  (ClientData) wPtr, (void (*) ()) NULL);
  154. ! 
  155.       XtAddCallback(toplevel, XmNdestroyCallback, Tm_DestroyWidgetHandler, wPtr);
  156. + 
  157.       Tm_RegisterConverters(interp, appContext);
  158.   
  159.       /* now try to create the "send" command */
  160.       Tm_RegisterSendCmd(interp, app_argv[0], toplevel);
  161.   
  162. !     /* don't free this - the AppShell resource XmNargv points to the
  163. !        set of strings contained in app_argv!
  164. !     free((char *) app_argv);
  165. !     */
  166.   
  167.       /* register the tear-off menu converter */
  168.   #   ifndef MOTIF11
  169. ***************
  170. *** 616,624 ****
  171.       static char initCmd[] =
  172.   #if defined TMUSEINITFILE
  173.           "if [file exists $tm_library/init_tclMotif.tcl] {\n\
  174. !             source  $tm_library/init_tclMotif.tcl;\n\
  175. !         } elseif [file exists $tm_library/init_tclmotif.tcl] {\n\
  176. !             source  $tm_library/init_tclmotif.tcl;\n\
  177.           }";
  178.   #else
  179.       "global tclMotif_unknown\n\
  180. --- 635,641 ----
  181.       static char initCmd[] =
  182.   #if defined TMUSEINITFILE
  183.           "if [file exists $tm_library/init_tclMotif.tcl] {\n\
  184. !             source  $tm_library/init_tclMotif.tcl\n\
  185.           }";
  186.   #else
  187.       "global tclMotif_unknown\n\
  188. ***************
  189. *** 631,655 ****
  190.       \n\
  191.       rename unknown $tclMotif_unknown\n\
  192.       \n\
  193. !     proc unknown {args} {\n\
  194.           global tclMotif_unknown\n\
  195.       \n\
  196. -         set name [lindex $args 0];\n\
  197.           set cmds [info commands $name]\n\
  198.           set len [llength $cmds]\n\
  199.           if {$len == 0} {\n\
  200.           # no match, pass to old unknown\n\
  201. !         return [uplevel 1 $tclMotif_unknown $args];\n\
  202.           }\n\
  203.           if {$len > 1} {\n\
  204.           error \"non-unique command \\\"$name\\\" matches \\\"$cmds\\\"\"\n\
  205.           }\n\
  206.       \n\
  207.           # unique abbreviation:\n\
  208. !         return [uplevel $cmds [lrange $args 1 end]]\n\
  209.       }\n\
  210.   ";
  211. ! #endif /* TMUSEINITFILE */
  212.       char *libDir;
  213.       char buf[32];
  214.   
  215. --- 648,672 ----
  216.       \n\
  217.       rename unknown $tclMotif_unknown\n\
  218.       \n\
  219. !     proc unknown {name args} {\n\
  220.           global tclMotif_unknown\n\
  221.       \n\
  222.           set cmds [info commands $name]\n\
  223.           set len [llength $cmds]\n\
  224.           if {$len == 0} {\n\
  225.           # no match, pass to old unknown\n\
  226. !         set cmd \"uplevel 1 $tclMotif_unknown $name $args\"\n\
  227. !         eval $cmd\n\
  228.           }\n\
  229.           if {$len > 1} {\n\
  230.           error \"non-unique command \\\"$name\\\" matches \\\"$cmds\\\"\"\n\
  231.           }\n\
  232.       \n\
  233.           # unique abbreviation:\n\
  234. !         return [uplevel $cmds $args]\n\
  235.       }\n\
  236.   ";
  237. ! #endif /* 0 */
  238.       char *libDir;
  239.       char buf[32];
  240.   
  241. *** tmCommands.c    Wed May 17 09:37:41 1995
  242. --- ../../tm-1-4.org/src/tmCommands.c    Wed Mar  1 16:53:22 1995
  243. ***************
  244. *** 244,249 ****
  245. --- 244,252 ----
  246.       if ((c == 'd') && (strcmp(argv[1], "destroyWidget") == 0)) {
  247.       /* destroy - most stuff done in DestroyWidgetHandler */
  248.       XtDestroyWidget(wPtr->widget);
  249. + 
  250. +         /* must delete tcl command now, though, so we can't use it again */
  251. +         Tcl_DeleteCommand(interp, wPtr->pathName);
  252.       } else
  253.   
  254.   #ifndef MOTIF11
  255. ***************
  256. *** 1254,1264 ****
  257.       int filenum;
  258.       char *end;
  259.   
  260. - #if defined( VMS ) || defined( __vms__ )
  261. -     sprintf(interp->result, "%s not supported under OVMS", argv[1]);
  262. -     return TCL_ERROR;
  263. - #endif
  264. - 
  265.       if (argc < 4) {
  266.           sprintf(interp->result, "wrong # args: should be \"%.50s fileID \
  267.   permissions tcl_code", argv[0]);
  268. --- 1257,1262 ----
  269. ***************
  270. *** 1375,1381 ****
  271.       char **largv;
  272.   #if USE_UIL
  273.       MrmHierarchy *hierarchy;
  274. -     Cardinal     mrm_res;
  275.   
  276.           if (argc < 3) {
  277.               sprintf(interp->result,
  278. --- 1373,1378 ----
  279. ***************
  280. *** 1387,1421 ****
  281.       hierarchy = &(wPtr->displayInfo->hierarchy);
  282.   
  283.       Tcl_SplitList(interp, argv[2], &largc, &largv);
  284. ! #if defined( VMS ) || defined( __vms__ )
  285. !     {
  286. !         int        i;
  287. !         char        **exp_files = malloc(sizeof(char*)*largc);
  288. !         Tcl_DString *dstrings   = malloc(sizeof(Tcl_DString)*largc);
  289. !         for (i=0;i<largc;++i)
  290. !         exp_files[i] = Tcl_TildeSubst(interp,largv[i],&dstrings[i]);
  291. !         
  292. !         mrm_res = MrmOpenHierarchyPerDisplay(XtDisplay(w), largc, exp_files,
  293. !                          NULL, hierarchy);
  294. !         for (i=0;i<largc;++i)
  295. !         Tcl_DStringFree(&dstrings[i]);
  296. !         free(exp_files);
  297. !         free(dstrings);
  298. !     }
  299. ! #else
  300. !     mrm_res = MrmOpenHierarchyPerDisplay(XtDisplay(w), largc, largv,
  301. !                          NULL, hierarchy);
  302. ! #endif
  303. !     if (mrm_res != MrmSUCCESS) {
  304. !         if (largv)
  305. !         free(largv);
  306. !         sprintf(interp->result,"failed to open Mrm hierarchy");
  307.           return TCL_ERROR;
  308.       }
  309. !     free(largv);
  310.       return TCL_OK;
  311.   #else
  312. !     sprintf(interp->result,"This version of moat not compiled with UIL support");
  313.       return TCL_ERROR;
  314.   #endif /* USE_UIL */
  315.   
  316. --- 1384,1398 ----
  317.       hierarchy = &(wPtr->displayInfo->hierarchy);
  318.   
  319.       Tcl_SplitList(interp, argv[2], &largc, &largv);
  320. !     if (MrmOpenHierarchyPerDisplay(XtDisplay(w), largc, largv, NULL, hierarchy) !=
  321. !         MrmSUCCESS) {
  322. !         sprintf(interp->result, "failed to open Mrm hierarchy");
  323.           return TCL_ERROR;
  324.       }
  325. !     free(argv);
  326.       return TCL_OK;
  327.   #else
  328. !     sprintf(interp->result, "This version of moat not compiled with UIL support");
  329.       return TCL_ERROR;
  330.   #endif /* USE_UIL */
  331.   
  332. ***************
  333. *** 2926,2933 ****
  334.   
  335.       if (argc < 4) {
  336.           sprintf(interp->result,
  337. !             "wrong # args: should be \"%.50s addWMProtocolCallback atom command... \"",
  338. !             argv[0]);
  339.           return TCL_ERROR;
  340.       }
  341.   
  342. --- 2903,2910 ----
  343.   
  344.       if (argc < 4) {
  345.           sprintf(interp->result,
  346. !             "wrong # args: should be \"%.50s addWMProtocolCallback atom command... \"",
  347. !             argv[0]);
  348.           return TCL_ERROR;
  349.       }
  350.   
  351. *** tmConverters.c    Mon Apr  3 08:58:52 1995
  352. --- ../../tm-1-4.org/src/tmConverters.c    Mon Feb 27 21:48:03 1995
  353. ***************
  354. *** 19,25 ****
  355.    *      Abteilung fuer Wirtschaftsinformatik
  356.    *      Augasse 2-6, 
  357.    *      A-1090 Vienna, Austria
  358. !  *      neumannM(wu)-wien.ac.at, nusserM(wu)-wien.ac.at
  359.   
  360.    * Permission to use, copy, modify, and distribute this software and its
  361.    * documentation for any purpose and without fee is hereby granted, provided
  362. --- 19,25 ----
  363.    *      Abteilung fuer Wirtschaftsinformatik
  364.    *      Augasse 2-6, 
  365.    *      A-1090 Vienna, Austria
  366. !  *      neumann@wu-wien.ac.at, nusser@wu-wien.ac.at
  367.   
  368.    * Permission to use, copy, modify, and distribute this software and its
  369.    * documentation for any purpose and without fee is hereby granted, provided
  370. ***************
  371. *** 91,96 ****
  372. --- 91,97 ----
  373.   #ifndef MOTIF11
  374.       XmRepTypeId id;
  375.       XmRepTypeList start, list;
  376. +     int n;
  377.   
  378.       start = list = XmRepTypeGetRegistered();
  379.   
  380. ***************
  381. *** 301,308 ****
  382.       end = buf;
  383.       for (n = 0; n < final_num_children; n++) {
  384.           p = widgetNames[n];
  385. !         while ((*end++ = *p++))
  386. !         ;
  387.           *(end - 1) = ',';
  388.           *end++ = ' ';
  389.       }
  390. --- 302,309 ----
  391.       end = buf;
  392.       for (n = 0; n < final_num_children; n++) {
  393.           p = widgetNames[n];
  394. !         while (*end++ = *p++)
  395. !         ;
  396.           *(end - 1) = ',';
  397.           *end++ = ' ';
  398.       }
  399. ***************
  400. *** 396,403 ****
  401. --- 397,406 ----
  402.       char **argv, **argvv;
  403.       int argc, argcc;
  404.       int n;
  405. +     static unsigned char status;
  406.       static XmDropTransferEntryRec transferEntries[32];
  407.       static XmDropTransferEntryRec *p;
  408. +     Tm_Widget *wPtr;
  409.       Tcl_Interp *interp = (Tcl_Interp *) args->addr;
  410.   
  411.       buf = (char *) (fromVal->addr);
  412. ***************
  413. *** 450,464 ****
  414.   {
  415.       XmStringContext context;
  416.       static char *buf = NULL;
  417. !     char *p, *text = NULL;
  418. !     XmStringCharSet charset = (XmStringCharSet)NULL;
  419.       XmStringDirection direction;
  420.       int size;
  421.       int current_len, segment_len;
  422.       XmStringComponentType tag;
  423.       XmStringComponentType u_tag;
  424.       unsigned short u_length;
  425. !     unsigned char *u_value = NULL;
  426.   
  427.       /* whatever buf has grown to, or started from, 
  428.          make it a reasonable size
  429. --- 453,468 ----
  430.   {
  431.       XmStringContext context;
  432.       static char *buf = NULL;
  433. !     char *p, *text;
  434. !     XmStringCharSet charset;
  435.       XmStringDirection direction;
  436. +     Boolean separator;
  437.       int size;
  438.       int current_len, segment_len;
  439.       XmStringComponentType tag;
  440.       XmStringComponentType u_tag;
  441.       unsigned short u_length;
  442. !     unsigned char *u_value;
  443.   
  444.       /* whatever buf has grown to, or started from, 
  445.          make it a reasonable size
  446. ***************
  447. *** 495,501 ****
  448.               strcpy(p, text);
  449.               p += segment_len;
  450.           XtFree(text);
  451. -         text = NULL;
  452.           break;
  453.   
  454.           case XmSTRING_COMPONENT_SEPARATOR:
  455. --- 499,504 ----
  456. ***************
  457. *** 512,536 ****
  458.           default:
  459.           break;
  460.       }
  461. -     if (text)
  462. -         XtFree(text);
  463. -     if (charset)
  464. -         XtFree(charset);
  465. -     if (u_value)
  466. -         XtFree(u_value);
  467. -     text = NULL;
  468. -     charset = (XmStringCharSet)NULL;
  469. -     u_value = NULL;
  470.       }
  471. -     if (text)
  472. -     XtFree(text);
  473. -     if (charset)
  474. -     XtFree(charset);
  475. -     if (u_value)
  476. -     XtFree(u_value);
  477. -     text = NULL;
  478. -     charset = (XmStringCharSet)NULL;
  479. -     u_value = NULL;
  480.   
  481.   #else /* 1 */
  482.       while (XmStringGetNextSegment(context, &text, &charset,
  483. --- 515,521 ----
  484. ***************
  485. *** 670,675 ****
  486. --- 655,662 ----
  487.       String *items;
  488.       static String buf = NULL;
  489.       int n, len, item_count;
  490. +     char *p, *end;
  491. +     char *dummy;
  492.       XmString *xmstrs = *(XmString **) fromVal->addr;
  493.       Arg arg;
  494.       Widget w = *((Widget *) args[0].addr);
  495. ***************
  496. *** 738,743 ****
  497. --- 725,731 ----
  498.   }
  499.   
  500.   
  501. + 
  502.   /*
  503.    *--------------------------------------------------------------
  504.    *
  505. ***************
  506. *** 950,961 ****
  507.       XmString           xm_dir;
  508.       char              *segPtr;
  509.       char              *ptr;
  510. !     int              argc;
  511.       char          **argv;
  512.       int              n;
  513.       Boolean          segment_started = True;
  514.   
  515. !     segPtr = segBuf =  XtMalloc(strlen(inString) + 1);
  516.   
  517.       /* In Motif 2.0 the segment stuff will vanish, leaving
  518.          the component stuff only
  519. --- 938,953 ----
  520.       XmString           xm_dir;
  521.       char              *segPtr;
  522.       char              *ptr;
  523. !     char              *top;
  524. !     int              len;
  525. !     char          separator;
  526. !     int           argc;
  527.       char          **argv;
  528.       int              n;
  529.       Boolean          segment_started = True;
  530.   
  531. !     len = strlen(inString); 
  532. !     segPtr = segBuf =  XtMalloc(len + 1);
  533.   
  534.       /* In Motif 2.0 the segment stuff will vanish, leaving
  535.          the component stuff only
  536. ***************
  537. *** 1015,1021 ****
  538.               segPtr = segBuf;
  539.               ptr++;
  540.               if (*ptr == '{') {
  541. !             /* M(f){font-name} */
  542.               ptr++;
  543.               while (*ptr && *ptr != '}') {
  544.                   *segPtr++ = *ptr++;
  545. --- 1007,1013 ----
  546.               segPtr = segBuf;
  547.               ptr++;
  548.               if (*ptr == '{') {
  549. !             /* @f{font-name} */
  550.               ptr++;
  551.               while (*ptr && *ptr != '}') {
  552.                   *segPtr++ = *ptr++;
  553. ***************
  554. *** 1024,1030 ****
  555.                   ptr++;
  556.               } else
  557.               if (*ptr == '(') {
  558. !             /* M(fXY) - 2 char font name XY */
  559.               ptr++;
  560.               if (ptr[0] && ptr[1]) {
  561.                   *segPtr++ = *ptr++;
  562. --- 1016,1022 ----
  563.                   ptr++;
  564.               } else
  565.               if (*ptr == '(') {
  566. !             /* @fXY - 2 char font name XY */
  567.               ptr++;
  568.               if (ptr[0] && ptr[1]) {
  569.                   *segPtr++ = *ptr++;
  570. ***************
  571. *** 1034,1040 ****
  572.                   *segPtr++ = 'X';
  573.               }
  574.               } else {
  575. !             /* M(fX) - 1 char font name X */
  576.               *segPtr++ = *ptr ? *ptr : 'X';
  577.               }
  578.               *segPtr = '\0';
  579. --- 1026,1032 ----
  580.                   *segPtr++ = 'X';
  581.               }
  582.               } else {
  583. !             /* @fX - 1 char font name X */
  584.               *segPtr++ = *ptr ? *ptr : 'X';
  585.               }
  586.               *segPtr = '\0';
  587. ***************
  588. *** 1188,1203 ****
  589.               /* now make new font */
  590.               ptr++;
  591.               if (*ptr == '{') {
  592. !             /* M(f){font-name} */
  593.               ptr[strlen(ptr) - 1] = '\0'; /* lose } */
  594.               ptr++;
  595.               } else
  596.               if (*ptr == '(') {
  597. !             /* M(fXY) - 2 char font name XY */
  598.               ptr++;
  599.               ptr[2] = '\0'; /* should be anyway */
  600.               } else {
  601. !             /* M(fX) - 1 char font name X */
  602.               ptr[1] = '\0'; /* should be anyway */
  603.               }
  604.               xmstr = XmStringComponentCreate(XmSTRING_COMPONENT_TAG,
  605. --- 1180,1195 ----
  606.               /* now make new font */
  607.               ptr++;
  608.               if (*ptr == '{') {
  609. !             /* @f{font-name} */
  610.               ptr[strlen(ptr) - 1] = '\0'; /* lose } */
  611.               ptr++;
  612.               } else
  613.               if (*ptr == '(') {
  614. !             /* @fXY - 2 char font name XY */
  615.               ptr++;
  616.               ptr[2] = '\0'; /* should be anyway */
  617.               } else {
  618. !             /* @fX - 1 char font name X */
  619.               ptr[1] = '\0'; /* should be anyway */
  620.               }
  621.               xmstr = XmStringComponentCreate(XmSTRING_COMPONENT_TAG,
  622. ***************
  623. *** 1219,1234 ****
  624.               /* now make new font */
  625.               ptr++;
  626.               if (*ptr == '{') {
  627. !             /* M(f){font-name} */
  628.               ptr[strlen(ptr) - 1] = '\0'; /* lose } */
  629.               ptr++;
  630.               } else
  631.               if (*ptr == '(') {
  632. !             /* M(fXY) - 2 char font name XY */
  633.               ptr++;
  634.               ptr[2] = '\0'; /* should be anyway */
  635.               } else {
  636. !             /* M(fX) - 1 char font name X */
  637.               ptr[1] = '\0'; /* should be anyway */
  638.               }
  639.               xmstr = XmStringComponentCreate(
  640. --- 1211,1226 ----
  641.               /* now make new font */
  642.               ptr++;
  643.               if (*ptr == '{') {
  644. !             /* @f{font-name} */
  645.               ptr[strlen(ptr) - 1] = '\0'; /* lose } */
  646.               ptr++;
  647.               } else
  648.               if (*ptr == '(') {
  649. !             /* @fXY - 2 char font name XY */
  650.               ptr++;
  651.               ptr[2] = '\0'; /* should be anyway */
  652.               } else {
  653. !             /* @fX - 1 char font name X */
  654.               ptr[1] = '\0'; /* should be anyway */
  655.               }
  656.               xmstr = XmStringComponentCreate(
  657. ***************
  658. *** 1251,1266 ****
  659.               /* now make new font */
  660.               ptr++;
  661.               if (*ptr == '{') {
  662. !             /* M(f){font-name} */
  663.               ptr[strlen(ptr) - 1] = '\0'; /* lose } */
  664.               ptr++;
  665.               } else
  666.               if (*ptr == '(') {
  667. !             /* M(fXY) - 2 char font name XY */
  668.               ptr++;
  669.               ptr[2] = '\0'; /* should be anyway */
  670.               } else {
  671. !             /* M(fX) - 1 char font name X */
  672.               ptr[1] = '\0'; /* should be anyway */
  673.               }
  674.               xmstr = XmStringComponentCreate(
  675. --- 1243,1258 ----
  676.               /* now make new font */
  677.               ptr++;
  678.               if (*ptr == '{') {
  679. !             /* @f{font-name} */
  680.               ptr[strlen(ptr) - 1] = '\0'; /* lose } */
  681.               ptr++;
  682.               } else
  683.               if (*ptr == '(') {
  684. !             /* @fXY - 2 char font name XY */
  685.               ptr++;
  686.               ptr[2] = '\0'; /* should be anyway */
  687.               } else {
  688. !             /* @fX - 1 char font name X */
  689.               ptr[1] = '\0'; /* should be anyway */
  690.               }
  691.               xmstr = XmStringComponentCreate(
  692. ***************
  693. *** 1391,1396 ****
  694. --- 1383,1389 ----
  695.       XtPointer *destructor_data;
  696.   {
  697.       Tcl_Interp *interp = (Tcl_Interp *) args->addr;
  698. +     Tm_Widget *info;
  699.       char **argv;
  700.       int argc;
  701.       static XmStringTable tbl = NULL;
  702. ***************
  703. *** 1779,1784 ****
  704. --- 1772,1778 ----
  705.       XtPointer *destructor_data;
  706.   {
  707.       static char *buf = NULL;
  708. +     Pixel pixelVal;
  709.       Screen *screen;
  710.       Colormap colormap;
  711.       XColor color;
  712. ***************
  713. *** 1866,1871 ****
  714. --- 1860,1866 ----
  715.       extern Tm_Widget *Tm_HackDragWidgetPtr;
  716.       Tm_Widget *wPtr = Tm_HackDragWidgetPtr;
  717.       Widget w = *((Widget *) args[1].addr);
  718. +     WidgetClass Class = *((WidgetClass *) args[2].addr);
  719.       static XtConvertSelectionProc p = Tm_ConvertProcHandler;
  720.   
  721.       /* set our proc in widgets user data */
  722. ***************
  723. *** 1914,1919 ****
  724. --- 1909,1915 ----
  725.       char *command;
  726.       Tm_Widget *wPtr;
  727.       Widget w = *((Widget *) args[1].addr);
  728. +     WidgetClass Class = *((WidgetClass *) args[2].addr);
  729.       static XtCallbackProc p = Tm_DropProcHandler;
  730.   
  731.      /* note these two hacks because XmRProc
  732. ***************
  733. *** 1971,1983 ****
  734.       char *command;
  735.       extern Tm_Widget *Tm_HackWidgetPtr;
  736.       Tm_Widget *wPtr = Tm_HackWidgetPtr;
  737.       static XtSelectionCallbackProc p = Tm_DropTransferHandler;
  738.   
  739. !     /* set our proc in widgets user data */
  740. !     command = (char *) (fromVal->addr);
  741. !     wPtr->transferProc = XtNewString(command);
  742. !     done(&p, XtCallbackProc);
  743. !     return True;
  744.   #endif
  745.   }
  746.   
  747. --- 1967,1990 ----
  748.       char *command;
  749.       extern Tm_Widget *Tm_HackWidgetPtr;
  750.       Tm_Widget *wPtr = Tm_HackWidgetPtr;
  751. +     Widget w = *((Widget *) args[1].addr);
  752. +     WidgetClass Class = *((WidgetClass *) args[2].addr);
  753.       static XtSelectionCallbackProc p = Tm_DropTransferHandler;
  754.   
  755. ! /*
  756. !     if (Tm_SettingDropTransferResources) {
  757. ! */
  758. !         /* set our proc in widgets user data */
  759. !         command = (char *) (fromVal->addr);
  760. !         wPtr->transferProc = XtNewString(command);
  761. !     
  762. !         done(&p, XtCallbackProc);
  763. ! 
  764. !         return True;
  765. ! /*
  766. !     }
  767. !     return False;
  768. ! */
  769.   #endif
  770.   }
  771.   
  772. *** tmCreateWidget.c    Fri May 19 11:54:52 1995
  773. --- ../../tm-1-4.org/src/tmCreateWidget.c    Mon Feb 27 19:40:11 1995
  774. ***************
  775. *** 59,69 ****
  776.   #include <Xm/TextF.h>
  777.   #include <Xm/ToggleB.h>
  778.   #endif  /* MOTIF11 */
  779. - #if (XlibSpecificationRelease >= 5)
  780. - #if !defined( VMS ) && !defined( __vms__ )
  781. - #include <X11/Xmu/Editres.h>
  782. - #endif
  783. - #endif
  784.   
  785.   #if USE_UIL
  786.   #include <Mrm/MrmPublic.h>
  787. --- 59,64 ----
  788. ***************
  789. *** 289,304 ****
  790.       Tcl_CmdInfo parentInfo;
  791.       int n;
  792.    
  793. -     /*
  794. -      * Check if a widget with this name already exists and signal an error.
  795. -      * Overriding an existing (widget-)command with a new one will cause core
  796. -      * dumps when the widgets are destroyed from Xt...
  797. -      */
  798. -     if(Tcl_GetCommandInfo(interp,path,&parentInfo)) {
  799. -     sprintf(interp->result,"widget %.70s already exists.",path);
  800. -     return TCL_ERROR;
  801. -     }
  802. - 
  803.       widgetCmdProc = (Tm_WidgetCmdProc) clientData;
  804.   
  805.       parent = Tm_ParentWidgetFromPath (interp, path);
  806. --- 284,289 ----
  807. ***************
  808. *** 373,378 ****
  809. --- 358,364 ----
  810.       Tcl_GetCommandInfo(interp, wPtr->parent, &parentInfo);
  811.       wPtr -> displayInfo = ((Tm_Widget *) parentInfo.clientData)->displayInfo;
  812.   
  813. +     Tm_StoreWidgetInfo(path, wPtr, interp);
  814.       XtVaSetValues(new, XmNuserData, wPtr, NULL);
  815.   
  816.       Tcl_CreateCommand (interp, path, widgetCmdProc,
  817. ***************
  818. *** 433,438 ****
  819. --- 419,425 ----
  820.       wPtr -> dropProc = NULL;
  821.       wPtr -> displayInfo = ((Tm_Widget *) cmdInfo.clientData)->displayInfo;
  822.   
  823. +     Tm_StoreWidgetInfo(subobject_path, wPtr, interp);
  824.       XtVaSetValues(w, XmNuserData, wPtr, NULL);
  825.   
  826.       /* 
  827. ***************
  828. *** 903,908 ****
  829. --- 890,896 ----
  830.       Tcl_GetCommandInfo(interp, wPtr->parent, &parentInfo);
  831.       wPtr -> displayInfo = ((Tm_Widget *) parentInfo.clientData)->displayInfo;
  832.   
  833. +     Tm_StoreWidgetInfo(dialog_path, wPtr, interp);
  834.       XtVaSetValues(XtParent(new), XmNuserData, wPtr, NULL);
  835.   
  836.       Tcl_CreateCommand (interp, dialog_path, Tm_AnyWidgetCmd,
  837. ***************
  838. *** 921,926 ****
  839. --- 909,915 ----
  840.       wPtr -> dropProc = NULL;
  841.       wPtr -> displayInfo = ((Tm_Widget *) parentInfo.clientData)->displayInfo;
  842.   
  843. +     Tm_StoreWidgetInfo(path, wPtr, interp);
  844.       XtVaSetValues(new, XmNuserData, wPtr, NULL);
  845.   
  846.       Tcl_CreateCommand (interp, path, Tm_AnyWidgetCmd,
  847. ***************
  848. *** 1087,1092 ****
  849. --- 1076,1082 ----
  850.       Tcl_GetCommandInfo(interp, wPtr->parent, &parentInfo);
  851.       wPtr -> displayInfo = ((Tm_Widget *) parentInfo.clientData)->displayInfo;
  852.   
  853. +     Tm_StoreWidgetInfo(sw_path, wPtr, interp);
  854.       XtVaSetValues(XtParent(new), XmNuserData, wPtr, NULL);
  855.   
  856.       Tcl_CreateCommand (interp, sw_path, Tm_AnyWidgetCmd,
  857. ***************
  858. *** 1105,1110 ****
  859. --- 1095,1101 ----
  860.       wPtr -> dropProc = NULL;
  861.       wPtr -> displayInfo = ((Tm_Widget *) parentInfo.clientData)->displayInfo;
  862.   
  863. +     Tm_StoreWidgetInfo(path, wPtr, interp);
  864.       XtVaSetValues(new, XmNuserData, wPtr, NULL);
  865.   
  866.       Tcl_CreateCommand (interp, path, widgetCmdProc,
  867. ***************
  868. *** 1254,1259 ****
  869. --- 1245,1251 ----
  870.       Tcl_GetCommandInfo(interp, wPtr->parent, &parentInfo);
  871.       wPtr -> displayInfo = ((Tm_Widget *) parentInfo.clientData)->displayInfo;
  872.   
  873. +     Tm_StoreWidgetInfo(path, wPtr, interp);
  874.       XtVaSetValues(new, XmNuserData, wPtr, NULL);
  875.   
  876.       Tcl_CreateCommand (interp, path, widgetCmdProc,
  877. ***************
  878. *** 1279,1284 ****
  879. --- 1271,1277 ----
  880.       OptionMenuCreateChild(interp, path, new, "OptionLabel");
  881.       OptionMenuCreateChild(interp, path, new, "OptionButton");
  882.       }
  883. + 
  884.       return TCL_OK;
  885.   }
  886.   
  887. ***************
  888. *** 1379,1384 ****
  889. --- 1372,1378 ----
  890.       Tcl_GetCommandInfo(interp, wPtr->parent, &parentInfo);
  891.       wPtr -> displayInfo = ((Tm_Widget *) parentInfo.clientData)->displayInfo;
  892.   
  893. +     Tm_StoreWidgetInfo(path, wPtr, interp);
  894.       XtVaSetValues(new, XmNuserData, wPtr, NULL);
  895.   
  896.       Tcl_CreateCommand (interp, path, widgetCmdProc,
  897. ***************
  898. *** 1542,1548 ****
  899.   
  900.   
  901.       /* make this and its children into Tm widgets */
  902. !     path = XtMalloc(strlen(parent) + strlen(name) + 2);
  903.       strcpy(path, parent);
  904.       /* special case root widget `.' */
  905.       if (strcmp(parent, ".") != 0) {
  906. --- 1536,1542 ----
  907.   
  908.   
  909.       /* make this and its children into Tm widgets */
  910. !     path = XtMalloc(strlen(parent) + strlen(wname) + 2);
  911.       strcpy(path, parent);
  912.       /* special case root widget `.' */
  913.       if (strcmp(parent, ".") != 0) {
  914. ***************
  915. *** 1608,1613 ****
  916. --- 1602,1609 ----
  917.       widgetCmdProc = (Tm_WidgetCmdProc) clientData;
  918.   
  919.       parent = Tm_ParentWidgetFromPath (interp, path);
  920. +     if (parent == NULL)
  921. +     return TCL_ERROR;
  922.   
  923.       class = topLevelShellWidgetClass;
  924.       argc -= 2;
  925. ***************
  926. *** 1617,1623 ****
  927.       argv++;
  928.       argc--;
  929.       }
  930. !     
  931.       if (argc >= 1 && argv[0][0] != '-') {
  932.       /* assume it is the display value */
  933.       displayInfo = Tm_OpenDisplay(argv[0]);
  934. --- 1613,1619 ----
  935.       argv++;
  936.       argc--;
  937.       }
  938. ! 
  939.       if (argc >= 1 && argv[0][0] != '-') {
  940.       /* assume it is the display value */
  941.       displayInfo = Tm_OpenDisplay(argv[0]);
  942. ***************
  943. *** 1628,1647 ****
  944.           argc--;
  945.           argv++;
  946.           parent = displayInfo->toplevel;
  947. -     } else if (strcmp(path,".")==0) {
  948. -     /* if one want's to open the default display again */
  949. -     displayInfo = Tm_OpenDisplay(NULL);
  950. -         if (NULL == displayInfo) {
  951. -         sprintf(interp->result,"cannot open default display.");
  952. -         return TCL_ERROR;
  953. -         }
  954. -         parent = displayInfo->toplevel;
  955.       }
  956. !     if (parent == NULL)
  957. !     return TCL_ERROR;
  958. !     Tcl_ResetResult(interp);
  959. !     if (0==strcmp(path,"."))
  960. !     widgetCmdProc = (Tm_WidgetCmdProc)Tm_RootCmd;
  961.   
  962.       /* make sure class is initialized before using XtConvertAndStore */
  963.       XtInitializeWidgetClass(class);
  964. --- 1624,1631 ----
  965.           argc--;
  966.           argv++;
  967.           parent = displayInfo->toplevel;
  968.       }
  969. ! 
  970.   
  971.       /* make sure class is initialized before using XtConvertAndStore */
  972.       XtInitializeWidgetClass(class);
  973. ***************
  974. *** 1681,1693 ****
  975.           wPtr -> displayInfo = ((Tm_Widget *) parentInfo.clientData)->displayInfo;
  976.       }
  977.       Tm_DisplayAddShell(wPtr->displayInfo,wPtr);
  978.       XtVaSetValues(new, XmNuserData, wPtr, NULL);
  979. ! #if (XlibSpecificationRelease >= 5)
  980. ! #if !defined( VMS ) && !defined( __vms__ )
  981. !     /* Add support for editres protocol */
  982. !     XtAddEventHandler(new,(EventMask)0,True,_XEditResCheckMessages,NULL);
  983. ! #endif
  984. ! #endif
  985.       Tcl_CreateCommand (interp, path, widgetCmdProc,
  986.            (ClientData) wPtr, (void (*) ()) NULL);
  987.   
  988. --- 1665,1673 ----
  989.           wPtr -> displayInfo = ((Tm_Widget *) parentInfo.clientData)->displayInfo;
  990.       }
  991.       Tm_DisplayAddShell(wPtr->displayInfo,wPtr);
  992. +     Tm_StoreWidgetInfo(path, wPtr, interp);
  993.       XtVaSetValues(new, XmNuserData, wPtr, NULL);
  994. ! 
  995.       Tcl_CreateCommand (interp, path, widgetCmdProc,
  996.            (ClientData) wPtr, (void (*) ()) NULL);
  997.   
  998. *** tmDrag.c    Fri May 19 11:55:02 1995
  999. --- ../../tm-1-4.org/src/tmDrag.c    Tue Feb 28 22:22:45 1995
  1000. ***************
  1001. *** 250,256 ****
  1002.       call_data.closure = (char *) closure;
  1003.   
  1004.       new_command = Tm_ExpandPercents(wPtr->pathName, w, NULL,
  1005. !                     (XtPointer)&call_data, command);
  1006.   
  1007.       if (Tcl_GlobalEval(interp, new_command) != TCL_OK) {
  1008.           msg = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
  1009. --- 250,256 ----
  1010.       call_data.closure = (char *) closure;
  1011.   
  1012.       new_command = Tm_ExpandPercents(wPtr->pathName, w, NULL,
  1013. !                 &call_data, command);
  1014.   
  1015.       if (Tcl_GlobalEval(interp, new_command) != TCL_OK) {
  1016.           msg = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
  1017. ***************
  1018. *** 310,315 ****
  1019. --- 310,317 ----
  1020.       dcPtr -> parent = NULL;
  1021.       dcPtr -> dropProc = NULL;
  1022.   
  1023. +     Tm_StoreWidgetInfo(dcPtr->pathName, dcPtr, dcPtr->interp);
  1024. + 
  1025.       Tcl_CreateCommand (dcPtr->interp, dcPtr->pathName, Tm_DragContextCmd,
  1026.                    (ClientData) dcPtr, (void (*) ()) NULL);
  1027.   
  1028. ***************
  1029. *** 356,371 ****
  1030.       Arg args[];
  1031.       int *num_args;
  1032.   {
  1033. - #if !defined( VMS ) && !defined( __vms__ )
  1034.   #ifdef DD_NAMES_CHANGED
  1035.       int num_resources = NumDSResources;
  1036.   #else
  1037.       int num_resources = _XmNumDSResources;
  1038.   #endif
  1039. - #else
  1040. -     int num_resources = 0;
  1041. - #endif /*! VMS*/
  1042. - 
  1043.       int num_values = 0;
  1044.       XtArgVal new_value;
  1045.       char *resource;
  1046. --- 358,368 ----
  1047. ***************
  1048. *** 392,398 ****
  1049.           Tm_SettingDropProc = True;
  1050.       }
  1051.   
  1052. - #if !defined( VMS ) && !defined( __vms__ )
  1053.   #ifdef DD_NAMES_CHANGED
  1054.           if (Tm_ConvertValueFromStringQuark(w, DSResources, num_resources,
  1055.   #else
  1056. --- 389,394 ----
  1057. ***************
  1058. *** 401,410 ****
  1059.           resource, value, &new_value)) {
  1060.               XtSetArg(args[num_values], resource, new_value);
  1061.           num_values++;
  1062. !     } 
  1063. !     else 
  1064. ! #endif /* !VMS */
  1065. !     {
  1066.           fprintf(stderr, "Conversion from String to %s failed\n",
  1067.                   resource);
  1068.       }
  1069. --- 397,403 ----
  1070.           resource, value, &new_value)) {
  1071.               XtSetArg(args[num_values], resource, new_value);
  1072.           num_values++;
  1073. !     } else {
  1074.           fprintf(stderr, "Conversion from String to %s failed\n",
  1075.                   resource);
  1076.       }
  1077. *** tmFuncs.h    Fri May 19 13:39:18 1995
  1078. --- ../../tm-1-4.org/src/tmFuncs.h    Wed Mar  1 17:27:36 1995
  1079. ***************
  1080. *** 13,20 ****
  1081.           String appclass));
  1082.   extern Tm_Display *Tm_OpenDisplay _ANSI_ARGS_((char *dispname));
  1083.   extern Tm_Display *Tm_AllocateDisplay _ANSI_ARGS_((void));
  1084. - extern void Tm_DisplayAddShell _ANSI_ARGS_ ((Tm_Display *d,Tm_Widget *p));
  1085. - extern void Tm_DisplayRemoveShell _ANSI_ARGS_ ((Tm_Display *d,Tm_Widget *p));
  1086.   
  1087.   /* Widget creation functions */
  1088.   extern int Tm_AnyCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp,
  1089. --- 13,18 ----
  1090. ***************
  1091. *** 126,134 ****
  1092.   
  1093.   /* resource free functions */
  1094.   extern void Tm_FreeResourceValues _ANSI_ARGS_((void));
  1095. ! extern void Tm_InitFreeResourceList _ANSI_ARGS_((int size));
  1096. ! extern void Tm_AddToFreeResourceList _ANSI_ARGS_((char *data,Tm_FreeProc free));
  1097. ! extern void Tm_FreeResourceList _ANSI_ARGS_((void));
  1098.   
  1099.   /* other funcs */
  1100.   extern void Tm_LoadWidgetCommands _ANSI_ARGS_((Tcl_Interp *interp));
  1101. --- 124,132 ----
  1102.   
  1103.   /* resource free functions */
  1104.   extern void Tm_FreeResourceValues _ANSI_ARGS_((void));
  1105. ! extern void TmInitFreeResourceList _ANSI_ARGS_((int size));
  1106. ! extern void Tm_AddToFreeResourceList _ANSI_ARGS_((char *data,
  1107. !          Tm_FreeProc free));
  1108.   
  1109.   /* other funcs */
  1110.   extern void Tm_LoadWidgetCommands _ANSI_ARGS_((Tcl_Interp *interp));
  1111. ***************
  1112. *** 138,143 ****
  1113. --- 136,143 ----
  1114.            char *path));
  1115.   extern char *Tm_HiddenParentPath _ANSI_ARGS_((char *path));
  1116.   extern char *Tm_ParentPath _ANSI_ARGS_((char *path));
  1117. + extern void Tm_StoreWidgetInfo _ANSI_ARGS_((char *path, Tm_Widget *w,
  1118. +          Tcl_Interp *interp));
  1119.   extern char *Tm_GetGC _ANSI_ARGS_((char *pathName, Tcl_Interp *interp,    
  1120.            Widget w, WidgetClass Class, char **argv, int argc));
  1121.   extern int Tm_GetValues _ANSI_ARGS_((char *pathName, Tcl_Interp *interp,    
  1122. ***************
  1123. *** 177,182 ****
  1124. --- 177,183 ----
  1125.                Widget w, char *name, Tm_Display *displayInfo));
  1126.   
  1127.   
  1128. + 
  1129.   /* Converter functions */
  1130.   extern Boolean Tm_CvtStringToWidget _ANSI_ARGS_((Display *display,
  1131.             XrmValuePtr args, Cardinal *num_args,
  1132. ***************
  1133. *** 194,206 ****
  1134.   extern Boolean Tm_ConvertValueFromStringQuark _ANSI_ARGS_((Widget w, 
  1135.                 XtResourceList resources, int num_resources,
  1136.                 char * resource, char *orig_value, XtArgVal *new_value));
  1137. - extern Boolean Tm_ConvertValueToString _ANSI_ARGS_((Widget w,
  1138. -           XtResourceList resources, int num_resources,
  1139. -               char *resource, char **new_value));
  1140. - extern Boolean Tm_ConvertValue _ANSI_ARGS_((Widget w,char *fromType,
  1141. -                         char *fromValue,unsigned int fromSize,
  1142. -                         char *toType,XtArgVal *toValue,
  1143. -                         unsigned int toSize));
  1144.   
  1145.   /* external widgets stuff */
  1146.   
  1147. --- 195,200 ----
  1148. *** tmMain.c    Fri May 19 11:55:08 1995
  1149. --- ../../tm-1-4.org/src/tmMain.c    Mon Feb 27 19:38:25 1995
  1150. ***************
  1151. *** 301,306 ****
  1152. --- 301,308 ----
  1153.       wPtr -> parent = ".";    /* kludge to stop later breakages */
  1154.       wPtr -> displayInfo = &displayInfo;
  1155.   
  1156. +     Tm_StoreWidgetInfo(".", wPtr, interp);
  1157. + 
  1158.       Tcl_CreateCommand (interp, ".", Tm_AnyWidgetCmd,
  1159.                    (ClientData) wPtr, (void (*) ()) NULL);
  1160.   
  1161. *** tmResources.c    Fri Mar 31 16:19:59 1995
  1162. --- ../../tm-1-4.org/src/tmResources.c    Thu Mar 16 23:28:03 1995
  1163. ***************
  1164. *** 21,27 ****
  1165.   #include <Xm/Text.h>
  1166.   #include <Xm/DialogS.h>
  1167.   #include <X11/Shell.h>
  1168. - #include <memory.h>
  1169.   
  1170.   /* this is a hack because some converters need info about what
  1171.      types they are converting, and Xt does not give such info.
  1172. --- 21,26 ----
  1173. ***************
  1174. *** 74,80 ****
  1175.           else if (size == sizeof(XtPointer)) *dst = (XtArgVal)*(XtPointer*)src;
  1176.           else if (size == sizeof(char*))    *dst = (XtArgVal)*(char**)src;
  1177.           else if (size == sizeof(XtArgVal)) *dst = *(XtArgVal*)src;
  1178. !         else memcpy((char*)dst,(char*)src,(int)size);
  1179.       }
  1180.   } 
  1181.   
  1182. --- 73,79 ----
  1183.           else if (size == sizeof(XtPointer)) *dst = (XtArgVal)*(XtPointer*)src;
  1184.           else if (size == sizeof(char*))    *dst = (XtArgVal)*(char**)src;
  1185.           else if (size == sizeof(XtArgVal)) *dst = *(XtArgVal*)src;
  1186. !         else bcopy((char*)src, (char*)dst, (int)size);
  1187.       }
  1188.   } 
  1189.   
  1190. ***************
  1191. *** 230,246 ****
  1192.    *
  1193.    *--------------------------------------------------------------
  1194.    */
  1195. - static void freestr(w,cd,ptr)
  1196. -     Widget w;
  1197. -     XtPointer cd;
  1198. -     XtPointer ptr;
  1199. - {
  1200. -     if(NULL!=ptr)
  1201. -     XtFree(ptr);
  1202. - }
  1203.   
  1204.   Boolean
  1205. ! Tm_ConvertValue(w, fromType, fromValue, fromSize, toType, toValue, toSize)
  1206.       Widget w;
  1207.       char *fromType;
  1208.       char *fromValue;
  1209. --- 229,238 ----
  1210.    *
  1211.    *--------------------------------------------------------------
  1212.    */
  1213.   
  1214.   Boolean
  1215. ! Tm_ConvertValue(w, fromType, fromValue, fromSize,
  1216. !            toType, toValue, toSize)
  1217.       Widget w;
  1218.       char *fromType;
  1219.       char *fromValue;
  1220. ***************
  1221. *** 256,267 ****
  1222.       /* do we have to copy the value so Xt dosen't stuff up? */
  1223.       for (n = 0; n < XtNumber(must_copy_resource); n++) {
  1224.           if (strcmp(Tm_Resource, must_copy_resource[n]) == 0) {
  1225. !         char *cp = XtNewString(fromValue);
  1226. !         XtAddCallback(w,XmNdestroyCallback,freestr,(XtPointer)cp);
  1227. !         *toValue = (XtArgVal)cp;
  1228.           return True;
  1229.           }
  1230.       }
  1231.       *toValue = (XtArgVal) fromValue;
  1232.       return TRUE;
  1233.       }
  1234. --- 248,258 ----
  1235.       /* do we have to copy the value so Xt dosen't stuff up? */
  1236.       for (n = 0; n < XtNumber(must_copy_resource); n++) {
  1237.           if (strcmp(Tm_Resource, must_copy_resource[n]) == 0) {
  1238. !         *toValue = (XtArgVal) XtNewString(fromValue);
  1239.           return True;
  1240.           }
  1241.       }
  1242. + 
  1243.       *toValue = (XtArgVal) fromValue;
  1244.       return TRUE;
  1245.       }
  1246. ***************
  1247. *** 270,278 ****
  1248.       from.addr = fromValue;
  1249.       to.size = toSize;
  1250.       to.addr = XtMalloc(toSize);
  1251.   
  1252.       if (!XtConvertAndStore(w, fromType, &from, toType, &to))  {
  1253. !     fprintf(stderr, "failed conversion %s to %s\n", fromType, toType);
  1254.       return FALSE;
  1255.       }
  1256.       *toValue = 0;
  1257. --- 261,273 ----
  1258.       from.addr = fromValue;
  1259.       to.size = toSize;
  1260.       to.addr = XtMalloc(toSize);
  1261. + /*
  1262. +     to.addr = NULL;
  1263. + */
  1264.   
  1265.       if (!XtConvertAndStore(w, fromType, &from, toType, &to))  {
  1266. !     fprintf(stderr, "failed conversion %s to %s\n",
  1267. !                 fromType, toType);
  1268.       return FALSE;
  1269.       }
  1270.       *toValue = 0;
  1271. ***************
  1272. *** 400,405 ****
  1273. --- 395,409 ----
  1274.       }
  1275.       *new_value = 0;
  1276.       CopyToArg(converted.addr, new_value, converted.size);
  1277. + /* for now
  1278. +     XtFree(converted.addr);
  1279. + */
  1280. + /*
  1281. +     bzero(new_value, sizeof(XtArgVal));
  1282. +     bcopy(converted.addr, new_value, converted.size);
  1283. +     *new_value = *(XtArgVal *) (converted.addr);
  1284. + */
  1285. +     
  1286.       return TRUE;
  1287.   }
  1288.           
  1289. ***************
  1290. *** 510,517 ****
  1291.       XtFree(from.addr);
  1292.       return FALSE;
  1293.       }
  1294. !     memset((char*)value,0,sizeof(XtArgVal));
  1295. !     memcpy((char*)value,converted.addr,converted.size);
  1296.       
  1297.       XtFree(from.addr);
  1298.       return TRUE;
  1299. --- 514,521 ----
  1300.       XtFree(from.addr);
  1301.       return FALSE;
  1302.       }
  1303. !     bzero((char *) value, sizeof(XtArgVal));
  1304. !     bcopy(converted.addr, (char *) value, converted.size);
  1305.       
  1306.       XtFree(from.addr);
  1307.       return TRUE;
  1308. *** tmUtils.c    Fri May 19 11:55:14 1995
  1309. --- ../../tm-1-4.org/src/tmUtils.c    Mon Feb 27 19:40:35 1995
  1310. ***************
  1311. *** 24,29 ****
  1312. --- 24,62 ----
  1313.   /*
  1314.    *--------------------------------------------------------------
  1315.    *
  1316. +  * Tm_StoreWidgetInfo --
  1317. +  *
  1318. +  *    create a hash table entry for a new widget, with useful
  1319. +  *    info in it.
  1320. +  *
  1321. +  * Results:
  1322. +  *
  1323. +  *    modifies hash table in "interp"
  1324. +  *
  1325. +  * Side effects:
  1326. +  *
  1327. +  *--------------------------------------------------------------
  1328. +  */
  1329. + 
  1330. + void
  1331. + Tm_StoreWidgetInfo(path, w, interp)
  1332. +     char *path;
  1333. +     Tm_Widget *w;
  1334. +     Tcl_Interp *interp;
  1335. + {
  1336. + /*
  1337. +     int new;
  1338. +     Tcl_HashEntry *hPtr;
  1339. + 
  1340. +     hPtr = Tcl_CreateHashEntry(&WidgetTable, path, &new);
  1341. +     Tcl_SetHashValue(hPtr, (ClientData) w);
  1342. + */
  1343. + }
  1344. + 
  1345. + 
  1346. + /*
  1347. +  *--------------------------------------------------------------
  1348. +  *
  1349.    * Tm_NameFromPath --
  1350.    *
  1351.    *    find the part of the path after the last '.'
  1352. ***************
  1353. *** 514,519 ****
  1354. --- 547,553 ----
  1355.       wPtr -> dropProc = NULL;
  1356.       wPtr -> displayInfo = displayInfo;
  1357.   
  1358. +     Tm_StoreWidgetInfo(path, wPtr, interp);
  1359.       XtVaSetValues(w, XmNuserData, wPtr, NULL);
  1360.   
  1361.       /* create a different command for each widget type
  1362. *** tmWidget.c    Fri Mar 31 17:19:50 1995
  1363. --- ../../tm-1-4.org/src/tmWidget.c    Mon Feb 27 21:46:52 1995
  1364. ***************
  1365. *** 274,291 ****
  1366.    *--------------------------------------------------------------
  1367.    */
  1368.   
  1369. ! static Boolean
  1370. ! DestroyWidgetInfo(client_data)
  1371.       XtPointer client_data;
  1372.   {
  1373.       Tm_Widget *c_data = (Tm_Widget *) client_data;
  1374.   
  1375. !     Tm_DisplayRemoveShell(c_data->displayInfo,c_data);
  1376. !     Tcl_DeleteCommand(c_data->interp,c_data->pathName);
  1377. !     XtFree(c_data->parent);
  1378. !     XtFree(c_data->pathName);
  1379. !     XtFree((char *)c_data);
  1380. !     return True;
  1381.   }
  1382.   
  1383.   /*
  1384. --- 274,298 ----
  1385.    *--------------------------------------------------------------
  1386.    */
  1387.   
  1388. ! static void
  1389. ! DestroyWidgetInfo(client_data, timer)
  1390.       XtPointer client_data;
  1391. +     XtIntervalId *timer;
  1392.   {
  1393.       Tm_Widget *c_data = (Tm_Widget *) client_data;
  1394. +     Tcl_Interp *interp;
  1395. +     char *path;
  1396. +     char *parent;
  1397.   
  1398. !     interp = c_data->interp;
  1399. !     path = c_data->pathName;
  1400. !     parent = c_data->parent;
  1401. ! 
  1402. !     if(XtIsShell(c_data->widget))
  1403. !     Tm_DisplayRemoveShell(c_data->displayInfo,c_data);
  1404. !     XtFree(parent);
  1405. !     XtFree(path);
  1406. !     XtFree((char *) c_data);
  1407.   }
  1408.   
  1409.   /*
  1410. ***************
  1411. *** 312,318 ****
  1412.       XtPointer client_data;
  1413.       XtPointer call_data;
  1414.   {
  1415. !     XtAppAddWorkProc(XtWidgetToApplicationContext(w),DestroyWidgetInfo,client_data);
  1416.   }
  1417.   
  1418.   
  1419. --- 319,325 ----
  1420.       XtPointer client_data;
  1421.       XtPointer call_data;
  1422.   {
  1423. !     XtAppAddTimeOut(XtWidgetToApplicationContext(w),0,DestroyWidgetInfo,client_data);
  1424.   }
  1425.   
  1426.   
  1427.