[ViewVC] Diff of: cvs/kgsueme/kgsueme/userlist.pl

Comparing kgsueme/kgsueme/userlist.pl (file contents):
Revision 1.1 by pcg, Sun Jun 1 04:52:16 2003 UTC vs.
Revision 1.2 by pcg, Sun Jun 1 11:10:01 2003 UTC

 sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
-   $self->{model} = new Gtk2::ListStore Glib::String, Glib::String, Glib::Int, Glib::String;
+   $self->{model} = new Gtk2::ListStore Glib::String, Glib::String, Glib::String, Glib::Int, Glib::String;
    gtk::state $self->{model}, "userlist::model", undef, modelsortorder => [2, 'descending'];
    $self->{widget} = new Gtk2::TreeView $self->{model};
    $self->{widget}->set_search_column(1);
    $column->set_sort_column_id(1);
    $column->set(sizing => 'grow-only');
    $self->{widget}->append_column ($column);
    my $column = $self->{rlcolumns}[1] =
-      Gtk2::TreeViewColumn->new_with_attributes ("Rk", $gtk::text_renderer, text => 1);
+      Gtk2::TreeViewColumn->new_with_attributes ("Rk", $gtk::text_renderer, text => 2);
    $column->set_sort_column_id(2);
    $column->set(sizing => 'grow-only');
    $self->{widget}->append_column ($column);
    my $column = $self->{rlcolumns}[2] =
    }
    for (@$add, @$update) {
       $l->set ($_->{iter} ||= $l->append,
                    0, $_->{name},
+                   1, lc $_->{name},
-                   1, $_->rank_string,
+                   2, $_->rank_string,
-                   2, $_->rank,
+                   3, $_->rank,
-                   3, "?");
+                   4, "?");
    }
 }
 1;

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