perl-win32-gui-users — Using the Win32::GUI Perl extension

Re: [perl-win32-gui-users] ACK!! Sputter Cough... say it isn't so!

[Morbus I. <mo...@di...>]

>Is it really not possible to (usefully) program in Win32::GUI while under
>"use strict"?!?  I say this because there appears to be **nothing** passed
>to the event-handling subroutines - not even a reference to the widget

It's certainly possible - but your complaint seems to be more about global
variables as opposed to 'use strict'. As a rough example, AmphetaDesk uses
Win32::GUI, under 'use strict' and -w. And yes, within the Windows routines
(/lib/Windows.pl), I use global variables. Que sera.

  http://www.disobey.com/amphetadesk/

-- 
Morbus Iff ( i am your scary godmother )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus

[perl-win32-gui-users] ACK!! Sputter Cough... say it isn't so!

[Mark W. <ma...@il...>]

Someone please... save me before I choke!  Please say it isn't so!!
Tonight I really started to build a serious heavy-duty Win32::GUI
application, and I immediately hit a wall:

Is it really not possible to (usefully) program in Win32::GUI while under
"use strict"?!?  I say this because there appears to be **nothing** passed
to the event-handling subroutines - not even a reference to the widget
itself!  This, IMHO, is absolutely insane!  That means that all of my
widget refs, and every variable that is required in the event-handling
subroutines, have to be global variables...  which would make comp-sci
professors roll over in their future graves... a "good" program should
never need to have a *single* global variable, let alone *every* variable
being global.  If even the widget ref was sent to the event-handler I could
attach the subroutine's required variables to its hash, but as things are
it seems to break every rule I know about "good" programming style.

I must be missing something... Please, someone, tell me that it doesn't
really work this way...

Mark

[perl-win32-gui-users] Open Network Folder with Browse For Folder

[Tim S. <Tim...@lv...>]

Hi,

I would like to open an initial folder on a network path (which is not mapped by
the client), say "\\client\d$".
I can open initially only a local folder by using "Browse For Folder". Trying to
open a network folder shows me the network folder in the Windows Explorer with
the wanted client, but the desired path d$ has not been selected.
Here's the code:

----------- start -----------
my $bff = Win32::FFI::BrowseForFolder->new(
           -initial => CSIDL_NETWORK,
           -folder  => "\\\\client\d$",
           -title   => "Select Profile Template",
          -regexp  =>'^(?i)[cd]:',
           );
my $dir = $bff->show;
----------- end -----------

What am I doing wrong? Or is there a different module which can be used?

Thanks in advance


Tim

[perl-win32-gui-users] Capture shutdown

[Sean H. <jal...@ho...>]

Is there a way to capture the shutdown event?  I have a Win32::GUI script 
that sits in the taskbar.  It saves its current settings when it exits.  
However, I don't want to have to exit that script manually every time I shut 
down Windows.  I tried an END block, but it didn't work.

Is there a signal for this event?  In that case, I could use %SIG.

Is there a message that Windows sends out?  In that case, I could use 
PeekMessage.

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp

Re: [perl-win32-gui-users] Drag-n-Drop?

[Sean H. <jal...@ho...>]

>Before I spend a lot of time banging my head...  Does Win32GUI support
>Drag-n-drop?

Johan Lindstrom has added this functionality - but it requires recompiling 
GUI.xs.*  Johan's stuff is here (he'll probably post it as well, but just in 
case):
http://www.bahnhof.se/~johanl/perl/Win32GUI/DragDrop.pm

You might be able to do it with Win32::API - but I seem to remember Johan 
having some trouble getting that to work.  Maybe a loop with DoEvents and 
PeekMessage will solve the problem he had with missing 9 out of every 10 
messages - but maybe he tried that and it didn't work.

*If you really need DragDrop, you can download Borland's compiler for free, 
although you have to register with them.  I don't have the link, but go to 
www.borland.com and search.  Then look in your perl documentation on how to 
turn the XS file into C code (there's a program to do this that's included 
with perl).  Then you can compile that.  Since all you have to do is add 
Johan's stuff to your GUI.xs, you won't need to do any C programming 
yourself.  (Of course, I could be wasting my time giving you this 
information, as you may be a C programmer.)  I haven't bothered to do it, as 
I've never needed DragDrop for anything.  Also, since I'm not a C 
programmer, I may have missed some steps here.  Anyone who knows more about 
this subject may feel free to correct my misapprehensions.

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp

[perl-win32-gui-users] Drag-n-Drop?

[Mark W. <ma...@il...>]

Before I spend a lot of time banging my head...  Does Win32GUI support
Drag-n-drop?

