do not use 8-bit characters (they were not useful anyway :)

1 files changed, 5 insertions, 5 deletions

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;