Posted to tcl by colin at Sun Feb 17 21:52:49 GMT 2013view raw
- *** 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