Tk::Checkbutton - text does not line up ...

[MoshiachNow]

HI,

Using a function on Windows,I define a $test variable as following:

$text=sprintf("%-35s %-13s",$_,'(directory)');

Then define the checkbutton:

$button[$i] = $dialog5->Checkbutton(-text => "$text",-variable =>
\($var->{$_}),-relief => 'flat')->pack(@pl);

The text in $text DOES NOT get lined up !

If at the same time I print $text to the black window

print "$text\n";

the text DOES look lined up.

What is wrong ?
Thanks

 

[Dave]

HI,

Using a function on Windows,I define a $test variable as following:

$text=sprintf("%-35s %-13s",$_,'(directory)');

Then define the checkbutton:

$button[$i] = $dialog5->Checkbutton(-text => "$text",-variable =>
\($var->{$_}),-relief => 'flat')->pack(@pl);

The text in $text DOES NOT get lined up !

If at the same time I print $text to the black window

print "$text\n";

the text DOES look lined up.

What is wrong ?
Thanks

By default the text is 'center' anchored; you probably don't want this so
try setting the -anchor option, e.g. anchor => 'w', as appropriate.

 

[Ch Lamprecht]

By default the text is 'center' anchored; you probably don't want this so
try setting the -anchor option, e.g. anchor => 'w', as appropriate.

In addition you might consider using a fixed-width font to have the second part
of your label aligned vertically as well:

use strict;
use warnings;
use Tk;
my $mw = tkinit();
my @text =
map {sprintf("%-35s %-13s",$_,'(directory)')
} qw(test something_else);
my @buttons =
map {$mw->Checkbutton(-text => $text[$_],
-font=>[courier => 9]
)->pack(-anchor=>'w')
} (0,1);

MainLoop();


Christoph

 

[MoshiachNow]

In addition you might consider using a fixed-width font to have the second part
of your label aligned vertically as well:

Thanks !

This worked like magic !!