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

RE: [perl-win32-gui-users] Help

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

One more thing ... I just remembered an issue with the Win32::GUI Version
you get from Activestate being outdated (ref. sequence
"[perl-win32-gui-users] Bug in Textfield scrolling")

When you do ppm query Win32-GUI and it gives you version 0.99, dump it (ppm
remove Win32-GUI) and get the current version from Aldo (dada.perl.it) -
should still be 0.0.558 if I didn't miss something interesting here. Unzip
and then do "ppm install Win32-GUI.ppd" - note that, w/o the ppd, your ppm
script might try to get the "newer" version from Activestate - i.e., the old
version with the wrong version number. Aldo pointed out that Activestate
invented this version number themselves without contacting him.

RE: [perl-win32-gui-users] Help

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

| >print "->\n";
| >`C:\\Setups\\Develop\\Perl\\Win32\\ActivePython-2.0.0.202.msi`;
| >print "<-\n";
| 
| If this is all that is in your script, then it will work, but 
| once I add 
| something like this to be called once a button is clicked on, 
| then it doesn't. 

Nope - the three lines are actually in a click sub. The calling Win32::GUI
program freezes while the backtick works (because backtick returns output,
it waits for the called thing to finish). I can click around in the perl
window and when I come back from the installer, the queued messages get
called.

Okay, here's a workaround to try if that's not what happens on your machine.
In your click sub, set a variable and return -1. This terminates your
message loop. Do the backtick outside the Win32::GUI::Dialog like this:

for (;;)
{
	undef $install;
	Win32::GUI::Dialog ();
	last unless $install;
	`$install`;
	#`install some more`;
	Win32::GUI::GetMessage (0, 0x200, 0x206) while
Win32::GUI::PeekMessage (0, 0x200, 0x206);
	# kill all pending clicks the bored user has caused
}
sub Launch_Click
{
	$install = "C:\\somewhere\\something.msi";	# or just a bool
	return -1;
}

RE: [perl-win32-gui-users] Help

[<lej...@hu...>]

At Tue, 20 Mar 2001 10:59:31 -0800, "Piske, Harald" <Har...@bo...> 
wrote:

>print "->\n";
>`C:\\Setups\\Develop\\Perl\\Win32\\ActivePython-2.0.0.202.msi`;
>print "<-\n";

If this is all that is in your script, then it will work, but once I add 
something like this to be called once a button is clicked on, then it doesn't. 
 It's really wierd.  If you like, I could attach the script, or send it 
to you.

>
>The difference must therefore be the OS or the installer ... I'm using 
>w2k
>pro (US english).

I have used Win2K SP1 and WinNT SP6, and the same problem exists for both 
platforms.  Its rather frusterating.

Thanks.

Len.
Free, encrypted, secure Web-based email at www.hushmail.com

RE: [perl-win32-gui-users] Help

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

| I've tried both using the backtick and the 'system' call, 
| neither work. 
|  I have also tried using Win32::Process, again, with no luck.

I suspected it to be the installer, so I just tried this:

print "->\n";
`C:\\Setups\\Develop\\Perl\\Win32\\ActivePython-2.0.0.202.msi`;
print "<-\n";

and it worked just fine. Installer pops up, initializes, lets me install (or
abort, for that matter) and then perl comes back from the backtick, ready to
launch the next install.

The difference must therefore be the OS or the installer ... I'm using w2k
pro (US english). I have access to almost anything else
(95a/b,98fe/se,NT4SP1..5), including a bunch of foreign languages ... what
is it you're so successful in failing with?

Re: [perl-win32-gui-users] .plan

[Laurent R. <ro...@cl...>]

hello

>
> this is my dot plan about Win32::GUI, what I'm doing and what
> I plan to do. please note that everything here may change (without
> further notice) depending on my other activities (namely job and
> 'real life' :-).
>
> it would be kewl if you could 'prioritize' the list based on
> what you find more useful (or funny :-), and above all (pardon
> the caps): IF YOU CAN HELP ME WITH SOMETHING, PLEASE DO!
>
> **** NEM (New Event Model)
> I'm almost done with this, but there are still some flaws.
> I will also define the API to manage events (eg. AddEvent
> or BindEvent or ResetEvent or something like this...).
> I'm also adding the possibility of 'shortcut' options a la
> Javascript, like:
>     -onClick => \&DoSomething

Good.

