Good day. I'm the developer of popular AmphetaDesk program:
http://www.disobey.com/amphetadesk/
Anyways, I use Win32::GUI to make the GUI for the Windows side of things,
and then I use perl2exe to make it into a binary for distribution. This has
been working fine for about a year now.
In the current release version, I'm using simple perl libraries -
no packages or modules. The current code is here:
http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/amphetadesk/AmphetaDesk/
lib/Windows.pl?rev=1.37&content-type=text/vnd.viewcvs-markup
I've recently switched everything over to modules/packages, and
the above code has been given a standard modular header:
package AmphetaDesk::OS::Windows;
use strict; $|++;
use AmphetaDesk::Settings;
use AmphetaDesk::Utilities;
use Win32::GUI;
require Exporter;
use vars qw( @ISA @EXPORT );
@ISA = qw(Exporter);
@EXPORT = qw( gui_init gui_listen gui_note open_url );
Besides the above addition, it's identical to what I've been using in the
past. Unfortunately, things aren't working 100%. The main window is drawn
correctly, the systray icon is shown, the various menu items will expand,
but NOTHING seems to work save the "gui_init" and "gui_listen" routines:
- the systray right click menu doesn't show up.
- the File>Exit or Tools sub-items display, but don't work.
- the X box closes the current window, but doesn't release the memory.
I've tried numerous little things to get this working (like EXPORTing all
of the my'd variables into the parent namespace, which is now
AmphetaDesk::, not main::), and nothing works.
Any ideas?
--
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Tech: http://www.oreillynet.com/pub/au/779 - articles and weblog
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
