diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-22 22:22:37 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-22 22:22:37 +0000 |
commit | 9c6126635193f3daf9cfe4b13aa09c68051ce45a (patch) | |
tree | 411e3eec97d2f859a28001212a06f44dfdcec22e /perl-install | |
parent | c914e4afd54855d3add074970c0616f4a4349301 (diff) | |
download | drakx-backup-do-not-use-9c6126635193f3daf9cfe4b13aa09c68051ce45a.tar drakx-backup-do-not-use-9c6126635193f3daf9cfe4b13aa09c68051ce45a.tar.gz drakx-backup-do-not-use-9c6126635193f3daf9cfe4b13aa09c68051ce45a.tar.bz2 drakx-backup-do-not-use-9c6126635193f3daf9cfe4b13aa09c68051ce45a.tar.xz drakx-backup-do-not-use-9c6126635193f3daf9cfe4b13aa09c68051ce45a.zip |
do not mix interactive and ugtk2, let reusse create_dialog()
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakbug | 8 |
1 files changed, 2 insertions, 6 deletions
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")); } |