diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2003-06-11 17:44:49 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2003-06-11 17:44:49 +0000 |
| commit | fc56e58fdc5789f21d722005f0393a3bca5e5e1f (patch) | |
| tree | a41677081768b12149293f879d24ce734470847f /perl-install/network/netconnect.pm | |
| parent | 2ee9d638009622ffe8dfae7288b5f01ef5d96e0a (diff) | |
| download | drakx-backup-do-not-use-fc56e58fdc5789f21d722005f0393a3bca5e5e1f.tar drakx-backup-do-not-use-fc56e58fdc5789f21d722005f0393a3bca5e5e1f.tar.gz drakx-backup-do-not-use-fc56e58fdc5789f21d722005f0393a3bca5e5e1f.tar.bz2 drakx-backup-do-not-use-fc56e58fdc5789f21d722005f0393a3bca5e5e1f.tar.xz drakx-backup-do-not-use-fc56e58fdc5789f21d722005f0393a3bca5e5e1f.zip | |
- s/interactive_gtk/interactive::gtk/ to get sub pre_func usable
- drop write_on_pixmap way
Diffstat (limited to 'perl-install/network/netconnect.pm')
| -rw-r--r-- | perl-install/network/netconnect.pm | 24 |
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; } |