| … | |
… | |
| 29 | $self->usergraph if $page == 3; |
29 | $self->usergraph if $page == 3; |
| 30 | }); |
30 | }); |
| 31 | |
31 | |
| 32 | $self->{window}->add ($notebook); |
32 | $self->{window}->add ($notebook); |
| 33 | |
33 | |
|
|
34 | $self->{chat} = new chat; |
|
|
35 | $self->{chat}->signal_connect(command => sub { |
|
|
36 | my ($chat, $cmd, $arg) = @_; |
|
|
37 | $self->{app}->do_command ($chat, $cmd, $arg, user => $self); |
|
|
38 | }); |
|
|
39 | |
| 34 | $notebook->append_page (($self->{chat} = new chat), (new_with_mnemonic Gtk2::Label "_Chat")); |
40 | $notebook->append_page ($self->{chat}, (new_with_mnemonic Gtk2::Label "_Chat")); |
|
|
41 | |
| 35 | |
42 | |
| 36 | $self->{page_userinfo} = new Gtk2::Table 3, 5, 0; |
43 | $self->{page_userinfo} = new Gtk2::Table 3, 5, 0; |
| 37 | |
|
|
| 38 | $notebook->append_page ($self->{page_userinfo}, (new_with_mnemonic Gtk2::Label "_Info")); |
44 | $notebook->append_page ($self->{page_userinfo}, (new_with_mnemonic Gtk2::Label "_Info")); |
| 39 | |
45 | |
|
|
46 | |
| 40 | $self->{page_record} = new Gtk2::VBox; |
47 | $self->{page_record} = new Gtk2::VBox; |
| 41 | |
|
|
| 42 | $notebook->append_page ($self->{page_record}, (new_with_mnemonic Gtk2::Label "_Record")); |
48 | $notebook->append_page ($self->{page_record}, (new_with_mnemonic Gtk2::Label "_Record")); |
| 43 | |
49 | |
|
|
50 | |
| 44 | $self->{page_graph} = new Gtk2::Curve; |
51 | $self->{page_graph} = new Gtk2::Curve; |
|
|
52 | $notebook->append_page ($self->{page_graph}, (new_with_mnemonic Gtk2::Label "_Graph")); |
| 45 | |
53 | |
| 46 | $notebook->append_page ($self->{page_graph}, (new_with_mnemonic Gtk2::Label "_Graph")); |
|
|
| 47 | |
54 | |
| 48 | $self; |
55 | $self; |
| 49 | } |
56 | } |
| 50 | |
57 | |
| 51 | sub join { |
58 | sub join { |
| … | |
… | |
| 99 | $curve->set_vector (@$graph); |
106 | $curve->set_vector (@$graph); |
| 100 | } |
107 | } |
| 101 | } |
108 | } |
| 102 | |
109 | |
| 103 | sub event_msg { |
110 | sub event_msg { |
| 104 | my ($self) = @_; |
111 | my ($self, $name, $message) = @_; |
|
|
112 | |
|
|
113 | $self->{chat}->append_text ("\n<user>$name</user>: $message"); |
|
|
114 | warn "MSG($name => $message)\n";#d# |
| 105 | } |
115 | } |
| 106 | |
116 | |
| 107 | sub destroy { |
117 | sub destroy { |
| 108 | my ($self) = @_; |
118 | my ($self) = @_; |
| 109 | |
119 | |
