summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-06-03 12:08:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-06-03 12:08:35 +0000
commit337801868e55146ca66221654d6295d0e24b01a7 (patch)
tree9bf0de3ebd466995f98b59cae762b08a868e96d7 /perl-install/install_steps_gtk.pm
parentf9ee79ed64ed8ad891671e9920ef945f5bd5eca5 (diff)
downloaddrakx-backup-do-not-use-337801868e55146ca66221654d6295d0e24b01a7.tar
drakx-backup-do-not-use-337801868e55146ca66221654d6295d0e24b01a7.tar.gz
drakx-backup-do-not-use-337801868e55146ca66221654d6295d0e24b01a7.tar.bz2
drakx-backup-do-not-use-337801868e55146ca66221654d6295d0e24b01a7.tar.xz
drakx-backup-do-not-use-337801868e55146ca66221654d6295d0e24b01a7.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 10878f247..7bf295fb8 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -509,7 +509,7 @@ sub choosePackagesTree {
$tree->signal_connect(button_press_event => sub { &$toggle if $_[1]{type} =~ /^2/ });
$tree->signal_connect(key_press_event => sub {
my ($w, $e) = @_;
- my $c = chr $e->{keyval};
+ my $c = chr($e->{keyval} & 0xff);
&$toggle if $e->{keyval} >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' ';
1;
});
@@ -818,7 +818,7 @@ sub init_sizes() {
($::rootheight, $::rootwidth) = (480, 640);
($::rootheight, $::rootwidth) = my_gtk::gtkroot()->get_size;
#- ($::rootheight, $::rootwidth) = (min(768, $::rootheight), min(1024, $::rootwidth));
- ($::stepswidth, $::stepsheight) = (140, $::rootheight);
+ ($::stepswidth, $::stepsheight) = (145, $::rootheight);
($::logowidth, $::logoheight) = ($::rootwidth - $::stepswidth, 40);
($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, 100);
($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight);