| … | … | ||
|---|---|---|---|
| 1043 | 1043 | ||
| 1044 | my $item; $item = { | 1044 | my $item; $item = { |
| 1045 | type => "button", | 1045 | type => "button", |
| 1046 | text => " $text", | 1046 | text => " $text", |
| 1047 | value => $value, | 1047 | value => $value, |
| 1048 | render => sub { ($item->{value} ? "✔" : " ") . $text }, | 1048 | render => sub { ($item->{value} ? "* " : " ") . $text }, |
| 1049 | activate => sub { $cb->($item->{value} = !$item->{value}); }, | 1049 | activate => sub { $cb->($item->{value} = !$item->{value}); }, |
| 1050 | }; | 1050 | }; |
| 1051 | 1051 | ||
| 1052 | $self->add_item ($item); | 1052 | $self->add_item ($item); |
| 1053 | } | 1053 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |