Posted to tcl by colin at Sun Feb 17 21:52:49 GMT 2013view raw

  1. *** yeti-0.4.1/yeti.tcl 2004-07-06 10:11:03.000000000 +1000
  2. --- yeti/yeti.tcl 2013-02-18 08:51:24.683734790 +1100
  3. ***************
  4. *** 14,35 ****
  5.  
  6. package require Tcl 8.0
  7. package require struct 2.0
  8. !
  9. ! #
  10. ! # Can work with Itcl 3.0 or Tcl++ 2.3. We prefer the former, but don't
  11. ! # complain if the latter is already available.
  12. ! #
  13. !
  14. ! if {[catch {package present tcl++ 2.3}]} {
  15. ! if {[catch {package require Itcl 3.0}]} {
  16. ! if {[catch {package require tcl++ 2.3}]} {
  17. ! error "Oops in YETI initialization: neither \[incr Tcl\] nor tcl++ available"
  18. ! }
  19. ! } else {
  20. ! namespace import -force itcl::*
  21. ! }
  22. ! }
  23. !
  24. package provide yeti 0.4
  25.  
  26. #
  27. --- 14,20 ----
  28.  
  29. package require Tcl 8.0
  30. package require struct 2.0
  31. ! package require Itcl
  32. package provide yeti 0.4
  33.  
  34. #
  35. ***************
  36. *** 39,44 ****
  37. --- 24,30 ----
  38. #
  39.  
  40. namespace eval yeti {
  41. + namespace import -force ::itcl::*
  42. class yeti {
  43. public variable verbose
  44. public variable verbout