summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-09 09:02:47 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-09 09:02:47 +0000
commit1d3ac921d66022bb6e19a96dce95472cc31f0987 (patch)
tree4da18678cee71134f6cec6004f0b41afe6d25145 /perl-install/interactive_gtk.pm
parentdb4013c2a40eaeb3752cc69623037e4bb274693b (diff)
downloaddrakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar
drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.gz
drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.bz2
drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.tar.xz
drakx-backup-do-not-use-1d3ac921d66022bb6e19a96dce95472cc31f0987.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 1afb5b420..ad4aa36ba 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -12,12 +12,12 @@ use my_gtk qw(:helpers :wrappers);
1;
-## redefine ask_warn
-#sub ask_warn {
-# my $o = shift;
-# local $my_gtk::grab = 1;
-# $o->SUPER::ask_warn(@_);
-#}
+#-#- redefine ask_warn
+#-sub ask_warn {
+#- my $o = shift;
+#- local $my_gtk::grab = 1;
+#- $o->SUPER::ask_warn(@_);
+#-}
sub ask_from_entryW {
my ($o, $title, $messages, $def) = @_;
@@ -77,10 +77,10 @@ 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
+ #-the widgets
my @entries = map {
if ($_->{type} eq "list") {
my $depth_combo = new Gtk::Combo;
@@ -113,10 +113,10 @@ sub ask_from_entries_refW {
for (my $i = 0; $i < $num_fields; $i++) {
- my $ind = $i; #cos lexical bindings pb !!
+ my $ind = $i; #-cos lexical bindings pb !!
my $entry = comb_entry($entries[$i], $val->[$i]);
my $changed_callback = sub {
- return if $ignore; #handle recursive deadlock
+ return if $ignore; #-handle recursive deadlock
&{$updates[$ind]};
if ($hcallback{changed}) {
&{$hcallback{changed}}($ind);
@@ -151,8 +151,8 @@ sub ask_from_entries_refW {
my $c = chr $e->{keyval};
if ($c eq "\x8d")
{
- #don't know why it works, i believe that
- #i must say before &$go_to_next, but with it doen't work HACK!
+ #-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");
}
;
@@ -175,7 +175,7 @@ sub ask_from_entries_refW {
if ($hcallback{complete}) {
my $callback = sub {
my ($error, $focus) = &{$hcallback{complete}};
- #update all the value
+ #-update all the value
$ignore = 1;
foreach (@updates_inv) { &{$_};}
$ignore = 0;