diff options
| author | damien <damien@mandriva.com> | 2002-03-06 20:17:51 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-03-06 20:17:51 +0000 |
| commit | e1b2016ed5114f1c8753c0be10a81d67162c6dc1 (patch) | |
| tree | 71b8742e0837a99f9b72c61b444ebba80e663339 /perl-install/standalone/drakautoinst | |
| parent | 5d3bfef829fab0a5b0cdf16c7139c72a8cdd782b (diff) | |
| download | drakx-backup-do-not-use-e1b2016ed5114f1c8753c0be10a81d67162c6dc1.tar drakx-backup-do-not-use-e1b2016ed5114f1c8753c0be10a81d67162c6dc1.tar.gz drakx-backup-do-not-use-e1b2016ed5114f1c8753c0be10a81d67162c6dc1.tar.bz2 drakx-backup-do-not-use-e1b2016ed5114f1c8753c0be10a81d67162c6dc1.tar.xz drakx-backup-do-not-use-e1b2016ed5114f1c8753c0be10a81d67162c6dc1.zip | |
corrected HASH and ARRAY label
Diffstat (limited to 'perl-install/standalone/drakautoinst')
| -rwxr-xr-x | perl-install/standalone/drakautoinst | 29 |
1 files changed, 20 insertions, 9 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst index 0bd6894a4..ae7ce1e9a 100755 --- a/perl-install/standalone/drakautoinst +++ b/perl-install/standalone/drakautoinst @@ -323,21 +323,29 @@ sub h2widget { sub create_entry_element { my ($text, $value, $label) = @_; - my $e = new Gtk::Entry; - $e->{value} = $value; - my $tag = Gtk->timeout_add(1000, sub { $e->set_text($text); 0 }); - gtksignal_connect($e, changed => sub { - my $exe = $e->{value} . "='" . $e->get_text() . "'"; - print "EXEC : $exe\n "; - eval "$exe"; - }); - [ "$label : ", $e ] + my $e; + if(ref ($text) =~ /HASH/) { + return ([ "$label : ", h2widget($text, $label) ]); + } elsif (ref ($text) =~ /ARRAY/) { + return ([ "$label : ", h2widget($text, $label) ]); + } else { + $e = new Gtk::Entry; + $e->{value} = $value; + my $tag = Gtk->timeout_add(1000, sub { $e->set_text($text); 0 }); + gtksignal_connect($e, changed => sub { + my $exe = $e->{value} . "='" . $e->get_text() . "'"; + print "EXEC : $exe\n "; + eval "$exe"; + }); + } + [ $label ? "$label : " : "" , $e ] } sub control_buttons { my ($ref_local_k, $local_gui, $vb, $j, $widget_list2) = @_; my @widget_list = @{$widget_list2}; my $i = ${$j}; + ref($ref_local_k) =~ /HASH/ or return(); my (%local_k) = %{$ref_local_k}; my ($button_add, $button_remove); 0, gtkadd(gtkset_border_width(gtkset_layout(new Gtk::HButtonBox, 'spread'), 5), @@ -360,6 +368,9 @@ sub control_buttons { #------------------------------------------------- #- $Log$ +#- Revision 1.18 2002/03/06 20:17:51 damien +#- corrected HASH and ARRAY label +#- #- Revision 1.17 2002/01/29 22:38:31 gc #- move /root/* files (ddebug.log, install.log, report.bug, #- auto_inst.cfg.pl, replay_install.img) to /root/drakx/, |