summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAurélien Lefebvre <alefebvre@mandriva.com>2009-09-07 08:53:41 +0000
committerAurélien Lefebvre <alefebvre@mandriva.com>2009-09-07 08:53:41 +0000
commit1d549d397f5211f352bff67eaca0a6281f3026a0 (patch)
treee42a84b5fce940869b95cdbdf8a562d1cb75c8d1 /perl-install
parent01fcc7a881dbe7975de5d4a0a713cf096d97dfc9 (diff)
downloaddrakx-backup-do-not-use-1d549d397f5211f352bff67eaca0a6281f3026a0.tar
drakx-backup-do-not-use-1d549d397f5211f352bff67eaca0a6281f3026a0.tar.gz
drakx-backup-do-not-use-1d549d397f5211f352bff67eaca0a6281f3026a0.tar.bz2
drakx-backup-do-not-use-1d549d397f5211f352bff67eaca0a6281f3026a0.tar.xz
drakx-backup-do-not-use-1d549d397f5211f352bff67eaca0a6281f3026a0.zip
- mygtk2:
o HScale widget: fix for value option
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/mygtk2.pm3
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});