| … | … | ||
|---|---|---|---|
| 654 | $class->SUPER::new ( | 654 | $class->SUPER::new ( |
| 655 | #bg => [0, 0, 0, 0.2], | 655 | #bg => [0, 0, 0, 0.2], |
| 656 | #active_bg => [1, 1, 1, 0.5], | 656 | #active_bg => [1, 1, 1, 0.5], |
| 657 | @_ | 657 | @_ |
| 658 | ) | 658 | ) |
| 659 | } | ||
| 660 | |||
| 661 | sub set_bg { | ||
| 662 | my ($self, $bg) = @_; | ||
| 663 | |||
| 664 | $self->{bg} = $bg; | ||
| 665 | $self->update; | ||
| 659 | } | 666 | } |
| 660 | 667 | ||
| 661 | sub _draw { | 668 | sub _draw { |
| 662 | my ($self) = @_; | 669 | my ($self) = @_; |
| 663 | 670 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |