From 2e3db42050e7863734a26640f522987224e23277 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 14 Jul 2002 20:33:43 +0000 Subject: do not use 8-bit characters (they were not useful anyway :) --- perl-install/my_gtk.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install/my_gtk.pm') diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 0c777d519..21f43f05a 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -1022,15 +1022,15 @@ sub create_treeitem($) { if ($e->{keyval} > 0x100) { my $n; - $n = &$left($w) if /[Q´\x96]/; - $n = &$right($w) if /[S¶\x98]/; - $n = &$up($w) if /[R¸\x97]/; - $n = &$down($w) if /[T²\x99]/; + $n = &$left($w) if /[Q\xb4\x96]/; + $n = &$right($w) if /[S\xb6\x98]/; + $n = &$up($w) if /[R\xb8\x97]/; + $n = &$down($w) if /[T\xb2\x99]/; if ($n) { $n->focus('up'); $w->signal_emit_stop("key_press_event"); } - $w->expand if /[+«]/; + $w->expand if /[+\xab]/; $w->collapse if /[-\xad]/; do { $w->expanded ? $w->collapse : $w->expand; -- cgit v1.2.1