… | |
… | |
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 ( |