C:\asdf\>perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->g_tk_busy()"
Tkx-1-0.0s--e-1: tk busy .
bad option "busy": must be appname, caret, scaling, useinputmethods, windowingsystem, or inactive at -e line 1.