From c4e0d6db5cead2bdb94a2a159e079cdbbf73097b Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 25 Oct 2001 11:17:03 +0000
Subject: The new and shiny drakautoinst is coming. P|-|34R

---
 perl-install/standalone/drakautoinst | 35 +++++++++++++++++++----------------
 1 file changed, 19 insertions(+), 16 deletions(-)

(limited to 'perl-install/standalone/drakautoinst')

diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 56045e211..5cba4d183 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -197,6 +197,7 @@ if (ref($in) =~ /gtk/) {
 			   ),
 		    1, $notebook,
 		   ),
+	    0, new Gtk::HSeparator,
 	    0, gtkadd(gtkset_border_width(gtkset_layout(new Gtk::HButtonBox, 'end'), 5),
 		      gtksignal_connect(new Gtk::Button(_("Accept")), clicked => sub { Gtk->main_quit;  }),
 		      gtksignal_connect(new Gtk::Button(_("Cancel")), clicked => sub { $o = $o_old; Gtk->main_quit; quit_global($in, 0) }),
@@ -287,23 +288,22 @@ sub h2widget {
 					  $vb, \$i, \@widget_list)
 			 );
 	} else {
-	    $w = gtkpack__(create_packtable({ col_spacings => 10, row_spacings => 3 },
-					    map {
-						my $e;
-						my $t = ${$k}{$_}; $e = new Gtk::Entry;
-						$e->{value} = "$label\{$_\}";
-						my $tag = Gtk->timeout_add(1000, sub {
-									       $e->set_text($t);
-									       0;
-									   });
-						gtksignal_connect($e, changed => sub {
-								      my $exe = $e->{value} . "='" . $e->get_text() . "'";
+	    $w = create_packtable({ col_spacings => 10, row_spacings => 3 },
+				  map {
+				      my $e;
+				      my $t = ${$k}{$_}; $e = new Gtk::Entry;
+				      $e->{value} = "$label\{$_\}";
+				      my $tag = Gtk->timeout_add(1000, sub {
+								     $e->set_text($t);
+								     0;
+								 });
+				      gtksignal_connect($e, changed => sub {
+							    my $exe = $e->{value} . "='" . $e->get_text() . "'";
 #								      print "EXEC : $exe\n ";
-								      eval "$exe";
-								  });
-						[ "$_ : ", $e ] } @list_keys
-					   ),
-			  )
+							    eval "$exe";
+							});
+				      [ "$_ : ", $e ] } @list_keys
+				 )
 	}
     } elsif(ref($k) =~ /ARRAY/) {
 	my $vb;
@@ -355,6 +355,9 @@ sub control_buttons {
 
 #-------------------------------------------------
 #- $Log$
+#- Revision 1.9  2001/10/25 11:17:03  damien
+#- The new and shiny drakautoinst is coming. P|-|34R
+#-
 #- Revision 1.8  2001/10/25 02:18:24  damien
 #- The new drakautoinst is coming. P|-|34R
 #-
-- 
cgit v1.2.1