由Wxperl demo修改整理代码，准备用作绩效测算工具框架

#use Acme::PerlTidy;
use Wx;
use Wx::Html;
use Wx::Help;
package MyFrame;
use base qw(Wx::Frame);
use Wx qw(:textctrl :sizer :window);
use Wx qw(wxDefaultPosition wxDefaultSize
  wxDEFAULT_FRAME_STYLE wxNO_FULL_REPAINT_ON_RESIZE wxCLIP_CHILDREN wxID_EXIT);
use Wx::Event qw(EVT_TREE_SEL_CHANGED EVT_CLOSE EVT_IDLE EVT_MENU EVT_BUTTON);
our @id = ( 0 .. 100 ); # IDs array
my @demos = qw( Simple Grid Editors Renderers);
my @items = (
    [ '核算科室', [ [ '医生护士', 'a' ], [ '科主任护士长', 'b' ], ], ],
    [ '业务非核算单元', [ [ '药剂员', 'c' ], [ '收费员', 'd' ], ], ],
    [ '行政后勤科室', [ [ '中层高层领导', 'e' ], [ '行政后勤员工', 'f' ], ], ],
);
sub new {
    my $ref = shift;
    my $self = $ref->SUPER::new(
        undef, # parent window
        -1, # ID -1 means any
        '医院绩效分配系统', # title
        wxDefaultPosition, # default position
        [ 600, 500 ],
        wxDEFAULT_FRAME_STYLE | wxNO_FULL_REPAINT_ON_RESIZE | wxCLIP_CHILDREN
    );
########## example <<CODE ###########
    my $firstmenu = Wx::Menu->new();
    $firstmenu->Append( wxID_EXIT, "&Exit\tCtrl+X" );
    my $secmenu = Wx::Menu->new();
    $secmenu->Append( $id[0], "&About" );
    # Create menu bar
    my $menubar = Wx::MenuBar->new();
    $menubar->Append( $firstmenu, "&File" );
    $menubar->Append( $secmenu, "&Help" );
    # Attach menubar to the window
    $self->SetMenuBar($menubar);
    # create splitters
    my $split1 =
      Wx::SplitterWindow->new( $self, -1, wxDefaultPosition, wxDefaultSize,
        wxNO_FULL_REPAINT_ON_RESIZE | wxCLIP_CHILDREN );
    my $split2 =
      Wx::SplitterWindow->new( $split1, -1, wxDefaultPosition, wxDefaultSize,
        wxNO_FULL_REPAINT_ON_RESIZE | wxCLIP_CHILDREN );
    my $tree = Wx::TreeCtrl->new( $split1, -1 );
    my $text = Wx::TextCtrl->new( $split2, -1, "Welcome to wxPerl\n",
        wxDefaultPosition, wxDefaultSize,
        wxTE_READONLY | wxTE_MULTILINE | wxNO_FULL_REPAINT_ON_RESIZE );
    $self->{OLDLOG} = Wx::Log::SetActiveTarget( Wx::LogTextCtrl->new($text) );
    # create main notebook
    my $nb =
      Wx::Notebook->new( $split2, -1, wxDefaultPosition, wxDefaultSize,
        wxNO_FULL_REPAINT_ON_RESIZE | wxCLIP_CHILDREN );
    my $html =
      Wx::HtmlWindow->new( $nb, -1, wxDefaultPosition, wxDefaultSize,
        wxNO_FULL_REPAINT_ON_RESIZE | wxCLIP_CHILDREN );
    my $code =
      Wx::TextCtrl->new( $nb, -1, '', wxDefaultPosition, wxDefaultSize,
        wxTE_READONLY | wxTE_MULTILINE | wxNO_FULL_REPAINT_ON_RESIZE );
    $nb->AddPage( $code, "Source", 0 );
    $nb->AddPage( $html, "Description", 0 );
    my $root_id = $tree->AddRoot("绩效工资院级一次分配");
    populate_tree_list( $tree, $root_id, \@items );
    $tree->Expand($root_id);
    $self->{'tree'} = $tree;
    $split1->SplitVertically( $tree, $split2, 150 );
    $split2->SplitHorizontally( $nb, $text, 300 );
    # Handle events only for Exit and help About
    EVT_MENU( $self, $id[0], \&ShowDialog );
    EVT_MENU( $self, wxID_EXIT, sub { $_[0]->Close(1) } );
    EVT_TREE_SEL_CHANGED( $self, $tree, \&OnSelChanged );
########## 001CODE ###########
    return $self;
}
### PUT SUBROUTINES HERE ###
sub d { Wx::TreeItemData->new( $_[0] ) }
sub populate_tree_list {
    my $tree = shift;
    my $parent_id = shift;
    my $id;
    foreach my $i ( @{ $_[0] } ) {
        next if ( defined $i->[2] && $i->[2] >= Wx::wxVERSION() );
        if ( ref( $i->[1] ) eq 'ARRAY' ) {
            $id = $tree->AppendItem( $parent_id, $i->[0], -1, -1, d(undef) );
            populate_tree_list( $tree, $id, $i->[1] );
        }
        else {
            $tree->AppendItem( $parent_id, $i->[0], -1, -1, d( $i->[1] ) );
        }
    }
}
sub OnSelChanged {
    my ( $self, $event ) = @_;
    my $id = $event->GetItem;
    my $ptype = $self->{'tree'}->GetPlData($id);

    return unless ref($ptype);
}
sub ShowDialog {
    my ( $self, $event ) = @_;
    Wx::MessageBox(
        "This is a dialog",
        "Wx::MessageBox example",
        wxOK | wxCENTRE, $self
    );
}
package MyApp;
use base 'Wx::App';
sub OnInit {
    my $self = shift;
    my $frame = MyFrame->new;
    my $config = Wx::ConfigBase::Get;
    my $x = $config->ReadInt( "X", 50 );
    my $y = $config->ReadInt( "Y", 50 );
    my $w = $config->ReadInt( "Width", 800 );
    my $h = $config->ReadInt( "height", 600 );
    $frame->SetSize( $x, $y, $w, $h );
    $frame->Show(1);
    $self->SetTopWindow($frame);
    return 1;
}
package main;
my $app = MyApp->new;
$app->MainLoop;

附图：