Положение Окна Tk

  • Автор темы vor
  • Дата начала
V

vor

Гость
#1
Здравствуйте, два вопроса по Tk:
  1. Как можно задать положение окна Toplevel относительно главного?
    Например, чтоб левый верхний угол нового окна при его создании оказался на 20 пикселей ниже и правее угла главного окна.
  2. Как сделать чтоб новое окно после появления оказалось активным?
    Или вообще как сделать какое-то определенное из окон активным?
<!--shcode--><pre><code class='perl'>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;[/CODE]