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

[perl-win32-gui-users] listview

[Danny Z. <da...@be...>]

Dear perl-win32-gui-users,

  about listviews
  
  * can i modify values in a listview ? or should i somewhere change
  properties for the cells ?
  * does the listview contains a CELL value/changed boolean for each cell ?

  about ocx

  is there somebody who would like to help me to get a OCX/DLL running
  in my perl module .. i really can't figure it out myself.. thanks


Best regards,
 Danny Zak                           mailto:da...@be...

[perl-win32-gui-users] event handlers

[Dave M. <qw...@ma...>]

hey.

do event handler routines (ie. sub Button1_Click) have to be in the main
namespace or in the namespace in which they were created?

can objects be assigned and event handler? (ie. $myButton->Event(Click =>
\&coderef);). if not, twould be nice. id be willing to do the work if it
didnt involve too much serious XS stuff.

it seems to me that this module wasnt really meant to be used in an OO
application? can anyone out there tell me otherwise?


dave

Re: [perl-win32-gui-users] Fork?

[Glenn L. <Gle...@ne...>]

Tom Allebrandi wrote:

> The problem here I think is that what we are commonly referring to as a
> "thread", isn't. It must be viewed as if it is a separate process.

Well, from Windows point of view, it is a thread.  From Perl's point of view, it
is a process.  The Perl interpreter is busily keeping the data separate between
the two threads (I'm not sure I understand the complete technique of the magic
that does that, but I'm sure it can be made to work because the Perl language
doesn't expose "real" addresses (much)).

On the other hand, the (Unix) model for "fork" is that the multiple processes
(threads on Perl for Windows) start off with identical data/variables/file
handles.  And the Windows model for "windows" is that the windows are owned by a
process (not a thread), and can be accessed by any thread that has the window
handle.  (And in fact, because Windows was developed on DOS, the windows are
even a bit visible to other processes, but that doesn't concern us here.)   So,
I earlier alluded to some experimentation I was going to try... read on.

> If you create an object in one "thread" (process), it does not exist in the
> other "thread" (process). I can't see any way to use the object syntax on an
> object that was not created in my "thread" (process). Maybe I missed
> something along the way.

By creating the Win32::GUI objects before forking, both the parent and child
threads get copies (?) of the object variables.  Because of the nature of
Windows, the embedded Window handles inside both copies of the object variables
are equally usable.  Because of the (present) nature of Win32::GUI, whereby most
of the parameter data is pumped into Win32 API parameters, and most of the
return values are obtained by calling Win32 APIs to obtain it, I have shown
experimentally that it is possible to use the Win32::GUI object references from
both a parent and a child thread.

Now it is important to remember that Windows only delivers window messages to
the first thread of a program, so in the Perl "fork" environment, this gets
translated to only the parent process of a group of Perl-forked processes can
successfully run Win32::GUI::Dialog (Yep, I tried it the other way first,
figuring that the parent could more easily monitor the child process for death,
since fork returns the child pid, and waitpid works that way--but it just hung,
and the windows never appeared).

However, the child can use the object references created by Win32::GUI to access
the "IsEnabled", "IsVisible" attributes of the window widgets, and they are
dynamically updated (not cached in the object).  The child can access the
current selection from combo boxes.  The child can enable and disable widgets,
and the display gets updated appropriately.

This is quite adequate for my application, which now can do its "long"
operations in the child "process", and keep the GUI window "active" (except that
certain parts get disabled during "long" operations).

Thanks again, Tom, for broadening my outlook regarding Win32::GUI.  Perhaps I've
now returned the favor?

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

RE: [perl-win32-gui-users] Fork?

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

>What advantage does this give you?  The -> form searches the @ISA class
>hierarchy but once it finds the function the two forms are equivilent.
>
>Is there something about use of threads which forbids object syntax?  The
>object form is safer and seems cleaner to me.

Glenn got his reply in while I was typing mine. I think we are saying the
same thing however...

The problem here I think is that what we are commonly referring to as a
"thread", isn't. It must be viewed as if it is a separate process.

If you create an object in one "thread" (process), it does not exist in the
other "thread" (process). I can't see any way to use the object syntax on an
object that was not created in my "thread" (process). Maybe I missed
something along the way.

So, I resorted to the "classless" call mechanism.

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

Re: [perl-win32-gui-users] Fork?

[Glenn L. <Gle...@ne...>]

Eric Bennett wrote:

> On Wed, 28 Feb 2001, Tom Allebrandi wrote:
>
> > As it turns out, and I don't know if Aldo intended for it to work this way,
> > if you have a handle to the control, you can also call the routine in the
> > "classless" way by doing
> >
> >       GUI::ProgressBar::SetPos($progressControlHandle,$amount));
> >
> > The latter is the way I talk to the controls from the thread that is not
> > running Win32::GUI::Dialog.
>
> What advantage does this give you?  The -> form searches the @ISA class
> hierarchy but once it finds the function the two forms are equivilent.

> Is there something about use of threads which forbids object syntax?  The
> object form is safer and seems cleaner to me.

The object syntax requires an object handle.  It isn't clear to me how to obtain
an object handle for a window created in one thread/process that can be used in a
different thread/process.  Perhaps, but I haven't experimented yet, if the two
processes are the result of a fork after the object handle is obtained, that it
would work to a certain degree, but perhaps not.

The non-object syntax can be used by any thread/process on any window to which it
can obtain a Windows window handle.  Including windows created by Win32::GUI.
Hnece the non-object syntax is more powerful.

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

RE: [perl-win32-gui-users] Fork?

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

On Wed, 28 Feb 2001, Tom Allebrandi wrote:

> As it turns out, and I don't know if Aldo intended for it to work this way,
> if you have a handle to the control, you can also call the routine in the
> "classless" way by doing
> 
> 	GUI::ProgressBar::SetPos($progressControlHandle,$amount));
> 
> The latter is the way I talk to the controls from the thread that is not
> running Win32::GUI::Dialog.

What advantage does this give you?  The -> form searches the @ISA class
hierarchy but once it finds the function the two forms are equivilent.

Is there something about use of threads which forbids object syntax?  The
object form is safer and seems cleaner to me.

   - Eric B.

--
"Pasteurized From Concentrate"

Re: [perl-win32-gui-users] Fork?

[Glenn L. <Gle...@ne...>]

Tom Allebrandi wrote:

> With regards to fork() and Win32::GUI....
>
> I have been playing with this as well, and while I have not arrived at a
> "best practices" I have arrived at a baseline that works. Basically, I fork
> the gui thread and then send window messages to it, or, call the appropriate
> function on the window object I want to manipulate in a "classless" way.

Now this is a clever idea.  I think that for the particular application I am
working on, that
this technique, or a variation, might suffice.  Even without Timer to do
polling.

> For example, if you had created a progress bar control, you would normally
> call it using
>
>         $progressControl->somefunction();
>
> that is
>
>         $progressControl->SetPos($amount);
>
> As it turns out, and I don't know if Aldo intended for it to work this way,
> if you have a handle to the control, you can also call the routine in the
> "classless" way by doing
>
>         GUI::ProgressBar::SetPos($progressControlHandle,$amount));

Well, I suspect it was intended to work that way, because it is documented (see
the tutorial for how to eliminate the console window) that the methods can be
called on any window, using the classless technique.  Now a window created by
one thread's Win32::GUI is, to another thread, simply one of "any" windows.  But
I hadn't put that information together that way, so I appreciate your helping to
overcome my mental block.

> The latter is the way I talk to the controls from the thread that is not
> running Win32::GUI::Dialog.
>
> Right now, I am locating the window handle for the dialog itself using
> GUI:FindWindow() in the non-gui thread. I'm not happy with this approach,
> and am looking at other solutions as well.

Sure.  I wonder what would happen if a widget (progressbar or whatever) were
created before the fork, if the class handles would be active for both after the
fork?  Of course, only the thread that called Win32::GUI::Dialog would see the
messages and act on them... but that's precisely the desired behavior.  Not sure
what all sorts of timing/data race conditions doing that sort of thing would
produce, but I may experiment with it some.

> Amine Moulay Ramdane's Win32::MemMap package
> (http://www.generation.net/~aminer/Perl/) looks like the right solution for
> this, at least for me, but I had a problem with it when I tried to use it
> and ran out of time to mess with it. I know he recently posted an updated
> version, I need to pull that down and see if it still has the same problem.
>
> My initial need was to not have to use GUI::FindWindow() to locate the
> dialog and controls. My thought was to serialize a hash in the gui thread
> and pass it back to the non gui thread via shared memory - which
> Win32::MemMap provides, and unserialize on the non gui side.
>
> You can probably do something similar with pipes, but for some reason, I
> thought that the shared memory approach looked better.

Shared memory vs. pipes vs. files even -- I'm indifferent to the bulk-data
communication channel.  But the thing that had me stumped was how to get the GUI
process to "wake up and smell the roses" based on some outside event that
doesn't manifest itself as a window message to one of the window processes...
and you've relieved me of that mental block.  So, a general communication
mechanism can likely be created, at worst by creating a special widget in the
GUI to which events can be posted from a thread which has the responsibility of
monitoring the non-GUI world.

Shucks, speaking of shared memory, one could even have a hidden text widget (or
two) into which the data of interest gets sent.  Shared memory may be fastest,
of course.

> I suspect that I've rambled on enough for one day. I've included in this
> message a script for a progress bar that runs in a thread by itself taking
> positioning commands from another thread.
>
> Oh, by the way, in response to another message on the list today, I think
> Win32::MemMap has a timer implementation in it.

But is that timer integrated into Win32::GUI?  Is it clear how well it would
interact with Win32::GUI?  I'll be taking a look at MemMap.

Thanks for your response.

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

RE: [perl-win32-gui-users] Fork?

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

With regards to fork() and Win32::GUI....

I have been playing with this as well, and while I have not arrived at a
"best practices" I have arrived at a baseline that works. Basically, I fork
the gui thread and then send window messages to it, or, call the appropriate
function on the window object I want to manipulate in a "classless" way.

For example, if you had created a progress bar control, you would normally
call it using

	$progressControl->somefunction();

that is

	$progressControl->SetPos($amount);

As it turns out, and I don't know if Aldo intended for it to work this way,
if you have a handle to the control, you can also call the routine in the
"classless" way by doing

	GUI::ProgressBar::SetPos($progressControlHandle,$amount));

