RE: setting color of some of the rows in a TreeView

["rashwin" <rashwin infosys com>]

Hi All,
I have a similar urgent requirement in Perl-Gtk.( I currently am not in a position to move to Gtk2).
Is there a similar setting of colors possible for the tree items in a Tree View in Perl-Gtk?
Thanks In Advance
Ashwin




-----Original Message-----
From: gtk-perl-list-bounces gnome org on behalf of Bostjan Spetic
Sent: Fri 4/22/2005 1:39 PM
To: GTK2-Perl List
Subject: Re: setting color of some of the rows in a TreeView
 
On Fri, 22 Apr 2005 09:51:45 +0300, Gabor Szabo <szabgab gmail com> wrote:

> I have been fighting with for some time now but I could not find the answer.
> How can I set the color of some of the rows in a TreeView ?
> I don't mean the alternating colors, I have a few that I would like to
> stand out.

i do it with custom data function for cell renderer:

	my $clist = Gtk2::ListStore->new(@types);
	$tv->set_rules_hint(1);
	$tv->set_model($clist);
	for (my $i = 0; $i < @{$order}; $i++) {
		my $renderer = Gtk2::CellRendererText->new ;
			$renderer->set('editable' => TRUE);
			$renderer->set('mode' => 'editable');
    			$renderer->signal_connect ('edited' => sub {
  	           my ($cell,$text_path,$new_text,$i) = @_;
  				  my $tree = $tv->get_model;
  				  my $iter = $tree->get_iter_from_string($text_path);
				  if (defined $iter) {
  					   #my $old_text = $tree->get($iter,$i);
  						$tree->set($iter,$i,$new_text);
  				  }
   			 	},$i);	
		my $title = ${$order}[$i];
		my $cl = Gtk2::TreeViewColumn->new_with_attributes('',$renderer,'text' => $i);
		$tv->append_column($cl);
		$cl->set_clickable(1);
		$cl->set_resizable(0);
		$cl->set_sort_column_id($i);
		$cl->set_title($title);
		$tv->get_model->set_sort_func($i,\&sort_by_color,$i);
# ----->
		$cl->set_cell_data_func($renderer, sub {
	         my ($column, $cell, $model, $iter, $title) = @_;
	         my $color = 'white';
				my ($cursor) = $tv->get_cursor;
				my $entry = $entries{$title};
				if (!defined $entry) { $entry = ""; }
				my $text = $cell->get('text');
				if ((defined $entry) and (defined $text) and ($text ne "")) {
					if ($text =~ /$entry/i) {
						$color = 'orange';
					}
				}
	         $cell->set (background => $color);
     		}, $title);
# <------
	}
	
regards, bostjan

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list gnome org
http://mail.gnome.org/mailman/listinfo/gtk-perl-list