diff options
| author | Aurélien Lefebvre <alefebvre@mandriva.com> | 2009-09-07 08:53:41 +0000 |
|---|---|---|
| committer | Aurélien Lefebvre <alefebvre@mandriva.com> | 2009-09-07 08:53:41 +0000 |
| commit | 1d549d397f5211f352bff67eaca0a6281f3026a0 (patch) | |
| tree | e42a84b5fce940869b95cdbdf8a562d1cb75c8d1 /perl-install/mygtk2.pm | |
| parent | 01fcc7a881dbe7975de5d4a0a713cf096d97dfc9 (diff) | |
| download | drakx-1d549d397f5211f352bff67eaca0a6281f3026a0.tar drakx-1d549d397f5211f352bff67eaca0a6281f3026a0.tar.gz drakx-1d549d397f5211f352bff67eaca0a6281f3026a0.tar.bz2 drakx-1d549d397f5211f352bff67eaca0a6281f3026a0.tar.xz drakx-1d549d397f5211f352bff67eaca0a6281f3026a0.zip | |
- mygtk2:
o HScale widget: fix for value option
Diffstat (limited to 'perl-install/mygtk2.pm')
| -rw-r--r-- | perl-install/mygtk2.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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}); |