Help for this page
$Tcl::Tk::VTEMP = <<'EOWIDG'; package Tcl::Tk::Widget::[[widget-repl]]; ... 1; print STDERR "<<starting [[widget-repl]]>>\n" if $Tcl::Tk::DEBUG > 2; EOWIDG
# here we create Widget package, used for both standard cases like # 'Button', 'Label', and so on, and for all other widgets like Baloon ... $ptk_w_names .= "|$widgetname"; } }
www.com | www.net | www.org
No recent polls found