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

Diff Legend

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