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