any examples?

Cheers!

M

RE: [perl-win32-gui-users] Can't Search perl-win32-gui Archives

[<pau...@or...>]

Hi

I have searched other lists on SourceForge which seem to use the same type of
page (with GeoCrawler in the top left) and it does work. It only seems to be
ours that has a problem.

Cheers

Paul



*******************************************************************************
Important. This E-mail is intended for the above named person and may be
confidential and/or legally privileged. If this has come to you in error you
must take no action based on it, nor must you copy or show it to anyone; please
inform the sender immediately.
*******************************************************************************

RE: [perl-win32-gui-users] Can't Search perl-win32-gui Archives

[Piske, H. <Har...@bo...>]

 >  Am I the only one having this problem?   
 
Not exactly. This has been reported ever since. The only solution seems to
be, keep posting and re-posting your questions ... people like me, who have
been around for some time, can search their local computer for your keywords
and then re-post the solution. IF ... we have the time, that is. If you
like, I can also export all the old messages for download. What I can NOT do
is set up an alternate search page - the firewalls won't let me.
 
Anybody with connections to SourceForge (that would be Aldo ...) can you
kick them into investigating? Or maybe a little research, if anyone feels
like it, who knows, the search script might do =~{^$match$}, in which case
you would need to beautify your entry with .*keyword.* ... or if it is a
"where (postings.message like '$match')" SQL database search, try %keyword%
... oh, the possibilities ...
 

[perl-win32-gui-users] Can't Search perl-win32-gui Archives

[Gross, S. <sg...@lo...>]

