diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-06-03 12:08:35 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-06-03 12:08:35 +0000 |
| commit | 337801868e55146ca66221654d6295d0e24b01a7 (patch) | |
| tree | 9bf0de3ebd466995f98b59cae762b08a868e96d7 /perl-install/install_steps_gtk.pm | |
| parent | f9ee79ed64ed8ad891671e9920ef945f5bd5eca5 (diff) | |
| download | drakx-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.pm | 4 |
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); |