diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-10 13:52:36 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-10 13:52:36 +0000 |
commit | 41cdef71c22e93b3b0f52400182271946987af15 (patch) | |
tree | e065d0a204d2eae5ca456ba489a2379b6951817e /perl-install/interactive/gtk.pm | |
parent | 250dcb61b6210e1a20dcec6be089f98e9d257610 (diff) | |
download | drakx-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.pm | 11 |
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})) { |