> **** Event Queues
> this is something I didn't really explored yet, but I would
> like to process a list of events. should look somehow like
> this:
>     -events => { Click => [ \&DoSomething, \&DoSomethingElse ] }
> in other words, when a Click events occur first DoSomething
> is executed, then DoSomethingElse. the main purpose for this
> is to allow subpackages to define their own event handlers
> which can be 'overriden' by the implementation in the program.
> (if it doesn't sound clear, don't worry, is still mainly obscure
> to me too :-)

Not obscure at all ;-) but a very difficult point.
I have think a little about this and i have notice 2 things.

    * With only one event fonction (actual NEM)

it's possible to call the DoSomethingElse function in the DoSomething
function.
And in case of 'overriden' a sub package event, just need to call the event
function.

sub overriden_OnClick {
    my $self = shift;

    # do something before

    $self->OnClick();   # or in inherited package $self->SUPER::OnCLick();

    # do something after
}

The package use the \& syntax and not sub { } in the event option.
But for instanced object, it's possible to use sub {}.

    * With event queue

Problem for the new package method.

For example :
        - the package need to add a click event function
        - the user create an object with a click event function

    How create the click event array ?
        - order problem between user event and package event.
        - If user don't want default package click event.

> **** Win32::GUI::JPEG
> allow *read* support for JPEG images, using libjpeg (see
> ftp://ftp.uu.net/graphics/jpeg). JPEG files can be converted
> to in-memory bitmaps and then used as regular Bitmap objects.
> (NOTE: I'm *not going* to develop Win32::GUI::GIF. GIF is
> absolutely deprecated, I'll look into PNG support eventually).

After some search about this point, I found a free open source code project
named FreeImage.
It's a library for loading and writing different file format (JPEG, PNG,BMP,
PCX, TIFF, TGA).
I have look some example, it's look easy to use.
It's possible to read the data image not only from file (just need to code
an io-handler).
It can be usefull for read image from perl variable (no tempory file in the
BitmapInline.pm or
interface with perl GD module).

FreeImage Web Site : http://home.wxs.nl/~flvdberg/index.html

I can help you for this point.

>
> **** Win32::GUI::Scintilla
> (see http://www.scintilla.org); to revive pride.pl! :-)
>

This text control look very nice.


Laurent.

RE: [perl-win32-gui-users] Help

[<lej...@hu...>]

At Tue, 20 Mar 2001 09:00:34 -0800, "Piske, Harald" <Har...@bo...> 
wrote:
>- are you using the multithread perl? (5.6)

Yup ...

C:\>perl -v

This is perl, v5.6.0 built for MSWin32-x86-multi-thread
[snip]

Its build 620.

>- how do you launch the installer? Backtick or some windows function?

I've tried both using the backtick and the 'system' call, neither work. 
 I have also tried using Win32::Process, again, with no luck.

>- how do you watch for the first installer to finish so as not to launch 
all
>of them at the same time? (maybe it's this watcher that does not yield 
>to other tasks)?

At first, I was going to wait for the child process to finish, but with 
Installshield apps this does not work (it forks off its own process), so 
I started using a timeout (sleep) after the initial install call was made. 
 This should allow the perl script to pause for a minute or two, while its 
child (who is no longer really attached) to go off and finish its duty.

Just so you know, I have placed 'print' statements around the calls so I 
know when it is getting stuck.

>- do you really have to end your script or would it suffice to give the
>installer the focus?

I'm not sure what you mean by giving the install the focus ... sorry.

>- how do you start your perl script in the first place ... out of a command
>window, out of an explorer, or with this wrapper thing that prevents 
>the text window from showing?

I have tried running the script from the command line, double clicking on 
the script from explorer, and compiling the script into an exe (Perlapp). 
 No luck with any of them.

>A final word: please hold on! Don't fall back to VB! 't'wood bee sooo
>embarrassing ...

Tell me about it.  The little VB programming I have done in the past has 
left a bad taste in my mouth.

Thanks for everything.

Len.
Free, encrypted, secure Web-based email at www.hushmail.com

RE: [perl-win32-gui-users] Help

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

| Install, the first install will appear to launch, but it will 
| usually not 
| do anything until the perl script ends 

Works fine here ... there must be something in your water.

- are you using the multithread perl? (5.6)
- how do you launch the installer? Backtick or some windows function?
- how do you watch for the first installer to finish so as not to launch all
of them at the same time? (maybe it's this watcher that does not yield to
other tasks)?
- do you really have to end your script or would it suffice to give the
installer the focus?
- how do you start your perl script in the first place ... out of a command
window, out of an explorer, or with this wrapper thing that prevents the
text window from showing?

A final word: please hold on! Don't fall back to VB! 't'wood bee sooo
embarrassing ...

[perl-win32-gui-users] Help

[<lej...@hu...>]

I am currently having a problem I was hoping someone on this list could 
help me with.

I am writting a small app that will provide a GUI frontend for installing 
multiple software packages.  The problem that occurs is in the GUI, after 
the user has checked all the software they want to install and clicks on 
Install, the first install will appear to launch, but it will usually not 
do anything until the perl script ends (either on purpose, or killed by 
the user).  At this time, the software will install without a hitch.

This appears to be a problem with the Win32::GUI module, as if I do things 
without it, everything works as it should.

Has anyone run up against this?  Is this a problem with OLE or DDE?  Is 
there any way around this.

Please let me know if you have a solution, as I have been banging my head 
against this for a couple days now, and I would really hate to scratch this 
project and do it in something else, like VB (eww).

I can provide source code if it is needed.  Also, if you need any more information,
 please feel free to ask.

Thanks for any help you can provide.

Len.
Free, encrypted, secure Web-based email at www.hushmail.com

RE: [perl-win32-gui-users] Accelerators

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

From: Thomas, Timothy B [mailto:tim...@lm...]
> What is an accelerator?

Usually it's the keyboard action of holding Alt and pressing a letter to
either "click" a button or pull down a menu. It can also be Ctrl+letter to
invoke a menu action (like many programs understand Ctrl+S for "save"). The
accelerator table can also hold basic keystrokes (tab, enter) to intercept
when the user hits that key.

It was called accelerator because in that context it could save the user the
hassle of moving the hand to the mouse. When choosing the name, obviously
nobody thought of the slowdown it imposed on the programmers side ;-)

