kgsueme/kgsueme/user.pl

package user;

use List::Util;

use base KGS::Listener::User;

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

use Gtk2::SimpleList;

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

   $self->listen ($self->{conn});

   $self->send (notify_add => name => $self->{name})
      unless (lc $self->{name}) eq (lc $self->{app}{name});

   gtk::state $self, "user::window", undef, window_size => [400, 300];

   $self->event_name;

   $self->signal_connect (destroy => sub { %{$_[0]} = () });
   $self->signal_connect (delete_event => sub { $self->destroy; 1 });

   my $notebook = new Gtk2::Notebook;

   $notebook->signal_connect (switch_page => sub {
      my ($notebook, undef, $page) = @_;

      $self->userinfo    if $page == 1;
      $self->game_record if $page == 2;
      $self->usergraph   if $page == 3;
   });

   $self->add ($notebook);

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

   $notebook->append_page ($self->{chat}, (new_with_mnemonic Gtk2::Label "_Chat"));

   $self->{page_userinfo} = new Gtk2::Table 3, 5, 0;
   $notebook->append_page ($self->{page_userinfo}, (new_with_mnemonic Gtk2::Label "_Info"));

   $self->{page_record} = new Gtk2::ScrolledWindow;
   $self->{page_record}->set_policy ("automatic", "always");
   $self->{page_record}->add ($self->{record_list} = Gtk2::SimpleList->new(
      "Time"     => "text",
      "Black"    => "text",
      "White"    => "text",
      "Size"     => "int",
      "Handicap" => "int",
      "Komi"     => "text",
      "Score"    => "text"
   ));
   my $i = 0;
   for ($self->{record_list}->get_columns) { $_->set_sort_column_id($i++) }

   $notebook->append_page ($self->{page_record}, (new_with_mnemonic Gtk2::Label "_Record"));

   $self->{page_graph} = new Gtk2::Curve;
   $notebook->append_page ($self->{page_graph}, (new_with_mnemonic Gtk2::Label "_Graph"));


   $self;
}

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

   $self->show_all;
}

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

   $self->set_title("KGS User $self->{name}");
}

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

   my $ui = $self->{page_userinfo};

   $ui->attach_defaults ((new Gtk2::Label "Name"), 0, 1, 0, 1);
   $ui->attach_defaults ((new Gtk2::Label "Email"), 0, 1, 1, 2);
   $ui->attach_defaults ((new Gtk2::Label "Registered"), 0, 1, 2, 3);
   $ui->attach_defaults ((new Gtk2::Label "Last Login"), 0, 1, 3, 4);

   $ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{realname}), 1, 2, 0, 1);
   $ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{email}), 1, 2, 1, 2);
   $ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{regdate}), 1, 2, 2, 3);
   $ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{lastlogin}), 1, 2, 3, 4);

   if ($self->{userinfo}{user}->has_pic) {
      $self->{app}->userpic ($self->{name}, sub {
         if ($_[0]) {
            $ui->attach_defaults ((gtk::image_from_data $_[0]), 2, 3, 0, 4);
            $ui->show_all;
         }
      });
   }

   $ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{info}), 0, 2, 4, 5);

   $ui->show_all;
}

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

   use POSIX ();

   for (@{$self->{game_record}}) {
      push @{$self->{record_list}->{data}}, 
         [
            (POSIX::strftime "%Y-%m-%d %H:%M", localtime $_->{timestamp}),
            $_->{black}{name}, 
            $_->{white}{name}, 
            $_->size, # sprintf ("%dx%d", $_->size, $_->size), # when sorting is fixed
            (sprintf "%.1d", $_->handicap),
            $_->komi,
            $_->score_string,
         ];
   }
}

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

   my $graph = $self->{usergraph};

   my $curve = $self->{page_graph};

   if (@$graph) {
      $curve->set_range (0, (scalar @graph) - 1, (List::Util::min @$graph) - 1, (List::Util::max @$graph) + 1);
      $curve->set_vector (@$graph);
   }
}

sub event_msg {
   my ($self, $name, $message) = @_;

   $message =~ s/&/&amp;/g;
   $message =~ s/</&lt;/g;

   $self->{chat}->append_text ("\n<user>$name</user>: $message");
}

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

   $self->send (notify_del => name => $self->{name})
      unless (lc $self->{name}) eq (lc $self->{app}{name});

   $self->SUPER::destroy;
}

1;

