diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-07 17:32:41 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:15 +0100 |
| commit | a692fa79263096cdb2da1cbd7968058742abbc69 (patch) | |
| tree | dab72cc1e069291a2c63e4b60a71ca6145c31ab4 /perl-install/mygtk3.pm | |
| parent | f1efadafd12954cbc0b46148577690f5c4f93ec8 (diff) | |
| download | drakx-a692fa79263096cdb2da1cbd7968058742abbc69.tar drakx-a692fa79263096cdb2da1cbd7968058742abbc69.tar.gz drakx-a692fa79263096cdb2da1cbd7968058742abbc69.tar.bz2 drakx-a692fa79263096cdb2da1cbd7968058742abbc69.tar.xz drakx-a692fa79263096cdb2da1cbd7968058742abbc69.zip | |
(installPackages) initialize fraction to 0
Gtk3 doesn't accept default value for Gtk2::ProgressBar->set_fraction()
Diffstat (limited to 'perl-install/mygtk3.pm')
| -rw-r--r-- | perl-install/mygtk3.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index 6c28c43ed..6e4c880d1 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -278,6 +278,7 @@ sub _gtk__ProgressBar { } if (my $fraction_ref = delete $opts->{fraction_ref}) { + $$fraction_ref ||= 0; my $set = sub { $w->set_fraction($$fraction_ref) }; gtkval_register($w, $fraction_ref, $set); $set->(); |