...
&my_routine();
Tkx::MainLoop();
exit;
...