The latter is the way I talk to the controls from the thread that is not
running Win32::GUI::Dialog.

Right now, I am locating the window handle for the dialog itself using
GUI:FindWindow() in the non-gui thread. I'm not happy with this approach,
and am looking at other solutions as well.

Amine Moulay Ramdane's Win32::MemMap package
(http://www.generation.net/~aminer/Perl/) looks like the right solution for
this, at least for me, but I had a problem with it when I tried to use it
and ran out of time to mess with it. I know he recently posted an updated
version, I need to pull that down and see if it still has the same problem.

My initial need was to not have to use GUI::FindWindow() to locate the
dialog and controls. My thought was to serialize a hash in the gui thread
and pass it back to the non gui thread via shared memory - which
Win32::MemMap provides, and unserialize on the non gui side.

You can probably do something similar with pipes, but for some reason, I
thought that the shared memory approach looked better.


I suspect that I've rambled on enough for one day. I've included in this
message a script for a progress bar that runs in a thread by itself taking
positioning commands from another thread.


Oh, by the way, in response to another message on the list today, I think
Win32::MemMap has a timer implementation in it.


Wandering back to the real world.....

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

#! perl -w

############################################################################
####
############################################################################
####
##
## Subpackage ProgressBar
##
##

package Ta2::UiHelpers::ProgressBar;
require Exporter;
@ISA    = qw(Exporter);
@EXPORT = qw(
	Create
	Destroy
	Set
	);

use Win32::GUI;
use constant CW_USEDEFAULT => 0x80000000;

#
# Reserves ProgressBar in the main namespace for us (uhmmm...)
#
*ProgressBar:: = \%Ta2::UiHelpers::ProgressBar::;

############################################################################
####
#
# Manifest constants
#
use constant TITLE_BAR_HEIGHT => 19;
use constant WINDOW_BORDER    =>  3;
use constant MARGIN           => (7 - WINDOW_BORDER);

############################################################################
####
#
# Create()
#

sub Create
{
#
# Parameters
#
my ($title,$width,$height,$minValue,$maxValue) = @_;

#
# "Local" variables
#
my $handle = 0;
my $i;
my $pid;

#
# Fire off a thread to manage the window
#
$pid = fork();

if (!defined($pid))
	{
	#
	# Failed to fork
	#
	warn("Failed to fork management thread for ProgressBar\n");
	}

 elsif ($pid == 0)
	{
	#
	# We are continuing in the child. Do the progress bar
	#
	doProgressBar($title,$width,$height,$minValue,$maxValue);
	exit(0);
	}

 else
	{
	#
	# We are continuing in the parent. Wait for the window to appear but
	# wait no more than 30 seconds
	#
	$i = 0;

	while (($handle == 0)
	   &&  ($i < 30))
		{
		#
		# Look for the window
		#
		if (($handle = GUI::FindWindow("",$title)) == 0)
			{
			#
			# Not found. Pause and try again
			#
			sleep(1);
			$i++;
			}
		}

	if ($handle == 0)
		{
		warn("Never saw the ProgressBar appear\n");
		}
	}

return($handle);
}

############################################################################
####
#
# Destroy()
#

sub Destroy
{
#
# Parameters
#
my ($handle) = @_;

#
# Tell the window procedure to quit
#
# 0x8001 = WM_EXITLOOP = WM_APP+1
return(GUI::PostMessage($handle,0x8001,-1,0));
}


############################################################################
####
#
# Set()
#

sub Set
{
#
# Parameters
#
my ($handle,$amount) = @_;

#
# The progress bar is the first control on the dialog
#
$handle = GUI::GetDlgItem($handle,0);

#
# Set the new progress amount
#
# 1026 == PBM_SETPOS
return(GUI::ProgressBar::SetPos($handle,$amount));
}

############################################################################
####
#
# doProgressBar()
#

sub doProgressBar
{
#
# Parameters
#
my ($title,$width,$height,$minValue,$maxValue) = @_;

#
# "Local" variables
#
my $progressControl;
my $window;

#
# Create a dialog box to hold the progress bar
#
$window = new Win32::GUI::DialogBox(
	-text		=> $title,
	-left		=> CW_USEDEFAULT,
	-top		=> CW_USEDEFAULT,
	-width		=> $width,
	-height		=> $height,
	-name		=> 'Ta2::UiHelpers::ProgressBarDialog',
	-remstyle	=> WS_SYSMENU,
	-remexstyle	=> WS_EX_CONTEXTHELP);

if (!defined($window))
	{
	warn("Failed to create ProgressBar dialog\n");
	goto ABORT;
	}

#
# Compute a good size for the progress bar control
#
$width -= (2 * MARGIN) + (2 * WINDOW_BORDER);

$height -= TITLE_BAR_HEIGHT + (2 * MARGIN) + (2 * WINDOW_BORDER);

#
# Put the progress bar on the window
#
$progressControl = $window->AddProgressBar(
	-left   => MARGIN,
	-top    => MARGIN,
	-width  => $width,
	-height => $height,
	-smooth => 1);

if (!defined($progressControl))
	{
	warn("Failed to create ProgressBar control\n");
	goto ABORT;
	}

#
# Set the limits and the initial position
#
$progressControl->SetRange($minValue,$maxValue);
$progressControl->SetPos($minValue);

#
# Put the display on the screen
#
$window->Show();

#
# Activate the dialog
#
Win32::GUI::Dialog();

#
# Take the display off of the screen
#
$window->Hide();

ABORT:
if (defined($window))
	{
	$window->DestroyWindow();
	}
}


############################################################################
####
#
# Support routines
#

sub ProgressBarDialog_Terminate
{
return(-1);
}


############################################################################
####
############################################################################
####
##
## Main program
##
##

#
# "Local" variables
#
my $i;
my $pb;

#
# Create a progress bar
#
$pb = Create("A Progress Bar",200,100,0,30);

#
# Update it once a second for 30 seconds
#
for ($i=0;$i<30;$i++)
	{
	Set($pb,$i);
	sleep(1);
	}

#
# Take away the progress bar
#
Destroy($pb);

exit(0);
__END__

[perl-win32-gui-users] Fork?

[Glenn L. <Gle...@ne...>]

Hi,

I'm interested to know if there are any "best practices" for
communicating between two perl-forked threads when one of the threads is
running Win32::GUI::Dialog.  Is there a way for the non-gui threads to
send a Windows event to the gui thread?  And how would the gui thread
receive it?  Or is there some other way that should be used by the gui
thread to poll the status of the other thread?  Is non-blocking I/O the
right way to do that, on a pipe?

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

[perl-win32-gui-users] Timers?

[Glenn L. <Gle...@ne...>]

I guess this list is new, and the archive not accessible yet, so my
apologies if my question has been asked before.

I've just "discovered" Win32::GUI, and think it is just great to be able
to write Windows GUI programs using perl.  So I had a couple
applications in mind, and started writing!  It seems that Win32::GUI is
quite strong enough to handle the first one completely, although I've
not yet finished the complete program, I've finished most of the user
interface.

The other one needs to do some background monitoring, in addition to
supporting a user interface.  To do that, it seems like a timer would be
the documented metaphor for doing such monitoring using the Win32::GUI
package.  I attempted to initiate a timer, and got an error about "Your
vendor hasn't supplied a timer...", so either I must have done something
wrong (quite possible) or Timer maybe isn't supported yet in Win32::GUI?

Does someone know for sure if Timer is supported?  Does someone have
some code that illustrates a working Timer?  Maybe I just went about it
all wrong.

--
Glenn
=====
Even if you're on the right track,
you'll get run over if you just sit there.
                       -- Will Rogers

RE: [perl-win32-gui-users] Dr Watson

[Simon T. - T. <sim...@te...>]

Hi Paul

> If you want to send me your code .....
Actually, I can get it to crash just by running any of the sample Win32::GUI
scripts (eg. combobox.pl).  If I run any script that doesn't use Win32::GUI,
it's fine.  Doesn't sound promising does it?  I've now gone back to the
0.0.502 PPM so that at least I'm not getting the Dr Watsons (but still not
having a lot of fun).

