[perl-win32-gui-users] Suggested addition to GUI.XS and some good news

[Steve P. <st...@ba...>]

Hi,

Can anyone currently maintaining or debugging Win32::GUI add this to GUI.xs?
It's a small change that lets you do SetParent() from Perl.

I've written a dockable-windows routine (panes in your main window can be
detached into
windows) that works with my (very cool) packing grid object, which will be
available to download soon. The docking routine needs to be able to change a
window's parent (of course).

This works with 665:

 ###########################################################################
 # (@)METHOD:SetParent(VALUE)
 # Sets a windows parent handle
 # documentation.
HWND
SetParent(handle,value)
    HWND handle
    HWND value
CODE:
    RETVAL = SetParent(handle, value);
OUTPUT:
    RETVAL

While I'm posting I might as well explain what the packing grid object does.
It allows you to pack widgets into a grid. Heard that before? Well this does
it with a difference. Each object you add to the grid can have properties
assigned to it that dictate how it's aligned in the cell (left, center,
right, top, middle, bottom) and whether it's stretched to fill the cell
(vertically, horizontally or both). Each column or row in the grid can have
a fixed width or a variable width. Variable-widthed columns or rows stretch
to accommodate large widgets, and scale when the grid is resized (the entire
grid can be given Width and Height).

Still need more? Columns and rows can be resized. With my DragHandle object
(which is a very simple label that can be dragged around the window using
the mouse, and constrained horizontally and vertically, showing the
appropriate cursors of course) you can implement mouse-dragable column/row
sizes very easilly.

These three modules are all almost complete, so you'll get them soon.
They're all pure perl except for the one mod required for the dockable
windows to work. Soon you'll be able to create slick apps *fast* :)

Any questions, just ask.

Steve