|The GUI Loft is a powerful and easy-to-use WYSIWYG design tool for designing Win32::GUI Windows.
There is a User Manual, a Programmer's Reference, Demo code, and a support mailing list.
The code is around 300K and changing a lot, so I won't post it here, but you can download the source and binary at the home page:
After designing the window in The GUI Loft, this is what the Perl code looks like to bring it into your program:
my $fileWindow = "fetch.gld"; #You created this using The GU
my $objDesign = Win32::GUI::Loft::Design->newLoad($fileWindow) or
die("Could not open window file ($fileWindow)");
my $win = $objDesign->buildWindow() or
die("Could not build window ($fileWindow)");
I hope you'll like it!