> What build of Perl do you have BTW ?
Build 623.

Thanks - Simon.

-----Original Message-----
From: pau...@or... [mailto:pau...@or...]
Sent: Friday, February 23, 2001 10:11 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Dr Watson



Hi Simon

I'm running Win2K Pro and have no problems running Win32::GUI apps from the
0.0.558 PPM.

I created the code in the PPM on NT 4 SP 6a but it doesn't seem to be
causing me
a problem. If you want to send me your code (or a snipit if you know where
it
seems to be crashing) I could check it out for you. What build of Perl do
you
have BTW ?

Is anyone else having problems with this distribution on W2K ?

Cheers

Paul





"Simon Taylor - Tegel" <sim...@te...> on 23/02/2001 01:44:46

Please respond to per...@li...




To:   "'per...@li...'"
      <per...@li...>
cc:    (bcc: Paul BARKER/IT/HTLUK)


Subject:  [perl-win32-gui-users] Dr Watson



I've installed Win32::GUI 0.0.558 from the contributed PPM binary on
SourceForge onto my Windows 2000 machine running ActiveState Perl 5.6.0
Build 623.  However when I try to run a Perl script that uses Win32::GUI, I
get a Dr Watson: application exception number c00000005 (access violation).

I also tried installing 0.0.558 from the source distribution using the nmake
utility but I'm probably missing something important like the Visual C++
compiler/linker (cl.exe?).

I didn't get the Dr Watson problem when running 0.0.502 but I was getting
lots of strange GUI behaviour, so I thought I'd try the latest version.  So
far, no joy.

My burning question: Is Win32::GUI okay on Windows 2000?

Thanks
Simon Taylor
Technology Analyst
Tegel Foods Ltd, Auckland, New Zealand
mailto:sim...@te...


CAUTION:
This message and any attachments contain privileged and confidential
information.  If you are not the intended recipient of this message, you are
hereby notified that any use, dissemination, distribution or reproduction of
this message is prohibited. If you have received this message in error
please
notify the sender immediately via email and then destroy this message and
any
attachments.
Any views expressed in this message are those of the individual sender and
may
not necessarily reflect the views of Tegel Foods Ltd.


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







****************************************************************************
***
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.
****************************************************************************
***

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

