Posted to tcl by colin at Sun Feb 17 21:52:49 GMT 2013view pretty
*** yeti-0.4.1/yeti.tcl 2004-07-06 10:11:03.000000000 +1000 --- yeti/yeti.tcl 2013-02-18 08:51:24.683734790 +1100 *************** *** 14,35 **** package require Tcl 8.0 package require struct 2.0 ! ! # ! # Can work with Itcl 3.0 or Tcl++ 2.3. We prefer the former, but don't ! # complain if the latter is already available. ! # ! ! if {[catch {package present tcl++ 2.3}]} { ! if {[catch {package require Itcl 3.0}]} { ! if {[catch {package require tcl++ 2.3}]} { ! error "Oops in YETI initialization: neither \[incr Tcl\] nor tcl++ available" ! } ! } else { ! namespace import -force itcl::* ! } ! } ! package provide yeti 0.4 # --- 14,20 ---- package require Tcl 8.0 package require struct 2.0 ! package require Itcl package provide yeti 0.4 # *************** *** 39,44 **** --- 24,30 ---- # namespace eval yeti { + namespace import -force ::itcl::* class yeti { public variable verbose public variable verbout