1#!./tksh
2# trap tkloop EXIT
3if [[ $tk_version == 3.6 ]]
4then
5	. $tk_library/demos/widget
6elif (( $tk_version < 4.2 ))
7then
8	alias bgerror=tkerror
9	source $tcl_library/init.tcl
10	tcl_lappend auto_path $tk_library
11	export tk_library=$(print "puts [set tk_library];exit 0" | ( wish4.0 || wish4.1 || wish ) 2> /dev/null)
12	source widget.tcl
13else
14	source $tk_library/demos/widget
15fi
16tkloop
17exit 0
18