Tk::Cloth - An OO Tk Canvas
|
Tk::Cloth - An OO Tk Canvas
This module is not included with the standard ActivePerl distribution. It is available as a separate download using PPM.
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 ]);
Tk::Cloth provides an object-orientated approach to a canvas and canvas
items.
Tk::Canvas
Graham Barr <gbarr@pobox.com>
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.
Tk::Cloth - An OO Tk Canvas
|
|