| … | |
… | |
| 9 | |
9 | |
| 10 | our @ISA = CFPlus::UI::Toplevel::; |
10 | our @ISA = CFPlus::UI::Toplevel::; |
| 11 | |
11 | |
| 12 | our %channel_info; |
12 | our %channel_info; |
| 13 | |
13 | |
| 14 | sub clr_def($) { "<span foreground=\"#777777\">$_[0]</span>" } |
14 | sub clr_def($) { "<span foreground=\"#fff\">$_[0]</span>" } |
| 15 | sub clr_act($) { "<span foreground=\"#ffffff\">$_[0]</span>" } |
15 | sub clr_act($) { "<span foreground=\"#fff\">$_[0]</span>" } |
| 16 | sub clr_hlt($) { "<span foreground=\"#aaaaff\">$_[0]</span>" } |
16 | sub clr_hlt($) { "<span foreground=\"#aaf\">$_[0]</span>" } |
| 17 | sub clr_hlt2($) { "<span foreground=\"#ff0000\">$_[0]</span>" } |
17 | sub clr_hlt2($) { "<span foreground=\"#f00\">$_[0]</span>" } |
| 18 | |
18 | |
| 19 | sub new { |
19 | sub new { |
| 20 | my $class = shift; |
20 | my $class = shift; |
| 21 | |
21 | |
| 22 | my $self = $class->SUPER::new ( |
22 | my $self = $class->SUPER::new ( |
