The module seems to be missing... Is it available for download
somewhere?
Come to that, is the latest version of Win32::GUI available for
download? Last time I looked, Aldo's web page
(http://www.divinf.it/dada/perl/) still had the old version, and
Win32::GUI seems to have never made it to CPAN.
Thanks,
Paul Moore.
>----------
>From: Mike Kangas[SMTP:[EMAIL PROTECTED]]
>Sent: 03 February 1999 06:07
>To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
>Subject: [perl-win32-gui] Beta 0.00001 Layout Manager
>
>Here is a module that I wrote last night to at least start the ball
>rolling on using a layout manager.(... this is what it is called in Java
>
>if the term in unfamiliar.) It will equally divide the window into
>the number of columns and rows given to it. You can then simply
>place a widget(i.e. label, textfield...) inside of this cell. It will at
>least
>put your widgets within a close proximity to where you will want them
>to go. I simply futsed with the spacing by simply adding pixels to try
>and
>make it a little prettier.( i did this in test2.pl).
>
>GridLayout.pm takes 6 parameters.
>columns, rows, width, height, xPadding, yPadding
> columns: the number of columns you want to have
> rows: duh!?!?
> width: the total width given to the window.
> height: duh?!?!
> xPadding: the amount of space, in pixels, between the
> left edge of the cell created and the widget
> yPadding: the amount of space, in pixels, between the
> top edge of the cell and the widget.
>so.....
>
>if GridLayout.pm is given the parameters ...
> $grid = GridLayout::new(3,5,600,500,10,5)
>this will ASSUME that the window is 600 pixels wide,
>500 pixels high, 3 columns wide, 5 rows high,
>and that you want a 10 pixel padding between your
>widget and the left side of the cell and 5 pixels between
>your widget and the top edge of the cell.
>
>The math in the module shouldn't be hard to follow.
>
>to put a label in the second column, third row would be...
> $win->AddLabel(
> -name => "label",
> -left => $grid->column(2),
> -top => $grid->row(3),
> -text => "Testing ",
> );
>
>This is my frist perl object oriented project as well as my second
>try at trying this module stuff. So please forgive me if I it's a
>bit....
>I dunno.... sloppy or ugly. I just hope this gets the ball rolling.
>
>If you have Win32::GUI working correctly all you should have to do
>to see my first whack at this would be to put these files in the same
>directory and run test1.pl and test2.pl
>
>Any Questions??
>Michael Kangas
>[EMAIL PROTECTED]
>
>
