#!/usr/bin/perl -w
use strict;

package GRID;

use Wx qw/ :everything/;
use base qw(Wx::App);
use Wx::Grid;
use Wx::XRC;

sub OnInit {
    my $app = shift;
    
    Wx::InitAllImageHandlers();
    my $xrc = Wx::XmlResource->new();
    $xrc->InitAllHandlers();
    $xrc->Load('GridTest.xrc');
    my $frame = $xrc->LoadFrame(undef, 'GridTest');
    $frame->Show(1);
    $app->SetTopWindow($frame);
    1;
}

package main;
GRID->new->MainLoop;