diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-01-20 02:44:55 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-02-07 21:36:44 +0100 |
| commit | e140a5374ee097029484b075b7120cef8f5e4aac (patch) | |
| tree | af8fbfac0d2472443fd0511a721e355bd3725669 /perl-install | |
| parent | 49cc404e5eddf32ac6be303c08055bdebd8ce509 (diff) | |
| download | drakx-e140a5374ee097029484b075b7120cef8f5e4aac.tar drakx-e140a5374ee097029484b075b7120cef8f5e4aac.tar.gz drakx-e140a5374ee097029484b075b7120cef8f5e4aac.tar.bz2 drakx-e140a5374ee097029484b075b7120cef8f5e4aac.tar.xz drakx-e140a5374ee097029484b075b7120cef8f5e4aac.zip | |
fix unused variable
Diffstat (limited to 'perl-install')
| -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); } } |