summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-31 15:44:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-31 15:44:03 +0000
commit518949ba7f1adfd8357870b0983fdb65059b0d40 (patch)
tree5c7accb0d0aaa179aeb33c2ec49fbf6ca8dbc8b1 /perl-install
parent9c3f2927cd33c5a905397d0caf9e4287c52f1359 (diff)
downloaddrakx-518949ba7f1adfd8357870b0983fdb65059b0d40.tar
drakx-518949ba7f1adfd8357870b0983fdb65059b0d40.tar.gz
drakx-518949ba7f1adfd8357870b0983fdb65059b0d40.tar.bz2
drakx-518949ba7f1adfd8357870b0983fdb65059b0d40.tar.xz
drakx-518949ba7f1adfd8357870b0983fdb65059b0d40.zip
add ProgressBar
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm18
1 files changed, 18 insertions, 0 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 5c79c5848..eaf63fc85 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -231,6 +231,24 @@ sub _gtk__HScale {
$w;
}
+sub _gtk__ProgressBar {
+ my ($w, $opts) = @_;
+
+ if (!$w) {
+ $w = Gtk2::ProgressBar->new;
+ }
+
+ if (my $fraction_ref = delete $opts->{fraction_ref}) {
+ my $set = sub { $w->set_fraction($$fraction_ref) };
+ gtkval_register($w, $fraction_ref, $set);
+ $set->();
+ } elsif (exists $opts->{fraction}) {
+ $w->set_fraction(delete $opts->{fraction});
+ }
+
+ $w;
+}
+
sub _gtk__VSeparator { &_gtk_any_simple }
sub _gtk__HSeparator { &_gtk_any_simple }
sub _gtk__Calendar { &_gtk_any_simple }