$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::busy() "
Tkx-1-0.0s--e-1: busy
invalid command name "busy" at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::tk_busy() "
Tkx-1-0.0s--e-1: tk busy
wrong # args: should be "tk busy options ?arg arg ...?" at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::tk_busy(q(.)) "
Tkx-1-0.0s--e-1: tk busy .

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->busy() "
Tkx-1-0.0s--e-1: . busy
bad option "busy": must be cget or configure at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->tk_busy() "
Tkx-1-0.0s--e-1: . tk busy
bad option "tk": must be cget or configure at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->m_tk_busy() "
Tkx-1-0.0s--e-1: . tk busy
bad option "tk": must be cget or configure at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->g_tk_busy() "
Tkx-1-0.0s--e-1: tk busy .