http://qs321.pair.com?node_id=108205
Category: Win32 and/or GUI Programming
Author/Contact Info Johan Lindström, johanl@bahnhof.se
Description: 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: http://www.darserman.com/Perl/Loft

After designing the window in The GUI Loft, this is what the Perl code looks like to bring it into your program:

use Win32::GUI; use Win32; use Win32::GUI::Loft::Design; my $fileWindow = "fetch.gld"; #You created this using The GU +I Loft 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)"); $win->Show(); Win32::GUI::Dialog();

I hope you'll like it!

/J