… | |
… | |
46 | |
46 | |
47 | my $chatviews = $self->{chatviews}; |
47 | my $chatviews = $self->{chatviews}; |
48 | my $chaninfo = $self->{channel_info}->{$id}; |
48 | my $chaninfo = $self->{channel_info}->{$id}; |
49 | my $nb = $self->{nb}; |
49 | my $nb = $self->{nb}; |
50 | |
50 | |
51 | my $cv = $chatviews->{$id} = CFPlus::UI::ChatView->new (expand => 1, say_command => $chaninfo->{reply}); |
51 | my $cv = $chatviews->{$id} = |
52 | my $bb = CFPlus::UI::ButtonBin->new; |
52 | CFPlus::UI::ChatView->new ( |
|
|
53 | expand => 1, |
|
|
54 | say_command => $chaninfo->{reply}, |
|
|
55 | entry_tooltip => $chaninfo->{tooltip}, |
|
|
56 | text_tooltip => "Conversation with $chaninfo->{title}" |
|
|
57 | ); |
|
|
58 | |
|
|
59 | my $bb = CFPlus::UI::ButtonBin->new (tooltip => $chaninfo->{tooltip}); |
53 | $cv->{c_tab} = $bb; |
60 | $cv->{c_tab} = $bb; |
54 | |
61 | |
55 | $bb->add (my $vb = CFPlus::UI::Box->new); |
62 | $bb->add (my $vb = CFPlus::UI::Box->new); |
56 | $bb->connect (activate => sub { $self->unhighlight_channel ($id); 0 }); |
63 | $bb->connect (activate => sub { $self->unhighlight_channel ($id); 0 }); |
57 | $vb->add ( |
64 | $vb->add ( |
… | |
… | |
114 | $tab->set_markup ($self->{channel_info}->{$id}->{title}); |
121 | $tab->set_markup ($self->{channel_info}->{$id}->{title}); |
115 | } |
122 | } |
116 | |
123 | |
117 | sub add_channel { |
124 | sub add_channel { |
118 | my ($self, $info) = @_; |
125 | my ($self, $info) = @_; |
|
|
126 | require Data::Dumper; |
|
|
127 | print "DUMPER:" . Data::Dumper->Dump ([$info]) . "\n"; |
119 | $self->{channel_info}->{$info->{id}} = $info; |
128 | $self->{channel_info}->{$info->{id}} = $info; |
120 | $self->touch_channel ($info->{id}); |
129 | $self->touch_channel ($info->{id}); |
121 | } |
|
|
122 | |
|
|
123 | sub clear_channels { |
|
|
124 | my ($self) = @_; |
|
|
125 | # remove channel tabs here |
|
|
126 | $self->{channel_info} = {}; |
|
|
127 | } |
130 | } |
128 | |
131 | |
129 | sub message { |
132 | sub message { |
130 | my ($self, $para) = @_; |
133 | my ($self, $para) = @_; |
131 | my $id = $para->{type}; |
134 | my $id = $para->{type}; |