[perl-win32-gui-users] TextField, Font and space

[Andrea M. <mae...@fr...>]

Hello!

A space appear before the prompt in the Textfield when I use some
fonts and disappear in Textfield without fonts...

Could you tell me why!?!

Thanks!

Andrea Maestrutti

#######
# SPACE
#######

use Win32::GUI;

my $win = new Win32::GUI::Window(
    -title    => "Space before text",
    -left     => 100,
    -top      => 20,
    -width    => 250,
    -height   => 100,
    -name     => "Window",
);

my $Font = new Win32::GUI::Font(
	-name => "Arial",
	-size => 16,
);

my $txt= $win->AddTextfield(
	-name => "textfield",
        -font => $Font,
        -left => 35,
        -top => 30,
	-height => 25,
        -width => 130,
	-text => "Space before me",
);

sub Window_Terminate {
    return -1;
}

$win->Show;
Win32::GUI::Dialog();


##########
# NO SPACE
##########

use Win32::GUI;

my $win = new Win32::GUI::Window(
    -title    => "NO space before text",
    -left     => 100,
    -top      => 20,
    -width    => 250,
    -height   => 100,
    -name     => "Window",
);


my $txt= $win->AddTextfield(
	-name => "textfield",
        -font => $Font,
        -left => 35,
        -top => 30,
	-height => 25,
        -width => 135,
	-text => "NO space before me",
);

sub Window_Terminate {
    return -1;
}

$win->Show;
Win32::GUI::Dialog();