perl 创建文本框

来源：互联网发布：c语言是高级语言编辑：程序博客网时间：2024/06/07 10:07

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 Areamy $txt = $frm_name2 -> Text(-width=>240, -height=>100) -> pack();

0 0