Gtk2::SimpleList->add_column_type( 'text-right',
	type     => 'Glib::Scalar',
	renderer => 'Gtk2::CellRendererText',
	attr     => sub {
		my ($treecol, $cell, $model, $iter, $col_num) = @_;
		my $info = $model->get ($iter, $col_num);
		$cell->set (
			'alignment' => 'PANGO_ALIGN_RIGHT',
			'text' => $info,
		);
);