in reply to Re^4: Packaging Perl Programs (is) Painful
in thread Packaging Perl Programs (is) Painful

and GTK2::GladeXML both fell into the category of unbuildable last time I tried on Win32

Yes, its a huge negative that there aren't ppms for the various Gtk2..., but there is hope, See Re: install Gtk2::GladeXML

I think Wx looks great and has the functionality I'd need, but all of the existing documentation is for the C++ version. You need to translate it to perl, and not all concepts map cleanly from one language to the other. And as the original poster pointed out, it's not trivial to deploy a WxPerl application.

They map well enough , honest. Start with http://wxperl.sourceforge.net/tutorial/tutorial1.html

Then download chm file here, Wx-Demo, and dont forget about the samples

Short version, wxFrame in perl is Wx::Frame, methods are called using arrow not dot.

For all other differences the documentaion contains notes like this

wxWindow::ClientToScreen

virtual void ClientToScreen(int* x, int* y) const

wxPerl note: In wxPerl this method returns a 2-element list instead of modifying its parameters.

virtual wxPoint ClientToScreen(const wxPoint& pt) const

Converts to screen coordinates from coordinates relative to this window.

x

y

pt

wxPython note: In place of a single overloaded method name, wxPython implements the following methods:

so in wxperl this maps pretty much the same. So you can use any of these
$ perl -MWx -le"print for Wx::Window->new->ClientToScreen( 0,0 )" 0 0 $ perl -MWx -le"print for Wx::Window->new->ClientToScreen( [0,0] )" Wx::Point=SCALAR(0x98a3c4) $ perl -MWx -le"print for Wx::Window->new->ClientToScreen( Wx::Point-> +new( 0,0 ) )" Wx::Point=SCALAR(0xda76e4)
In perl [ -1, -1 ] is a shortcut for wxPoint or wxSize depending on context.

Heres a hint to how wxPerl does overloading
$ perl -MWx -le"print for grep /clienttoscreen/i, keys %Wx::Window::" ClientToScreenPoint ClientToScreen ClientToScreenXY
So you could also write
$ perl -MWx -le"print for Wx::Window->new->ClientToScreenXY( 0,0 )" 0 0 $ perl -MWx -le"print for Wx::Window->new->ClientToScreenPoint( [0,0] + )" Wx::Point=SCALAR(0x3e8b64) $ perl -MWx -le"print for Wx::Window->new->ClientToScreenPoint( Wx::Po +int->new( 0,0 ) )" Wx::Point=SCALAR(0x9cf5c4)