+Gtk2::SimpleList->add_column_type( 'ttlong',
+ type => 'Glib::Scalar',
+ renderer => 'Gtk2::CellRendererText',
+ attr => sub {
+ my ($treecol, $cell, $model, $iter, $col_num) = @_;
+ my $info = $model->get ($iter, $col_num);
+ $Text::Wrap::columns = 80;
+ $cell->set(text => join("\n",wrap("","",$info)), font => $font);
+ }
+ );
+
+Gtk2::SimpleList->add_column_type( 'ttlesslong',
+ type => 'Glib::Scalar',
+ renderer => 'Gtk2::CellRendererText',
+ attr => sub {
+ my ($treecol, $cell, $model, $iter, $col_num) = @_;
+ my $info = $model->get ($iter, $col_num);
+ $Text::Wrap::columns = 65;
+ $cell->set(text => join("\n",wrap("","",$info)), font => $font);
+ }
+ );
+
+Gtk2::SimpleList->add_column_type( 'ttshort',
+ type => 'Glib::Scalar',
+ renderer => 'Gtk2::CellRendererText',
+ attr => sub {
+ my ($treecol, $cell, $model, $iter, $col_num) = @_;
+ my $info = $model->get ($iter, $col_num);
+ $Text::Wrap::columns = 30;
+ $cell->set(text => join("\n",wrap("","",$info)), font => $font);
+ }
+ );
+