diff options
| author | damien <damien@mandriva.com> | 2001-10-25 11:17:03 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-10-25 11:17:03 +0000 |
| commit | c4e0d6db5cead2bdb94a2a159e079cdbbf73097b (patch) | |
| tree | c32990a6aad53ec9e9ee958b62f0bbec61176d6b /perl-install | |
| parent | 4a42d2b779dcf8fe001c3f7d9daa90cc228f2676 (diff) | |
| download | drakx-c4e0d6db5cead2bdb94a2a159e079cdbbf73097b.tar drakx-c4e0d6db5cead2bdb94a2a159e079cdbbf73097b.tar.gz drakx-c4e0d6db5cead2bdb94a2a159e079cdbbf73097b.tar.bz2 drakx-c4e0d6db5cead2bdb94a2a159e079cdbbf73097b.tar.xz drakx-c4e0d6db5cead2bdb94a2a159e079cdbbf73097b.zip | |
The new and shiny drakautoinst is coming. P|-|34R
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakautoinst | 35 |
1 files changed, 19 insertions, 16 deletions
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 #- |