view release on metacpan or  search on metacpan

samples/DumpQuickTime.pl  view on Meta::CPAN

sub copyItemText {
    my $path = shift;
    my $text = $tree->itemCget( $path, 0, '-text' );

    $tree->Busy( -recurse => 1 );
    if ( $tree->info( children => $path ) ) {
        openTree( $tree, $path, 1 );
    }
    else {
        $tree->clipboardClear ();
        $tree->clipboardAppend ($text);
    }

    $tree->Unbusy();
}

sub openTree {
    my $tree = shift;
    my ( $entryPath, $openChildren ) = @_;
    my @children = $tree->info( children => $entryPath );