# After 100ms call my_routine().
    Tkx::after(100, sub { my_routine(); });
    Tkx::MainLoop();