kgsueme/kgsueme/room.pl

package room;

use KGS::Constants;

use base KGS::Listener::Room;
use base gtk::widget;

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

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

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

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

   $self->{window}->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->{text} = new gtk::text)->widget);

   $vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);
   $self->{entry}->signal_connect(activate => sub {
      my $text = $self->{entry}->get_text;
      $self->say($text) if $text =~ /\S/;
      $self->{entry}->set_text("");
   });

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

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

   $self;
}

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

   $self->{window}->show_all;
}

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

   delete $::config->{rooms}{$self->{channel}};
   (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
   $self->{window}->hide_all;
}

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

   # secret typoe ;-)
   $self->{text}->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) = @_;

   $appwin::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;
   };
}

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

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

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

sub destroy {
   my ($self) = @_;
   $self->destroy;

   (remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
}

1;

Revision:	1.11
Committed:	Mon Jun 2 12:39:20 2003 UTC (20 years, 11 months ago) by pcg
Content type:	text/plain
Branch:	MAIN
Changes since 1.10:	+22 -4 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.4	use base gtk::widget;
7	pcg	1.1
8			sub new {
9			my $self = shift;
10			$self = $self->SUPER::new(@_);
11
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	pcg	1.6	$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	pcg	1.1
24	pcg	1.6	$self->{hpane}->pack1((my $vbox = new Gtk2::VBox), 1, 1);
25	pcg	1.1
26	pcg	1.11	$vbox->add(($self->{text} = new gtk::text)->widget);
27	pcg	1.1
28			$vbox->pack_start(($self->{entry} = new Gtk2::Entry), 0, 1, 0);
29			$self->{entry}->signal_connect(activate => sub {
30			my $text = $self->{entry}->get_text;
31			$self->say($text) if $text =~ /\S/;
32			$self->{entry}->set_text("");
33			});
34
35	pcg	1.6	$self->{hpane}->pack2((my $sw = new Gtk2::ScrolledWindow), 0, 1);
36	pcg	1.1	$sw->set_policy("automatic", "always");
37
38	pcg	1.5	$sw->add(($self->{userlist} = new userlist)->widget);
39	pcg	1.1
40			$self;
41			}
42
43			sub join {
44			my ($self) = @_;
45			$self->SUPER::join;
46
47			$self->{window}->show_all;
48			}
49
50			sub part {
51			my ($self) = @_;
52			$self->SUPER::part;
53
54			delete $::config->{rooms}{$self->{channel}};
55	pcg	1.11	(remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
56	pcg	1.1	$self->{window}->hide_all;
57			}
58
59			sub inject_msg_room {
60			my ($self, $msg) = @_;
61
62	pcg	1.7	# secret typoe ;-)
63	pcg	1.10	$self->{text}->append_text("\n<header><user>" . (util::toxml $msg->{name})
64			. "</user>: </header>" . (util::toxml $msg->{message}));
65	pcg	1.1	}
66
67			sub event_update_users {
68	pcg	1.5	my ($self, $add, $update, $remove) = @_;
69	pcg	1.1
70	pcg	1.5	$self->{userlist}->update ($add, $update, $remove);
71	pcg	1.1	}
72
73			sub event_update_games {
74	pcg	1.5	my ($self, $add, $update, $remove) = @_;
75	pcg	1.1
76	pcg	1.5	$appwin::gamelist->update ($self, $add, $update, $remove);
77	pcg	1.1	}
78
79			sub event_join {
80			my ($self) = @_;
81			$self->SUPER::event_join;
82
83	pcg	1.4	$::config->{rooms}{$self->{channel}} = { channel => $self->{channel}, name => $self->{name} };
84	pcg	1.11
85			# mysteriously enough, we have to request game updates manually
86			$self->{gameupdate} \|\|= add Glib::Timeout INTERVAL_GAMEUPDATES * 1000, sub {
87			$self->req_games;
88			1;
89			};
90			}
91
92			sub event_part {
93			my ($self) = @_;
94			$self->SUPER::event_part;
95	pcg	1.1	}
96
97			sub event_update_roominfo {
98			my ($self) = @_;
99
100	pcg	1.10	$self->{text}->append_text("\n<owner>" . (util::toxml $self->{owner}) . "</owner>\n"
101			. "<description>" . (util::toxml $self->{description}) . "</description>\n");
102	pcg	1.11	}
103
104			sub destroy {
105			my ($self) = @_;
106			$self->destroy;
107
108			(remove Glib::Source delete $self->{gameupdate}) if $self->{gameupdate};
109	pcg	1.1	}
110
111			1;
112