kgsueme/kgsueme/room.pl

package room;

use KGS::Constants;

use base KGS::Listener::Room;

use Glib::Object::Subclass
   Gtk2::Window;

sub new {
   my ($self, %arg) = @_;
   $self = $self->Glib::Object::new;
   $self->{$_} = delete $arg{$_} for keys %arg;

   $self->signal_connect (delete_event => sub { $self->part; 1 });
   $self->signal_connect (destroy => sub {
      delete $::config->{rooms}{$self->{channel}};
      delete $self->{app}{room}{$self->{channel}};
      (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
      $self->unlisten;
      %{$_[0]} = ();
   });

   $self->listen ($self->{conn}, qw(msg_room:));

   $self->set_title ("KGS Room $self->{name}");
   gtk::state $self, "room::window", $self->{name}, window_size => [600, 400];

   $self->signal_connect (delete_event => sub { $self->part; 1 });

   $self->add ($self->{hpane} = new Gtk2::HPaned);
   $self->{hpane}->set (position_set => 1);
   gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200;

   $self->{hpane}->pack1 ((my $vbox = new Gtk2::VBox), 1, 1);
   
   $vbox->add ($self->{chat} = new chat);

   $self->{chat}->signal_connect(command => sub {
      my ($chat, $cmd, $arg) = @_;
      $self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, room => $self);
   });

   $self->{hpane}->pack2 ((my $sw = new Gtk2::ScrolledWindow), 0, 1);
   $sw->set_policy("automatic", "always");

   $sw->add ($self->{userlist} = new userlist);

   $self;
}

sub FINALIZE_INSTANCE { print "FIN room\n" } # never called MEMLEAK #d#TODO#

sub part {
   my ($self) = @_;
   $self->SUPER::part;

   $self->hide_all;
}

sub inject_msg_room {
   my ($self, $msg) = @_;

   # secret typoe ;-)
   $self->{chat}->append_text("\n<header><user>" . (util::toxml $msg->{name})
                              . "</user>: </header>" . (util::toxml $msg->{message}));
}

sub event_update_users {
   my ($self, $add, $update, $remove) = @_;

   $self->{userlist}->update ($add, $update, $remove);
}

sub event_update_games {
   my ($self, $add, $update, $remove) = @_;

   $self->{app}{gamelist}->update ($self, $add, $update, $remove);
}

sub event_join {
   my ($self) = @_;
   $self->SUPER::event_join;

   $::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} };

   # mysteriously enough, we have to request game updates manually
   $self->{gameupdate} ||= add Glib::Timeout INTERVAL_GAMEUPDATES * 1000, sub {
      $self->req_games;
      1;
   };

   $self->show_all;
}

sub event_part {
   my ($self) = @_;

   $self->SUPER::event_part;
   $self->destroy;
}

sub event_update_roominfo {
   my ($self) = @_;

   $self->{chat}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n"
                              . "<description>" . (util::toxml $self->{description}) . "</description>\n");
}

1;

Revision:	1.18
Committed:	Fri May 21 15:32:02 2004 UTC (20 years, 1 month ago) by pcg
Content type:	text/plain
Branch:	MAIN
Changes since 1.17:	+7 -7 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	pcg	1.1	package room;
2
3	pcg	1.11	use KGS::Constants;
4
5	pcg	1.1	use base KGS::Listener::Room;
6	pcg	1.17
7			use Glib::Object::Subclass
8			Gtk2::Window;
9	pcg	1.1
10			sub new {
11	pcg	1.17	my ($self, %arg) = @_;
12			$self = $self->Glib::Object::new;
13			$self->{$_} = delete $arg{$_} for keys %arg;
14
15			$self->signal_connect (delete_event => sub { $self->part; 1 });
16	pcg	1.18	$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			});
23	pcg	1.1
24	pcg	1.17	$self->listen ($self->{conn}, qw(msg_room:));
25	pcg	1.1
26	pcg	1.17	$self->set_title ("KGS Room $self->{name}");
27			gtk::state $self, "room::window", $self->{name}, window_size => [600, 400];
28	pcg	1.1
29	pcg	1.17	$self->signal_connect (delete_event => sub { $self->part; 1 });
30	pcg	1.1
31	pcg	1.17	$self->add ($self->{hpane} = new Gtk2::HPaned);
32			$self->{hpane}->set (position_set => 1);
33	pcg	1.6	gtk::state $self->{hpane}, "room::hpane", $self->{name}, position => 200;
34	pcg	1.1
35	pcg	1.17	$self->{hpane}->pack1 ((my $vbox = new Gtk2::VBox), 1, 1);
36	pcg	1.1
37	pcg	1.17	$vbox->add ($self->{chat} = new chat);
38	pcg	1.1
39	pcg	1.15	$self->{chat}->signal_connect(command => sub {
40			my ($chat, $cmd, $arg) = @_;
41	pcg	1.16	$self->{app}->do_command ($chat, $cmd, $arg, userlist => $self->{userlist}, room => $self);
42	pcg	1.1	});
43
44	pcg	1.17	$self->{hpane}->pack2 ((my $sw = new Gtk2::ScrolledWindow), 0, 1);
45	pcg	1.1	$sw->set_policy("automatic", "always");
46
47	pcg	1.17	$sw->add ($self->{userlist} = new userlist);
48	pcg	1.1
49			$self;
50			}
51
52	pcg	1.17	sub FINALIZE_INSTANCE { print "FIN room\n" } # never called MEMLEAK #d#TODO#
53	pcg	1.1
54			sub part {
55			my ($self) = @_;
56			$self->SUPER::part;
57
58	pcg	1.17	$self->hide_all;
59	pcg	1.1	}
60
61			sub inject_msg_room {
62			my ($self, $msg) = @_;
63
64	pcg	1.7	# secret typoe ;-)
65	pcg	1.15	$self->{chat}->append_text("\n<header><user>" . (util::toxml $msg->{name})
66	pcg	1.10	. "</user>: </header>" . (util::toxml $msg->{message}));
67	pcg	1.1	}
68
69			sub event_update_users {
70	pcg	1.5	my ($self, $add, $update, $remove) = @_;
71	pcg	1.1
72	pcg	1.5	$self->{userlist}->update ($add, $update, $remove);
73	pcg	1.1	}
74
75			sub event_update_games {
76	pcg	1.5	my ($self, $add, $update, $remove) = @_;
77	pcg	1.1
78	pcg	1.14	$self->{app}{gamelist}->update ($self, $add, $update, $remove);
79	pcg	1.1	}
80
81			sub event_join {
82			my ($self) = @_;
83			$self->SUPER::event_join;
84
85	pcg	1.4	$::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} };
86	pcg	1.11
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	pcg	1.17
93			$self->show_all;
94	pcg	1.11	}
95
96			sub event_part {
97			my ($self) = @_;
98	pcg	1.13
99	pcg	1.11	$self->SUPER::event_part;
100	pcg	1.17	$self->destroy;
101	pcg	1.1	}
102
103			sub event_update_roominfo {
104			my ($self) = @_;
105
106	pcg	1.15	$self->{chat}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n"
107	pcg	1.10	. "<description>" . (util::toxml $self->{description}) . "</description>\n");
108	pcg	1.11	}
109
110	pcg	1.1	1;
111