RE: [perl-win32-gui-users] Re: How to keep my window not hidden

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

| Hirosi Taguti wrote:
[...]
| > This -topmost option cann't be changed after creation?
[...]
| no, it doesn't work (yet); changing -topmost requires an
| additional bit of code that I wasn't afare of until recently :-)
[...]
| Aldo

This may be a stupid idea and I admit I did not test it:
you could try

sub MainWindow_Deactivate
{
	$MW->SetForegroundWindow ()
		if $stay_on_top_flag;
}

of course, this would reactivate your window, i.e. give it
back the focus, which might not be what you want.

[perl-win32-gui-users] .plan

[Aldo C. <da...@pe...>]

hello perl-win32-gui-users,

this is my dot plan about Win32::GUI, what I'm doing and what
I plan to do. please note that everything here may change (without
further notice) depending on my other activities (namely job and
'real life' :-).

it would be kewl if you could 'prioritize' the list based on
what you find more useful (or funny :-), and above all (pardon
the caps): IF YOU CAN HELP ME WITH SOMETHING, PLEASE DO!

that said, this is the list:

**** NEM (New Event Model)
I'm almost done with this, but there are still some flaws.
I will also define the API to manage events (eg. AddEvent
or BindEvent or ResetEvent or something like this...).
I'm also adding the possibility of 'shortcut' options a la
Javascript, like:
    -onClick => \&DoSomething

**** Event Queues
this is something I didn't really explored yet, but I would
like to process a list of events. should look somehow like
this:
    -events => { Click => [ \&DoSomething, \&DoSomethingElse ] }
in other words, when a Click events occur first DoSomething
is executed, then DoSomethingElse. the main purpose for this
is to allow subpackages to define their own event handlers
which can be 'overriden' by the implementation in the program.
(if it doesn't sound clear, don't worry, is still mainly obscure
to me too :-)

