diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-18 15:50:11 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:53:08 +0100 |
| commit | 4d476c3dc673142bf7a56eceeb3cbc5500a63846 (patch) | |
| tree | a0b9ed79fd8f36f2c4946c0b4556425db8ed27bd /perl-install/mygtk3.pm | |
| parent | 0c50056186c5399231fe89f5657180418ccd0844 (diff) | |
| download | drakx-4d476c3dc673142bf7a56eceeb3cbc5500a63846.tar drakx-4d476c3dc673142bf7a56eceeb3cbc5500a63846.tar.gz drakx-4d476c3dc673142bf7a56eceeb3cbc5500a63846.tar.bz2 drakx-4d476c3dc673142bf7a56eceeb3cbc5500a63846.tar.xz drakx-4d476c3dc673142bf7a56eceeb3cbc5500a63846.zip | |
fix creating a SpinButton
->{lower} was deleted in the previous line
(bug introduced with the first code drop by pixel in commit f6f78109c on
Dec 2 2004)
Diffstat (limited to 'perl-install/mygtk3.pm')
| -rw-r--r-- | perl-install/mygtk3.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index 921c76b49..aa17b71b0 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -239,7 +239,7 @@ sub _gtk__SpinButton { if (!$w) { $opts->{adjustment} ||= do { add2hash_($opts, { step_increment => 1, page_increment => 5, page_size => 1, value => delete $opts->{lower} }); - Gtk3::Adjustment->new(delete $opts->{value}, delete $opts->{lower}, delete $opts->{upper}, delete $opts->{step_increment}, delete $opts->{page_increment}, delete $opts->{page_size}); + Gtk3::Adjustment->new(delete $opts->{value}, 0, delete $opts->{upper}, delete $opts->{step_increment}, delete $opts->{page_increment}, delete $opts->{page_size}); }; $w = Gtk3::SpinButton->new(delete $opts->{adjustment}, delete $opts->{climb_rate} || 0, delete $opts->{digits} || 0); } |