use warnings;
use Spreadsheet::WriteExcel;
use HTML::TagReader;
use Wx;

# Main application frame subclass.
package XMLLoaderFrame;
use base 'Wx::Frame';
use Wx::Event qw(EVT_BUTTON);
use Wx::Perl::DirTree;
use Wx qw(wxVERTICAL wxTOP);

sub new{
    my $ref = shift;
    my $self = $ref->SUPER::new(undef, -1, 'XML to XLS Parser', [-1, -1], [600, 500]);
    my $panel = Wx::Panel->new($self, -1);
    my $run = Wx::Button->new($panel, -1, 'Parse XML', [470, 420], [-1, -1]);
    my $dirtree = Wx::Perl::DirTree->new($panel, [200, 300]);
    
    my $mainsizer = Wx::BoxSizer->new(wxVERTICAL);
    $mainsizer->Add($dirtree->GetTree(), 0, wxTOP, 0);
    
    # How to handle button pressed event
    EVT_BUTTON($self, $run, \&OnClick);
    
    return $self;
}

sub OnClick{
    my($self, $event, $btn) = @_;
    
}

# Core application class
package XMLLoader;
use base 'Wx::App';

sub OnInit{
    # When initialized, construct new frame and display it.
    my $frame = XMLLoaderFrame->new;
    $frame->Show(1);
}

# Main application class. Contains event listening and drawing loop.
package main;

my $instance = XMLLoader->new;
$instance->MainLoop;