#!./tksh
# trap tkloop EXIT
if [[ $tk_version == 3.6 ]]
then
. $tk_library/demos/widget
elif (( $tk_version < 4.2 ))
then
alias bgerror=tkerror
source $tcl_library/init.tcl
tcl_lappend auto_path $tk_library
export tk_library=$(print "puts [set tk_library];exit 0" | ( wish4.0 || wish4.1 || wish ) 2> /dev/null)
source widget.tcl
else
source $tk_library/demos/widget
fi
tkloop
exit 0