| … | |
… | |
| 53 | $self->{page_record}->set_policy ("automatic", "always"); |
53 | $self->{page_record}->set_policy ("automatic", "always"); |
| 54 | $self->{page_record}->add ($self->{record_list} = Gtk2::SimpleList->new( |
54 | $self->{page_record}->add ($self->{record_list} = Gtk2::SimpleList->new( |
| 55 | "Time" => "text", |
55 | "Time" => "text", |
| 56 | "Black" => "text", |
56 | "Black" => "text", |
| 57 | "White" => "text", |
57 | "White" => "text", |
| 58 | "Size" => "text", |
58 | "Size" => "int", |
| 59 | "Handicap" => "int", |
59 | "Handicap" => "int", |
| 60 | "Komi" => "text", |
60 | "Komi" => "text", |
| 61 | "Score" => "text" |
61 | "Score" => "text" |
| 62 | )); |
62 | )); |
|
|
63 | my $i = 0; |
|
|
64 | for ($self->{record_list}->get_columns) { $_->set_sort_column_id($i++) } |
|
|
65 | |
| 63 | $notebook->append_page ($self->{page_record}, (new_with_mnemonic Gtk2::Label "_Record")); |
66 | $notebook->append_page ($self->{page_record}, (new_with_mnemonic Gtk2::Label "_Record")); |
| 64 | |
67 | |
| 65 | $self->{page_graph} = new Gtk2::Curve; |
68 | $self->{page_graph} = new Gtk2::Curve; |
| 66 | $notebook->append_page ($self->{page_graph}, (new_with_mnemonic Gtk2::Label "_Graph")); |
69 | $notebook->append_page ($self->{page_graph}, (new_with_mnemonic Gtk2::Label "_Graph")); |
| 67 | |
70 | |
| … | |
… | |
| 111 | } |
114 | } |
| 112 | |
115 | |
| 113 | sub event_game_record { |
116 | sub event_game_record { |
| 114 | my ($self) = @_; |
117 | my ($self) = @_; |
| 115 | |
118 | |
| 116 | for (reverse sort { $a->{timestamp} <=> $b->{timestamp} } @{$self->{game_record}}) { |
119 | for (@{$self->{game_record}}) { |
| 117 | ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_->{timestamp}); |
120 | ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_->{timestamp}); |
| 118 | push @{$self->{record_list}->{data}}, |
121 | push @{$self->{record_list}->{data}}, |
| 119 | [ |
122 | [ |
| 120 | sprintf ("%02d.%02d.%04d %02d:%02d", $mday, $mon + 1, $year + 1900, $hour, $min), |
123 | sprintf ("%04d.%02d.%02d %02dh %02dm", $year + 1900, $mon + 1, $mday, $min, $hour), |
| 121 | $_->{black}->{name}, |
124 | $_->{black}->{name}, |
| 122 | $_->{white}->{name}, |
125 | $_->{white}->{name}, |
| 123 | sprintf ("%dx%d", $_->size, $_->size), |
126 | $_->size, # sprintf ("%dx%d", $_->size, $_->size), # when sorting is fixed |
| 124 | sprintf ("%.1d", $_->handicap), |
127 | sprintf ("%.1d", $_->handicap), |
| 125 | $_->komi, |
128 | $_->komi, |
| 126 | $_->score_string |
129 | $_->score_string, |
| 127 | ]; |
130 | ]; |
| 128 | } |
131 | } |
| 129 | } |
132 | } |
| 130 | |
133 | |
| 131 | sub event_usergraph { |
134 | sub event_usergraph { |
