ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/gamelist.pl
(Generate patch)

Comparing kgsueme/kgsueme/gamelist.pl (file contents):
Revision 1.1 by pcg, Sat May 31 13:58:32 2003 UTC vs.
Revision 1.2 by pcg, Sat May 31 14:15:12 2003 UTC

… …
17 $sw->set_policy("never", "always"); 17 $sw->set_policy("never", "always");
18 $sw->add($self->{view1} = new Gtk2::TreeView $self->{model1}); 18 $sw->add($self->{view1} = new Gtk2::TreeView $self->{model1});
19 $self->{view1}->set_search_column(1); 19 $self->{view1}->set_search_column(1);
20 20
21 $self->{model2} = new Gtk2::ListStore Glib::Scalar, 21 $self->{model2} = new Gtk2::ListStore Glib::Scalar,
22 Glib::String, Glib::String, Glib::String, Glib::String, Glib::Int, Glib::String, Glib::Int, Glib::Int; 22 Glib::String, Glib::String, Glib::String, Glib::String, Glib::Int,
23 Glib::String, Glib::String, Glib::Int, Glib::Int, Glib::Int, Glib::String;
23 24
24 $self->{widget}->add(my $sw = new Gtk2::ScrolledWindow); 25 $self->{widget}->add(my $sw = new Gtk2::ScrolledWindow);
25 $sw->set_policy("never", "always"); 26 $sw->set_policy("never", "always");
26 $sw->add($self->{view2} = new Gtk2::TreeView $self->{model2}); 27 $sw->add($self->{view2} = new Gtk2::TreeView $self->{model2});
27 $self->{view2}->set_search_column(1); 28 $self->{view2}->set_search_column(1);
… …
50 $column->set(sizing => 'fixed'); 51 $column->set(sizing => 'fixed');
51 gtk::state $column, "gamelist::model::Owner", undef, column_size => 100; 52 gtk::state $column, "gamelist::model::Owner", undef, column_size => 100;
52 $view->append_column ($column); 53 $view->append_column ($column);
53 54
54 push @{$self->{rlcolumns}}, my $column = 55 push @{$self->{rlcolumns}}, my $column =
55 Gtk2::TreeViewColumn->new_with_attributes ("Rank", $gtk::text_renderer, text => 4); 56 Gtk2::TreeViewColumn->new_with_attributes ("Rk", $gtk::text_renderer, text => 4);
56 $column->set_sort_column_id(5); 57 $column->set_sort_column_id(5);
57 $column->set(resizable => 1); 58 $column->set(resizable => 1);
58 $column->set(sizing => 'fixed'); 59 $column->set(sizing => 'fixed');
59 gtk::state $column, "gamelist::model::Rank", undef, column_size => 30; 60 gtk::state $column, "gamelist::model::Rk", undef, column_size => 20;
60 $view->append_column ($column);
61
62 push @{$self->{rlcolumns}}, my $column =
63 Gtk2::TreeViewColumn->new_with_attributes ("Info", $gtk::text_renderer, text => 6);
64 $column->set(resizable => 1);
65 $column->set(sizing => 'fixed');
66 gtk::state $column, "gamelist::model::Info", undef, column_size => 80;
67 $view->append_column ($column); 61 $view->append_column ($column);
68 } 62 }
63
64 push @{$self->{rlcolumns}}, my $column =
65 Gtk2::TreeViewColumn->new_with_attributes ("Info", $gtk::text_renderer, text => 6);
66 $column->set(resizable => 1);
67 $column->set(sizing => 'fixed');
68 gtk::state $column, "gamelist::model::Info", undef, column_size => 80;
69 $self->{view1}->append_column ($column);
69 70
70 push @{$self->{rlcolumns}}, my $column = 71 push @{$self->{rlcolumns}}, my $column =
71 Gtk2::TreeViewColumn->new_with_attributes ("Notes", $gtk::text_renderer, text => 7); 72 Gtk2::TreeViewColumn->new_with_attributes ("Notes", $gtk::text_renderer, text => 7);
72 $column->set(resizable => 1); 73 $column->set(resizable => 1);
73 $column->set(sizing => 'fixed'); 74 $column->set(sizing => 'fixed');
… …
75 $self->{view1}->append_column ($column); 76 $self->{view1}->append_column ($column);
76 77
77 ########### 78 ###########
78 79
79 push @{$self->{rlcolumns}}, my $column = 80 push @{$self->{rlcolumns}}, my $column =
81 Gtk2::TreeViewColumn->new_with_attributes ("Opponent", $gtk::text_renderer, text => 6);
82 $column->set(resizable => 1);
83 $column->set(sizing => 'fixed');
84 gtk::state $column, "gamelist::model::Opponent", undef, column_size => 120;
85 $self->{view2}->append_column ($column);
86
87 push @{$self->{rlcolumns}}, my $column =
88 Gtk2::TreeViewColumn->new_with_attributes ("Rk", $gtk::text_renderer, text => 7);
89 $column->set_sort_column_id(8);
90 $column->set(resizable => 1);
91 $column->set(sizing => 'fixed');
92 gtk::state $column, "gamelist::model::Rk", undef, column_size => 20;
93 $self->{view2}->append_column ($column);
94
95 push @{$self->{rlcolumns}}, my $column =
80 Gtk2::TreeViewColumn->new_with_attributes ("Mv", $gtk::int_renderer, text => 7); 96 Gtk2::TreeViewColumn->new_with_attributes ("Mv", $gtk::int_renderer, text => 9);
81 $column->set_sort_column_id(7); 97 $column->set_sort_column_id(7);
82 $column->set(resizable => 1); 98 $column->set(resizable => 1);
83 $column->set(sizing => 'fixed'); 99 $column->set(sizing => 'fixed');
84 gtk::state $column, "gamelist::model::Mv", undef, column_size => 40; 100 gtk::state $column, "gamelist::model::Mv", undef, column_size => 40;
85 $self->{view2}->append_column ($column); 101 $self->{view2}->append_column ($column);
86 102
87 push @{$self->{rlcolumns}}, my $column = 103 push @{$self->{rlcolumns}}, my $column =
88 Gtk2::TreeViewColumn->new_with_attributes ("Ob", $gtk::int_renderer, text => 8); 104 Gtk2::TreeViewColumn->new_with_attributes ("Ob", $gtk::int_renderer, text => 10);
89 $column->set_sort_column_id(8); 105 $column->set_sort_column_id(8);
90 $column->set(resizable => 1); 106 $column->set(resizable => 1);
91 $column->set(sizing => 'fixed'); 107 $column->set(sizing => 'fixed');
92 gtk::state $column, "gamelist::model::Ob", undef, column_size => 40; 108 gtk::state $column, "gamelist::model::Ob", undef, column_size => 40;
109 $self->{view2}->append_column ($column);
110
111 push @{$self->{rlcolumns}}, my $column =
112 Gtk2::TreeViewColumn->new_with_attributes ("Info", $gtk::text_renderer, text => 11);
113 $column->set(resizable => 1);
114 $column->set(sizing => 'fixed');
115 gtk::state $column, "gamelist::model::Info", undef, column_size => 120;
93 $self->{view2}->append_column ($column); 116 $self->{view2}->append_column ($column);
94 117
95 ########### 118 ###########
96 119
97 $self->{view1}->signal_connect(row_activated => sub { 120 $self->{view1}->signal_connect(row_activated => sub {
… …
143 1, $room, 166 1, $room,
144 2, $_->type, 167 2, $_->type,
145 3, $owner->{name}, 168 3, $owner->{name},
146 4, $owner->rank_string, 169 4, $owner->rank_string,
147 5, $owner->rank, 170 5, $owner->rank,
171 6, $_->{user1}->{name},
172 7, $_->{user1}->rank_string,
173 8, $_->{user1}->rank,
174 9, $_->moves,
175 10, $_->{observers},
148 6, "info", 176 11, "info",
149 7, $owner->{moves},
150 8, $owner->{observers},
151 ); 177 );
152 } 178 }
153 } 179 }
154 } 180 }
155 181

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines