#=============================================================================
#                ZtkBubble  Class
#=============================================================================
package ZtkBubble;
use strict 'vars';
use Carp;

#====================
# Object constructor
#====================
sub new {
    my ($class, %arg) = @_;

    # object attributes
    my $self = {
	'widget' => $arg{-widget},      # widget reference into which it goes
	'name'  => $arg{-name},         #identifying name 
        'bub'  => $arg{-bub},           #which reusable bubble space it's using
	'tags' => $arg{-tags},            # tag object of self
	'x' => $arg{-x},
	'y' => $arg{-y},               # origin coordinates
	'radius' => $arg{-radius},      # radius
	'color' => $arg{-color},        # top Group item
	'dx' => $arg{-dx},              # initial x direction 
	'dy' => $arg{-dy},              # initial y direction 
	'afterdelay' => $arg{-afterdelay},       # repeater time delay
    };
    bless $self;    

#   print "just blessed $self\n";
    $self->{self} = $self;     

    $self->{topgroup} = $self->{widget}->add('group', 1, 
                                       -priority => 2,
                                       -visible => 1);
    
    $self->{widget}->coords($self->{topgroup}, [$self->{x},$self->{y}]);
    $self->{timer}; #declare variable to store internal timer 
    $self->{'init'} = $self->{widget}->tget( $self->{topgroup}  );    
    # print join ' ',@{ $self->{init}  },"\n";  #initial position

   my $color1 = '#';
   for (0 .. 2){
     my $rgb = unpack('H*', pack('n', (int(rand(192)+64))));
     $rgb =~ s/.+(\w\w)$/$1/;
     $color1 .= $rgb;
}

#add items to self group
    
    $self->{arc1} =
    $self->{widget}->add('arc',  $self->{topgroup},
		     [-$self->{radius}, -$self->{radius}, $self->{radius}, $self->{radius}],
#		     -visible => 1,
		     -filled => 1,
#		     -closed => 1,
#		     -extent => 360,
#		     -pieslice => 1,
		     -fillcolor => $color1,
#		     -linewidth => 1,
#		     -startangle => 0 ,
		     -tags => [$self->{tags},'bubble'],
		     );
  $self->{arc2} =
  $self->{widget}->add('arc',  $self->{topgroup},
		     [-$self->{radius}/2, -$self->{radius}/2, $self->{radius}/2, $self->{radius}/2],
#		     -visible => 1,
		     -filled => 1,
#		     -closed => 1,
#		     -extent => 360,
#		     -pieslice => 1,
		     -fillcolor => $self->{color},
#		     -linewidth => 1,
#		     -startangle => 0 ,
		     -tags => [$self,'bubble'],
		     );

    # Create the Text item representing the jackpot.
    $self->{txt} =
    $self->{widget}->add('text', $self->{topgroup},
		 -position => [0, 0],
		 -anchor => 'center',
		 -text => $self->{'name'},
		 
		 );
    
    $self->{line} =
    $self->{widget}->add('curve',  $self->{topgroup},
		     [-$self->{radius}, -$self->{radius},$self->{radius}, $self->{radius}],
		     -visible => 1,
		     -linecolor => 'white',
		     -linewidth => 3,
		     -tags => [$self,'bubble'],
		     );
    return $self;
}
#############################################
sub DESTROY{
  my ($self) = @_;
    print "destroying->",$self,' ', $self->{bub}. "\n";
}
###########################################
#================
# Public methods
#================

# Start motion of $self 
sub bubble_move {
    my $self = shift;
$self->_move();
}

#=================
# Private methods
#=================

sub _close {
    my ($self) = @_;
    my $widget = $self->{widget};
    my $group = $self->{topgroup};
    my $name = $self->{name};
    my $bub = $self->{bub};
    my $tag = $self->{tags};
    
    &main::comment("Poof!!   name->$name    bub#->$bub");
    $widget->dtag($tag);
    $self->{timer}->cancel;
    push @main::bubjects, $self->{bub};  #return to pool

#$self->DESTROY;    #don't use this, since we are reusing them
}

# Generate motion and  rotation animation.
sub _move {
    my ($self) = @_;
    my $widget = $self->{widget};
    my $group = $self->{topgroup};
    $widget->translate($group, $self->{'dx'} ,$self->{'dy'});
 
   $self->{x} += $self->{'dx'}; 
   $self->{y} += $self->{'dy'}; 
 
 #check for side collisions
   if( ( $self->{x} < 0) or ($self->{x} > $self->{widget}->reqwidth ) )
       { $self->{'dx'} *= -2 }


 #reset bubbles for next run with new name
 if($self->{y} < -$self->{radius}){ 
             $self->_close(); 
                
	     $self->{widget}->tset( $self->{topgroup} , @{ $self->{init} } );
             # print join ' ',@{ $self->{init}  },"\n";
	     $self->{x} = ${ $self->{init} }[4];
	     $self->{y} = ${ $self->{init} }[5];
	     # $self->{widget}->coords($self->{topgroup}, [$self->{x},$self->{y}]);
	     $self->{name} = $main::count++;
	     $self->{widget}->itemconfigure($self->{txt}, -text => $self->{'name'} );
	     return }  

 $widget->rotate($group,.9,$self->{x},$self->{y} );

#use $self->timer instead of anonymous timer, in order to cancel on close 
$self->{timer} = $widget->after($self->{afterdelay}, sub { $self->_move() });
}
1;