I'm still struggling with the cellRendererCombo. The combo has 2 columns (say id, name) one which holds a numeric value not displayed (id) and, the visible column which holds a text (name).
The suggestion at
http://stackoverflow.com/questions/3534665/gtk-trouble-modifying-treeview-model-on-cellrenderercombo-changed-signal
led me to the code below where I get a ref of the underlaying Gtk2::Combo with the sub on editing-started event. That ref can be used to get an active iterator in the sub fired with the edited event and I can get the value selected with the combo.
There are 2 problems at least:
- I need a hash of the whole combo content to diplay the name in the combo using the id, but someway these should be already in the model
- I would prefer using the CellRendercombo model to display the name rather then calling a sub with set_cell_data_func
Can anyone show me how to change this ?
Thanks, François
#! /usr/bin/perl -w
use strict;
use Gtk2 '-init';
use Glib qw/TRUE FALSE/;
use Data::Dumper;
my %render = (
text => sub { return Gtk2::CellRendererText->new; },
hidden => sub { return Gtk2::CellRendererText->new; },
number => sub { return Gtk2::CellRendererText->new; },
toggle => sub { return Gtk2::CellRendererToggle->new; },
combo => sub { return Gtk2::CellRendererCombo->new; },
progress => sub { return Gtk2::CellRendererProgress->new; },
status_column => sub { return Gtk2::CellRendererPixbuf->new; },
image => sub { return Gtk2::CellRendererPixbuf->new; },
);
my %signals = (
'Gtk2::CellRendererText' => [ 'edited' , sub { cell_edited(@_)}],
' Gtk2::CellRendererToggle' => ['toggled', sub { toggle_edited(@_)}],
'Gtk2::CellRendererCombo' => ['edited', sub { combo_edited(@_)}],
);
#'Gtk2::CellRendererCombo' => ['changed', sub { combo_changed(@_)}],
my @fields = ("a","b","c");
my %combo = (1 => "one", 2 => "two", 3 => "three");
#standard window creation, placement, and signal connecting
my $window = Gtk2::Window->new('toplevel');
$window->signal_connect('delete_event' => sub { Gtk2->main_quit; });
$window->set_border_width(5);
$window->set_position('center_always');
#this vbox will geturn the bulk of the gui
my $vbox = &ret_vbox();
my $maincombo;
#add and show the vbox
$window->add($vbox);
$window->show();
#our main event-loop
Gtk2->main;
sub ret_vbox {
my $vbox = Gtk2::VBox->new(FALSE,5);
$vbox->set_size_request (300, 300);
#this is one of the provided base Gtk2::TreeModel classes.
my $tree = Gtk2::TreeView->new();
my $pos=0;
my @listedef;
foreach my $field (@fields) {
my $renderer = ($pos == 0 ? $render{"combo"}():$render{"text"}());
my $cell_ref = ref $renderer;
print "$cell_ref\n";
$renderer->set( editable => TRUE );
if ($pos == 0){
setup_combo($pos, $field, $renderer, $tree);
} #else {
#$renderer->signal_connect (edited => sub { cell_edited(@_)}, $tree);
#}
$renderer->{column}=$pos;
my $col = Gtk2::TreeViewColumn->new_with_attributes($field, $renderer, "text" => $pos);
$tree->append_column($col);
my $label = Gtk2::Label->new;
$label->set_text("$field");
$label->visible( 1 );
$col->set_widget($label);
push @listedef, "Glib::String";
if (exists $signals{$cell_ref}) {
my $coderef = $signals{$cell_ref}[1];
$renderer->signal_connect ( $signals{$cell_ref}[0] => \&$coderef, $tree );
}
if ( $pos== 0){
$renderer->signal_connect ( "editing-started" => \&start_editable );
#$renderer->signal_connect ( "edited" => \&combo_edited, $tree );
$col->set_cell_data_func($renderer, sub{ process_combo(@_); });
}
$pos++;
}
my $liste = Gtk2::ListStore->new(@listedef);
#fill it with arbitry data
foreach (0..3){
$pos = 0;
my @model_row;
# $tree->append_column($col++);
#my $iter = $tree->append(undef);
#$tree_store->set ($iter,MODEL_FIRST_COLUMN, "Parent $parent_nr");
foreach my $field (@fields) {
if ($pos == 0) {
push @model_row, $liste->append, $pos, $_;
} else {
push @model_row, $pos, $field . " ". $_;
}
$pos++;
}
$liste->set(@model_row);
}
$liste->signal_connect( "row-changed" => sub { changed(@_) } );
$tree->set_model($liste);
$vbox->pack_start($tree,TRUE,TRUE,0);
$vbox->show_all();
return $vbox;
}
sub cell_edited {
my ($cell, $path_string, $new_text, $tree) = @_;
print "cell_edited\n";
# return unless ($tree);
my $model = $tree->get_model;
my $path = Gtk2::TreePath->new_from_string ($path_string);
#my $model = $tree->get_model;
my $col = $cell->{column};
my $iter = $model->get_iter($path);
$model->set_value ($iter, $col, $new_text);
}
sub changed {
my ( $liststore, $treepath, $iter ) = @_;
print "changed\n";
}
sub combo_changed_notused {
my ($combo, $path_string, $new_iter, $tree) = @_;
#my $path = Gtk2::TreePath->new_from_string( $path_string );
# my $iter = $combo->get_iter ( $path );
#my $new_text = $combo->get( $new_iter, 0 );
my $event = Gtk2::Gdk::Event->new('focus-change');
$event->window ($tree->get_bin_window);
$event->send_event(TRUE);
$event->in(FALSE);
$maincombo->signal_emit('focus-out-event', $event);
# print "combo_changed: ", $new_iter, "\n";
# $combo_model->set ( $combo_iter,0, $new_text );
#$combo->set($iter, $renderer->{column}, $new_text);
}
sub start_editable {
my ($cell, $editable, $path) = @_;
print "start_editable\n";
# print Dumper($editable);
$maincombo = $editable;
}
sub setup_combo {
my ($column_no, $fieldname, $renderer, $tree ) = @_;
print "set_upcombo\n";
my @combo_key = keys %combo;
my @cols = ("key", "values");
my @liste_def;
my $pos = 0;
foreach my $name (@cols){
if ($pos++ == 0) {
push @liste_def, "Glib::Int";
# push @liste_def, "Glib::String";
} else {
push @liste_def, "Glib::String";
}
}
my $model = Gtk2::ListStore->new( @liste_def );
foreach my $key ( @combo_key ) {
my @model_row;
push @model_row, $model->append;
$pos = 0 ;
foreach my $name ( @cols) {
push @model_row, $pos, ($pos == 0 ? $key : $combo{$key});
$pos++;
}
$model->set( @model_row );
# combo_edited($renderer, $combo{$key}, $combo{$key}, $tree);
}
$renderer->set(
editable => TRUE,
text_column => 1,
has_entry => FALSE,
model => $model,
);
}
sub combo_edited {
my ($renderer, $path_string, $new_text, $tree) = @_;
# return unless ($tree);
# treeViewModel[path][columnNumber] = newText
my $model = $tree->get_model;
print("combo_edited " . $new_text . "\n");
# $cell->get("model");
# $model->set ($iter, $cell->{column}, $new_text);
my $path = Gtk2::TreePath->new_from_string( $path_string );
my $citer = $maincombo->get_active_iter;
my $cmodel = $maincombo->get_model;
my $value = $cmodel->get($citer, 0);
print("combo_edited value :" . $value . "\n");
my $iter = $model->get_iter ( $path );
# $combo_model->set ( $combo_iter,0, $new_text );
$model->set($iter, $renderer->{column}, $new_text);
}
sub process_combo {
my ($tree_column, $renderer, $model, $iter ) = @_;
my $id = $model->get( $iter, 0 );
$renderer->set( text => $combo{$id} ) if (exists $combo{$id});
}
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list gnome org
https://mail.gnome.org/mailman/listinfo/gtk-perl-list