>From: Johan Lindstrom [mailto:[EMAIL PROTECTED]
>Sent: 30 October 2002 12:34
>To: perl-win32-gui-users@lists.sourceforge.net
>Subject: Re: [perl-win32-gui-users] Gui loft and resizing the application
>At 10:03 2002-10-30 +0000, Martin Bower wrote:
>>If I design an app with guiloft, and then run it, quite often I have to
>>resize the app because the window has shrunk somewhat.
>>Has anyone else come across this ?
>That might depend on what kind of window you created. A Dialog box is
>slightly smaller than a Window I think (for the same size in the TGL Design
>window).
>If you do a Test window from within TGL, does it show the same size as in
>your application?
The test works perfectly, its only when I run the script that it resizes to
a weird size. I even compiled it (perl2exe) and ran it on 2 other machines
with the same results.
The app contains 1 window with a button, text box and 3 check boxes. so
nothing complicated there.
Martin
#!/usr/local/bin/perl -w
use strict;
use Win32::GUI;
use Win32;
use Win32::GUI::Loft;
use Win32::GUI::Loft::Control::ForegroundBackground;
use Win32::GUI::Loft::Control::Intangible;
use Net::FTP;
use MIME::Lite;
eval { main(); };
Win32::GUI::MessageBox(0, "Error: $@", "Trade transfer") if($@);
sub main {
my $fileWindow = "redi.gld";
my $objDesign = Win32::GUI::Loft::Design->newLoad($fileWindow) or
die("Could not open window file ($fileWindow)");
#my $objInspector = FetchInspector->new() or die("Could not create
Inspector}n");
my $win = $objDesign->buildWindow()
or die("Could not build window ($fileWindow)");
$win->Show();
my ($DOS) = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);
Win32::GUI::Dialog();
return(1);
}
******************************************************************************
The information in this document, including any attachments or subsequent
correspondence originating from this email address ("email"), is confidential
and may be legally privileged. It is intended solely for the addressee.
However, it may be intercepted by the system controller at Bankgesellschaft
Berlin AG for the purposes of monitoring communications relevant to the system
controller's business. Access to this email by anyone else is unauthorised.
If you have received this email in error, please notify the Sender immediately
by telephone. Please also delete this email from your computer.
Any form of reproduction, dissemination, copying, disclosure, modification,
distribution or publication of this email is prohibited without the prior
consent of Bankgesellschaft Berlin AG. If you are not the intended recipient,
any action taken or omitted to be taken in reliance of this email is strictly
prohibited and may be unlawful. Bankgesellschaft Berlin AG accepts no
liability for the consequences of any person acting, or refraining from action
in reliance of this email
******************************************************************************
