You are right, it should work. However with me it is not working and I guess this is a bug or something else in the listbox module of Tk. Below you can find an example using your example were it comes out bad in the listbox.
#!/usr/bin/perl -w
use strict;
use warnings;
use Tk;
$|++;
my $W;
my $c;
my $lab;
my @newtext;
use Text::Tabs;
my $tabstop = 8;
my $text = "Shape:r59\tX-loc:9.77\tY-loc:5.608";
my $text1 = "Shape:r59\tX-loc:9.8819\tY-loc:0";
push @newtext,($text,$text1);
my @newtext = expand(@newtext);
$c = initCanvas4();
sub initCanvas4
{
$W = MainWindow->new;
$W->title("Fiducial Information");
$W->iconname('Fiducial Information');
my $canv = $W->Canvas(qw/-relief sunken -relief flat -bd 0 -width 512
+-height 350 -background SlateGray3/);
$canv->pack;
return $canv;
}
# Create a listbox with the contents of the directory.
+
my $ent = $c->Scrolled(qw/Listbox -setgrid 1 -height 3 -width 40 -scro
+llbars e -selectmode single/);
for(@{newtext})
{
$ent->insert(0, "$_");
}
#$ent->bind('<Double-Button-1>',
# sub {
# $file_selected = $ent->get('active');
#
# }
$c->createWindow('10p 80p',
-window => $lab,
-anchor => 'nw'
);
$c->createWindow('10p 95p',
-window => $ent,
-anchor => 'nw'
);
MainLoop;
-
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.
|