Posted to tcl by zipguy at Wed May 28 12:25:33 GMT 2014view raw

  1. package provide app-demo_tablelist 1.0
  2.  
  3. source tablelist.kit
  4. package require tablelist
  5.  
  6. console show
  7. set d [pwd]
  8. puts "d =<$d>"
  9.  
  10. set d \
  11. "D:/dl/dcl/mine/demo_tablelist.vfs/lib/app-demo_tablelist"
  12. puts "d =<$d>"
  13.  
  14. set f1 [file join $d browse.tcl]
  15. #set f1 "$d/browse.tcl"
  16. puts "f1 =<$f1>"
  17.  
  18. ========
  19. Console output below
  20. ========
  21. d =<D:/dl/dcl/mine>
  22. d =<D:/dl/dcl/mine/demo_tablelist.vfs/lib/app-demo_tablelist>
  23. f1 =<D:/dl/dcl/mine/demo_tablelist.vfs/lib/app-demo_tablelist/browse.tcl>
  24. (mine) 1 %
  25. ========
  26. If I add the line:
  27.  
  28. source $f1
  29.  
  30. which is there (I copied all of the files there just to see if it would work)
  31. I get a message which looks like this:
  32. http://www.geocities.ws/thezipguy//tcl/misc/tablist_failing.png
  33.  
  34.  
  35.