RE: Justifying text in a Tk label?

[Beckett Richard-qswi266]

Aha! Thanks guys!

This is what I was trying to do, the part with the shorter label...

#########
use Tk;

my $mw=tkinit;

my $label=$mw->Label(
  -text=> 'This is a very long, long, long label.',
  -relief=>'groove');
$label->pack(
  -side=>'top',
  -fill=>'both',
  -expand=>'both');

my $label1=$mw->Label(
  -text=>'This is a short label.',
  -anchor=>'e',
  -justify=>'left',
  -relief=>'groove');
$label1->pack(
  -side=>'top',
  -fill=>'both',
  -expand=>'both');

MainLoop;
############

I think I missed the fact that you can use -anchor within the Label command,
and was only using it within the pack command.

The way Tk packs stuff is really tricky, isn't it!

Thanks, again.

R.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs