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.12 by pcg, Tue Jun 3 04:45:43 2003 UTC vs.
Revision 1.20 by pcg, Sat May 29 06:38:27 2004 UTC

1package room; 1package room;
2 2
3use KGS::Constants; 3use KGS::Constants;
4 4
5use base KGS::Listener::Room; 5use base KGS::Listener::Room;
6use base gtk::widget; 6
7use Glib::Object::Subclass
8 Gtk2::Frame;
7 9
8sub new { 10sub new {
9 my $self = shift; 11 my ($self, %arg) = @_;
10 $self = $self->SUPER::new(@_); 12 $self = $self->Glib::Object::new;
13 $self->{$_} = delete $arg{$_} for keys %arg;
11 14
12 $self->listen($self->{conn}, qw(msg_room:));
13
14 $self->{window} = new Gtk2::Window 'toplevel';
15 $self->{window}->set_title("KGS Room $self->{name}");
16 gtk::state $self->{window}, "room::window", $self->{name}, window_size => [600, 400];
17
18 $self->{window}->signal_connect(delete_event => sub { $self->part; 1 });
19
20 $self->{window}->add($self->{hpane} = new Gtk2::HPaned);
21 $self->{hpane}->set(position_set => 1);
22 gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200;
23
24 $self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1);
25
26 $vbox->add(($self->{text} = new gtk::text)->widget);
27
28 $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);
29 $self->{entry}->signal_connect(activate => sub { 15 $self->signal_connect (destroy => sub {
30 my $text = $self->{entry}->get_text; 16 delete $::config->{rooms}{$self->{channel}};
31 $self->say($text) if $text =~ /\S/; 17 delete $self->{app}{room}{$self->{channel}};
32 $self->{entry}->set_text(""); 18 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
19 $self->unlisten;
20 %{$_[0]} = ();
33 }); 21 });
34 22
23 $self->listen ($self->{conn}, qw(msg_room:));
24
25 $self->signal_connect (delete_event => sub { $self->part; 1 });
26
27 $self->add (my $hbox = new Gtk2::HBox);
28
29 $hbox->pack_start ((my $vbox = new Gtk2::VBox), 1, 1, 0);
30
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 $hbox->pack_start ((my $vbox = new Gtk2::VBox), 0, 1, 0);
39
40 $vbox->pack_start ((my $button = new_with_label Gtk2::Button "Close"), 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
35 $self->{hpane}->pack2((my $sw = new Gtk2::ScrolledWindow), 0, 1); 46 $vbox->pack_start ((my $sw = new Gtk2::ScrolledWindow), 1, 1, 0);
36 $sw->set_policy("automatic", "always"); 47 $sw->set_policy("automatic", "always");
37 48
38 $sw->add(($self->{userlist} = new userlist)->widget); 49 $sw->add ($self->{userlist} = new userlist);
39 50
40 $self; 51 $self;
41} 52}
42 53
43sub join { 54sub FINALIZE_INSTANCE { print "FIN room\n" } # never called MEMLEAK #d#TODO#
44 my ($self) = @_;
45 $self->SUPER::join;
46
47 $self->{window}->show_all;
48}
49 55
50sub part { 56sub part {
51 my ($self) = @_; 57 my ($self) = @_;
52 $self->SUPER::part; 58 $self->SUPER::part;
53 59
54 delete $::config->{rooms}{$self->{channel}};
55 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
56 $self->{window}->hide_all; 60 $self->hide_all;
57} 61}
58 62
59sub inject_msg_room { 63sub inject_msg_room {
60 my ($self, $msg) = @_; 64 my ($self, $msg) = @_;
61 65
62 # secret typoe ;-) 66 # secret typoe ;-)
63 $self->{text}->append_text("\n<header><user>" . (util::toxml $msg->{name}) 67 $self->{chat}->append_text ("\n<header><user>" . (util::toxml $msg->{name})
64 . "</user>: </header>" . (util::toxml $msg->{message})); 68 . "</user>: </header>" . (util::toxml $msg->{message}));
65} 69}
66 70
67sub event_update_users { 71sub event_update_users {
68 my ($self, $add, $update, $remove) = @_; 72 my ($self, $add, $update, $remove) = @_;
69 73
… …
71} 75}
72 76
73sub event_update_games { 77sub event_update_games {
74 my ($self, $add, $update, $remove) = @_; 78 my ($self, $add, $update, $remove) = @_;
75 79
76 $appwin::gamelist->update ($self, $add, $update, $remove); 80 $self->{app}{gamelist}->update ($self, $add, $update, $remove);
81
82 # try to identify any new games assigned to us. stupid protocol
83 # first updates the game, joins you and THEN tells you that
84 # which of the games you asked for this is.
85
86 for (@$add) {
87 if ($_->is_playing ($self->{conn}{name})
88 and my $game = shift @{$self->{new_game}}) {
89 $game->inject_upd_game ({ game => $_ });
90 $game->set_channel ($game->{channel});
91 }
92 }
77} 93}
78 94
79sub event_join { 95sub event_join {
80 my ($self) = @_; 96 my ($self) = @_;
81 $self->SUPER::event_join; 97 $self->SUPER::event_join;
… …
85 # mysteriously enough, we have to request game updates manually 101 # mysteriously enough, we have to request game updates manually
86 $self->{gameupdate} ||= add Glib::Timeout INTERVAL_GAMEUPDATES * 1000, sub { 102 $self->{gameupdate} ||= add Glib::Timeout INTERVAL_GAMEUPDATES * 1000, sub {
87 $self->req_games; 103 $self->req_games;
88 1; 104 1;
89 }; 105 };
106
107 $self->show_all;
90} 108}
91 109
92sub event_part { 110sub event_part {
93 my ($self) = @_; 111 my ($self) = @_;
112
94 $self->SUPER::event_part; 113 $self->SUPER::event_part;
114 $self->destroy;
95} 115}
96 116
97sub event_update_roominfo { 117sub event_update_roominfo {
98 my ($self) = @_; 118 my ($self) = @_;
99 119
100 $self->{text}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n" 120 $self->{chat}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n"
101 . "<description>" . (util::toxml $self->{description}) . "</description>\n"); 121 . "<description>" . (util::toxml $self->{description}) . "</description>\n");
102} 122}
103 123
104sub destroy { 124sub new_game {
105 my ($self) = @_; 125 my ($self) = @_;
106 $self->destroy;
107 126
108 (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate}; 127 my $d = $self->{app}{defaults};
128
129 my $game = new game conn => $self->{conn}, app => $self->{app}, roomid => $self->{channel};
130 $game->{challenge}{""} = {
131 type => $d->{type},
132 flags => 0,
133 notes => $d->{stones},
134 rules => {
135 ruleset => $d->{ruleset},
136 size => $d->{size},
137 timesys => $d->{timesys},
138 time => $d->{time},
139 interval => $d->{timesys} == TIMESYS_BYO_YOMI ? $d->{byo_time} : $d->{can_time},
140 count => $d->{timesys} == TIMESYS_BYO_YOMI ? $d->{byo_periods} : $d->{can_stones},
141 },
142
143 inlay => $game->{chat}->new_inlay,
144 };
145 $game->draw_challenge ("");
146 $game->show_all;
147
148 push @{$self->{new_game}}, $game;
109} 149}
110 150
1111; 1511;
112 152

Diff Legend

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