GtkPerlPruebas/gtk_prueba.pl

use v5.30.0;

use strict;
use warnings;

use MangaReader;

my $application =
  Gtk4::Application->new( 'me.sergiotarxz.manga', 'G_APPLICATION_FLAGS_NONE' );
say $application->signal_connect(
    activate => sub {
        MangaReader::ApplicationStart($application);
    }
);
$application->run( \@ARGV );

#    sub ShowImage {
#        my $scroll_image = Gtk4::Viewport->new();
#        $scroll->set_child($grid);
#        my $image = Gtk4::Picture->new_for_file(
#            G::File::new_for_path(
#                '/home/sergio/2020-05-06-235314_636x1023_scrot.png')
#        );
#        $image->set_can_shrink(1);
#        $image->set_keep_aspect_ratio(1);
#        $scroll_image->set_child($image);
#
#        $grid->attach( $scroll_image, 1, 1, 1, 1 );
#        $window->signal_connect(
#            'state-flags-changed' => sub {
#                WindowResize( $window, $image, $scroll_image, $grid );
#            }
#        );
#        $window->show;
#    }