| … | |
… | |
| 50 | $notebook->append_page ($self->{page_userinfo}, (new_with_mnemonic Gtk2::Label "_Info")); |
50 | $notebook->append_page ($self->{page_userinfo}, (new_with_mnemonic Gtk2::Label "_Info")); |
| 51 | |
51 | |
| 52 | $self->{page_record} = new Gtk2::ScrolledWindow; |
52 | $self->{page_record} = new Gtk2::ScrolledWindow; |
| 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" => "int", |
58 | Size => "int", |
| 59 | "Handicap" => "int", |
59 | H => "int", |
| 60 | "Komi" => "text", |
60 | Komi => "text", |
| 61 | "Score" => "text" |
61 | Score => "text", |
| 62 | )); |
62 | )); |
| 63 | my $i = 0; |
63 | my $i = 0; |
| 64 | for ($self->{record_list}->get_columns) { $_->set_sort_column_id($i++) } |
64 | for ($self->{record_list}->get_columns) { $_->set_sort_column_id($i++) } |
| 65 | |
65 | |
| 66 | $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")); |
