summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm24
1 files changed, 3 insertions, 21 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index b0e1ef647..1f61cf770 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -43,28 +43,10 @@ sub detect {
sub pre_func {
my ($text) = @_;
- $in->isa('interactive_gtk') or return;
+ $in->isa('interactive::gtk') or return;
$::Wizard_no_previous = 1;
- if ($::isStandalone) {
- $::Wizard_splash = 1;
- require ugtk2;
- ugtk2->import(qw(:wrappers :helpers));
- my $W = ugtk2->new(N("Network Configuration Wizard"));
- gtkadd($W->{window},
- gtkpack_(new Gtk2::VBox(0, 0),
- 1, write_on_pixmap(gtkcreate_img("drakconnect_step"), #BUG: write_on_pixmap is in my_gtk only, not in ugtk2 !!!
- 20,200,
- N("We are now going to configure the %s connection.", translate($text)),
- ),
- 0, $W->create_okcancel(N("OK"))
- )
- );
- $W->main;
- $::Wizard_splash = 0;
- } else {
- #- for i18n : %s is the type of connection of the list: (modem, isdn, adsl, cable, local network);
- $in->ask_okcancel(N("Network Configuration Wizard"), N("\n\n\nWe are now going to configure the %s connection.\n\n\nPress OK to continue.", translate($text)), 1);
- }
+ #- for i18n : %s is the type of connection of the list: (modem, isdn, adsl, cable, local network);
+ $in->ask_okcancel(N("Network Configuration Wizard"), N("\n\n\nWe are now going to configure the %s connection.\n\n\nPress OK to continue.", translate($text)), 1);
undef $::Wizard_no_previous;
}