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.9 by pcg, Sun Jun 1 15:43:58 2003 UTC vs.
Revision 1.18 by pcg, Fri May 21 15:32:02 2004 UTC

1package room; 1package room;
2 2
3use KGS::Constants;
4
3use base KGS::Listener::Room; 5use base KGS::Listener::Room;
4use base gtk::widget; 6
7use Glib::Object::Subclass
8 Gtk2::Window;
5 9
6sub new { 10sub new {
7 my $self = shift; 11 my ($self, %arg) = @_;
8 $self = $self->SUPER::new(@_); 12 $self = $self->Glib::Object::new;
13 $self->{$_} = delete $arg{$_} for keys %arg;
9 14
10 $self->listen($self->{conn}, qw(msg_room:)); 15 $self->signal_connect (delete_event => sub { $self->part; 1 });
16 $self->signal_connect (destroy => sub {
17 delete $::config->{rooms}{$self->{channel}};
18 delete $self->{app}{room}{$self->{channel}};
19 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
20 $self->unlisten;
21 %{$_[0]} = ();
22 });
11 23
12 $self->{window} = new Gtk2::Window 'toplevel'; 24 $self->listen ($self->{conn}, qw(msg_room:));
13 $self->{window}->set_title("KGS Room $self->{name}");
14 gtk::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400];
15 25
16 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 }); 26 $self->set_title ("KGS Room $self->{name}");
27 gtk::state $self, "room::window", $self->{name}, window_size => [600, 400];
17 28
29 $self->signal_connect (delete_event => sub { $self->part; 1 });
30
18 $self->{window}->add($self->{hpane} = new Gtk2::HPaned); 31 $self->add ($self->{hpane} = new Gtk2::HPaned);
19 $self->{hpane}->set(position_set => 1); 32 $self->{hpane}->set (position_set => 1);
20 gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200; 33 gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200;
21 34
22 $self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1); 35 $self->{hpane}->pack1 ((my $vbox = new Gtk2::VBox), 1, 1);
23 36
24 $vbox->add(my $sw = new Gtk2::ScrolledWindow); 37 $vbox->add ($self->{chat} = new chat);
38
39 $self->{chat}->signal_connect(command => sub {
40 my ($chat, $cmd, $arg) = @_;
41 $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, room => $self);
42 });
43
44 $self->{hpane}->pack2 ((my $sw = new Gtk2::ScrolledWindow), 0, 1);
25 $sw->set_policy("automatic", "always"); 45 $sw->set_policy("automatic", "always");
26 46
27 $sw->add(($self->{text} = new gtk::text)->widget);
28
29 $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);
30 $self->{entry}->signal_connect(activate => sub {
31 my $text = $self->{entry}->get_text;
32 $self->say($text) if $text =~ /\S/;
33 $self->{entry}->set_text("");
34 });
35
36 $self->{hpane}->pack2((my $sw = new Gtk2::ScrolledWindow), 0, 1);
37 $sw->set_policy("automatic", "always");
38
39 $sw->add(($self->{userlist} = new userlist)->widget); 47 $sw->add ($self->{userlist} = new userlist);
40 48
41 $self; 49 $self;
42} 50}
43 51
44sub join { 52sub FINALIZE_INSTANCE { print "FIN room\n" } # never called MEMLEAK #d#TODO#
45 my ($self) = @_;
46 $self->SUPER::join;
47
48 $self->{window}->show_all;
49}
50 53
51sub part { 54sub part {
52 my ($self) = @_; 55 my ($self) = @_;
53 $self->SUPER::part; 56 $self->SUPER::part;
54 57
55 delete $::config->{rooms}{$self->{channel}};
56 $self->{window}->hide_all; 58 $self->hide_all;
57} 59}
58 60
59sub inject_msg_room { 61sub inject_msg_room {
60 my ($self, $msg) = @_; 62 my ($self, $msg) = @_;
61 63
62 # secret typoe ;-) 64 # secret typoe ;-)
63 $self->{text}->append_text("\n<user>$msg->{name}</user><marker>:</marker> $msg->{message}"); 65 $self->{chat}->append_text("\n<header><user>" . (util::toxml $msg->{name})
66 . "</user>: </header>" . (util::toxml $msg->{message}));
64} 67}
65 68
66sub event_update_users { 69sub event_update_users {
67 my ($self, $add, $update, $remove) = @_; 70 my ($self, $add, $update, $remove) = @_;
68 71
… …
70} 73}
71 74
72sub event_update_games { 75sub event_update_games {
73 my ($self, $add, $update, $remove) = @_; 76 my ($self, $add, $update, $remove) = @_;
74 77
75 $appwin::gamelist->update ($self, $add, $update, $remove); 78 $self->{app}{gamelist}->update ($self, $add, $update, $remove);
76} 79}
77 80
78sub event_join { 81sub event_join {
79 my ($self) = @_; 82 my ($self) = @_;
80 $self->SUPER::event_join; 83 $self->SUPER::event_join;
81 84
82 $::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} }; 85 $::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} };
86
87 # mysteriously enough, we have to request game updates manually
88 $self->{gameupdate} ||= add Glib::Timeout INTERVAL_GAMEUPDATES * 1000, sub {
89 $self->req_games;
90 1;
91 };
92
93 $self->show_all;
94}
95
96sub event_part {
97 my ($self) = @_;
98
99 $self->SUPER::event_part;
100 $self->destroy;
83} 101}
84 102
85sub event_update_roominfo { 103sub event_update_roominfo {
86 my ($self) = @_; 104 my ($self) = @_;
87 105
88 $self->{text}->append_text("\n<owner>$self->{owner}</owner>\n<description>$self->{description}</description>\n"); 106 $self->{chat}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n"
107 . "<description>" . (util::toxml $self->{description}) . "</description>\n");
89} 108}
90 109
911; 1101;
92 111

Diff Legend

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