perl 创建文本框

	my $mw = MainWindow->new(-title => "Mem monitor");
 $frm_name1 = $mw -> Frame()->pack(-side=>"top",-fill => 'x');



 $but1 = $frm_name1 ->Button(-text => "BackOffice 发布",-command =>\&push_b1)-> pack(-side=>"left",-ipadx=>100,-padx=>30);



 $but2 = $frm_name1 ->Button(-text => "FrontEnd 发布",-command =>\&push_b2)-> pack(-side=>"left",-ipadx=>100,-padx=>30);



 $but3 = $frm_name1 ->Button(-text => "Flow 发布",-command =>\&sub_fun8)-> pack(-side=>"left",-ipadx=>100,-padx=>30);



 $but4 = $frm_name1 -> Button(-text => "Api 发布",-command =>\&sub_fun8)-> pack(-side=>"left",-ipadx=>100,-padx=>30);
 
 

 $but5 = $frm_name1 -> Button(-text => "Pay 发布",-command =>\&sub_fun8)-> pack(-side=>"left",-ipadx=>100,-padx=>30);
 
   $frm_name2 = $mw  -> Frame()->pack(-side=>"top",-fill => 'x');
  
# my $but = $frm_name2 -> Button(-text=>"Push Me", -command =>\&push_buttonxx) -> pack();
#my $ent = $frm_name2 -> Entry() -> pack();
#Text Area
my $txt = $frm_name2 -> Text(-width=>240, -height=>100) -> pack();

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6200364.html