I have a Gtk2::Simplelist setup which is working fine except I cant delete any rows
ie: this works $add_encode_type_btn->signal_connect('clicked',sub{push (@{$mod_model->{data}},[undef,undef,undef,undef,undef])}); which adds a record but this doesnt $delete_encode_type_btn->signal_connect('clicked',sub{my @list=$mod_model->get_selected_indices;shift @{$mod_model->{data}};foreach my $key (@{$mod_model->{data}}){print "\n",@{$key},"\n"}}); The entry dissapears and the array prints as I would expect. But the new array doesnt get passed to this function, while the changed array does in the first case $amend_encode_type_btn->signal_connect('clicked',sub{%options=&update_opts(@{$mod_model->{data}});&opts($video_type);$mod_win->destroy }); called subs are sub update_opts { my [EMAIL PROTECTED]; my @update; no strict 'refs'; foreach my $upd (@{$update}){ my @upd; foreach my $updhash (@{$upd}){ $updhash=~s/\n//g; push (@upd,$updhash,"\t"); } [EMAIL PROTECTED]; push(@update,$upd); } no strict 'refs'; foreach my $upd (@update){ [EMAIL PROTECTED]@{$upd}[2..8]] ; } &save_options; return %options; } sub opts { my ($video_type,$enc)[EMAIL PROTECTED]; if (defined($video_type)){ my $model= $video_type->get_model ; $model->clear ; my $title='Select Encoding Type'; $video_type->append_text("$title"); foreach my $type (sort keys %options){ no strict 'refs'; if ($type ne 'dir' and $type ne 'feedback'){ $video_type->append_text($options{$type}[6]); } } $video_type->set_active(0); } } _______________________________________________ gtk-perl-list mailing list gtk-perl-list@gnome.org http://mail.gnome.org/mailman/listinfo/gtk-perl-list