Posted to tcl by patthoyts at Thu Apr 02 20:18:32 GMT 2009view raw

  1. (amsn) 1 % source amsn
  2. domain error: argument not in valid range
  3. (amsn) 2 % set errorInfo
  4. domain error: argument not in valid range
  5. while executing
  6. "expr { 1.0*$origw / $origh } "
  7. (procedure "::picture::ResizeWithRatio" line 9)
  8. invoked from within
  9. "::picture::ResizeWithRatio displaypicture_not_self 50 50"
  10. (procedure "load_my_smaller_pic" line 9)
  11. invoked from within
  12. "load_my_smaller_pic"
  13. (procedure "clear_disp" line 9)
  14. invoked from within
  15. "clear_disp"
  16. (procedure "load_my_pic" line 18)
  17. invoked from within
  18. "load_my_pic"
  19. (procedure "load_config" line 140)
  20. invoked from within
  21. "load_config "
  22. invoked from within
  23. "if { $initialize_amsn == 1 } {
  24. ###############################################################
  25. create_dir $HOME
  26. create_dir $HOME/plugins
  27. create_di..."
  28. (file "config.tcl" line 1858)
  29. invoked from within
  30. "source config.tcl "
  31. ("uplevel" body line 28)
  32. invoked from within
  33. "uplevel \#0 {
  34.  
  35. # amsncore.tcl is already loaded but we'll re-source it here in case we manually do reload_files
  36. source amsncore.tcl
  37. source audio.tc..."
  38. (procedure "reload_files" line 2)
  39. invoked from within
  40. "reload_files"
  41. (file "amsn" line 276)
  42. invoked from within
  43. "source amsn"
  44. (amsn) 3 %