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();