Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed BUG 1327 with scripts that do namespace imports. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-1-branch-old |
| Files: | files | file ages | folders |
| SHA1: | 40c369355a78f55635162600247087fa |
| User & Date: | welch 1999-04-01 23:21:33 |
Context
|
1999-04-01
| ||
| 23:22 | Added test for BUG 1327. Improved the way yeilding is done in thread tests. check-in: 50bfe2a9a5 user: welch tags: core-8-1-branch-old | |
| 23:21 | Fixed BUG 1327 with scripts that do namespace imports. check-in: 40c369355a user: welch tags: core-8-1-branch-old | |
| 21:58 | *** empty log message *** check-in: 5a4dfaf9d4 user: stanton tags: core-8-1-branch-old | |
Changes
Changes to library/package.tcl.
1
2
3
4
5
6
7
8
9
10
11
12
13
...
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
|
# package.tcl -- # # utility procs formerly in init.tcl which can be loaded on demand # for package management. # # RCS: @(#) $Id: package.tcl,v 1.1.2.5 1998/12/02 20:08:06 welch Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1998 Sun Microsystems, Inc. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ................................................................................ } # See what new namespaces appeared, and import commands # from them. Only exported commands go into the index. foreach ::tcl::x [::tcl::GetAllNamespaces] { if {! [info exists ::tcl::namespaces($::tcl::x)]} { namespace import ${::tcl::x}::* } } # Figure out what commands appeared foreach ::tcl::x [info commands] { set ::tcl::newCmds($::tcl::x) 1 |
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
...
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
|
# package.tcl -- # # utility procs formerly in init.tcl which can be loaded on demand # for package management. # # RCS: @(#) $Id: package.tcl,v 1.1.2.6 1999/04/01 23:21:33 welch Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1998 Sun Microsystems, Inc. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ................................................................................ } # See what new namespaces appeared, and import commands # from them. Only exported commands go into the index. foreach ::tcl::x [::tcl::GetAllNamespaces] { if {! [info exists ::tcl::namespaces($::tcl::x)]} { namespace import -force ${::tcl::x}::* } } # Figure out what commands appeared foreach ::tcl::x [info commands] { set ::tcl::newCmds($::tcl::x) 1 |