CAUTION: 
This message and any attachments contain privileged and confidential information.  If you are not the intended recipient of this message, you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify the sender immediately via email and then destroy this message and any attachments.
Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of Tegel Foods Ltd.

[perl-win32-gui-users] CardLayout

[Mike K. <mk...@an...>]

Haven't played with Win32-GUI in a long time. Downloaded the latest greatest
version if Win32-GUI but no CardLayout.pm.

Any one know where I can find one?

Thanks
Mike Kangas
mk...@an...

Re: [perl-win32-gui-users] Dr Watson

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

I use Win32::GUI on my machine running Windows 2000.  If you installed a
newer version of Perl over what you already had and didn't reinstall the GUI
module I can guarantee you will run into problems.  Maybe this is what
happened?

Try reinstalling the Win::GUI module and see what happens.

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


----- Original Message -----
From: "Simon Taylor - Tegel" <sim...@te...>
To: <per...@li...>
Sent: Thursday, February 22, 2001 8:44 PM
Subject: [perl-win32-gui-users] Dr Watson


> I've installed Win32::GUI 0.0.558 from the contributed PPM binary on
> SourceForge onto my Windows 2000 machine running ActiveState Perl 5.6.0
> Build 623.  However when I try to run a Perl script that uses Win32::GUI,
I
> get a Dr Watson: application exception number c00000005 (access
violation).
>
> I also tried installing 0.0.558 from the source distribution using the
nmake
> utility but I'm probably missing something important like the Visual C++
> compiler/linker (cl.exe?).
>
> I didn't get the Dr Watson problem when running 0.0.502 but I was getting
> lots of strange GUI behaviour, so I thought I'd try the latest version.
So
> far, no joy.
>
> My burning question: Is Win32::GUI okay on Windows 2000?
>
> Thanks
> Simon Taylor
> Technology Analyst
> Tegel Foods Ltd, Auckland, New Zealand
> mailto:sim...@te...
>
>
> CAUTION:
> This message and any attachments contain privileged and confidential
information.  If you are not the intended recipient of this message, you are
hereby notified that any use, dissemination, distribution or reproduction of
this message is prohibited. If you have received this message in error
please notify the sender immediately via email and then destroy this message
and any attachments.
> Any views expressed in this message are those of the individual sender and
may not necessarily reflect the views of Tegel Foods Ltd.
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] Dr Watson

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

Hi Simon

I'm running Win2K Pro and have no problems running Win32::GUI apps from the
0.0.558 PPM.

I created the code in the PPM on NT 4 SP 6a but it doesn't seem to be causing me
a problem. If you want to send me your code (or a snipit if you know where it
seems to be crashing) I could check it out for you. What build of Perl do you
have BTW ?

Is anyone else having problems with this distribution on W2K ?

Cheers

Paul





"Simon Taylor - Tegel" <sim...@te...> on 23/02/2001 01:44:46

Please respond to per...@li...




To:   "'per...@li...'"
      <per...@li...>
cc:    (bcc: Paul BARKER/IT/HTLUK)


Subject:  [perl-win32-gui-users] Dr Watson



I've installed Win32::GUI 0.0.558 from the contributed PPM binary on
SourceForge onto my Windows 2000 machine running ActiveState Perl 5.6.0
Build 623.  However when I try to run a Perl script that uses Win32::GUI, I
get a Dr Watson: application exception number c00000005 (access violation).

I also tried installing 0.0.558 from the source distribution using the nmake
utility but I'm probably missing something important like the Visual C++
compiler/linker (cl.exe?).

I didn't get the Dr Watson problem when running 0.0.502 but I was getting
lots of strange GUI behaviour, so I thought I'd try the latest version.  So
far, no joy.

My burning question: Is Win32::GUI okay on Windows 2000?

Thanks
Simon Taylor
Technology Analyst
Tegel Foods Ltd, Auckland, New Zealand
mailto:sim...@te...


CAUTION:
This message and any attachments contain privileged and confidential
information.  If you are not the intended recipient of this message, you are
hereby notified that any use, dissemination, distribution or reproduction of
this message is prohibited. If you have received this message in error please
notify the sender immediately via email and then destroy this message and any
attachments.
Any views expressed in this message are those of the individual sender and may
not necessarily reflect the views of Tegel Foods Ltd.


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







*******************************************************************************
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.
*******************************************************************************

[perl-win32-gui-users] Dr Watson

[Simon T. - T. <sim...@te...>]

I've installed Win32::GUI 0.0.558 from the contributed PPM binary on
SourceForge onto my Windows 2000 machine running ActiveState Perl 5.6.0
Build 623.  However when I try to run a Perl script that uses Win32::GUI, I
get a Dr Watson: application exception number c00000005 (access violation).

I also tried installing 0.0.558 from the source distribution using the nmake
utility but I'm probably missing something important like the Visual C++
compiler/linker (cl.exe?).

I didn't get the Dr Watson problem when running 0.0.502 but I was getting
lots of strange GUI behaviour, so I thought I'd try the latest version.  So
far, no joy.

My burning question: Is Win32::GUI okay on Windows 2000?

Thanks
Simon Taylor
Technology Analyst
Tegel Foods Ltd, Auckland, New Zealand
mailto:sim...@te...