Revision:	1.11
Committed:	Tue Jun 8 21:08:47 2004 UTC (19 years, 11 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.10:	+6 -5 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	pcg	1.1	package user;
2
3	pcg	1.2	use List::Util;
4	pcg	1.1
5			use base KGS::Listener::User;
6	pcg	1.8
7			use Glib::Object::Subclass
8			Gtk2::Window;
9	pcg	1.1
10	elmex	1.9	use Gtk2::SimpleList;
11
12	pcg	1.1	sub new {
13	pcg	1.8	my ($self, %arg) = @_;
14			$self = $self->Glib::Object::new;
15			$self->{$_} = delete $arg{$_} for keys %arg;
16	pcg	1.1
17	pcg	1.8	$self->listen ($self->{conn});
18	pcg	1.1
19	pcg	1.5	$self->send (notify_add => name => $self->{name})
20			unless (lc $self->{name}) eq (lc $self->{app}{name});
21	pcg	1.1
22	pcg	1.8	gtk::state $self, "user::window", undef, window_size => [400, 300];
23
24	pcg	1.5	$self->event_name;
25	pcg	1.1
26	pcg	1.8	$self->signal_connect (destroy => sub { %{$_[0]} = () });
27			$self->signal_connect (delete_event => sub { $self->destroy; 1 });
28	pcg	1.1
29	pcg	1.2	my $notebook = new Gtk2::Notebook;
30
31			$notebook->signal_connect (switch_page => sub {
32			my ($notebook, undef, $page) = @_;
33
34			$self->userinfo if $page == 1;
35			$self->game_record if $page == 2;
36			$self->usergraph if $page == 3;
37			});
38
39	pcg	1.8	$self->add ($notebook);
40	pcg	1.2
41	pcg	1.4	$self->{chat} = new chat;
42			$self->{chat}->signal_connect(command => sub {
43			my ($chat, $cmd, $arg) = @_;
44			$self->{app}->do_command ($chat, $cmd, $arg, user => $self);
45			});
46
47			$notebook->append_page ($self->{chat}, (new_with_mnemonic Gtk2::Label "_Chat"));
48
49	pcg	1.3	$self->{page_userinfo} = new Gtk2::Table 3, 5, 0;
50	pcg	1.2	$notebook->append_page ($self->{page_userinfo}, (new_with_mnemonic Gtk2::Label "_Info"));
51
52	elmex	1.9	$self->{page_record} = new Gtk2::ScrolledWindow;
53			$self->{page_record}->set_policy ("automatic", "always");
54			$self->{page_record}->add ($self->{record_list} = Gtk2::SimpleList->new(
55			"Time" => "text",
56			"Black" => "text",
57			"White" => "text",
58	elmex	1.10	"Size" => "int",
59	elmex	1.9	"Handicap" => "int",
60			"Komi" => "text",
61			"Score" => "text"
62			));
63	elmex	1.10	my $i = 0;
64			for ($self->{record_list}->get_columns) { $_->set_sort_column_id($i++) }
65
66	pcg	1.4	$notebook->append_page ($self->{page_record}, (new_with_mnemonic Gtk2::Label "_Record"));
67	pcg	1.2
68			$self->{page_graph} = new Gtk2::Curve;
69	pcg	1.4	$notebook->append_page ($self->{page_graph}, (new_with_mnemonic Gtk2::Label "_Graph"));
70	pcg	1.2
71	elmex	1.9
72	pcg	1.1	$self;
73	pcg	1.2	}
74
75			sub join {
76			my ($self) = @_;
77
78	pcg	1.8	$self->show_all;
79	pcg	1.2	}
80
81	pcg	1.5	sub event_name {
82			my ($self) = @_;
83
84	pcg	1.8	$self->set_title("KGS User $self->{name}");
85	pcg	1.5	}
86
87	pcg	1.2	sub event_userinfo {
88			my ($self) = @_;
89
90			my $ui = $self->{page_userinfo};
91
92			$ui->attach_defaults ((new Gtk2::Label "Name"), 0, 1, 0, 1);
93			$ui->attach_defaults ((new Gtk2::Label "Email"), 0, 1, 1, 2);
94			$ui->attach_defaults ((new Gtk2::Label "Registered"), 0, 1, 2, 3);
95			$ui->attach_defaults ((new Gtk2::Label "Last Login"), 0, 1, 3, 4);
96
97			$ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{realname}), 1, 2, 0, 1);
98			$ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{email}), 1, 2, 1, 2);
99			$ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{regdate}), 1, 2, 2, 3);
100			$ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{lastlogin}), 1, 2, 3, 4);
101
102			if ($self->{userinfo}{user}->has_pic) {
103			$self->{app}->userpic ($self->{name}, sub {
104			if ($_[0]) {
105			$ui->attach_defaults ((gtk::image_from_data $_[0]), 2, 3, 0, 4);
106			$ui->show_all;
107			}
108			});
109			}
110
111			$ui->attach_defaults ((new Gtk2::Label $self->{userinfo}{info}), 0, 2, 4, 5);
112
113			$ui->show_all;
114			}
115
116			sub event_game_record {
117			my ($self) = @_;
118	elmex	1.9
119	root	1.11	use POSIX ();
120
121	elmex	1.10	for (@{$self->{game_record}}) {
122	elmex	1.9	push @{$self->{record_list}->{data}},
123			[
124	root	1.11	(POSIX::strftime "%Y-%m-%d %H:%M", localtime $_->{timestamp}),
125			$_->{black}{name},
126			$_->{white}{name},
127	elmex	1.10	$_->size, # sprintf ("%dx%d", $_->size, $_->size), # when sorting is fixed
128	root	1.11	(sprintf "%.1d", $_->handicap),
129	elmex	1.9	$_->komi,
130	elmex	1.10	$_->score_string,
131	elmex	1.9	];
132			}
133	pcg	1.2	}
134
135			sub event_usergraph {
136			my ($self) = @_;
137
138			my $graph = $self->{usergraph};
139
140			my $curve = $self->{page_graph};
141
142			if (@$graph) {
143			$curve->set_range (0, (scalar @graph) - 1, (List::Util::min @$graph) - 1, (List::Util::max @$graph) + 1);
144			$curve->set_vector (@$graph);
145			}
146			}
147
148			sub event_msg {
149	pcg	1.4	my ($self, $name, $message) = @_;
150
151	pcg	1.7	$message =~ s/&/&/g;
152			$message =~ s/</</g;
153
154	pcg	1.4	$self->{chat}->append_text ("\n<user>$name</user>: $message");
155	pcg	1.1	}
156
157			sub destroy {
158			my ($self) = @_;
159
160	pcg	1.5	$self->send (notify_del => name => $self->{name})
161			unless (lc $self->{name}) eq (lc $self->{app}{name});
162	pcg	1.1
163			$self->SUPER::destroy;
164			}
165
166			1;
167