first click - boxes will be on top secound click - boxes will be bottom i want them to stay in the same place (top) 
 use Tk;

$MainWindow = MainWindow->new;
        $MainWindow->geometry("420x420");
    $MainWindow->configure(-background => "black");  

$m = 0;
$bfa = 0;
my $vary = 0;
my $varx = 0;
my $n=0;

$MainWindow->Button(-font => "Ariel 8 bold", -relief => 'groove', -tex
+t => "click", -width => 14, -height => 0, -command => \&dude)->place(
+ -x => 200, -y => 385);

sub dude
{
    foreach $WidgetDestroy(@ButtFunc)
    {
        if (defined ($ButtFunc[$n]))    
        {
            $WidgetDestroy->destroy;
        }    
        if (undef ($ButtFunc[$n]))
        {
            print "hello";
        }    
        ++$n;
    }

        for (my $i=0;$i<6;$i++)
        {    
            my $varx = 0;

            for (my $j=0; $j<7; $j++)
            {    
                $ButtFunc[$bfa] = $MainWindow->Button(-font => "Ariel 
+8 bold", -relief => 'groove',-background => 'white', -text => $montha
+rr[$m], -width => 15, -height => 2, -command => [ \&OpenTab, $Jularr[
+$m]])->place( -x => $varx, -y => $vary);
                $varx = $varx + 98;
                ++$m;
                ++$bfa;    
            }
            $vary = $vary + 43;
        }
}
 
 MainLoop;

[download]

In reply to Re: TK Destroy func by Aboveyou
in thread TK Destroy func by Aboveyou

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.