diff options
-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 { |