#!/usr/bin/perl
use Tk; 
use Tk::Zinc;
use lib '.';
use ZtkBubble;
#use MeM;

print "$$\n";

my $mw = MainWindow->new;
$mw->geometry("700x600");
$mw->resizable(0,0);

my $launcher;
my $zinc = $mw->Zinc(-width => 700, -height => 565,
                    -backcolor => 'black',
		    -borderwidth => 3, -relief => 'sunken')->pack();

# Then we create a filled rectangle, in which we will display explain text.
$zinc->add('rectangle', 1 , [200, 400, 490, 490],
	   -linewidth => 2,
	   -filled => 1,
	   -fillcolor => 'SkyBlue',
	   -priority => 1,
	   );

my $text = $zinc->add('text', 1,
		      -position => [350, 445],
		      -anchor => 'center',
		      -priority => 3,
		      -width => 200,
		      );

#####setup 100 bubble objects for reuse#############################
my %bubs;       #reusable object space
our @bubjects = (1..100);   #shared array for object reuse 
my @x = (1,-2,3,-4,5, -1,2,-3,4,-5 ); #give random diagonal motion
our $count = 0;

foreach my $bub (@bubjects){
     $count++;
     $tag = $count;
     push (@x,shift(@x));  
     $afterdelay = 1 + int(rand(99));
    
# Create the 100 ztkbubble object (see Package ztkbubble below)
 $bubs{$bub} = ZtkBubble->new(
                 -widget => $zinc, 
                 -name => $count,
                 -bub => $bub,
		 -tags => $tag,
                 -x => rand 700,
                 -y => 700,
		 -radius => 10 + rand(30),
		 -color => 'white',
		 -dx => $x[0],
		 -dy => -20,
		 -afterdelay => $afterdelay,  
                );
}
###########################################################

# Display comment
&comment("Strike any key to begin");

# Create Tk binding
$mw->Tk::bind('<Key>', \&openmode);

my $closebutton = $mw->Button(-text => 'Exit', 
    -command => sub{ 
                 if(defined $launcher){$launcher->cancel};
		exit(0); 
		})->pack; 

MainLoop;
#####################################################
sub openmode {
    $mw->Tk::bind('<Key>', \&closemode);
     &comment("Bubbling!!");


# 50 is about my max on a 800 Mhz K6, adjust accordingly
$launcher = $mw->repeat(500,sub{
         my $bub = shift @bubjects;
	$bubs{$bub}->bubble_move();
#        print "bubjects->@bubjects\n";
   });
}


sub closemode {
    # and then inform user
    &comment("We are bubbling baby !!");
}

# Just display comment 
sub comment {
    my $string = shift;
    $zinc->itemconfigure($text, -text => $string);
}