diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-27 13:21:21 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-27 13:21:21 +0000 |
commit | 905ba461adf26de0a630035424d5a78054d73786 (patch) | |
tree | e1340d2c9109fb09b47d9918b4be7ddb4c4748a9 /perl-install | |
parent | 7cdb17d17d6040a6ea25fbc376ffccd66ff49130 (diff) | |
download | drakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.tar drakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.tar.gz drakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.tar.bz2 drakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.tar.xz drakx-backup-do-not-use-905ba461adf26de0a630035424d5a78054d73786.zip |
let drakgw embed (interface team request)
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakgw | 52 |
1 files changed, 1 insertions, 51 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index 682ea9909..2dc2fe8fd 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -56,9 +56,7 @@ my $shorewall = network::shorewall::read($in, 'silent'); $::Wizard_title = N("Internet Connection Sharing"); -!$::isEmbedded && $in->isa('interactive::gtk') and $::isWizard = 1; - -pur_gtk_mode() if $::isEmbedded && $in->isa('interactive::gtk'); +$in->isa('interactive::gtk') and $::isWizard = 1; sub sys { system(@_) == 0 or log::l("[drakgw] Warning, sys failed for $_[0]") } @@ -527,51 +525,3 @@ sub quit_global { $in->exit($exitcode); goto begin } - -sub pur_gtk_mode() { - require ugtk2; - ugtk2->import(qw(:wrappers :helpers :create)); - my $setup_state = $shorewall && $shorewall->{masquerade} ? - ($shorewall->{disabled} ? - N("The setup has already been done, but it's currently disabled.") : - N("The setup has already been done, and it's currently enabled.")) : - N("No Internet Connection Sharing has ever been configured."); - - my $window1 = ugtk2->new('drakgw'); - $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) }); - unless ($::isEmbedded) { - $window1->{rwindow}->set_position('center'); - $window1->{rwindow}->set_title(N("Internet Connection Sharing configuration")); - } - $window1->{rwindow}->set_border_width(10); - my $vbox1 = new Gtk2::VBox(0,0); - $window1->{window}->add($vbox1); - my $hbox1 = new Gtk2::HBox(0,0); - $vbox1->pack_start($hbox1,1,1,0); - my $label1 = new Gtk2::Label( -N("Welcome to the Internet Connection Sharing utility! - -%s - -Click on Configure to launch the setup wizard.", $setup_state)); - $hbox1->pack_start($label1,1,1,0); - my $hbox2 = new Gtk2::HBox(0,0); - $vbox1->pack_start($hbox2,1,1,0); - - my $bbox1 = new Gtk2::HButtonBox; - $vbox1->pack_start($bbox1,0,0,0); - $bbox1->set_layout('end'); - my $button_conf = Gtk2::Button->new(N("Configure")); - $button_conf->signal_connect(clicked => sub { - system("/usr/sbin/drakgw --wizard"); - ugtk2->exit(0); - }); - $bbox1->add($button_conf); - my $button_cancel = Gtk2::Button->new(N("Cancel")); - $button_cancel->signal_connect(clicked => sub { ugtk2->exit(0) }); - $bbox1->add($button_cancel); - $window1->{rwindow}->show_all; - $window1->main; - ugtk2->exit(0); - -} |