CAUTION: 
This message and any attachments contain privileged and confidential information.  If you are not the intended recipient of this message, you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify the sender immediately via email and then destroy this message and any attachments.
Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of Tegel Foods Ltd.

[perl-win32-gui-users] How to refresh a window

[A <ex...@se...>]

Hi,
I have an application that uses Win32::GUI.
This program creates a window and writes, as it is running , some
information to this window. This  application runs for a quite long
time(about 20 minutes or longer).So far so good. A problem begins 
when a user switches from this program to another program and 
after some time
returns back to my program.The window created by my program is 
not
refreshed immediately to the state before switching but I must wait
until my program writes to that window. And because the window is 
not
refreshed quickly  it seems that the program does not run any 
longer.
What is  the best way how to refresh the window and show users 
that
the program is still running? Thank you for any good idea.

Ladislav

Re[2]: [perl-win32-gui-users] got a pretty strange question :) Printing in PERL & Gui

[Danny Z. <da...@be...>]

Dear Reini,


hmm not the best solution :)

i'm thinking of using some component and writing data to it ..  (such
as parsing html manually :) ) .. and then printing

i did a expirement with VB (yuk i know) and a OCX created by somebody
.. it works really great .. is it maybe possible to use a OCX on a
way or a other ?

Best regards,
 Danny Zak                            mailto:da...@be...
  co-ceo 

Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium

Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65

-------------------------------------------------------------------
Wednesday, February 21, 2001, 5:43:05 PM, you wrote:

RU> printing is generally easier on Windows than elsewhere 
RU> but nevertheless it's a pain.

RU> I would recommend to transparently dump the content to PDF, 
RU> provide the acrobat reader installer in the CD and the rest does the browser.

RU> For the simplier solution forget PDF, just use HTML, and also print from 
RU> the browser. 
RU> These ways you don't need Win32::GUI at all, and it's much less code.

RU> Local html solutions querying a database from the CD needs some kind 
RU> of installation efforts, but it's much easier than let the user install 
RU> Win32::GUI.


RU> Danny Zak schrieb:
>>   I have got a database running, and it accessable via the web (normal
>>   perl programmation -> web interface)
>> 
>>   Now I want to realize a programmation that will permit to use the
>>   database locally, main reason, I want to write it to CD-ROM and
>>   start distributing it to the general public.
>> 
>>   There is no problem with realizing this with the great Win32::GUI
>>   module, BUT ..... I also want a solution that I can print certain
>>   pages of my catalog.
>> 
>>   How do I need to cover this topic ? is there somewhere a option in
>>   Win32::GUI to start printing pages with a certain layout.. Can I use
>>   perl for this kind of app that i'm willing to realize?  For being
>>   clear, I don't want to make screenshots of the Window :)

Re: [perl-win32-gui-users] ListView Column Resize

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

----- Original Message -----
From: "Erick J. Bourgeois" <er...@e-...>
To: <per...@li...>
Sent: Tuesday, February 20, 2001 11:12 AM
Subject: Re: [perl-win32-gui-users] ListView Column Resize

> $MainWin->AddListView(
>         -name          => "ListView",
>         -pos           => [45, 110],
>         -size          => [$MainWin->ScaleWidth-90,
> $MainWin->ScaleHeight-170],
>         -style         => WS_CHILD | WS_VISIBLE | 1 |
> WS_HSCROLL | WS_VSCROLL,
>         -fullrowselect => 0,
>         -gridlines     => 0,
>         -hottrack      => 0,
>         -view          => 1,
>         -visible       => 0, #As you can see the initial
> state is non-visible
>         -tabstop       => 1,
>         -checkboxes    => 1,
>         -singlesel     => 1,
> );

aaahhhhhhh .... the ListView construct  ;]

in looking over your code here I could not come up with an idea as to what
might be wrong.  would you have a problem in sending me the entire program
so i could run it and try to make a determination from that and looking at
the full source code at the same time?

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


