Здравствуйте, два вопроса по Tk:- Как можно задать положение окна Toplevel относительно главного?
Например, чтоб левый верхний угол нового окна при его создании оказался на 20 пикселей ниже и правее угла главного окна. - Как сделать чтоб новое окно после появления оказалось активным?
Или вообще как сделать какое-то определенное из окон активным?
| Код |
use Tk;
my $mw = MainWindow->new;
$mw->geometry('512x512');
$mw->title('Main window');
my $side_window = $mw->Toplevel;
$side_window->geometry('200x100');
$side_window->title('Toplevel');
MainLoop;
|
|