Am I the only one having this problem?  Whenever I search the Win32-Gui-Perl
archive at SourceForge (
http://www.geocrawler.com/lists/3/SourceForge/8381/0/
<http://www.geocrawler.com/lists/3/SourceForge/8381/0/> ), I *never* get a
match on anything.
 <mailto:per...@li...>  

_______________________________________________________
Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...
<mailto:sg...@lo...> 

 

Re: [perl-win32-gui-users] Help on Win32::GUI

[Johan L. <jo...@ba...>]

At 21:57 2001-11-01 +0100, Johannes Gamperl wrote:
>the next problem i have is that i would like to show a icon in the
>system tray on hiding my window. when i click on the icon in the tray
>the window should show again ... this works fine, but only for one
>time .. the next time my window are closed .. any ideas?

Sounds like you destroy your window when you close it instead of just 
hiding it.

the Terminate event handler for the window should Hide() the window, then 
return 0 so the destruction is never carried out (0 blocks the "normal 
thing for the event" from happening).

This is working code from a tray icon script of mine:


=head2 winRegexpS_Terminate()

Hide window, don't destroy it.

=cut
sub ::winRegexpS_Terminate { defined(my $win = 
$Win32::GUI::Loft::window{winRegexpS}) or return(1);

         $win->Hide();

         return(0);
         }


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

Re: [perl-win32-gui-users] Help on Win32::GUI

[Johan L. <jo...@ba...>]

At 21:57 2001-11-01 +0100, Johannes Gamperl wrote:
>the next problem i have is that i would like to show a icon in the
>system tray on hiding my window. when i click on the icon in the tray
>the window should show again ... this works fine, but only for one
>time .. the next time my window are closed .. any ideas?

Sounds like you destroy your window when you close it instead of just 
hiding it.

the Terminate event handler for the window should Hide() the window, then 
return 0 so the destruction is never carried out (0 blocks the "normal 
thing for the event" from happening).

This is working code from a tray icon script of mine:


=head2 winRegexpS_Terminate()

Hide window, don't destroy it.

=cut
sub ::winRegexpS_Terminate { defined(my $win = 
$Win32::GUI::Loft::window{winRegexpS}) or return(1);

         $win->Hide();

         return(0);
         }


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

Re: [perl-win32-gui-users] Window -style parameters

[Johan L. <jo...@ba...>]

At 10:35 2001-11-01 -0500, Peter Eisengrein wrote:
>I wish I could remember who posted it so I could give them credit, but, like
>everything else, I forget...

* cough *

:)

The actual meaning of the contants is better documented here:

CreateWindow (-style):
<http://www.sxlist.com/techref/os/win/api/win32/func/src/f11_14.htm>

CreateWindowEx (-exstyle):
<http://www.sxlist.com/techref/os/win/api/win32/func/src/f11_14.htm>


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] Help on Win32::GUI

[Johannes G. <in...@de...>]

Hello,

does anyone know how to get a link on on a RichEdit-Field on
win32::gui to work? Any examples .... ?

the next problem i have is that i would like to show a icon in the
system tray on hiding my window. when i click on the icon in the tray
the window should show again ... this works fine, but only for one
time .. the next time my window are closed .. any ideas?

thx a lot ...
Hannes

  

-- 
Johannes Gamperl 

[perl-win32-gui-users] Help on Win32::GUI

[Johannes G. <in...@de...>]

Hello,

does anyone know how to get a link on on a RichEdit-Field on
win32::gui to work? Any examples .... ?

the next problem i have is that i would like to show a icon in the
system tray on hiding my window. when i click on the icon in the tray
the window should show again ... this works fine, but only for one
time .. the next time my window are closed .. any ideas?

thx a lot ...
Hannes

  

-- 
Johannes Gamperl                          mailto:in...@de...

RE: [perl-win32-gui-users] Window -style parameters

[Peter E. <Pet...@at...>]

Someone just recently sent a link to
http://www.mvps.org/vbnet/index.html?http://www.mvps.org/vbnet/api/_consts/c
onstso.htm which defines all of these Windoze constants. 

I wish I could remember who posted it so I could give them credit, but, like
everything else, I forget... 




> -----Original Message-----
> From: Marcus [mailto:li...@wo...]
> Sent: 01 November 2001 05:27
> To: per...@li...
> Subject: [perl-win32-gui-users] Window -style parameters
> 
> 
> Is there documentation on the Window -style parameters?
> I couldn't find any. I took a sample program and tried out parameters,
> but they still aren't clear. This is what I mean:
> 
> From pmx.gpl:
> 
>  -style   => WS_BORDER 
>               | DS_MODALFRAME 
>               | WS_POPUP 
>               | WS_CAPTION 
>               | WS_SYSMENU,
>     -exstyle => WS_EX_DLGMODALFRAME 
>               | WS_EX_WINDOWEDGE 
>               | WS_EX_CONTEXTHELP 
>               | WS_EX_CONTROLPARENT,
> 
> 
> Thanks,
> 
> Marcus
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Re: [perl-win32-gui-users] GUI event handling in Modules

[<Kev...@al...>]

Johan,

Thanks very much.

     -name =3D> "Packagename::Controlname"

works and is much simpler than changing the XS code.

Cheers,

Kev.



                                                                       =
                                                                    =20
                    Johan Lindstrom <jo...@ba...>                =
                                                                    =20
                    Sent by:                                      To:  =
   Per...@li...                       =20
                    per...@li...urc        cc:  =
                                                                    =20
                    eforge.net                                    Subje=
ct:     Re: [perl-win32-gui-users] GUI event handling in Modules    =20
                                                                       =
                                                                    =20
                                                                       =
                                                                    =20
                    31/10/2001 15:30                                   =
                                                                    =20
                                                                       =
                                                                    =20
                                                                       =
                                                                    =20




At 12:58 2001-10-31 +0000, Kev...@al... wrote:
>This may have come up before, in which case I apologise, but has anyon=
e
>tried creating a module to package up commonly used windows?  I've bee=
n
>trying this but found I have to export the event (Button_Click etc)
>handlers into the Main namespace.   Does anyone know if there is a way=
 to
>handle these within the namespace of the package?

-name =3D> "Packagename::Controlname"

should work, but I have never tried it because of the obvious problems =
with
accessing the control it would impose.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindstr=F6m                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail



_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

=

[perl-win32-gui-users] Window -style parameters

[Marcus <li...@wo...>]

Is there documentation on the Window -style parameters?
I couldn't find any. I took a sample program and tried out parameters,
but they still aren't clear. This is what I mean:

From pmx.gpl:

 -style   => WS_BORDER 
              | DS_MODALFRAME 
              | WS_POPUP 
              | WS_CAPTION 
              | WS_SYSMENU,
    -exstyle => WS_EX_DLGMODALFRAME 
              | WS_EX_WINDOWEDGE 
              | WS_EX_CONTEXTHELP 
              | WS_EX_CONTROLPARENT,


Thanks,

Marcus

Re: [perl-win32-gui-users] Win32GUI + Tk...??? possible?

[Mark W. <ma...@il...>]

Johan Lindstrom wrote:

> It sounds like a... dubious idea to me :)

yeah, it did to me too :-)  I haven't had a chance to test the solution that was
posted here.  I'll post my experiences to the group when I have played with it a
bit.

> But try this: in the main event loop in Tk (if there is one), call

there is.


> Win32::GUI::DoEvents();

or v.v.   Tk::DoEvents    ;-)


> What do you mean by custom widget?