**** Win32::GUI::JPEG
allow *read* support for JPEG images, using libjpeg (see
ftp://ftp.uu.net/graphics/jpeg). JPEG files can be converted
to in-memory bitmaps and then used as regular Bitmap objects.
(NOTE: I'm *not going* to develop Win32::GUI::GIF. GIF is
absolutely deprecated, I'll look into PNG support eventually).

**** Win32::GUI::Scintilla
(see http://www.scintilla.org); to revive pride.pl! :-)


these are the main points... for now, I will post a followup
if I forgot something :-)

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Re: [perl-win32-gui-users] Re: How to keep my window not hidden

[Aldo C. <da...@pe...>]

Hirosi Taguti wrote:
> Thank you but may I continue more?
>
> This -topmost option cann't be changed after creation?
> Below code works fine on re-sizing, but not on -topmost.

no, it doesn't work (yet); changing -topmost requires an
additional bit of code that I wasn't afare of until recently :-)
I'll fix this in the next release.

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

RE: [perl-win32-gui-users] Accelerators

[Thomas, T. B <tim...@lm...>]

What is an accelerator?
=20

------------------------------------------------------------------------=
----
---------------------

Tim Thomas

Unix Systems Administrator

Lockheed Martin EIS =B7 Denver Data Center

303-430-2281

mailto:tim...@lm... <mailto:tim...@lm...>=20

------------------------------------------------------------------------=
----
---------------------

-----Original Message-----
From: Jonathan Southwick [mailto:jso...@al...]
Sent: Wednesday, March 14, 2001 2:08 PM
To: per...@ht...
Subject: [perl-win32-gui-users] Accelerators


has anyone been successful in getting Accelerators to work?
=20
Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al... <mailto:jso...@al...>=20

[perl-win32-gui-users] Re: How to keep my window not hidden

[Hirosi T. <ta...@se...>]

> > I found "timer.pl" in sample is good for desktop clock accesary.
> > Now I don't like it be hidden when other apprications get active.
> > I mean I like to keep it on top level in z-axis.
> > Is it possible?
> 
> create the window with the -topmost => 1 option.

Thank you but may I continue more?

This -topmost option cann't be changed after creation?
Below code works fine on re-sizing, but not on -topmost.

##!perl -w
#
# original is "Hello, world".
# test for -tpmost.
#
use Win32::GUI;
$MW = new Win32::GUI::Window(
    -title   => 'hello.pl',
    -left    => 100,
    -top     => 100,
    -width   => 150,
    -height  => 100,
    -name    => 'MainWindow',
    -topmost => 0,
    -visible => 1,
);
$hello = $MW->AddButton(
    -text    => 'Hello',
    -name    => 'Hello',
    -left    => 25,
    -top     => 25,
);
$rc = Win32::GUI::Dialog(0);
sub MainWindow_Terminate {
    $MW->PostQuitMessage(1);
    # return -1;
}
sub Hello_Click {
    if($MW->Hello->Text eq "Hello") {
        $MW->Hello->{-text} = "Goodby";
        $MW->Change(
             -width   => 250,
             -height  => 200,
             -topmost => 1,
        );
    } else {
        $MW->Hello->{-text} = "Hello";
        $MW->Change(
             -width   => 150,
             -height  => 100,
             -topmost => 0,
        );


    }
}

--
ta...@se...

Re: [perl-win32-gui-users] How to keep my window not hidden

[Aldo C. <da...@pe...>]

Hirosi Taguti wrote:
> Hello, I'm new to Win32::GUI.
>
> I found "timer.pl" in sample is good for desktop clock accesary.
> Now I don't like it be hidden when other apprications get active.
> I mean I like to keep it on top level in z-axis.
> Is it possible?

create the window with the -topmost => 1 option.

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

[perl-win32-gui-users] How to keep my window not hidden

[Hirosi T. <ta...@se...>]

Hello, I'm new to Win32::GUI.

I found "timer.pl" in sample is good for desktop clock accesary.
Now I don't like it be hidden when other apprications get active.
I mean I like to keep it on top level in z-axis.
Is it possible?

p.s.
Sorry I've not yet checked all documents.
Not easy to read English to me.
--
Hirosi Taguti
ta...@se...

RE: [perl-win32-gui-users] Quick question

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

The samples that come with the module are generally very good place to
learn; I've found the documentation to be sketchy at times, though.

To answer your specific question, ->SetFocus() is the command you'll use.
For example:

my $Window = new Win32::GUI::Window(
	-name   => "Window",
	-left   => 210,
	-top    => 100,
	-width  => 700,
	-height => 500,
	-title  => "Look Ma, a window!",
	-menu   => $Menu,
);

$Window->SetFocus();


You can do this with a window, dialog box, or a widget on either. Have fun,
this is good stuff.


-----Original Message-----
From: Perciaccante, Robert [mailto:Rob...@do...]
Sent: Friday, March 16, 2001 10:30 AM
To: 'per...@li...'
Subject: [perl-win32-gui-users] Quick question


OK, being relatively new to Perl, I stumbled upon Win32::GUI and I can see a
number of uses.

I am sure that newbie questions are, as it should be, usually answered with
"RTFM", but being mostly from the Win32 world (and slowly retreating), I
don't know where to get good reference materials.

I am not looking to have you answer my questions necessarily, but pointers
in the right direction would be appreciated.  So here are the things that I
am looking for answers for:

1) How do I make the focus of a MsgBox change?  Currently, using the example
provided with the module, the message box does not have the focus, but
instead ends up behind everything.  Since I am using this as an indicator of
job completion, in the front would be nice :)
2) I know this is not necessarily the right forum for this question, but I
am looking for a resource on GUI programming in PERL.. like I said earlier,
just getting into Perl right now, so pointers would be appreciated.

