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->game_record if $page == 1;
      $self->usergraph   if $page == 2;
   });

   $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);
   });

   $self->{info_inlay} = $self->{chat}->new_switchable_inlay("Info:", sub { $self->draw_info(@_) }, 1);

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

   $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",
      H     => "int",
      Komi  => "text",
      Score => "text",
   ));
   my $i = 0;
   $_->set_sort_column_id ($i++) for $self->{record_list}->get_columns;

   $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->userinfo;

   $self;
}

sub draw_info {
   my ($self, $inlay) = @_;
   return unless defined $self->{userinfo};
   $inlay->append_text("\nRealname: $self->{userinfo}{realname}");
   $inlay->append_text("\nEmail: $self->{userinfo}{email}");
   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_->{userinfo}{regdate});
   $inlay->append_text (sprintf ("\nRegistered: %02d.%02d.%02d %02d:%02d", $mday, $mon + 1, $year + 1900, $hour, $min));
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($self->{userinfo}{lastlogin});
   $inlay->append_text (sprintf ("\nLast Login: %02d.%02d.%02d %02d:%02d", $mday, $mon + 1, $year + 1900, $hour, $min));
   $inlay->append_text ("\nComment:\n$self->{userinfo}{info}");
   $inlay->append_text ("\nPicture:\n");
   if ($self->{userinfo}{user}->has_pic) {
      $self->{app}->userpic ($self->{name}, sub {
         if ($_[0]) {
            $inlay->append_widget(gtk::image_from_data $_[0]);
         }
      });
   }
}

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

   $self->show_all;
}

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

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

sub event_userinfo {
   my ($self) = @_;
   $self->{info_inlay}->refresh;
}

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) = @_;

   $self->{chat}->append_text ("\n<user>$name</user>: " . util::toxml $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.14
Committed:	Tue Jun 8 22:31:33 2004 UTC (19 years, 11 months ago) by elmex
Content type:	text/plain
Branch:	MAIN
Changes since 1.13:	+26 -31 lines
Log Message:	Added inlays for userinfo, and removed the notebook page for the info.
#	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	elmex	1.14	$self->game_record if $page == 1;
35			$self->usergraph if $page == 2;
36	pcg	1.2	});
37
38	pcg	1.8	$self->add ($notebook);
39	pcg	1.2
40	pcg	1.4	$self->{chat} = new chat;
41			$self->{chat}->signal_connect(command => sub {
42			my ($chat, $cmd, $arg) = @_;
43			$self->{app}->do_command ($chat, $cmd, $arg, user => $self);
44			});
45
46	elmex	1.14	$self->{info_inlay} = $self->{chat}->new_switchable_inlay("Info:", sub { $self->draw_info(@_) }, 1);
47
48	pcg	1.4	$notebook->append_page ($self->{chat}, (new_with_mnemonic Gtk2::Label "_Chat"));
49
50	elmex	1.9	$self->{page_record} = new Gtk2::ScrolledWindow;
51			$self->{page_record}->set_policy ("automatic", "always");
52			$self->{page_record}->add ($self->{record_list} = Gtk2::SimpleList->new(
53	root	1.12	Time => "text",
54			Black => "text",
55			White => "text",
56			Size => "int",
57			H => "int",
58			Komi => "text",
59			Score => "text",
60	elmex	1.9	));
61	elmex	1.10	my $i = 0;
62	root	1.13	$_->set_sort_column_id ($i++) for $self->{record_list}->get_columns;
63	elmex	1.10
64	pcg	1.4	$notebook->append_page ($self->{page_record}, (new_with_mnemonic Gtk2::Label "_Record"));
65	pcg	1.2
66			$self->{page_graph} = new Gtk2::Curve;
67	pcg	1.4	$notebook->append_page ($self->{page_graph}, (new_with_mnemonic Gtk2::Label "_Graph"));
68	pcg	1.2
69	elmex	1.14	$self->userinfo;
70	elmex	1.9
71	pcg	1.1	$self;
72	pcg	1.2	}
73
74	elmex	1.14	sub draw_info {
75			my ($self, $inlay) = @_;
76			return unless defined $self->{userinfo};
77			$inlay->append_text("\nRealname: $self->{userinfo}{realname}");
78			$inlay->append_text("\nEmail: $self->{userinfo}{email}");
79			my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_->{userinfo}{regdate});
80			$inlay->append_text (sprintf ("\nRegistered: %02d.%02d.%02d %02d:%02d", $mday, $mon + 1, $year + 1900, $hour, $min));
81			($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($self->{userinfo}{lastlogin});
82			$inlay->append_text (sprintf ("\nLast Login: %02d.%02d.%02d %02d:%02d", $mday, $mon + 1, $year + 1900, $hour, $min));
83			$inlay->append_text ("\nComment:\n$self->{userinfo}{info}");
84			$inlay->append_text ("\nPicture:\n");
85			if ($self->{userinfo}{user}->has_pic) {
86			$self->{app}->userpic ($self->{name}, sub {
87			if ($_[0]) {
88			$inlay->append_widget(gtk::image_from_data $_[0]);
89			}
90			});
91			}
92			}
93
94	pcg	1.2	sub join {
95			my ($self) = @_;
96
97	pcg	1.8	$self->show_all;
98	pcg	1.2	}
99
100	pcg	1.5	sub event_name {
101			my ($self) = @_;
102
103	root	1.13	$self->set_title ("KGS User $self->{name}");
104	pcg	1.5	}
105
106	pcg	1.2	sub event_userinfo {
107			my ($self) = @_;
108	elmex	1.14	$self->{info_inlay}->refresh;
109	pcg	1.2	}
110
111			sub event_game_record {
112			my ($self) = @_;
113	elmex	1.9
114	root	1.11	use POSIX ();
115
116	elmex	1.10	for (@{$self->{game_record}}) {
117	elmex	1.9	push @{$self->{record_list}->{data}},
118			[
119	root	1.11	(POSIX::strftime "%Y-%m-%d %H:%M", localtime $_->{timestamp}),
120			$_->{black}{name},
121			$_->{white}{name},
122	elmex	1.10	$_->size, # sprintf ("%dx%d", $_->size, $_->size), # when sorting is fixed
123	root	1.11	(sprintf "%.1d", $_->handicap),
124	elmex	1.9	$_->komi,
125	elmex	1.10	$_->score_string,
126	elmex	1.9	];
127			}
128	pcg	1.2	}
129
130			sub event_usergraph {
131			my ($self) = @_;
132
133			my $graph = $self->{usergraph};
134
135			my $curve = $self->{page_graph};
136
137			if (@$graph) {
138			$curve->set_range (0, (scalar @graph) - 1, (List::Util::min @$graph) - 1, (List::Util::max @$graph) + 1);
139			$curve->set_vector (@$graph);
140			}
141			}
142
143			sub event_msg {
144	pcg	1.4	my ($self, $name, $message) = @_;
145
146	root	1.13	$self->{chat}->append_text ("\n<user>$name</user>: " . util::toxml $message);
147	pcg	1.1	}
148
149			sub destroy {
150			my ($self) = @_;
151
152	pcg	1.5	$self->send (notify_del => name => $self->{name})
153			unless (lc $self->{name}) eq (lc $self->{app}{name});
154	pcg	1.1
155			$self->SUPER::destroy;
156			}
157
158			1;
159