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.10 by pcg, Sun Jun 1 16:51:38 2003 UTC vs.
Revision 1.11 by pcg, Mon Jun 2 12:39:20 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) = @_;
… …
79sub event_join { 79sub event_join {
80 my ($self) = @_; 80 my ($self) = @_;
81 $self->SUPER::event_join; 81 $self->SUPER::event_join;
82 82
83 $::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;
84} 95}
85 96
86sub event_update_roominfo { 97sub event_update_roominfo {
87 my ($self) = @_; 98 my ($self) = @_;
88 99
89 $self->{text}->append_text("\n<owner>" . (util::toxml $self->{owner}) . "</owner>\n" 100 $self->{text}->append_text("\n<owner>" . (util::toxml $self->{owner}) . "</owner>\n"
90 . "<description>" . (util::toxml $self->{description}) . "</description>\n"); 101 . "<description>" . (util::toxml $self->{description}) . "</description>\n");
91} 102}
92 103
104sub destroy {
105 my ($self) = @_;
106 $self->destroy;
107
108 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
109}
110
931; 1111;
94 112

Diff Legend

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