NAME

SYNOPSIS

    use Tk::Cloth;
    
    $cloth = $parent->Cloth;
    $cloth->pack(-fill => 'both', -expand => 1);
    
    $rect = $cloth->Rectangle(
        -coords => [ 0,0,100,100],
        -fill => 'red'
    );
    
    $tag = $cloth->tag;
    $tag->Line(
        -coords => [10,10,100,100],
        -foreground => 'black'
    );
    $tag->Line(
        -coords => [50,50,100,100],
        -foreground => 'black'
    );
    $tag->move(30,30);
    
    $tag->bind("<1>", [ &button1 ]);

DESCRIPTION

SEE ALSO

AUTHOR

Current maintainer is Slaven Rezic <slaven@rezic.de>.

COPYRIGHT