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

hztj2005

1. use Tk;
   
2. require Tk::TList;
   
3. require Tk::ItemStyle;
   
4. 
   
5. my $txt = "test";
   
6. 
   
7. $mw = MainWindow->new(-title => 'TList');
   
8. 
   
9. <div>#$mw->geometry("600x400");     </div><div>
   
10. </div><div>#设置方法</div><div>
    
11. </div><div>$mw->geometry('600x200+800+400'); #宽600 高200  左起800  从上往下400
    
12. </div>     
    
13. my $button_frame = $mw->Frame()->pack(-side => "bottom");
    
14. $button_frame->Button(-text => "Ok",
    
15.                       -command => \&show_cwd)->pack(-side => "left");
    
16. $button_frame->Button(-text => "Exit",
    
17.                       -command => sub{exit})->pack(-side => "left");
    
18. 
    
19. sub show_cwd {
    
20.   $mw->messageBox(-message => "Directory Selected: $CWD", -type => "ok");
    
21. }
    
22. 
    
23. MainLoop;

复制代码

这段代码可以创建一个窗口，我需要指定

窗口在屏幕中的位置，不知道用什么方法。

请指教，谢谢！

已经解决了。

hztj2005

1. se Tk;
   
2. 
   
3. $mw = MainWindow->new(-title => 'TList');
   
4. 
   
5. $mw->geometry('600x200+800+400');        #宽600 高200  左起800  从上往下400
   
6. 
   
7. $mw->Button(-text => "Ok",
   
8.                       -command => \&show_cwd)->pack(-side => "top");       
   
9.                      
   
10. 
    
11. sub show_cwd {
    
12.   $mw->messageBox(-message => "Directory Selected: $CWD", -type => "ok");
    
13. }
    
14. 
    
15. MainLoop;

复制代码