meaning that widget X is derived from and extends widget Y.  Essentially, just
making ActiveX-like controls... but I have always had trouble with AX controls
too.  It's just me - I'm not too bright :-)

M

Re: [perl-win32-gui-users] Alternative

[Mark W. <ma...@il...>]

ActiveState has a package (not free though) in their Perl development
kit called PerlApp (also PerlCtrl for making custom controls, and
PerlSrvc for making services).  I use it all the time and I *love* it!
It is well worth the money IMHO.  I tried  Perl2Exe a few times but had
some problems... possibly because I was only using the demo
version...??  Or perhaps I just didn't try hard enough.  Anyway, I can
vouch for the ActiveState one for sure.

Mark

Dave wrote:

> Does anyone know of an alternative to Perl2Exe ?
>
> Thanks in advance,
> Dave McLaughlin
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] Win32GUI + Tk...??? possible?

[Mark W. <ma...@il...>]

> I placed the Tk code in a package without calling MainLoop. Then called
> the Tk widget from the Win32::GUI script:

that is awesome!!  I have some way-cool Tk widgets that I didn't want to
have to re-write from scratch to maek them work in the Win32 world... now I
dont' have to :-)
Cheers!

M

Re: [perl-win32-gui-users] GUI event handling in Modules

[Johan L. <jo...@ba...>]

At 12:58 2001-10-31 +0000, Kev...@al... wrote:
>This may have come up before, in which case I apologise, but has anyone
>tried creating a module to package up commonly used windows?  I've been
>trying this but found I have to export the event (Button_Click etc)
>handlers into the Main namespace.   Does anyone know if there is a way to
>handle these within the namespace of the package?

-name => "Packagename::Controlname"

should work, but I have never tried it because of the obvious problems with 
accessing the control it would impose.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

Re: [perl-win32-gui-users] Launch Window without "Minimize/Maximize/Close" buttons

[Johan L. <jo...@ba...>]

Morbus wrote:
>I'm assuming that -minimizebox would do the same for the "Minimize" one. 
>I've not hidden the Close box before, so I can't help you with that one.

-menubox => 0

This will remove the entire contents of the menu bar, including the system 
menu.


The other menubar flags are:
-maximizebox
-minimizebox
-helpbox

(there are synonyms)


>Concerning your exit code, you can use your Window name and then 
>_Terminate. For example:
>
>    $window = new Win32::GUI::Window( -name    => '_Window' }
>
>    sub _Window_Terminate {
>       &note("Quitting due to window termination.");
>       &exit_program;
>    }

To clarify: returning 0 from an event handler will stop the "normal thing 
that happens" from happening. Returning -1 will exit the main event loop. 
Normal procedure is to return 1.

So, to prevent the window from closing, return 0.

Example:

=head2 winDesign_Terminate()

Block the close operation.

=cut
sub ::winDesign_Terminate {
         return(0);
         }


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

RE: [perl-win32-gui-users] Win32GUI + Tk...??? possible?

[Stephen P. <Ste...@gp...>]

> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...]On Behalf Of
> Johan Lindstrom
> Sent: 30 October 2001 15:58
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Win32GUI + Tk...??? possible?
> 
> 
> At 07:00 2001-10-30 -0600, Mark Wilkinson wrote:
> >I have never tried, but I am pondering the possibilities of having 
> >Win32GUI and
> >PerlTK run simultaneously.  The problem, of course, is in 
> the event looping -
> >both need to have their event loops executed, and yet the 
> call to execute the
> >event loop is "blocking" as far as I can tell.  Has anyone 
> ever tried to do
> >this?

In Tk, you can create a MainWindow without needing to use MainLoop by
defining the window as normal, and then calling update() when you want to
display it.

e.g. 
my $main = MainWindow->new(...);
# add some window widgets here.

$main->update();

[perl-win32-gui-users] Launch Window without "Minimize/Maximize/Close" buttons

[Gross, S. <sg...@lo...>]

Is it possible to create a window without the "Minimize/Maximize/Close"
buttons?  My users sometimes hit the Close button rather than exit via my
program, which leaves messy background processes running.  I guess an
alternative would be to map the Close button to my exit code.  Is that
possible?

_______________________________________________________
Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...
<mailto:sg...@lo...> 

 

[perl-win32-gui-users] GUI event handling in Modules

[<Kev...@al...>]

This may have come up before, in which case I apologise, but has anyone
tried creating a module to package up commonly used windows?  I've been
trying this but found I have to export the event (Button_Click etc)
handlers into the Main namespace.   Does anyone know if there is a way to
handle these within the namespace of the package?

Cheers,

Kev.