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.17 by pcg, Thu May 20 22:59:55 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 (destroy => sub { %{$_[0]} = () });
16 $self->signal_connect (delete_event => sub { $self->part; 1 });
11 17
12 $self->{window} = new Gtk2::Window 'toplevel'; 18 $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 19
16 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 }); 20 $self->set_title ("KGS Room $self->{name}");
21 gtk::state $self, "room::window", $self->{name}, window_size => [600, 400];
17 22
23 $self->signal_connect (delete_event => sub { $self->part; 1 });
24
18 $self->{window}->add($self->{hpane} = new Gtk2::HPaned); 25 $self->add ($self->{hpane} = new Gtk2::HPaned);
19 $self->{hpane}->set(position_set => 1); 26 $self->{hpane}->set (position_set => 1);
20 gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200; 27 gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200;
21 28
22 $self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1); 29 $self->{hpane}->pack1 ((my $vbox = new Gtk2::VBox), 1, 1);
23 30
24 $vbox->add(my $sw = new Gtk2::ScrolledWindow); 31 $vbox->add ($self->{chat} = new chat);
32
33 $self->{chat}->signal_connect(command => sub {
34 my ($chat, $cmd, $arg) = @_;
35 $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, room => $self);
36 });
37
38 $self->{hpane}->pack2 ((my $sw = new Gtk2::ScrolledWindow), 0, 1);
25 $sw->set_policy("automatic", "always"); 39 $sw->set_policy("automatic", "always");
26 40
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); 41 $sw->add ($self->{userlist} = new userlist);
40 42
41 $self; 43 $self;
42} 44}
43 45
44sub join { 46sub 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 47
51sub part { 48sub part {
52 my ($self) = @_; 49 my ($self) = @_;
53 $self->SUPER::part; 50 $self->SUPER::part;
54 51
55 delete $::config->{rooms}{$self->{channel}};
56 $self->{window}->hide_all; 52 $self->hide_all;
57} 53}
58 54
59sub inject_msg_room { 55sub inject_msg_room {
60 my ($self, $msg) = @_; 56 my ($self, $msg) = @_;
61 57
62 # secret typoe ;-) 58 # secret typoe ;-)
63 $self->{text}->append_text("\n<user>$msg->{name}</user><marker>:</marker> $msg->{message}"); 59 $self->{chat}->append_text("\n<header><user>" . (util::toxml $msg->{name})
60 . "</user>: </header>" . (util::toxml $msg->{message}));
64} 61}
65 62
66sub event_update_users { 63sub event_update_users {
67 my ($self, $add, $update, $remove) = @_; 64 my ($self, $add, $update, $remove) = @_;
68 65
… …
70} 67}
71 68
72sub event_update_games { 69sub event_update_games {
73 my ($self, $add, $update, $remove) = @_; 70 my ($self, $add, $update, $remove) = @_;
74 71
75 $appwin::gamelist->update ($self, $add, $update, $remove); 72 $self->{app}{gamelist}->update ($self, $add, $update, $remove);
76} 73}
77 74
78sub event_join { 75sub event_join {
79 my ($self) = @_; 76 my ($self) = @_;
80 $self->SUPER::event_join; 77 $self->SUPER::event_join;
81 78
82 $::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} }; 79 $::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} };
80
81 # mysteriously enough, we have to request game updates manually
82 $self->{gameupdate} ||= add Glib::Timeout INTERVAL_GAMEUPDATES * 1000, sub {
83 $self->req_games;
84 1;
85 };
86
87 $self->show_all;
88}
89
90sub event_part {
91 my ($self) = @_;
92
93 delete $::config->{rooms}{$self->{channel}};
94 delete $self->{app}{room}{$self->{channel}};
95 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
96 $self->unlisten;
97
98 $self->SUPER::event_part;
99
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