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.7 by pcg, Sun Jun 1 11:02:41 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 {
… …
19 $self->{hpane}->set(position_set => 1); 21 $self->{hpane}->set(position_set => 1);
20 gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200; 22 gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200;
21 23
22 $self->{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/;
… …
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 # secret typoe ;-) 62 # secret typoe ;-)
63 $self->{text}->append_text("\n<user>$self->{name}</user><marker>:</marker> $self->{message}\n"); 63 $self->{text}->append_text("\n<header><user>" . (util::toxml $msg->{name})
64 . "</user>: </header>" . (util::toxml $msg->{message}));
64} 65}
65 66
66sub event_update_users { 67sub event_update_users {
67 my ($self, $add, $update, $remove) = @_; 68 my ($self, $add, $update, $remove) = @_;
68 69
… …
78sub event_join { 79sub event_join {
79 my ($self) = @_; 80 my ($self) = @_;
80 $self->SUPER::event_join; 81 $self->SUPER::event_join;
81 82
82 $::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;
83} 95}
84 96
85sub event_update_roominfo { 97sub event_update_roominfo {
86 my ($self) = @_; 98 my ($self) = @_;
87 99
88 $self->{text}->append_text("\n<owner>$self->{owner}</owner>\n<description>$self->{description}</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};
89} 109}
90 110
911; 1111;
92 112

Diff Legend

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