summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-18 15:50:11 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:53:08 +0100
commit4d476c3dc673142bf7a56eceeb3cbc5500a63846 (patch)
treea0b9ed79fd8f36f2c4946c0b4556425db8ed27bd /perl-install
parent0c50056186c5399231fe89f5657180418ccd0844 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/mygtk3.pm2
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);
}