ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/room.pl
(Generate patch)

Comparing kgsueme/kgsueme/room.pl (file contents):
Revision 1.5 by pcg, Sun Jun 1 04:52:16 2003 UTC vs.
Revision 1.12 by pcg, Tue Jun 3 04:45:43 2003 UTC

1package room; 1package room;
2
3use KGS::Constants;
2 4
3use base KGS::Listener::Room; 5use base KGS::Listener::Room;
4use base gtk::widget; 6use base gtk::widget;
5 7
6sub new { 8sub new {
… …
13 $self->{window}->set_title("KGS Room $self->{name}"); 15 $self->{window}->set_title("KGS Room $self->{name}");
14 gtk::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400]; 16 gtk::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400];
15 17
16 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 }); 18 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
17 19
18 $self->{window}->add(my $hpane = new Gtk2::HPaned); 20 $self->{window}->add($self->{hpane} = new Gtk2::HPaned);
19 $hpane->set(position_set => 1); 21 $self->{hpane}->set(position_set => 1);
20 gtk::state $hpane, "room::hpane", $self->{name}, position => 200; 22 gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200;
21 23
22 $hpane->pack1((my $vbox = new Gtk2::VBox), 1, 1); 24 $self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1);
23 25
24 $vbox->add(my $sw = new Gtk2::ScrolledWindow);
25 $sw->set_policy("automatic", "always");
26
27 $sw->add(($self->{text} = new gtk::text)->widget); 26 $vbox->add(($self->{text} = new gtk::text)->widget);
28 27
29 $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0); 28 $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);
30 $self->{entry}->signal_connect(activate => sub { 29 $self->{entry}->signal_connect(activate => sub {
31 my $text = $self->{entry}->get_text; 30 my $text = $self->{entry}->get_text;
32 $self->say($text) if $text =~ /\S/; 31 $self->say($text) if $text =~ /\S/;
33 $self->{entry}->set_text(""); 32 $self->{entry}->set_text("");
34 }); 33 });
35 34
36 $hpane->pack2((my $sw = new Gtk2::ScrolledWindow), 0, 1); 35 $self->{hpane}->pack2((my $sw = new Gtk2::ScrolledWindow), 0, 1);
37 $sw->set_policy("automatic", "always"); 36 $sw->set_policy("automatic", "always");
38 37
39 $sw->add(($self->{userlist} = new userlist)->widget); 38 $sw->add(($self->{userlist} = new userlist)->widget);
40 39
41 $self; 40 $self;
… …
51sub part { 50sub part {
52 my ($self) = @_; 51 my ($self) = @_;
53 $self->SUPER::part; 52 $self->SUPER::part;
54 53
55 delete $::config->{rooms}{$self->{channel}}; 54 delete $::config->{rooms}{$self->{channel}};
55 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
56 $self->{window}->hide_all; 56 $self->{window}->hide_all;
57} 57}
58 58
59sub inject_msg_room { 59sub inject_msg_room {
60 my ($self, $msg) = @_; 60 my ($self, $msg) = @_;
61 61
62 $self->{text}->append_text("\n$msg->{name}: $msg->{message}"); 62 # secret typoe ;-)
63 $self->{text}->append_text("\n<header><user>" . (util::toxml $msg->{name})
64 . "</user>: </header>" . (util::toxml $msg->{message}));
63} 65}
64 66
65sub event_update_users { 67sub event_update_users {
66 my ($self, $add, $update, $remove) = @_; 68 my ($self, $add, $update, $remove) = @_;
67 69
… …
77sub event_join { 79sub event_join {
78 my ($self) = @_; 80 my ($self) = @_;
79 $self->SUPER::event_join; 81 $self->SUPER::event_join;
80 82
81 $::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} }; 83 $::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} };
84
85 # mysteriously enough, we have to request game updates manually
86 $self->{gameupdate} ||= add Glib::Timeout INTERVAL_GAMEUPDATES * 1000, sub {
87 $self->req_games;
88 1;
89 };
90}
91
92sub event_part {
93 my ($self) = @_;
94 $self->SUPER::event_part;
82} 95}
83 96
84sub event_update_roominfo { 97sub event_update_roominfo {
85 my ($self) = @_; 98 my ($self) = @_;
86 99
87 $self->{text}->append_text("\n$self->{owner}: $self->{description}\n"); 100 $self->{text}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n"
101 . "<description>" . (util::toxml $self->{description}) . "</description>\n");
102}
103
104sub destroy {
105 my ($self) = @_;
106 $self->destroy;
107
108 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
88} 109}
89 110
901; 1111;
91 112

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines