Tk::LabEntry - justify label?

gri6507 has asked for the wisdom of the Perl Monks concerning the following question:

Fellow monks,

After not doing Tk for many many months, I forgot how to use LabEntry. I would like the following two LabEntries:

  Begin: _______________
    End: _______________
[download]

where the labels are right justified. I tried the following code:

$mw->LabEntry(-label=>'Begin', -labelWidth=>7, -labelPack=>[-side=>'le
+ft', -anchor=>'w'])->pack();
$mw->LabEntry(-label=>'End', -labelWidth=>7, -labelPack=>[-side=>'left
+', -anchor=>'w'])->pack();
[download]

but the labels still turn out to be centered instead of right justified as I expected. How do I specify the labels to be right justified?

Thanks much.

Comment on Tk::LabEntry - justify label? Select or Download Code

Replies are listed 'Best First'.
Re: Tk::LabEntry - justify label? by si_lence (Deacon) on Jan 19, 2005 at 17:07 UTC
Hi I think you can get it to look nice by padding with blanks: `$mw->LabEntry(-label=>' ' x (7 - length 'Begin') . 'Begin' , -labelWi +dth=>7, -labelPack=>[-side=>'left', -anchor=>'w'])->pack(); $mw->LabEntry(-label=>' ' x (7 - length 'End') . 'End', -labelWidth=> +7, -labelPack=>[-side=>'left', -anchor=>'w'])->pack();` [download] clumsy but it works (as long as you are using a nonpropotional font) si_lence	[reply] [d/l]
Re: Tk::LabEntry - justify label? by bibliophile (Prior) on Jan 20, 2005 at 15:41 UTC
Just a guess... should the -labelPack be: -side => 'right'? :-) Update: According to "Mastering Perl/Tk", it looks like -labelPack's -side only refers to the label's position relative to the entry. Perhaps the -labelPack's -anchor should be 'e'? I'm making this up as I go along... no access to my dev environment right now :-(	[reply]
Re: Tk::LabEntry - justify label? by diamantis (Beadle) on Jul 14, 2007 at 13:20 UTC
I suppose by now you have your problem solved, but since I had a similar problem and found "one more way to do it" the following might be useful to someone `my $b= $import_w->LabEntry(-label=> 'mytext', -labelPack=>[-side=>'left'] )->pack(-anchor=>'e');` [download] Right-justifying the entry with pack.	[reply] [d/l]
Re: Tk::LabEntry - justify label? by OfficeLinebacker (Chaplain) on Jul 10, 2007 at 02:19 UTC
Greetings, esteemed monks! I am fighting something very similar, only I am going for Date Received:________ Due Date:_______ Amount:________ etc--the whole shebang anchored to the left side of the frame. Will report back. I like computer programming because it's like Legos for the mind.	[reply]