diff options
| author | hobbs2 <hobbs2> | 2004-10-09 22:57:44 (GMT) |
|---|---|---|
| committer | hobbs2 <hobbs2> | 2004-10-09 22:57:44 (GMT) |
| commit | e1c3597075e8c087370a97c37be6f2c38c7e50b8 (patch) | |
| tree | 2a8e7bfcbff5de8c4084b5613a63c1bfd313cc1a /tests | |
| parent | f417a7d7fba806ef0324af04604e9b8001b6199e (diff) | |
| download | tktreectrl-e1c3597075e8c087370a97c37be6f2c38c7e50b8.zip tktreectrl-e1c3597075e8c087370a97c37be6f2c38c7e50b8.tar.gz tktreectrl-e1c3597075e8c087370a97c37be6f2c38c7e50b8.tar.bz2 | |
* pkgIndex.tcl.in: Automate creation of pkgIndex.tcl and use
* demos/demo.tcl: tcl_findLibrary to avoid the issue of build vs.
* tests/all.tcl: install package.
* generic/tkTreeCtrl.c:
* library/filelist-bindings.tcl: ensure TreeCtrl namespace exists
* library/treectrl.tcl: source filelist-bindings
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/all.tcl | 35 |
1 files changed, 3 insertions, 32 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 5eb0c60..13f373b 100755 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -7,7 +7,7 @@ # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: all.tcl,v 1.2 2002/12/30 21:43:48 krischan Exp $ +# RCS: @(#) $Id: all.tcl,v 1.3 2004/10/09 22:57:44 hobbs2 Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -42,37 +42,8 @@ if {[llength $::tcltest::matchFiles] > 0} { set timeCmd {clock format [clock seconds]} puts $chan "Tests began at [eval $timeCmd]" -# Currently the following doesn't work if tktreectrl is not yet installed: -# package require treectrl -# And we want to test the currently built version anyway. -# So we have to load and source it by hand, until TreectrlInit() -# evals the initScript with calls of tcl_findLibrary... - -proc package_require {treectrl} { - set thisPlatform $::tcl_platform(platform) - if {![catch {tk windowingsystem} windowingSystem] \ - && [string equal aqua $windowingSystem]} { - set thisPlatform macosx - } - switch -- $thisPlatform { - macintosh { - load treectrl.shlb - } - macosx { - load build/treectrl.dylib - } - unix { - load [glob libtreectrl*[info sharedlibextension]] - } - default { # Windows - load Build/treectrl[info sharedlibextension] - } - } - if {![namespace exists ::TreeCtrl]} { - uplevel #0 source [file join library treectrl.tcl] - uplevel #0 source [file join library filelist-bindings.tcl] - } -} +interp alias {} package_require {} package require +package require treectrl # source each of the specified tests foreach file [lsort [::tcltest::getMatchingFiles]] { |