summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-10 13:52:36 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-10 13:52:36 +0000
commit41cdef71c22e93b3b0f52400182271946987af15 (patch)
treee065d0a204d2eae5ca456ba489a2379b6951817e /perl-install/interactive/gtk.pm
parent250dcb61b6210e1a20dcec6be089f98e9d257610 (diff)
downloaddrakx-backup-do-not-use-41cdef71c22e93b3b0f52400182271946987af15.tar
drakx-backup-do-not-use-41cdef71c22e93b3b0f52400182271946987af15.tar.gz
drakx-backup-do-not-use-41cdef71c22e93b3b0f52400182271946987af15.tar.bz2
drakx-backup-do-not-use-41cdef71c22e93b3b0f52400182271946987af15.tar.xz
drakx-backup-do-not-use-41cdef71c22e93b3b0f52400182271946987af15.zip
- symbolic keys are back
- do not name "use once" variables
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 67f5ca7bf..7248e735e 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -9,6 +9,7 @@ use vars qw(@ISA);
use interactive;
use common;
use ugtk2 qw(:helpers :wrappers :create);
+use Gtk2::Gdk::Keysyms;
my $forgetTime = 1000; #- in milli-seconds
@@ -83,13 +84,13 @@ sub create_treeview_list {
my $timeout;
$list_tv->signal_connect(key_press_event => sub {
my ($_w, $event) = @_;
- my $c = chr($event->keyval & 0xff);
+ my $c = chr($event->keyval & );
Glib::Source->remove($timeout) if $timeout; $timeout = '';
if ($event->keyval >= 0x100) {
- &$may_go_to_next if member($event->keyval, (Gtk2::Gdk::Event::Key->Sym_Return, Gtk2::Gdk::Event::Key->Sym_KP_Enter));
- $starting_word = '' if !member($event->keyval, (Gtk2::Gdk::Event::Key->Sym_Control_L, Gtk2::Gdk::Event::Key->Sym_Control_R));
+ &$may_go_to_next if member($event->keyval, ($Gtk2::Gdk::Keysyms{Return}, $Gtk2::Gdk::Keysyms{KP_Enter}));
+ $starting_word = '' if !member($event->keyval, ($Gtk2::Gdk::Keysyms{Control_L}, $Gtk2::Gdk::Keysyms{Control_R}));
} else {
if (member('control-mask', @{$event->state})) {
$c eq 's' or return 1;
@@ -242,8 +243,8 @@ sub create_treeview_tree {
Glib::Source->remove($timeout) if $timeout; $timeout = '';
if ($event->keyval >= 0x100) {
- &$toggle if member($event->keyval, (0xFF0D, 0xFF8D)); # from gdk/gdkkeysyms.h
- $starting_word = '' if !member($event->keyval, (0xFFE3, 0xFFE4)); # from gdk/gdkkeysyms.h
+ &$toggle if member($event->keyval, ($Gtk2::Gdk::Keysyms{Return}, $Gtk2::Gdk::Keysyms{KP_Enter}));
+ $starting_word = '' if !member($event->keyval, ($Gtk2::Gdk::Keysyms{Control_L}, $Gtk2::Gdk::Keysyms{Control_R}));
} else {
my $next;
if (member('control-mask', @{$event->state})) {