#!/usr/bin/perl
use strict;
use warnings;
use Gtk2 '-init';
use Data::Dumper;
use FindBin '$Bin';

my $glade_file=$Bin.'/test.glade';

my $builder=Gtk2::Builder->new();
$builder->add_from_file($glade_file);
$builder->connect_signals();
chooser_button()->set_current_folder($Bin);

$builder->get_object('mainwin')->show_all();
Gtk2->main();

########################################################################
########################################################################

sub chooser_button { return $builder->get_object('My_File_Choose'); }

sub on_exit { Gtk2->main_quit; }

sub on_test { print chooser_button()->get_filename()."\n"; }

sub on_file_set
{
  my $chooser=shift;
  my $name=$chooser->get_filename();
  print "Choosen $name\n";
}