> Jonathan,
>
> You asked me: "What does your listview contruct look like?
> Is there any other code that might be responsible for this
> maybe?". So I described (described being the opertive
> word)how I constructed it and I introduced the fact that I
> do have other code that code be responsible. I'm sorry if I
> was not completly explicit. One of the controls that I
> create and show is a ListView. So, this listview needs to be
> hiden and shown many times (as the case may be). When I show
> the listview and start resiszing the columns it goes all
> wacky. Here is the code for the listview:
>
> $MainWin->AddListView(
>         -name          => "ListView",
>         -pos           => [45, 110],
>         -size          => [$MainWin->ScaleWidth-90,
> $MainWin->ScaleHeight-170],
>         -style         => WS_CHILD | WS_VISIBLE | 1 |
> WS_HSCROLL | WS_VSCROLL,
>         -fullrowselect => 0,
>         -gridlines     => 0,
>         -hottrack      => 0,
>         -view          => 1,
>         -visible       => 0, #As you can see the initial
> state is non-visible
>         -tabstop       => 1,
>         -checkboxes    => 1,
>         -singlesel     => 1,
> );
> my $width = $MainWin->ListView->ScaleWidth;
> $MainWin->ListView->InsertColumn(
>         -index   => 0,
>         -subitem => 0,
>         -width   => ($width/2)+10,
>         -text    => "Column1",
> );
> $MainWin->ListView->InsertColumn(
>         -index   => 1,
>         -subitem => 1,
>         -width   => $width/2,
>         -text    => "Column2",
> );
> for (sort keys %Hash) {
>         $MainWin->ListView->InsertItem( -text=>[$_,
> $Hash{$_}] );
>         # I have another problem here, I want to set the
> checkbox to "checked"
> }
> $MainWin->ListView->TextColor([255,150,55]);
> $MainWin->ListView->TextBkColor([0, 59, 102]);
>
> Sorry about the confusion :-)
>
> erick
> never stop questioning
> www.jeb.ca
>
> ----- Original Message -----
> From: Jonathan Southwick <jso...@al...>
> To: <per...@li...>
> Sent: Tuesday, February 20, 2001 4:12 PM
> Subject: Re: [perl-win32-gui-users] ListView Column Resize
>
>
> > Erick,
> >
> > I'm sorry but I am really confused now.  Your original
> question was about
> > resizing columns in a listview and your reply to my
> response had nothing to
> > do with that at all.  Am I missing something here?
> >
> > As to your second question.  I do the same thing with a
> TabStrip.  A user
> > clicks on one tab and only certain labels and textfields
> appear, a second
> > tab is clicked and those hide and others are shown.  I do
> not "update" the
> > window in between showing and hiding the various objects
> and have not had a
> > problem.
> >
> > If you could paste your cose maybe there is a deeper
> problem.  Also it would
> > help me understand what you are saying is happening.
> >
> >
> > Thanks.
> >
> >
> > Jonathan Southwick
> > Technical & Network Services
> > Allegheny College, Meadsville, PA
> > jso...@al...
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] ListView Column Resize

[Erick J. B. <er...@e-...>]

Jonathan,

You asked me: "What does your listview contruct look like?
Is there any other code that might be responsible for this
maybe?". So I described (described being the opertive
word)how I constructed it and I introduced the fact that I
do have other code that code be responsible. I'm sorry if I
was not completly explicit. One of the controls that I
create and show is a ListView. So, this listview needs to be
hiden and shown many times (as the case may be). When I show
the listview and start resiszing the columns it goes all
wacky. Here is the code for the listview:

$MainWin->AddListView(
        -name          => "ListView",
        -pos           => [45, 110],
        -size          => [$MainWin->ScaleWidth-90,
$MainWin->ScaleHeight-170],
        -style         => WS_CHILD | WS_VISIBLE | 1 |
WS_HSCROLL | WS_VSCROLL,
        -fullrowselect => 0,
        -gridlines     => 0,
        -hottrack      => 0,
        -view          => 1,
        -visible       => 0, #As you can see the initial
state is non-visible
        -tabstop       => 1,
        -checkboxes    => 1,
        -singlesel     => 1,
);
my $width = $MainWin->ListView->ScaleWidth;
$MainWin->ListView->InsertColumn(
        -index   => 0,
        -subitem => 0,
        -width   => ($width/2)+10,
        -text    => "Column1",
);
$MainWin->ListView->InsertColumn(
        -index   => 1,
        -subitem => 1,
        -width   => $width/2,
        -text    => "Column2",
);
for (sort keys %Hash) {
        $MainWin->ListView->InsertItem( -text=>[$_,
$Hash{$_}] );
        # I have another problem here, I want to set the
checkbox to "checked"
}
$MainWin->ListView->TextColor([255,150,55]);
$MainWin->ListView->TextBkColor([0, 59, 102]);

Sorry about the confusion :-)

erick
never stop questioning
www.jeb.ca

----- Original Message -----
From: Jonathan Southwick <jso...@al...>
To: <per...@li...>
Sent: Tuesday, February 20, 2001 4:12 PM
Subject: Re: [perl-win32-gui-users] ListView Column Resize


> Erick,
>
> I'm sorry but I am really confused now.  Your original
question was about
> resizing columns in a listview and your reply to my
response had nothing to
> do with that at all.  Am I missing something here?
>
> As to your second question.  I do the same thing with a
TabStrip.  A user
> clicks on one tab and only certain labels and textfields
appear, a second
> tab is clicked and those hide and others are shown.  I do
not "update" the
> window in between showing and hiding the various objects
and have not had a
> problem.
>
> If you could paste your cose maybe there is a deeper
problem.  Also it would
> help me understand what you are saying is happening.
>
>
> Thanks.
>
>
> Jonathan Southwick
> Technical & Network Services
> Allegheny College, Meadsville, PA
> jso...@al...

Re: [perl-win32-gui-users] ListView Column Resize

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

Erick,

I'm sorry but I am really confused now.  Your original question was about
resizing columns in a listview and your reply to my response had nothing to
do with that at all.  Am I missing something here?

As to your second question.  I do the same thing with a TabStrip.  A user
clicks on one tab and only certain labels and textfields appear, a second
tab is clicked and those hide and others are shown.  I do not "update" the
window in between showing and hiding the various objects and have not had a
problem.

If you could paste your cose maybe there is a deeper problem.  Also it would
help me understand what you are saying is happening.


Thanks.


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

