summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-29 07:12:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-29 07:12:13 +0000
commitcffd96b9cc633ab5f18a39deb28f4a6a4284544d (patch)
treecb85c7f7e35f971cebc8fecd85c378c22d00d934 /perl-install/interactive
parente36accfd848a1e98cb07eb599611e3e36f28de6a (diff)
downloaddrakx-backup-do-not-use-cffd96b9cc633ab5f18a39deb28f4a6a4284544d.tar
drakx-backup-do-not-use-cffd96b9cc633ab5f18a39deb28f4a6a4284544d.tar.gz
drakx-backup-do-not-use-cffd96b9cc633ab5f18a39deb28f4a6a4284544d.tar.bz2
drakx-backup-do-not-use-cffd96b9cc633ab5f18a39deb28f4a6a4284544d.tar.xz
drakx-backup-do-not-use-cffd96b9cc633ab5f18a39deb28f4a6a4284544d.zip
- disable the new gtk smart search which display an entry box
- fix return value of key_press_event for some cases (otherwise arrow keys do not work)
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index d1dae1559..871541697 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -81,6 +81,7 @@ sub create_treeview_list {
my ($starting_word, $start_reg) = ('', '^');
my $timeout;
+ $list_tv->set_enable_search(0);
$list_tv->signal_connect(key_press_event => sub {
my ($_w, $event) = @_;
my $c = chr($event->keyval & 0xff);
@@ -234,11 +235,12 @@ sub create_treeview_tree {
}
};
+ $tree->set_enable_search(0);
$tree->signal_connect(key_press_event => sub {
my ($_w, $event) = @_;
$selected_via_click = 0;
my $c = chr($event->keyval & 0xff);
- $curr or return;
+ $curr or return 0;
Glib::Source->remove($timeout) if $timeout; $timeout = '';
if ($event->keyval >= 0x100) {
@@ -248,7 +250,7 @@ sub create_treeview_tree {
my $next;
if (member('control-mask', @{$event->state})) {
$c eq "s" or return 1;
- $start_reg and $start_reg = '', return 1;
+ $start_reg and $start_reg = '', return 0;
$next = 1;
} else {
&$toggle if $c eq ' ';