G'day KuntalBhusan,
You haven't defined either $x or $y in $canvas->rotate($text,90,$x,$y);.
Looking at Tk::AbstractCanvas' Source, you'll see these values must be defined (the return() unless ... line):
sub rotate { # takes as input id of obj to rot, angle to rot by, && op
+tional x,y point to rot about instead of obj center, if possible
my($self, $obid, $angl, $xfoc, $yfoc)= @_; croak "rotate: Must suppl
+y an angle -" unless(defined($angl));
my $type = $self->type($obid); # some objs need a pivot point to rot
+ate their center around
return() unless(exists($_can_rotate_about_center{$type}) || (defined
+($xfoc) && defined($yfoc)));
$_rotate_methods{$type}->($self, $obid, $angl, $xfoc, $yfoc);
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.