| … | |
… | |
| 35 | |
35 | |
| 36 | # Gtk2-bug, need to keep these objects around |
36 | # Gtk2-bug, need to keep these objects around |
| 37 | my $column = $self->{rlcolumns}[$idx] = Gtk2::TreeViewColumn->new_with_attributes ($_, $renderer, text => $idx); |
37 | my $column = $self->{rlcolumns}[$idx] = Gtk2::TreeViewColumn->new_with_attributes ($_, $renderer, text => $idx); |
| 38 | |
38 | |
| 39 | $column->set_sort_column_id($idx); |
39 | $column->set_sort_column_id($idx); |
| 40 | $column->set(resizable => 1); |
40 | $column->set(resizable => 1, sizing => 'fixed', clickable => 1); |
| 41 | $column->set(sizing => 'fixed'); |
|
|
| 42 | $column->set(clickable => 1); |
|
|
| 43 | gtk::state $column, "roomlist::model::$_", undef, |
41 | gtk::state $column, "roomlist::model::$_", undef, |
| 44 | column_size => [0, 60, 450, 60, 60, 60, 60]->[$idx]; |
42 | column_size => [0, 60, 450, 60, 60, 60, 60]->[$idx]; |
| 45 | $treeview->append_column ($column); |
43 | $treeview->append_column ($column); |
| 46 | |
44 | |
| 47 | $idx++; |
45 | $idx++; |
