my $interp = Tkx::i::interp();
... '+' . $interp->create_tcl_sub( CODEREF ) ...