| 1 | package gamelist; |
1 | package gamelist; |
|
|
2 | |
|
|
3 | use KGS::Constants; |
| 2 | |
4 | |
| 3 | use base gtk::widget; |
5 | use base gtk::widget; |
| 4 | |
6 | |
| 5 | sub new { |
7 | sub new { |
| 6 | my $class = shift; |
8 | my $class = shift; |
| … | |
… | |
| 145 | if ($_->is_valid) { |
147 | if ($_->is_valid) { |
| 146 | $_->{model} = $m2; |
148 | $_->{model} = $m2; |
| 147 | $m2->set ($_->{iter} ||= $m2->append, |
149 | $m2->set ($_->{iter} ||= $m2->append, |
| 148 | 0, $_, |
150 | 0, $_, |
| 149 | 1, $room->{name}, |
151 | 1, $room->{name}, |
| 150 | 2, $_->type, |
152 | 2, (uc substr $gametype{$_->type}, 0, 1),#d# should use ->gametype_char, which also does P, S |
| 151 | 3, $owner->{name}, |
153 | 3, $owner->{name}, |
| 152 | 4, $owner->rank_string, |
154 | 4, $owner->rank_string, |
| 153 | 5, $owner->rank, |
155 | 5, $owner->rank, |
| 154 | 6, $_->opponent_string, |
156 | 6, $_->opponent_string, |
| 155 | 7, $_->{user1}->rank_string, |
157 | 7, $_->{user1}->rank_string, |
| … | |
… | |
| 161 | } else { |
163 | } else { |
| 162 | $_->{model} = $m1; |
164 | $_->{model} = $m1; |
| 163 | $m1->set ($_->{iter} ||= $m1->append, |
165 | $m1->set ($_->{iter} ||= $m1->append, |
| 164 | 0, $_, |
166 | 0, $_, |
| 165 | 1, $room->{name}, |
167 | 1, $room->{name}, |
| 166 | 2, $_->type, |
168 | 2, (uc substr $gametype{$_->type}, 0, 1),#d# should use ->gametype_char, which also does P, S |
| 167 | 3, $owner->{name}, |
169 | 3, $owner->{name}, |
| 168 | 4, $owner->rank_string, |
170 | 4, $owner->rank_string, |
| 169 | 5, $owner->rank, |
171 | 5, $owner->rank, |
| 170 | 6, $_->rules, |
172 | 6, $_->rules, |
| 171 | 7, $_->{notes}, |
173 | 7, $_->{notes}, |
