summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-28 21:16:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-28 21:16:32 +0000
commitff872004f6d5f202a6a8cd418bad3b2458d2ed66 (patch)
tree984a3ea576f9090b2aad069550b65a6595c04d4c /perl-install/install_steps_gtk.pm
parentc047aee8e84b723f6910defab8b0de8063502490 (diff)
downloaddrakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar
drakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar.gz
drakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar.bz2
drakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar.xz
drakx-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index aa30394b3..b5ae9772c 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -129,7 +129,7 @@ sub new($$) {
sub enteringStep {
my ($o, $step) = @_;
- print _("Entering step `%s'\n", translate($o->{steps}{$step}{text}));
+ printf "Entering step `%s'\n", $o->{steps}{$step}{text};
$o->SUPER::enteringStep($step);
create_steps_window($o);
create_help_window($o);
@@ -362,7 +362,7 @@ sub choosePackagesTree {
pkgs::correctSize($size / sqr(1024)),
install_any::getAvailableSpace($o) / sqr(1024)));
};
- my $toggle = sub {
+ my $toggle_ = sub {
if (ref $curr) {
$tree->toggle_expansion($curr);
} else {
@@ -406,6 +406,8 @@ sub choosePackagesTree {
}
}
};
+ my $toggle = sub { &$toggle_; gtkset_mousecursor_normal() };
+
$tree->signal_connect(button_press_event => sub { &$toggle if $_[1]{type} =~ /^2/ });
$tree->signal_connect(key_press_event => sub {
my ($w, $e) = @_;