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