#!/usr/bin/perl
use strict;
use warnings;

use Gtk3 '-init';
#use File::Basename 'dirname';

my $builder = Gtk3::Builder->new();
$builder->add_from_file("/home/hakim/project/tut.ui");

my $window = $builder->get_object('window1');
$builder->connect_signals( undef );

$window->set_screen( $window->get_screen() );
$window->signal_connect( destroy => sub { Gtk3->main_quit } );

$window->show_all();

Gtk3->main();

sub about_activate {
    my $about_dialog = $builder->get_object('aboutdialog1');
    $about_dialog->run();
    $about_dialog->hide();
}

sub quit_activate {
    my $action = shift;
    my $window = $builder->get_object('window1');
    $window->destroy;
}