| … | |
… | |
| 29 | |
29 | |
| 30 | $hbox->pack_start ((my $vbox = new Gtk2::VBox), 1, 1, 0); |
30 | $hbox->pack_start ((my $vbox = new Gtk2::VBox), 1, 1, 0); |
| 31 | |
31 | |
| 32 | $vbox->add ($self->{chat} = new chat); |
32 | $vbox->add ($self->{chat} = new chat); |
| 33 | |
33 | |
| 34 | $self->{chat}->signal_connect(command => sub { |
34 | $self->{chat}->signal_connect (command => sub { |
| 35 | my ($chat, $cmd, $arg) = @_; |
35 | my ($chat, $cmd, $arg) = @_; |
| 36 | $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, room => $self); |
36 | $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, room => $self); |
| 37 | }); |
37 | }); |
| 38 | |
38 | |
| 39 | $hbox->pack_start ((my $vbox = new Gtk2::VBox), 0, 1, 0); |
39 | $hbox->pack_start ((my $vbox = new Gtk2::VBox), 0, 1, 0); |
| … | |
… | |
| 63 | |
63 | |
| 64 | sub inject_msg_room { |
64 | sub inject_msg_room { |
| 65 | my ($self, $msg) = @_; |
65 | my ($self, $msg) = @_; |
| 66 | |
66 | |
| 67 | # secret typoe ;-) |
67 | # secret typoe ;-) |
| 68 | $self->{chat}->append_text ("\n<header><user>" . (util::toxml $msg->{name}) |
68 | $self->{chat}->append_text ("\n<leader><user>" . (util::toxml $msg->{name}) |
| 69 | . "</user>: </header>" . (util::toxml $msg->{message})); |
69 | . "</user>: </leader>" . (util::toxml $msg->{message})); |
| 70 | } |
70 | } |
| 71 | |
71 | |
| 72 | sub event_update_users { |
72 | sub event_update_users { |
| 73 | my ($self, $add, $update, $remove) = @_; |
73 | my ($self, $add, $update, $remove) = @_; |
| 74 | |
74 | |
