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

Тема в разделе "Perl программирование", создана пользователем vor, 6 дек 2011.

  1. vor

    vor Гость

    Здравствуйте, два вопроса по 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]
     
Загрузка...

Поделиться этой страницей