| … | |
… | |
| 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=\"#fff\">$_[0]</span>" } |
14 | sub clr_def($) { "<span foreground=\"#ffffff\">$_[0]</span>" } |
| 15 | sub clr_act($) { "<span foreground=\"#fff\">$_[0]</span>" } |
15 | sub clr_act($) { "<span foreground=\"#ffffff\">$_[0]</span>" } |
| 16 | sub clr_hlt($) { "<span foreground=\"#aaf\">$_[0]</span>" } |
16 | sub clr_hlt($) { "<span foreground=\"#aaaaff\">$_[0]</span>" } |
| 17 | sub clr_hlt2($) { "<span foreground=\"#f00\">$_[0]</span>" } |
17 | sub clr_hlt2($) { "<span foreground=\"#ff0000\">$_[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 ( |
| … | |
… | |
| 42 | $self->update_tabs; |
42 | $self->update_tabs; |
| 43 | }); |
43 | }); |
| 44 | |
44 | |
| 45 | my $l = $self->{main_log} = |
45 | my $l = $self->{main_log} = |
| 46 | CFPlus::UI::ChatView->new (expand => 1, say_command => ''); |
46 | CFPlus::UI::ChatView->new (expand => 1, say_command => ''); |
|
|
47 | |
| 47 | $l->{_tab_label} = |
48 | $l->{_tab_label} = |
| 48 | $l->{c_tab} = |
49 | $l->{c_tab} = |
| 49 | CFPlus::UI::Button->new ( |
50 | CFPlus::UI::Button->new ( |
| 50 | markup => "Log", tooltip => "This is the main log of the server." |
51 | markup => "Log", tooltip => "This is the main log of the server." |
| 51 | ); |
52 | ); |
| … | |
… | |
| 85 | $cv->{_tab_label} = $b; |
86 | $cv->{_tab_label} = $b; |
| 86 | weaken $cv->{_tab_label}; |
87 | weaken $cv->{_tab_label}; |
| 87 | |
88 | |
| 88 | $vb->add ( |
89 | $vb->add ( |
| 89 | my $b = CFPlus::UI::ImageButton->new ( |
90 | my $b = CFPlus::UI::ImageButton->new ( |
| 90 | path => 'x1_close.png', |
91 | path => 'x1_close.png', |
| 91 | scale => 0.3 |
92 | scale => 0.3, |
| 92 | ) |
93 | ) |
| 93 | ); |
94 | ); |
| 94 | $b->connect (activate => sub { |
95 | $b->connect (activate => sub { |
| 95 | my $b = shift; |
96 | my $b = shift; |
| 96 | |
97 | |
