NAME

Tk::GraphItems::LabeledConnector - Display edges of relation-graphs on a Tk::Canvas

SYNOPSIS

require Tk::GraphItems::TextBox;
require Tk::GraphItems::LabeledConnector;


my $conn = Tk::GraphItems::LabeledConnector->new(
                                          source => $a_TextBox,
                                          target => $another_TextBox,
                                          label  => 'labeltext'
                                          );
$conn->colour( 'red' );
$conn->arrow( 'both' );
$conn->width( 2 );
$conn->detach;
$conn = undef;

DESCRIPTION

Tk::GraphItems::LabeledConnector extends Tk::GraphItems::Connector with a 'label' option.

METHODS

Tk::GraphItems::LabeledConnector supports the following additional methods:

new( source => $a_GraphItems-Node, target => $a_GraphItems-NodeB, label => 'label text' colour => $a_TkColour, width => $width_pixels, arrow => $where, autodestroy => $bool<)>

Create a new LabeledConnector instance and display it on the Canvas of 'source' and 'target'. See Tk::GraphItems::Connector for details.

label( [$labeltext] )

Sets the labels text to $labeltext, if the argument is given. Returns the current label, if called without an argument.

SEE ALSO

Documentation of Tk::GraphItems::Connector Documentation of Tk::GraphItems::TextBox Examples in Tk/GraphItems/Examples

AUTHOR

Christoph Lamprecht, ch.l.ngre@online.de

COPYRIGHT AND LICENSE

Copyright (C) 2008 by Christoph Lamprecht

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.