- foreach my $i (1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 'F1', 'F2', 'F3', 'F4') {
+ foreach my $i (1, 2, 3, 4, 5, 6, 7, 8, 9, 0) {
+ if ($keyval == $Gtk2::Gdk::Keysyms{$i} || $keyval == $Gtk2::Gdk::Keysyms{"KP_${i}"}) {
+ snom_key($i);
+ return TRUE;
+ }
+ }
+
+ foreach my $i ('F1', 'F2', 'F3', 'F4') {