summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-14 20:33:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-14 20:33:43 +0000
commit2e3db42050e7863734a26640f522987224e23277 (patch)
treea309a3261026b251fbeb7fa4f0f94b8c601231cd /perl-install/my_gtk.pm
parent51b5ec307e150a5815aaf83a08cf711faac4b170 (diff)
downloaddrakx-2e3db42050e7863734a26640f522987224e23277.tar
drakx-2e3db42050e7863734a26640f522987224e23277.tar.gz
drakx-2e3db42050e7863734a26640f522987224e23277.tar.bz2
drakx-2e3db42050e7863734a26640f522987224e23277.tar.xz
drakx-2e3db42050e7863734a26640f522987224e23277.zip
do not use 8-bit characters (they were not useful anyway :)
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm10
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;