Abigail-II,

I didn't mean to waste your time. I actually have a problem passing @range not @array. Basically I'm a biologist who inhereted the code and needs to try and do something with it. I'm a really bad programmer (in Perl) and don't even know how to a bind keyboard event.

The problem area in the code is here (line 212): 

   my ($what) = @_;
    my $what_val = $what->get;            # use get to access contents
+ of entry

 $canvas ->createText($range[0],$range[1], -text=>"$what_val\n");

[download]

I'm using this to put some text on the canvas but can't pass the @range so I can't get $range[0] & $range 1.

If I can skip the sub all together and bind the keyboard here (line 121)
 elsif ($drawItem eq "text"){

    my $main = MainWindow->new;
    $main->Label(-text => 'Annotation Entry')->pack; # create an annot
+ation label and pack it
    my $say = $main->Entry(-width => 100);

    $say->pack;

    $main->Button(-text => 'Enter',
              -command => sub{do_say($say)}


     )->pack;

[download]
without needing to call the sub, that would be great!
Thanks in advance for any help and sorry I wasn't clear the first time.
-Mark

In reply to Re: Re: How to put text on the canvas for a keyboard STDIN by Anonymous Monk
in thread How to put text on the canvas for a keyboard STDIN by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.