Cross Reference: /ast/src/lib/libtksh/widget

	widget revision 3f54fd611f536639ec30dd53c48e5ec1897cc7d9
#!./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