Thanks for the heads up. I am trying to get the GUI progress bar to work. Do you guys have anyworking examples. Here is the issue now. my script calls a sub function that searches a network path and add all the files to an array, then it prints out the array in a GUI text box so the end user can see the results. The problem now is that the progress bar is not incremeting during the whole search function, when it's done the sub funtion then it populates the serach bar. Bascally what I want to do is have a progress bar displaying so my end users don't think the program has froze while it's doing it's searching. This is what i have thus far.

    $main->AddProgressBar(-name =>'pbar',
                          -height=>20,
                          -width =>175,
                          -pos => [5,550],
                          );

       $main->AddTimer('T1', 1000);
       $main->T1->Interval(0);
       
       sub T1_Timer{
        $main->pbar->DeltaPos(1);
       }



    sub btnFindLogs_Click
    {#start sub
        ##Start Timer
        $main->pbar->Interval(1)
            
        $CaseNumber = $main->CaseNumber->Text;
        $EmailAddress = $main->EmailAddress->Text;
        #$main->CaseSearchResults->Reset();
        if ($CaseNumber eq "" || $EmailAddress eq "")
        {
          $main->CaseSearchResults->Append("No case number was entered
+ or email address was provided.  Please try again. \r\r\n");
        }else
        {
         my @ep = split ("@",$EmailAddress);
        $userName = $ep[0];
        
        opendir(my $dir, $logSite) or die "Can't open '$logSite': $!";
        for my $file (readdir($dir))
            {
            
              for my $pattern ($CaseNumber)
            {
              if ($file =~ /$pattern/)
            {
            push @return, $file;
            # This avoids having the file in the result twice
            last;
            }
      }
    }
     @return = sort (@return);
     $size = @return;
     
    #end sub
    
    ##Populate text box with the serach resutls.
        foreach(@return)
        {
            
            $main->CaseSearchResults->Append($_."\r\r\n");}
 
        }#end of else
        
           if ($size > 0)
            {
            #if the size of the array is bigger then zero, then enable
+ the check boxes, if not, print that no logs were found.    
           $main->chkCpRimNet->Enable();$main->cpLogsLocal->Enable(); 
+$main->chkSubmitHct->Enable();
           #$main->btnClearLogs->Enable();
            }else{$main->CaseSearchResults->Append("No Logs were found
+\r\r\n");}
    }
[download]

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.