----- Original Message -----
From: "Erick J. Bourgeois" <er...@e-...>
To: <per...@li...>
Sent: Tuesday, February 20, 2001 8:11 AM
Subject: Re: [perl-win32-gui-users] ListView Column Resize


> Jonathan,
>
> Basically what I am doing is creating labels (and controls),
> five sets of labels, as non-visible. Then I create the main
> window and show the first set of labels. When the user
> chooses a menu item under the "View" menu, then I show those
> labels and hide the previous ones. So, I basically use the
> main window as a blackboard to show what there is in the
> "View" menu. Should I update the window before I show the
> new labels?
>
> erick
> never stop questioning
> www.jeb.ca
> ----- Original Message -----
> From: Jonathan Southwick <jso...@al...>
> To: <per...@li...>
> Sent: Monday, February 19, 2001 2:33 PM
> Subject: Re: [perl-win32-gui-users] ListView Column Resize
>
>
> > Eric,
> >
> > I use a listview in one of my applications I have wriutten
> and do not have
> > that problem.  What does your listview contruct look like?
> Is there any
> > other code that might be responsible for this maybe?
> >
> > Jonathan Southwick
> > Technical & Network Services
> > Allegheny College, Meadsville, PA
> > jso...@al...
> >
> > ----- Original Message -----
> > From: "Erick J. Bourgeois" <er...@e-...>
> > To: <per...@li...>
> > Sent: Friday, February 16, 2001 1:36 PM
> > Subject: [perl-win32-gui-users] ListView Column Resize
> >
> >
> > > Has anyone had the listview disappear if you try and
> resize
> > > the column? If I resize it, the first time it
> disappears,
> > > the second it reappears but without the scrollbars. Any
> one
> > > else?
> > >
> > > erick
> > > never stop questioning
> > > www.jeb.ca
> > >
> > >
> > > _______________________________________________
> > > Perl-Win32-GUI-Users mailing list
> > > Per...@li...
> > >
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
> sers
> > >
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> >
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
> sers
> >
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] SS_SIMPLE

[Erick J. B. <er...@e-...>]

Aldo,

The SS_SIMPLE option is only available with the new release
of the Win32::GUI module?

erick
never stop questioning
www.jeb.ca

Re: [perl-win32-gui-users] ListView Column Resize

[Erick J. B. <er...@e-...>]

Jonathan,

Basically what I am doing is creating labels (and controls),
five sets of labels, as non-visible. Then I create the main
window and show the first set of labels. When the user
chooses a menu item under the "View" menu, then I show those
labels and hide the previous ones. So, I basically use the
main window as a blackboard to show what there is in the
"View" menu. Should I update the window before I show the
new labels?

erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Jonathan Southwick <jso...@al...>
To: <per...@li...>
Sent: Monday, February 19, 2001 2:33 PM
Subject: Re: [perl-win32-gui-users] ListView Column Resize


> Eric,
>
> I use a listview in one of my applications I have wriutten
and do not have
> that problem.  What does your listview contruct look like?
Is there any
> other code that might be responsible for this maybe?
>
> Jonathan Southwick
> Technical & Network Services
> Allegheny College, Meadsville, PA
> jso...@al...
>
> ----- Original Message -----
> From: "Erick J. Bourgeois" <er...@e-...>
> To: <per...@li...>
> Sent: Friday, February 16, 2001 1:36 PM
> Subject: [perl-win32-gui-users] ListView Column Resize
>
>
> > Has anyone had the listview disappear if you try and
resize
> > the column? If I resize it, the first time it
disappears,
> > the second it reappears but without the scrollbars. Any
one
> > else?
> >
> > erick
> > never stop questioning
> > www.jeb.ca
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> >
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
sers
> >
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
sers
>

Re: [perl-win32-gui-users] got a pretty strange question :) Printing in PERL & Gui

[Daniel B. <da...@ho...>]

I'm interested in printing (to paper) as well.  It seems most solutions involve
plain text files and a command line PRINT or COPY LPT1 scenario.

I would love to print a page with a graphic (bar code) without using a web
browser.


Thanks,
Dan Brideau
http://www.hobbyetc.com/g


>   There is no problem with realizing this with the great Win32::GUI
>   module, BUT ..... I also want a solution that I can print certain
>   pages of my catalog.

[perl-win32-gui-users] got a pretty strange question :) Printing in PERL & Gui

[Danny Z. <da...@be...>]

Dear perl-win32-gui-users,

  I have got a database running, and it accessable via the web (normal
  perl programmation -> web interface)

  Now I want to realize a programmation that will permit to use the
  database locally, main reason, I want to write it to CD-ROM and
  start distributing it to the general public.

  There is no problem with realizing this with the great Win32::GUI
  module, BUT ..... I also want a solution that I can print certain
  pages of my catalog.

  How do I need to cover this topic ? is there somewhere a option in
  Win32::GUI to start printing pages with a certain layout.. Can I use
  perl for this kind of app that i'm willing to realize?  For being
  clear, I don't want to make screenshots of the Window :)
  


If you have any questions, whatsoever, please feel free to contact us.
    
Best regards,
 Danny Zak                           mailto:da...@be...
 co-ceo 

Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium

Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65

[perl-win32-gui-users] Menu and checkmarks

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

Is there anyway to make the checkmarks be dots in a menu where a user =
has a choice to select something?

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