Perl FileSelect: установить положение окна

Question

Я использую Perl FileSelect из модуля Tk :: FileSelect. По умолчанию главное окно FileSelect отображается в середине экрана.

Однако при настройке моего двойного монитора половина главного окна отображается на левом мониторе, а половина - на правом мониторе. Я предполагаю, что он пытается отобразить главное окно в середине комбинированного рабочего стола с двумя мониторами. Но мне не нравится, как это выглядит. Я хотел бы отобразить главное окно FileSelect только на левом мониторе. Я перепробовал все виды опций -geometry => "+ 0 + 0", но не могу заставить это работать. Кто-нибудь знает как?

Вот фрагмент кода:

use Tk;
use Tk::FileSelect;
$a = MainWindow->new;
$b = $a->FileSelect();
$b->Show;

Answer 1

На самом деле, я только что понял это. В файле FileSelect.pm, который пользователь не должен редактировать, я создал подпрограмму Popup (). Эта подпрограмма имеет особое значение в рамках Tk. Я не знаю, что это означает, поэтому следующее может быть клуджем. Но, похоже, работает:

sub Popup {
    my ($w) = @_;
    $w->geometry("+0+0");
    $w->deiconify();
    $w->raise;
}