diff options
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/mygtk2.pm | 3 |
3 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 816e3c177..2d9a803dd 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,5 +1,6 @@ - mygtk2: o HScale widget: added digits and ref_value options + o HScale widget: fix for value option - adduserdrake: o use icons to display password weakness - added security-{low,medium,strong}.png pixmaps used for diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index ae8adf47f..22bbaea93 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,5 +1,6 @@ - mygtk2: o HScale widget: added digits and ref_value options + o HScale widget: fix for value option - adduserdrake: o use icons to display password weakness - added security-{low,medium,strong}.png pixmaps used for diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 68363c227..93026fa48 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -253,7 +253,8 @@ sub _gtk__HScale { if (!$w) { $opts->{adjustment} ||= do { - add2hash_($opts, { step_increment => 1, page_increment => 5, page_size => 1, value => delete $opts->{lower} }); + add2hash_($opts, { step_increment => 1, page_increment => 5, page_size => 1 }); + add2hash_($opts, { value => $opts->{lower} }) if !exists $opts->{value}; Gtk2::Adjustment->new(delete $opts->{value}, delete $opts->{lower}, (delete $opts->{upper}) + 1, delete $opts->{step_increment}, delete $opts->{page_increment}, delete $opts->{page_size}); }; $w = Gtk2::HScale->new(delete $opts->{adjustment}); |