#!/usr/bin/perl use warnings; use strict; use Tk; my $mw = 'MainWindow'->new(-title => 'mw'); my $tl1 = $mw->Toplevel(-title => 'tl1'); my $tl2 = $mw->Toplevel(-title => 'tl2'); my $modal = $tl2->Dialog( -title => '2/dialog'); $modal->Show(-global); MainLoop();
In reply to Re: unswitchable windows in perl-tk
by choroba
in thread unswitchable windows in perl-tk
by Khariton
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |