$c->createGroup([0, 0], -members => [$parent, @children]);

##</code><code>##

    my $id = $c->find( 'withtag', 'current' );
    print "\t item id: $id\n";

##</code><code>##

    my $x1 = 10;
    my $x2 = 20;
    $parent = $c->createRectangle(10, 20, 100, 60, -fill => 'red');

    for (1..4) {
	push @children, $c->createRectangle($x1, 20, $x2, 30,
	-state =>'disabled', -activefill  => 'green',-disabledfill => 'white');
	 $x1 += 15; $x2 += 15;
    }

    my $group = $c->createGroup([0, 0], -members => [$parent, @children]);