summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-19 17:31:42 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-19 17:31:42 +0000
commit25f65beed0677fa247c513705dbf538225f979c4 (patch)
treee0ec937937cba2d6279e97b3b7036fe0856d5bb2 /perl-install/interactive_gtk.pm
parenta0b5f74447cc699c43c354cb6397ed554605729b (diff)
downloaddrakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.tar
drakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.tar.gz
drakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.tar.bz2
drakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.tar.xz
drakx-backup-do-not-use-25f65beed0677fa247c513705dbf538225f979c4.zip
no_comment
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm26
1 files changed, 13 insertions, 13 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 5d328dc7c..253b7ef1c 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -56,11 +56,11 @@ sub ask_many_from_list_refW($$$$$) {
my ($o, $title, $messages, $list, $val) = @_;
my $n = 0;
my $w = my_gtk->new('', %$o);
- gtkadd($w->{window},
+ gtkadd($w->{window},
gtkpack(create_box_with_title($w, @$messages),
gtkpack(new Gtk::VBox(0,0),
- map {
- my $nn = $n++;
+ map {
+ my $nn = $n++;
my $o = Gtk::CheckButton->new($_);
$o->set_active(${$val->[$nn]});
$o->signal_connect(clicked => sub { ${$val->[$nn]} = !${$val->[$nn]} });
@@ -77,11 +77,11 @@ sub ask_many_from_list_refW($$$$$) {
sub ask_from_entries_refW {
my ($o, $title, $messages, $l, $val, %hcallback) = @_;
my $num_fields = @{$l};
- my $ignore = 0; #-to handle recursivity
+ my $ignore = 0; #-to handle recursivity
my $w = my_gtk->new($title, %$o);
#-the widgets
- my @entries = map {
+ my @entries = map {
if ($_->{type} eq "list") {
my $depth_combo = new Gtk::Combo;
$depth_combo->set_use_arrows_always(1);
@@ -101,12 +101,12 @@ sub ask_from_entries_refW {
($ref->{type} eq "list" && @{$ref->{list}}) ? $entry->entry : $entry
}
- my @updates = mapn {
+ my @updates = mapn {
my ($entry, $ref) = @_;
sub { ${$ref->{val}} = comb_entry($entry, $ref)->get_text };
} \@entries, $val;
- my @updates_inv = mapn {
+ my @updates_inv = mapn {
my ($entry, $ref) = @_;
sub { comb_entry($entry, $ref)->set_text(${$ref->{val}})
};
@@ -152,13 +152,13 @@ sub ask_from_entries_refW {
my $c = chr $e->{keyval};
if ($c eq "\x8d")
{
- #-don't know why it works, i believe that
+ #-don't know why it works, i believe that
#-i must say before &$go_to_next, but with it doen't work HACK!
$w->signal_emit_stop("key_press_event");
}
;
});
-
+
$entry->set_text(${$val->[$i]{val}}) if ${$val->[$i]{val}};
$entry->set_visibility(0) if $val->[$i]{hidden};
&{$updates[$i]};
@@ -166,7 +166,7 @@ sub ask_from_entries_refW {
my @entry_list = mapn { [($_[0], $_[1])]} $l, \@entries;
- gtkadd($w->{window},
+ gtkadd($w->{window},
gtkpack(
create_box_with_title($w, @$messages),
create_packtable({}, @entry_list),
@@ -200,9 +200,9 @@ sub wait_messageW($$$) {
my $w = my_gtk->new(_("Resizing"), %$o, grab => 1);
my $W = pop @$message;
- gtkadd($w->{window},
- gtkpack(new Gtk::VBox(0,0),
- @$message,
+ gtkadd($w->{window},
+ gtkpack(new Gtk::VBox(0,0),
+ @$message,
$w->{wait_messageW} = new Gtk::Label($W)));
$w->sync;
$w;