diff options
| -rw-r--r-- | Build.PL | 2 | ||||
| -rw-r--r-- | lib/AlgaOS/Installer/GUI.pm | 6 | ||||
| -rw-r--r-- | lib/AlgaOS/Installer/Parents.pm | 52 | ||||
| -rw-r--r-- | share/beach0.jpg (renamed from beach0.jpg) | bin | 93791 -> 93791 bytes | |||
| -rw-r--r-- | share/style.css (renamed from style.css) | 0 |
5 files changed, 32 insertions, 28 deletions
@@ -121,10 +121,12 @@ my $build = Module::Build->new( 'Moo' => 0, 'PBKDF2::Tiny' => 0, 'JSON' => 0, + 'File::ShareDir' => 0, }, script_files => [ 'scripts/algaos-installer', ], + share_dir => 'share', extra_compiler_flags => scalar `pkg-config --cflags gtk4` . " -I$ENV{PWD}", extra_linker_flags => scalar `pkg-config --libs gtk4`, ); diff --git a/lib/AlgaOS/Installer/GUI.pm b/lib/AlgaOS/Installer/GUI.pm index 35ee2ed..e0a399c 100644 --- a/lib/AlgaOS/Installer/GUI.pm +++ b/lib/AlgaOS/Installer/GUI.pm @@ -12,6 +12,8 @@ use JSON; use POSIX qw/WNOHANG/; use PBKDF2::Tiny; use Crypt::URandom qw/urandom/; +use File::ShareDir ':ALL'; +my $dist_dir_files = dist_dir('AlgaOS-Installer'); BEGIN { *CORE::GLOBAL::exit = sub { @@ -753,7 +755,7 @@ sub activate($self) { $win->set_title("Install AlgaOS"); my $display = $win->get_display; my $provider = Gtk::CssProvider->new; - $provider->load_from_path('style.css'); + $provider->load_from_path($dist_dir_files.'/style.css'); $display->add_css_provider( $provider, $const->GTK_STYLE_PROVIDER_PRIORITY_APPLICATION ); my $width = 800; @@ -762,7 +764,7 @@ sub activate($self) { $win->set_resizable(0); $self->win($win); my $overlay = Gtk::Overlay->new; - my $file = Gio::File->new('beach0.jpg'); + my $file = Gio::File->new($dist_dir_files.'/beach0.jpg'); my $texture = Gdk::Texture->new($file); my $picture = Gtk::Picture->new($texture); $overlay->set_child($picture); diff --git a/lib/AlgaOS/Installer/Parents.pm b/lib/AlgaOS/Installer/Parents.pm index 32e2fe7..16baded 100644 --- a/lib/AlgaOS/Installer/Parents.pm +++ b/lib/AlgaOS/Installer/Parents.pm @@ -1,20 +1,20 @@ -package Gtk::Label; +package Gtk::Dropdown; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/Gtk::Widget/; -package Gtk::AlertDialog; +package Gtk::Picture; use v5.38.0; use vars qw/@ISA/; -our @ISA = qw/G::Object/; -package Gtk::Grid; +our @ISA = qw/Gtk::Widget/; +package Gtk::Overlay; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/Gtk::Widget/; -package Gdk::Texture; +package Gtk::Entry; use v5.38.0; use vars qw/@ISA/; -our @ISA = qw/G::Object/; -package Gtk::CssProvider; +our @ISA = qw/Gtk::Widget Gtk::Editable/; +package Gdk::Display; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/G::Object/; @@ -22,59 +22,59 @@ package Gtk::Box; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/Gtk::Widget/; -package Gtk::ScrolledWindow; +package Gtk::Window; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/Gtk::Widget/; -package Gtk::ApplicationWindow; +package Gtk::CheckButton; use v5.38.0; use vars qw/@ISA/; -our @ISA = qw/Gtk::Window/; -package Gtk::Widget; +our @ISA = qw/Gtk::Widget/; +package Gtk::AlertDialog; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/G::Object/; -package Gtk::Window; +package Gio::Application; use v5.38.0; use vars qw/@ISA/; -our @ISA = qw/Gtk::Widget/; -package Gtk::CheckButton; +our @ISA = qw/G::Object/; +package Gtk::Grid; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/Gtk::Widget/; -package Gtk::Entry; +package Gdk::Texture; use v5.38.0; use vars qw/@ISA/; -our @ISA = qw/Gtk::Widget Gtk::Editable/; -package Gdk::Display; +our @ISA = qw/G::Object/; +package Gtk::ApplicationWindow; use v5.38.0; use vars qw/@ISA/; -our @ISA = qw/G::Object/; +our @ISA = qw/Gtk::Window/; package Gtk::Application; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/Gio::Application/; -package Gtk::Dropdown; +package Gtk::ScrolledWindow; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/Gtk::Widget/; +package G::File; +use v5.38.0; +use vars qw/@ISA/; +our @ISA = qw/G::Object/; package Gtk::Button; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/Gtk::Widget/; -package Gio::Application; +package Gtk::CssProvider; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/G::Object/; -package Gtk::Overlay; -use v5.38.0; -use vars qw/@ISA/; -our @ISA = qw/Gtk::Widget/; -package Gtk::Picture; +package Gtk::Label; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/Gtk::Widget/; -package G::File; +package Gtk::Widget; use v5.38.0; use vars qw/@ISA/; our @ISA = qw/G::Object/; diff --git a/beach0.jpg b/share/beach0.jpg Binary files differindex 3733d32..3733d32 100644 --- a/beach0.jpg +++ b/share/beach0.jpg diff --git a/style.css b/share/style.css index 4f3c30e..4f3c30e 100644 --- a/style.css +++ b/share/style.css |
