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