From 9c6126635193f3daf9cfe4b13aa09c68051ce45a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 22 May 2003 22:22:37 +0000 Subject: do not mix interactive and ugtk2, let reusse create_dialog() --- perl-install/standalone/drakbug | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 70ab28da6..3f34eaadc 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -22,14 +22,10 @@ use diagnostics; use lib qw(/usr/lib/libDrakX); use standalone; -use interactive; use common; use ugtk2 qw(:all); use Config; - -my $in = 'interactive'->vnew; - my $bugzilla_url = "http://drakbug.mandrakesoft.com"; my $version = "0.9.0"; my $prog; @@ -157,12 +153,12 @@ sub parse_release() { sub connect_bugzilla { my ($url) = @_; - my $_w = $in->wait_message('', N("connecting to Bugzilla wizard ...")); + my $_w = create_dialog(N("Please wait"), N("connecting to Bugzilla wizard ...")); sleep(3); exec $ENV{BROWSER},$url if exists $ENV{BROWSER}; my @browser = qw(mozilla konqueror galeon); foreach (@browser) { if (-e "/usr/bin/$_") { log::explanations("Contacting $url with $_\n "); exec $_,$url } } - $in->ask_warn('', N("No browser available! Please install one")); + create_dialog(N("Error"), N("No browser available! Please install one")); } -- cgit v1.2.1