RE: Gtk2::TreeModel - foreach

[Jeff Hallock <Jhallock WBandA com>]

> -----Original Message-----
> From: Martin Schlemmer [mailto:Martin Schlemmer nwu ac za]
> Sent: Friday, November 20, 2009 6:48 AM
> To: gtk-perl-list gnome org; Martin Schlemmer; Jeff Hallock; Zettai Muri
> Subject: Re: Gtk2::TreeModel - foreach
>
> > > > On 2009/11/20 at 11:41 AM, Zettai Muri <zettaimuri ymail com> wrote:
> > I was just wondering, is there a return value of some sort or a way to
> > get the return TRUE from the search sub, so that it is possible to then
> > do something like:
> >
> > if ( $model->foreach(\&search, 'Bob') )
> > {
> >         print ("Welcome back!\n");
> > }
> > else
> > {
> >     print ("Who are you?\n");
> > }
> >
> > I have tried the above but my output is always:
> > FOUND
> > Who are you?
>
> Use pass a hash or other reference to the foreach():

Or here is an alternative that doesn't use the foreach method.


sub search {
    my ($model, $search_string) = @_;
    my $iter  = $model->iter_first;
    my $found;

    do {
      if ($model->get($iter, 0) ~= /$search_string/) {
         $found = 1;
      } else {
         $iter  = $model->iter_next;
      }
    } while (! $found && $iter);

    return $found;
}


if ( search($model, 'bob') ) {
    print ("Welcome back!\n");
} else {
   print ("Who are you!\n");
}