diff options
| -rw-r--r-- | perl-install/interactive/gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index f33295b72..ee10ba5ee 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -933,7 +933,7 @@ sub wait_message_endW { sub wait_message_with_progress_bar { my ($in, $o_title) = @_; - my $progress = Gtk2::ProgressBar->new; + my $progress = gtknew('ProgressBar'); my $w = $in->wait_message($o_title, $progress); my $displayed; $progress->signal_connect(expose_event => sub { $displayed = 1; 0 }); |