论坛 › Perl › 请教Tk中如何指定创建窗口在屏幕中的位置？

hztj2005 发表于 2018-11-13 22:15

请教Tk中如何指定创建窗口在屏幕中的位置？

本帖最后由 hztj2005 于 2018-11-15 20:39 编辑

use Tk;
require Tk::TList;
require Tk::ItemStyle;

my $txt = "test";

$mw = MainWindow->new(-title => 'TList');

<div>#$mw->geometry("600x400");   </div><div>
</div><div>#设置方法</div><div>
</div><div>$mw->geometry('600x200+800+400'); #宽600 高200左起800从上往下400
</div>   
my $button_frame = $mw->Frame()->pack(-side => "bottom");
$button_frame->Button(-text => "Ok",
                      -command => \&show_cwd)->pack(-side => "left");
$button_frame->Button(-text => "Exit",
                      -command => sub{exit})->pack(-side => "left");

sub show_cwd {
$mw->messageBox(-message => "Directory Selected: $CWD", -type => "ok");
}

MainLoop;这段代码可以创建一个窗口，我需要指定窗口在屏幕中的位置，不知道用什么方法。
请指教，谢谢！

已经解决了。

hztj2005 发表于 2018-11-13 23:09

se Tk;

$mw = MainWindow->new(-title => 'TList');

$mw->geometry('600x200+800+400');        #宽600 高200左起800从上往下400

$mw->Button(-text => "Ok",
                      -command => \&show_cwd)->pack(-side => "top");       
                     

sub show_cwd {
$mw->messageBox(-message => "Directory Selected: $CWD", -type => "ok");
}

MainLoop;

查看完整版本: 请教Tk中如何指定创建窗口在屏幕中的位置？