Re: dumping an entire treeview into a HoH

["Tadej Borovšak" <tadeboro gmail com>]

Hello.

The only method that comes to my mind is to use "foreach" method on
your tree model. But I'm no expert when it comes to low-level
gtk2-perl hacks, so there might be a faster solution that I'm not
aware of.


2008/12/25 zentara <zentara1 sbcglobal net>:
> Hi,
>
> I'm hoping someone can save me some hacking by showing me
> a generic code snippet for walking an entire tree and getting
> all it's values.
>
> This is code from the Novell Study Guide, and I added a button,
> with a callback called "clicked", in which I want to automatically
> walk the tree and collect all values without selecting them all.
>
> Is this possible? Or is it better to create a data structure first,
> then populate the tree from the data structure?
>
> #! /usr/bin/perl -w
>
> use strict;
> use Gtk2 '-init';
> use Glib qw/TRUE FALSE/;
>
> #Create a constant to differentiate columns in the model
> #(With more than once column this will become more clear)
> use constant MODEL_FIRST_COLUMN       => 0;
>
> #Create a constant to differentiate different renderers;
> #This makes things easy to discover which renderer in the view
> #was changed
> use constant RENDERER_FIRST_TEXT       => 0;
>
> #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();
>
> #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_store = Gtk2::TreeStore->new(qw/Glib::String/);
>
>        #fill it with arbitry data
>        foreach (1..3) {
>
>                my $parent_nr = $_;
>
>                my $iter = $tree_store->append(undef);
>                $tree_store->set ($iter,MODEL_FIRST_COLUMN, "Parent $parent_nr");
>
>                 foreach (1..3){
>                        my $iter_child = $tree_store->append($iter);
>                        $tree_store->set ($iter_child,MODEL_FIRST_COLUMN, "Child $_ of Parent $parent_nr");
>                }
>        }
>
>        #this will create a treeview, specify $tree_store as its model
>        my $tree_view = Gtk2::TreeView->new($tree_store);
>
>                #create a Gtk2::TreeViewColumn to add to $tree_view
>                my $tree_column = Gtk2::TreeViewColumn->new();
>                $tree_column->set_title ("Click to sort");
>
>                        my $renderer = Gtk2::CellRendererText->new;
>
>                        $renderer->set_property('editable' => TRUE);
>            #Attach a 'renderer_number' value to the renderer.
>            #This can be used to differentiate between renderers
>            #when we have a few renderers which can be edited
>            $renderer->{'renderer_number'} = RENDERER_FIRST_TEXT;
>
>                        $renderer->signal_connect (edited => \&cell_edited, $tree_store);
>
>                $tree_column->pack_start ($renderer, FALSE);
>
>                $tree_column->add_attribute($renderer, text => MODEL_FIRST_COLUMN);
>
>        #add $tree_column to the treeview
>        $tree_view->append_column ($tree_column);
>
> $vbox->pack_start($tree_view,TRUE,TRUE,0);
>
> my $button = Gtk2::Button->new ('Get all values');
> $button->signal_connect (clicked => \&clicked, $tree_view );
> $vbox->pack_start($button,0,0,0);
>
> $vbox->show_all();
> return $vbox;
> }
>
> sub clicked {
>  print "@_\n";
>  # I want to dump the tree into a HoH structure, or arrays
>
> }
>
>
> sub cell_edited {
>  my ($cell, $path_string, $new_text, $model) = @_;
>
>  my $path = Gtk2::TreePath->new_from_string ($path_string);
>
>    #Get the renderer number;
>        my $column_of_model;
>    if ($cell->{'renderer_number'} == RENDERER_FIRST_TEXT) {
>
>        $column_of_model = MODEL_FIRST_COLUMN;
>    }
>
>        my $iter = $model->get_iter ($path);
>
>  $model->set_value ($iter, $column_of_model, $new_text);
>
> }
> __END__
>
> Thanks,
> zentara
>
> --
> I'm not really a human, but I play one on earth.
> http://zentara.net/Remember_How_Lucky_You_Are.html
> _______________________________________________
> gtk-perl-list mailing list
> gtk-perl-list gnome org
> http://mail.gnome.org/mailman/listinfo/gtk-perl-list
>



-- 
Tadej Borovšak
00386 (0)40 613 131
tadeboro gmail com
tadej borovsak gmail com