Hi thunders,

Your issues aren't so much related to passing that array around. Your main problem here is that you are trying to use functional code in an event driven framework. The @image_files array is already paired down to one element before any widgets are drawn because Tk doesn't render anything until you call MainLoop. This means your code for pairing down the images has to happen somewhere else, like in your return array function.

But before you go re-engineering your code to meet that requirement let me talk about returning your array. Don't do it! You are already passing a reference to the array so when your subroutine returns it has alread been modified. You'll see in my sample code that I don't return *anything* because I don't have to. I also clearly labled my reference, which IMO is a good coding practice.

My guess is that you haven't worked that much with event driven programming. I hadn't myself until I started playing a lot with Tk. I think you are on the right track, but there are probably easier (though more long winded) ways to approach what this accomplishes. I think this technique you are using is a neat hack. In either case I hope this helps you. 

#!/usr/bin/perl -w

use strict;
use Tk;

chdir('images');
my @image_files = <*.gif>;

#initialize Main Window
my $mw = MainWindow->new;

show_two_buttons($mw,\@image_files);

MainLoop;
exit;

# Subroutines #

sub show_two_buttons{
    my $mw = shift;
    for ($mw->packSlaves()){
        $_->destroy() if Tk::Exists($_); #clear out window
    }
    my $image_file_REF = shift;

    my $first_pic = shift @{$image_file_REF};
    my $second_pic = shift @{$image_file_REF};
    #generate two buttons
    for my $file ($first_pic,$second_pic){
        my $image = $mw->Photo(-file=>$file);

        $mw->Button( -image=>$image, -text=> $file, 
            -command=>[\&return_array, $mw, $file, $image_file_REF] 
        )->pack(-side=>"left");
    }
}

sub return_array{
    my $mw = shift;
    my $file = shift;
    my $image_file_REF = shift;
    push  @{$image_file_REF}, $file;

    # Uncomment to show what's left.
    #print join ", ", @{$image_file_REF};
    #print "\n";

    # Here is where we do our test to see what is left
    if (scalar @{$image_file_REF} > 1)
    {
        show_two_buttons($mw, $image_file_REF);
    }
    else
    {
        print "All done!\n";
        exit;
    }
}

[download]
{NULE}
--
http://www.nule.org

In reply to Re: returning values from Perl-Tk events by {NULE}
in thread returning values from Perl-Tk events by thunders

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.