diff options
author | Daouda Lo <daouda@mandriva.com> | 2003-07-04 13:06:38 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2003-07-04 13:06:38 +0000 |
commit | 4c17f52d4613bea9d292ccbfb40d47fb79ae01a0 (patch) | |
tree | 276a796f8dc31f9a23a122d01c3f1f5ecbbbab90 /userdrake | |
parent | 3ceeaf1a6db7c288117f3d6d4262a3f052c6dd78 (diff) | |
download | userdrake-4c17f52d4613bea9d292ccbfb40d47fb79ae01a0.tar userdrake-4c17f52d4613bea9d292ccbfb40d47fb79ae01a0.tar.gz userdrake-4c17f52d4613bea9d292ccbfb40d47fb79ae01a0.tar.bz2 userdrake-4c17f52d4613bea9d292ccbfb40d47fb79ae01a0.tar.xz userdrake-4c17f52d4613bea9d292ccbfb40d47fb79ae01a0.zip |
- keyval feature added
Diffstat (limited to 'userdrake')
-rwxr-xr-x | userdrake | 23 |
1 files changed, 22 insertions, 1 deletions
@@ -776,10 +776,31 @@ sub Edit { } $iter->free; } - } + } $path->free; } }); + $tree->signal_connect( key_press_event => sub { + my $c = chr($_[1]->keyval & 0xff); + if ($_[1]->keyval >= 0x100 ? $c eq "\r" || $c eq "\x8d" : $c eq ' ') { + my (undef, $iter) = $tree->get_selection->get_selected; + return unless $iter; + my $cp = $model->get($iter, 2); + my $item = $model->get($iter, 1); + $model->set($iter, [0 => gtkcreate_pixbuf($pix[$cp])]); + $model->set($iter, [2 => !$cp]); + if ($p <= 0) { + if (!$cp) { + !InArray($item, \@primgroup) and push(@primgroup, $item) + } else { + InArray($item, \@primgroup) and @primgroup = RemoveFromArray($item, \@primgroup) + } + $us->{o}->{primgroup}->set_popdown_strings(@primgroup); + } + $iter->free; + } + 0; + }); $w->main } sub ValidInt { |