Thanks for putting up with the Newbie questions :)

Bob

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

RE: [perl-win32-gui-users] SaveFile/OpenFile Dialogs

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

| how can I set the position of a GetSaveFile or GetOpenFile 
| Dialog? -top and
| -left don't seem to work.
| the dialog always shows up in the left upper corner of 
| desktop. using win32:gui
| 0.0.558.

It comes top left when it doesn't have an owner. Use

	-owner => $mainwindow->{-handle}

and it will show somewhat centered over the owner. provided you have a
window to own the dialog ... for a "stray" GetOpenFileName I don't have a
solution at hand.

[perl-win32-gui-users] Quick question

[Perciaccante, R. <Rob...@do...>]

OK, being relatively new to Perl, I stumbled upon Win32::GUI and I can see a
number of uses.

I am sure that newbie questions are, as it should be, usually answered with
"RTFM", but being mostly from the Win32 world (and slowly retreating), I
don't know where to get good reference materials.

I am not looking to have you answer my questions necessarily, but pointers
in the right direction would be appreciated.  So here are the things that I
am looking for answers for:

1) How do I make the focus of a MsgBox change?  Currently, using the example
provided with the module, the message box does not have the focus, but
instead ends up behind everything.  Since I am using this as an indicator of
job completion, in the front would be nice :)
2) I know this is not necessarily the right forum for this question, but I
am looking for a resource on GUI programming in PERL.. like I said earlier,
just getting into Perl right now, so pointers would be appreciated.

Thanks for putting up with the Newbie questions :)

Bob

[perl-win32-gui-users] SaveFile/OpenFile Dialogs

[<tho...@ba...>]

hello,

how can I set the position of a GetSaveFile or GetOpenFile Dialog? -top and
-left don't seem to work.
the dialog always shows up in the left upper corner of desktop. using win32:gui
0.0.558.

regards,
thomas

Re: [perl-win32-gui-users] Uninitialized value message

[Eric B. <er...@eb...>]

On Thu, 15 Mar 2001, Tom Allebrandi wrote:

> 	Use of uninitialized value in subroutine entry at <file> line <something>

Try adding this to your script:

sub warn_unless_win32_dialog_warning {
   my ( $warning_message ) = @_;

   my $hide_message = qr/^Use of uninitialized value in subroutine entry/;
 
   print STDERR $warning_message  unless $warning_message =~ $hide_message;
}

$SIG{'__WARN__'} = \&warn_unless_win32_dialog_warning;

   - Eric B.

--
"Pasteurized From Concentrate"

[perl-win32-gui-users] Uninitialized value message

[Tom A. <to...@yt...>]

Hi!

If I

	#! perl -w

in a script that uses Win32::GUI, I get lots of

	Use of uninitialized value in subroutine entry at <file> line <something>

where <file> is the name of the script and <something> is a line that says:

	Win32::GUI::Dialog();

The messages occur as I move the mouse around over the dialog.

I know that somebody asked about this a few weeks back, but I don't recall
seeing a fix. I tried playing with the $^W variable around the call to
Win32::GUI::Dialog() but that didn't help. I also tried playing with "use
warnings" but that didn't help.

The only way I have been able to make the messages stop is to not put the
"-w" on the shebang line. That's fine for "production" but it's a pain
during development.

Does anyone know a way around this problem?

I'm running 0.0.502 in case that matters.

Thanks!

--- Tom
Tom Allebrandi
to...@yt...

[perl-win32-gui-users] Printing

[Cuthbert, L. (D. Bank) <Lan...@De...>]

Is there a package that would open a Windows print dialogue box to allow for
printing of a document opened in a RichEdit textbox?

Thanks to Jonathan Southwick for helping me out on my other question about
the RichEdit package.


> Lance S. Cuthbert

[perl-win32-gui-users] TopMost

[Jonathan S. <jso...@al...>]

Has anyone figured out a way to change a window's -topmost value after =
the window has already been created?

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...

[perl-win32-gui-users] Accelerators

[Jonathan S. <jso...@al...>]

has anyone been successful in getting Accelerators to work?

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...