diff options
Diffstat (limited to 'library/init.tcl')
| -rw-r--r-- | library/init.tcl | 27 |
1 files changed, 1 insertions, 26 deletions
diff --git a/library/init.tcl b/library/init.tcl index e19af00..e6b848c 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -3,7 +3,7 @@ # Default system startup file for Tcl-based applications. Defines # "unknown" procedure and auto-load facilities. # -# RCS: @(#) $Id: init.tcl,v 1.91.2.6 2007/11/21 06:30:55 dgp Exp $ +# RCS: @(#) $Id: init.tcl,v 1.91.2.7 2007/12/06 16:27:46 dgp Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1996 Sun Microsystems, Inc. @@ -75,31 +75,6 @@ namespace eval tcl { } } - # Set up the 'chan' ensemble (TIP #208). - namespace eval chan { - # TIP #219. Added methods: create, postevent. - # TIP 287. Added method: pending. - namespace ensemble create -command ::chan -map { - blocked ::tcl::chan::blocked - close ::tcl::chan::close - configure ::tcl::chan::configure - copy ::tcl::chan::copy - create ::tcl::chan::rCreate - eof ::tcl::chan::eof - event ::tcl::chan::event - flush ::tcl::chan::flush - gets ::tcl::chan::gets - names {::file channels} - pending ::tcl::chan::Pending - postevent ::tcl::chan::rPostevent - puts ::tcl::chan::puts - read ::tcl::chan::read - seek ::tcl::chan::seek - tell ::tcl::chan::tell - truncate ::tcl::chan::Truncate - } - } - # TIP #255 min and max functions namespace eval mathfunc { proc min {args} { |