---
name: "Tk::Cloth"
section: "3pm"
platform: "linux"
package: "libtk-gbarr-perl"
version: "2.08-3"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Tk::Cloth"
---

# Tk::Cloth(3pm)

An OO Tk Canvas

## NAME

Tk::Cloth - An OO Tk Canvas

## 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

**Tk::Cloth** provides an object-orientated approach to a canvas and canvas items.

## SEE ALSO

Tk::Canvas

## AUTHOR

Graham Barr \<*gbarr@pobox.com*\>

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

## COPYRIGHT

Copyright (c) 1997-1998 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.