From 905ba461adf26de0a630035424d5a78054d73786 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 27 Nov 2003 13:21:21 +0000
Subject: let drakgw embed (interface team request)

---
 perl-install/standalone/drakgw | 52 +-----------------------------------------
 1 file changed, 1 insertion(+), 51 deletions(-)

(limited to 'perl-install')

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);
-    
-}
-- 
cgit v1.2.1