I'm trying to get the bounds of grouped items using the perl bindings:
if ( $event->type eq "2button-press" ) {
        print 'x->',$event->x,'  ','y->',$event->y;
       
        #convert UTM to Lat and Long
        my $easting = $ps[0] * $event->x + 0.0 * $event->y + $mtp[3];
        my $northing = (-$ps[1]) * $event->y + 0.0 * $event->x + $mtp[4];
        my ($latitude,$longitude)=utm_to_latlon($ellipsoid,$zone,$easting,$northing);
        print " ($latitude, $longitude)";
       
        #Drop waypoint icon
        my $tgroup = Goo::Canvas::Group->new ($root);
        Goo::Canvas::Ellipse->new($tgroup,$event->x,$event->y,7.5,7.5,
            fill_color => 'purple',
            stroke_color => 'black');
        Goo::Canvas::Text->new ($tgroup,$count,$event->x,$event->y,-1,'GTK_ANCHOR_CENTER',
            font => 'Sans Bold 15',
            fill_color => 'pink',
        );
        print " $count\n";
           
        $waypoints{$count } = {'x' => $event->x,'y' => $event->y, 'lat' => $latitude, 'long' => $longitude};
        $count++;
        push(@drop,$tgroup);
    }
   
    #remove waypoints
    if ($event->type eq "button-press" && $event->button == 3){
        print "right click\n";
    foreach (@drop){
        #    my ($x1, $y1, $x2, $y2) = $_->get_bounds;
            print $_->get_bounds,"\n";
    }

The idea is that the user can add a waypoint by double clicking, then remove that waypoint by right clicking over thepoint. The thing is that I dont quite understand how to get the x and y bounds of the item. Any ideas?

--
Jamie Ryan Lahowetz
University of Nebraska - Lincoln
Graduate Student - Geosciences
402.304.0766
jlahowe2@bigred.unl.edu