diff options
| -rw-r--r-- | perl-install/diskdrake/hd_gtk.pm | 2 | ||||
| -rw-r--r-- | perl-install/install/gtk.pm | 4 | ||||
| -rw-r--r-- | perl-install/mygtk3.pm | 10 |
3 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index c95c465d8..c2758a639 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -50,7 +50,7 @@ sub load_theme() { -r $css or $css = dirname(__FILE__) . "/../share/diskdrake.css"; my $pl = Gtk3::CssProvider->new; $pl->load_from_path($css); - my $cx = Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION); + Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION); } sub main { diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm index aa7c36f23..f9e6bf71c 100644 --- a/perl-install/install/gtk.pm +++ b/perl-install/install/gtk.pm @@ -62,7 +62,7 @@ sub load_css { if ($f) { my $pl = Gtk3::CssProvider->new; $pl->load_from_data($o->{doc} ? $theme_overriding_for_doc : scalar cat_($f)); - my $cx = Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION); + Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION); } } @@ -81,7 +81,7 @@ sub load_font { my $s = qq(gtk-font-name = $font); my $pl = Gtk3::CssProvider->new; $pl->load_from_data("GtkWindow { font: $font }"); - my $cx = Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION); + Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION); # FIXME: this should be done in /mnt too for forked app such as gurpmi{,.addmedia} (mga#67): mkdir_p("/.config/gtk-3.0"); output("/.config/gtk-3.0/settings.ini", qq([Settings] diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index 44065baf8..d681badba 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -335,7 +335,7 @@ sub _gtk__Pixbuf { } sub _gtk__Image { - my ($w, $opts, $class) = @_; + my ($w, $opts) = @_; if (!$w) { $w = Gtk3::Image->new; @@ -529,7 +529,7 @@ sub _gtk__WeaknessCheckEntry { } sub _gtk__ActionGroup { - my ($w, $opts, $_class, $action) = @_; + my ($w, $opts, $_class) = @_; if (!$w) { $w = Gtk3::ActionGroup->new(delete $opts->{name}); @@ -545,7 +545,7 @@ sub _gtk__ActionGroup { } sub _gtk__Builder { - my ($w, $opts, $_class, $action) = @_; + my ($w, $opts, $_class) = @_; if (!$w) { $w = Gtk3::Builder->new; @@ -557,7 +557,7 @@ sub _gtk__Builder { } sub _gtk__UIManager { - my ($w, $opts, $_class, $action) = @_; + my ($w, $opts, $_class) = @_; if (!$w) { $w = Gtk3::UIManager->new; @@ -1579,7 +1579,7 @@ sub import_style_ressources() { if (!$::isInstall) { my $pl = Gtk3::CssProvider->new; $pl->load_from_path('/usr/share/libDrakX/themes-galaxy.css'); # FIXME DEBUG - my $cx = Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION); + Gtk3::StyleContext::add_provider_for_screen(Gtk3::Gdk::Screen::get_default(), $pl, Gtk3::STYLE_PROVIDER_PRIORITY_APPLICATION); } } |