37 lines
967 B
Perl
37 lines
967 B
Perl
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;
|
|
# }
|
|
|