Posted to tcl by thomas at Fri Jan 21 21:30:36 GMT 2011view raw

  1. case DIR_INITIAL:
  2. {
  3.  
  4.  
  5. char toto[256];
  6. Tcl_Eval(interp,"puts \"arg is\"");
  7. strcpy(toto,"puts ");
  8. strcat(toto,string);
  9. Tcl_Eval(interp,toto);
  10.  
  11. if (Tcl_TranslateFileName(interp,string,&initDirString) == NULL) {
  12. puts("NULL!");
  13. goto cleanup;
  14. }
  15. string = Tcl_DStringValue(&initDirString);
  16.  
  17.  
  18. Tcl_Eval(interp,"puts \"after Tcl_TranslateFileName\"");
  19.  
  20. strcpy(toto,"puts ");
  21. strcat(toto,string);
  22.  
  23. Tcl_Eval(interp,toto);
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30. (bin) 1 % tk_chooseDirectory -initialdir I:/Tmp
  31. arg is
  32. I:/Tmp
  33. after Tcl_TranslateFileName
  34. I:Tmp
  35. I:Tmp"
  36. I:Tmp
  37. here321