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]
