Import Tix 8.4.3.5 (as of svn r86089)
This commit is contained in:
1
tests/load/files
Normal file
1
tests/load/files
Normal file
@@ -0,0 +1 @@
|
||||
general.tcl
|
||||
26
tests/load/general.tcl
Normal file
26
tests/load/general.tcl
Normal file
@@ -0,0 +1,26 @@
|
||||
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
|
||||
#
|
||||
# $Id: general.tcl,v 1.2 2002/11/13 21:12:18 idiscovery Exp $
|
||||
#
|
||||
# This file tests the pixmap image reader
|
||||
#
|
||||
|
||||
proc About {} {
|
||||
return "This file performs general test on Tix w/ Tk 4.1 dynamic loading"
|
||||
}
|
||||
|
||||
proc Test {} {
|
||||
if [tixStrEq [info commands tix] tix] {
|
||||
return
|
||||
}
|
||||
|
||||
if ![file exists ../../unix-tk4.1/libtix.so] {
|
||||
puts "File ../../unix-tk4.1/libtix.so doesn't exist."
|
||||
puts "Dynamic loading skipped."
|
||||
return
|
||||
}
|
||||
|
||||
test {load ../../unix-tk4.1/libtix.so Tix}
|
||||
test {tixComboBox .c}
|
||||
test {pack .c}
|
||||
}
|
||||
4
tests/load/pkginit.tcl
Normal file
4
tests/load/pkginit.tcl
Normal file
@@ -0,0 +1,4 @@
|
||||
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
|
||||
#
|
||||
# $Id: pkginit.tcl,v 1.2 2002/11/13 21:12:18 idiscovery Exp $
|
||||
#
|
||||
Reference in New Issue
Block a user