Help for this page

Select Code to Download


  1. or download this
    $top->bind("<Visibility>" => sub { $top->raise });
  2. or download this
    use strict;
use Tk;
...

    #sleep(10);
}
  3. or download this
        my($wrapper) = $w->toplevel->wrapper;
    $w->property('set', '_NET_WM_STATE', "ATOM", 32,
         ["_NET_WM_STATE_STAYS_ON_TOP"], $wrapper);