summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-18 20:20:27 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-18 20:20:27 +0000
commit3ed2a748cd61ac9472dde801f06cc137decfa727 (patch)
tree40cc684099f8ca7cd396b552a195f5783dde0d39 /perl-install/interactive_gtk.pm
parent12797bcdae73a20d13251efb0212ef0a565e7d60 (diff)
downloaddrakx-backup-do-not-use-3ed2a748cd61ac9472dde801f06cc137decfa727.tar
drakx-backup-do-not-use-3ed2a748cd61ac9472dde801f06cc137decfa727.tar.gz
drakx-backup-do-not-use-3ed2a748cd61ac9472dde801f06cc137decfa727.tar.bz2
drakx-backup-do-not-use-3ed2a748cd61ac9472dde801f06cc137decfa727.tar.xz
drakx-backup-do-not-use-3ed2a748cd61ac9472dde801f06cc137decfa727.zip
better radiobox keyboard handling
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm45
1 files changed, 31 insertions, 14 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 86ac0fc92..be534eaac 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -49,6 +49,12 @@ sub create_boxradio {
mapn {
my ($txt, $w) = @_;
$w->signal_connect(button_press_event => $double_click) if $double_click;
+
+ $w->signal_connect(key_press_event => sub {
+ my ($w, $event) = @_;
+ $may_go_to_next->($w, $event, 'tab');
+ 1;
+ });
$w->signal_connect(clicked => sub {
${$e->{val}} = $txt;
&$changed;
@@ -63,7 +69,7 @@ sub create_boxradio {
$boxradio, sub {
my ($v) = @_;
mapn { $_[0]->set_active($_[1] eq $v) } \@radios, $e->{list};
- }
+ }, $radios[0];
}
sub create_clist {
@@ -344,19 +350,30 @@ sub ask_fromW {
my ($e, $ind) = @_;
my $may_go_to_next = sub {
- my ($w, $event) = @_;
- if (!$event || ($event->{keyval} & 0x7f) == 0xd) {
- $w->signal_emit_stop("key_press_event") if $event;
- if ($ind == $#widgets) {
- @widgets == 1 ? $mainw->{ok}->clicked : $mainw->{ok}->grab_focus;
- } else {
- $widgets[$ind+1]{w}->grab_focus;
+ my ($w, $event, $kind) = @_;
+ if ($kind eq 'tab') {
+ if (($event->{keyval} & 0x7f) == 0x9) {
+ $w->signal_emit_stop("key_press_event");
+ if ($ind == $#widgets) {
+ $mainw->{ok}->grab_focus;
+ } else {
+ $widgets[$ind+1]{focus_w}->grab_focus;
+ }
+ }
+ } else {
+ if (!$event || ($event->{keyval} & 0x7f) == 0xd) {
+ $w->signal_emit_stop("key_press_event") if $event;
+ if ($ind == $#widgets) {
+ @widgets == 1 ? $mainw->{ok}->clicked : $mainw->{ok}->grab_focus;
+ } else {
+ $widgets[$ind+1]{focus_w}->grab_focus;
+ }
}
}
};
my $changed = sub { $update->(sub { $common->{callbacks}{changed}($ind) }) };
- my ($w, $real_w, $set, $get, $expand, $size, $width);
+ my ($w, $real_w, $focus_w, $set, $get, $expand, $size, $width);
if ($e->{type} eq 'iconlist') {
$w = new Gtk::Button;
$set = sub {
@@ -414,11 +431,11 @@ sub ask_fromW {
if ($e->{help}) {
#- used only when needed, as key bindings are dropped by List (CList does not seems to accepts Tooltips).
- ($w, $set) = $use_boxradio ? create_boxradio(@para) : create_list(@para);
+ ($w, $set, $focus_w) = $use_boxradio ? create_boxradio(@para) : create_list(@para);
} elsif ($e->{type} eq 'treelist') {
($w, $set, $size) = create_ctree(@para);
} else {
- ($w, $set) = $use_boxradio ? create_boxradio(@para) : create_clist(@para);
+ ($w, $set, $focus_w) = $use_boxradio ? create_boxradio(@para) : create_clist(@para);
}
if (@{$e->{list}} > (@$l == 1 ? 10 : 4)) {
$has_scroll = 1;
@@ -453,7 +470,7 @@ sub ask_fromW {
$max_width = max($max_width, $width);
$total_size += $size || 1;
- { e => $e, w => $w, real_w => $real_w || $w, expand => $expand,
+ { e => $e, w => $w, real_w => $real_w || $w, focus_w => $focus_w || $w, expand => $expand,
get => $get || sub { ${$e->{val}} }, set => $set || sub {},
icon_w => -e $e->{icon} ? gtkpng($e->{icon}) : '' };
};
@@ -503,7 +520,7 @@ sub ask_fromW {
$mainw->{rwindow}->set_default_size($mainw->{box_width}, $mainw->{box_height});
}
$set_advanced->(0);
- (@widgets ? $widgets[0]{w} : $common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus();
+ (@widgets ? $widgets[0]{focus_w} : $common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus();
my $check = sub {
my ($f) = @_;
@@ -513,7 +530,7 @@ sub ask_fromW {
if ($error) {
$set_all->();
- $widgets[$focus || 0]{w}->grab_focus();
+ $widgets[$focus || 0]{focus_w}->grab_focus();
}
!$error;
}