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.1 by pcg, Sat May 31 09:46:51 2003 UTC vs.
Revision 1.32 by elmex, Tue Jun 8 17:58:48 2004 UTC

1package room; 1package room;
2
3use KGS::Constants;
2 4
3use base KGS::Listener::Room; 5use base KGS::Listener::Room;
4 6
7use Glib::Object::Subclass
8 Gtk2::Frame;
9
5sub new { 10sub new {
6 my $self = shift; 11 my ($self, %arg) = @_;
7 $self = $self->SUPER::new(@_);
8 12
9 $self->listen($self->{conn}, qw(msg_room:)); 13 $self = $self->Glib::Object::new;
14 $self->{$_} = delete $arg{$_} for keys %arg;
10 15
11 $self->{window} = new Gtk2::Window 'toplevel';
12 $self->{window}->set_title("KGS Room $self->{name}");
13 gtk::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400];
14
15 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
16
17 $self->{window}->add(my $hpane = new Gtk2::HPaned);
18 gtk::state $hpane, "room::hpane", $self->{name}, hpane_position => 200;
19
20 $hpane->add(my $vpane = new Gtk2::VPaned);
21 gtk::state $vpane, "room::vpane", $self->{name}, vpane_position => 200;
22
23 $vpane->add(my $sw = new Gtk2::ScrolledWindow);
24 $sw->set_policy("automatic", "always");
25
26 if (0) {
27 $sw->add($self->{gamelist} = new_with_titles Gtk2::ListStore "T", "Black", "White", "Rules", "Notes");
28 ::clist_autosort $self->{gamelist};
29 gtk::state $self->{gamelist}, "room::gamelist", $self->{name}, clist_column_widths => [20, 120, 120, 120];
30
31 $self->{gamelist}->signal_connect(select_row => sub { 16 $self->signal_connect (destroy => sub {
32 my $game = $self->{gamelist}->get_row_data($_[1]) 17 delete $::config->{rooms}{$self->{channel}};
33 or return; 18 delete $self->{app}{room}{$self->{channel}};
34 $self->{game}{$game->{channel}} ||= new game %$game, conn => $self->{conn}, room => $self; 19 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
35 $self->{game}{$game->{channel}}->join; 20 $self->unlisten;
36 $self->{gamelist}->unselect_all; 21 %{$_[0]} = ();
37 });
38 }
39
40 $vpane->add(my $vbox = new Gtk2::VBox);
41
42 $vbox->pack_start((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0);
43 $sw->set_policy("automatic", "always");
44
45 $sw->add($self->{text} = new Gtk2::Text);
46
47 $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);
48 $self->{entry}->signal_connect(activate => sub {
49 my $text = $self->{entry}->get_text;
50 $self->say($text) if $text =~ /\S/;
51 $self->{entry}->set_text("");
52 }); 22 });
53 23
54 $hpane->add(my $sw = new Gtk2::ScrolledWindow); 24 $self->listen ($self->{conn}, qw(msg_room:));
55 $sw->set_policy("automatic", "always");
56 25
57 $sw->add($self->{userlist} = new_with_titles Gtk2::ListStore "User", "Rank", "Flags"); 26 $self->signal_connect (delete_event => sub { $self->part; 1 });
58 ::clist_autosort $self->{userlist}; 27
59 gtk::state $self->{userlist}, "room::userlist", $self->{name}, clist_column_widths => [120, 30]; 28 $self->add (my $vbox = new Gtk2::VBox);
29
30 $vbox->pack_start((my $hbox = new Gtk2::HBox), 0, 1, 0);
31
32 $hbox->pack_start ((my $button = new_with_label Gtk2::Button "Leave"), 0, 1, 0);
33 $button->signal_connect (clicked => sub { $self->part });
34
35 $hbox->pack_start ((my $button = new_with_label Gtk2::Button "New Game"), 0, 1, 0);
36 $button->signal_connect (clicked => sub { $self->new_game });
37
38 $vbox->pack_start ((my $hpane = new Gtk2::HPaned), 1, 1, 0);
39 gtk::state $hpane, "room::hpane", undef, position => 500;
40
41 $hpane->pack1 (($self->{chat} = new chat app => $self->{app}), 1, 0);
42
43 $self->{chat}->signal_connect (command => sub {
44 my ($chat, $cmd, $arg) = @_;
45 $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, room => $self);
46 });
47
48 $hpane->pack2 ((my $sw = new Gtk2::ScrolledWindow), 1, 0);
49
50 $sw->set_policy ("automatic", "always");
51
52 $sw->add ($self->{userlist} = new userlist);
60 53
61 $self; 54 $self;
62} 55}
63 56
64sub join { 57sub FINALIZE_INSTANCE { print "FIN room\n" } # never called MEMLEAK #d#TODO#
65 my ($self) = @_;
66 $self->SUPER::join;
67
68 $self->{window}->show_all;
69}
70 58
71sub part { 59sub part {
72 my ($self) = @_; 60 my ($self) = @_;
61
62 $self->hide;
73 $self->SUPER::part; 63 $self->SUPER::part;
74
75 delete $::config->{rooms}{$self->{channel}};
76 $self->{window}->hide_all;
77} 64}
78 65
79sub inject_msg_room { 66sub inject_msg_room {
80 my ($self, $msg) = @_; 67 my ($self, $msg) = @_;
81 68
82 $self->{text}->insert(undef, undef, undef, "\n$msg->{name}: $msg->{message}"); 69 # secret typoe ;-)
70 $self->{chat}->append_text ("\n<user>" . (util::toxml $msg->{name})
71 . "</user>: " . (util::toxml $msg->{message}));
83} 72}
84 73
85sub event_update_users { 74sub event_update_users {
86 my ($self) = @_; 75 my ($self, $add, $update, $remove) = @_;
87 76
88 remove Glib::Source delete $self->{update_users} if $self->{update_users}; 77 $self->{userlist}->update ($add, $update, $remove);
89 $self->{update_users} ||= timeout_add Glib::Source 100, sub {
90 return unless $self->{joined};
91 return;
92
93 my $l = $self->{userlist};
94
95 $l->freeze;
96 my $pos = $l->get_vadjustment->get_value;
97 $l->clear;
98
99 my $row = 0;
100 for (values %{$self->{users}}) {
101 $l->append($_->{name});
102 $l->set_row_data($row++, $_);
103 }
104 $l->sort;
105 $l->get_vadjustment->set_value($pos);
106 $l->thaw;
107
108 delete $self->{update_users};
109 };
110} 78}
111 79
112sub event_update_games { 80sub event_update_games {
113 my ($self) = @_; 81 my ($self, $add, $update, $remove) = @_;
114 82
115 $self->{event_update_games} ||= Gtk2->timeout_add(200, sub { 83 $self->{app}{gamelist}->update ($self, $add, $update, $remove);
116 my $l = $self->{gamelist};
117 84
118 $l->freeze; 85 # try to identify any new games assigned to us. stupid protocol
119 my $pos = $l->get_vadjustment->get_value; 86 # first updates the game, joins you and THEN tells you that
120 $l->clear; 87 # which of the games you asked for this is.
121 88
122 my $row = 0; 89 for (@$add) {
123 for (values %{$self->{games}}) { 90 if (($_->{black}{name} eq $self->{conn}{name}
124 $l->append($_->type, $_->user0, $_->user1, $_->rules, $_->notes); 91 || $_->{white}{name} eq $self->{conn}{name}
125 $l->set_row_data($row++, $_); 92 || $_->{owner}{name} eq $self->{conn}{name})
93 && (my $game = shift @{$self->{new_game}})) {
94 $game->inject_upd_game ({ game => $_ });
95 $game->set_channel ($game->{channel});
126 } 96 }
127 $l->sort;
128 $l->get_vadjustment->set_value($pos);
129 $l->thaw;
130
131 delete $self->{event_update_games};
132 0;
133 }); 97 }
134} 98}
135 99
136sub event_join { 100sub event_join {
137 my ($self) = @_; 101 my ($self) = @_;
138 $self->SUPER::event_join; 102 $self->SUPER::event_join;
139 103
140 $::config->{rooms}{$self->{channel}} = 1; 104 $::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} };
105
106 # mysteriously enough, we have to request game updates manually
107 $self->{gameupdate} ||= add Glib::Timeout INTERVAL_GAMEUPDATES * 1000, sub {
108 $self->req_games;
109 1;
110 };
111
112 $self->show_all;
113}
114
115sub event_part {
116 my ($self) = @_;
117
118 $self->SUPER::event_part;
119 $self->destroy;
120}
121
122sub event_quit {
123 my ($self) = @_;
124
125 $self->SUPER::event_quit;
126 $self->destroy;
141} 127}
142 128
143sub event_update_roominfo { 129sub event_update_roominfo {
144 my ($self) = @_; 130 my ($self) = @_;
145 131
146 $self->{text}->insert(undef, undef, undef, "\n$self->{owner}: $self->{description}\n"); 132 $self->{chat}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n"
133 . "<description>" . (util::toxml $self->{description}) . "</description>\n");
134}
135
136sub new_game {
137 my ($self) = @_;
138
139 my $game = new game conn => $self->{conn}, app => $self->{app}, roomid => $self->{channel};
140 $game->new_game_challenge;
141 $game->show_all;
142
143 push @{$self->{new_game}}, $game;
147} 144}
148 145
1491; 1461;
150 147

Diff Legend

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