Gtk2::GladeXML - example

use CDApp;            # Model+Controller
use Gtk2 -init;
use Gtk2::GladeXML;

my $glade_file = shift or die "Usage: $0 glade_filename\n";

my $app = CDApp->new();

my $gladexml = Gtk2::GladeXML->new($glade_file);
$app->gladexml($gladexml);

$gladexml->signal_autoconnect( sub { $app->autoconnect(@_) } );

$app->init_gui;

Gtk2->main;