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

[perl-win32-gui-users] ListView setting item as checked

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

When inserting an item, there does not seem to be an option
for setting the item as checked or not. I think I would have
to use the SetItem method, but there is no documentaion on
this. Does anyone know?

erick
never stop questioning
www.jeb.ca

Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI

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

Nahum Marc wrote:
> I do this too ... but it's close the window , and not all the
> script ... I can see the process yet in task manager (under NT4)
>
> off course , i hide the dos box so , i need kill the process

there must be some error in your script. can you post a piece of
your code that includes at least the window creation, the
Win32::GUI::Dialog() call and the Terminate event?

also, please report which version of Win32::GUI and Perl and
operating system you're using.


cheers,
Aldo

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

Re: [perl-win32-gui-users] looping in win32 GUI

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

christopher sagayam wrote:
> Here is what Im trying to do
>
> I am trying to write a win32 gui perl client which when started
> will check whether the computer is connected to internet
> continuously indefinety in the meantime other actions should
> proceed also
>
> So based on your previous example actually there wont be a STOP
> button at all since this loop is going to be continuouly executed
> as along as the win32 gui script is running
>
> now the catch is during the time the loop is running I need to
> catch key presses , button presses , tab presses etc  too and do
> it efficiently

I see. in this case, the best thing to do is to setup a Timer
object with a small interval and do your connectivity test once
inside its Timer event, no loop, no sleep :-)


cheers,
Aldo

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

Re: [perl-win32-gui-users] looping in win32 GUI

[christopher s. <chr...@ya...>]

Thanks aldo

I will use DO event

but in case there is a better solution do keep me posted

Here is what Im trying to do

I am trying to write a win32 gui perl client which when started will check
whether the computer is connected to internet continuously indefinety in the
meantime other actions should proceed also

So based on your previous example actually there wont be a STOP button at
all since this loop is going to be continuouly executed as along as the
win32 gui script is running

now the catch is during the time the loop is running I need to catch key
presses , button presses , tab presses etc  too and do it efficiently

Thanks

chris

----- Original Message -----
From: Aldo Calpini <da...@pe...>
To: christopher sagayam <per...@li...>
Sent: Wednesday, February 14, 2001 3:47 PM
Subject: Re: [perl-win32-gui-users] looping in win32 GUI


christopher sagayam wrote:
> $|=1;
> use Win32::RASE;
> eval "use Time::HiRes qw(sleep)";
> $hrasconn = (RasEnumConnections())[1];
> $old_status = -1;
> while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
>    if ($status != $old_status) {
>        print "$status: $status_text\n";
>        $old_status =  $status;
>    }
>    sleep ($@ ? 1 : 0.01);
> }
> # error 6 - Invalid handle
> ($err = Win32::RASE::GetLastError) != 6 and die
> Win32::RASE::FormatMessage($err);
> exit;
>
> The above code goes into a while loop and constantly checks for
> the internet connection and prints connected or disconnected as
> appropriate
>
> Now my question is how do I use this loop in Win32 GUI

well, it depends on the design of your application. basically, the
Right Way is to use DoEvents.
DoEvents is similar to Dialog, in the sense that it looks for
keypresses, mouse clicks, etc. and fires the appropriate
event(s). the big difference is that DoEvents does not loop,
like Dialog, until it receives a termination message. instead,
if there's nothing to process, DoEvents returns immediately.
you can call DoEvents inside the loop like this:

    while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
        if ($status != $old_status) {
            print "$status: $status_text\n";
            $old_status =  $status;
        }
        sleep ($@ ? 1 : 0.01);
        $MainWindow->DoEvents();
    }

this way your application can have a 'Stop' button that may,
for example, break the loop (not *immediately* responsive, but
better than nothing :-).

the loop could be embedded in an event sub (for example,
StartCheck_Click), or you can have no Win32::GUI::Dialog at all,
so that the above loop is the real 'core' of the script. as I said,
it depends on the design of your application.
if this is not clear, please elaborate a bit more about the program
you're trying to write.


cheers,
Aldo

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



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

Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI

[Nahum M. <Mar...@re...>]

I do this too ... but it's close the window , and not all the script ...
I can see the process yet in task manager (under NT4) 

off course , i hide the dos box so , i need kill the process
----- Original Message ----- 
From: "Aldo Calpini" <da...@pe...>
To: "Nahum Marc" <per...@li...>
Sent: Wednesday, February 14, 2001 12:01 PM
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI


> Nahum Marc wrote:
> > How to manage the the cancel cross (upper right) in GUI to do
> > an exit ? , not a window exit , but a script exit ...
> 
> pick a sample script, anyone will do, from the samples directory
> and study it.
> 
> <HINT>
> supposing your window is named Window, add this line to your
> script:
>     sub Window_Terminate { -1 }
> </HINT>
>     
> 
> cheers,
> Aldo
> 
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI

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

Nahum Marc wrote:
> How to manage the the cancel cross (upper right) in GUI to do
> an exit ? , not a window exit , but a script exit ...

pick a sample script, anyone will do, from the samples directory
and study it.

<HINT>
supposing your window is named Window, add this line to your
script:
    sub Window_Terminate { -1 }
</HINT>
    

cheers,
Aldo

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

Re: [perl-win32-gui-users] looping in win32 GUI

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

christopher sagayam wrote:
> I might be slow to learn but
> Actually what Im concerned about is the while loop
> How do I get out of the while loop ?
>
> while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
> }
>
> once the control goes into this loop how it is going to get out ?
> Or are these kinds of daemons possible in Win32::GUI ?

as I already said, it depends on your application. and I also add,
it depends on your Perl programming style :-)
a possible way could be:

    $stay_in_loop = 1;
    while ( $stay_in_loop ) {
        ($status, $status_text) = RasGetConnectStatus($hrasconn)
            or $stay_in_loop = 0;

        # ...body of the loop...
            
        $MainWindow->DoEvents();
    }

at this point, you could have for example a 'Stop' button which
can control the loop like this:

    sub Stop_Click {
        $stay_in_loop = 0;
    }

but you may prefer a different approach...
    

cheers,
Aldo

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

[perl-win32-gui-users] The cancel cross (upper right) in GUI

[Nahum M. <Mar...@re...>]

How to manage the the cancel cross (upper right) in GUI to do an exit ? =
, not a window exit , but a script exit ...

Re: [perl-win32-gui-users] looping in win32 GUI

[christopher s. <chr...@ya...>]

I might be slow to learn but

Actually what Im concerned about is the while loop

How do I get out of the while loop ?

while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
}

once the control goes into this loop how it is going to get out ?

Or are these kinds of daemons possible in Win32::GUI ?


chris
----- Original Message -----
From: <Kev...@Al...>
To: <chr...@ya...>
Cc: <per...@li...>
Sent: Wednesday, February 14, 2001 3:22 PM
Subject: Re: [perl-win32-gui-users] looping in win32 GUI


Chris,

I guess what you want to do is have a status window on
which you can display the status text from the RASE call?
If that's the case you can do something like this

use Win32::GUI;

my $Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 86,
      -name   => "Win",
      -text   => "RAS Status"
      );

$Win->AddLabel(
       -text    => "  ",
       -name    => "Label",
       -left    => 5,
       -top     => 5,
       -width   => 280,
       -height  => 48,
      );

sub display {           #   Update status text
   my $text=shift;
   $Win->Show();
   $Win->BringWindowToTop();
   $Win->Refresh();
   $Win->Label->Text($text);
   $Win->Label->Update();
}

and use display instead of the print in your code
sample.

If you have other windows that you want to run in
the foreground you might want to consider not using
$Win->BringWindowToTop().

Hope that helps.

Kev.




chr...@ya... on 14/02/2001 13:29:22
To: per...@li... @ INTERNET
cc:

Subject: [perl-win32-gui-users] looping in win32 GUI

$|=1;
use Win32::RASE;
eval "use Time::HiRes qw(sleep)";
$hrasconn = (RasEnumConnections())[1];
$old_status = -1;
while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
   if ($status != $old_status) {
       print "$status: $status_text\n";
       $old_status =  $status;
   }
   sleep ($@ ? 1 : 0.01);
}
# error 6 - Invalid handle
($err = Win32::RASE::GetLastError) != 6 and die
Win32::RASE::FormatMessage($err);
exit;


The above code goes into a while loop and constantly checks for the internet
connection and prints connected or disconnected as appropriate

Now my question is how do I use this loop in Win32 GUI

suppose I use the above loop as it is control , will NOT be transferred to
any other part of the program...

I know that Win32::GUI::Dialog(); actually goes into an indefinite loop
looking for keypresses etc

How can I integrate the while loop also into theWin32::GUI::Dialog(); loop ?


hope Im clear with my question if NOT I will elaborate

Thanks

chris
www.perl-resume.com





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

Re: [perl-win32-gui-users] looping in win32 GUI

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

christopher sagayam wrote:
> $|=1;
> use Win32::RASE;
> eval "use Time::HiRes qw(sleep)";
> $hrasconn = (RasEnumConnections())[1];
> $old_status = -1;
> while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
>    if ($status != $old_status) {
>        print "$status: $status_text\n";
>        $old_status =  $status;
>    }
>    sleep ($@ ? 1 : 0.01);
> }
> # error 6 - Invalid handle
> ($err = Win32::RASE::GetLastError) != 6 and die
> Win32::RASE::FormatMessage($err);
> exit;
>
> The above code goes into a while loop and constantly checks for
> the internet connection and prints connected or disconnected as
> appropriate
>
> Now my question is how do I use this loop in Win32 GUI

well, it depends on the design of your application. basically, the
Right Way is to use DoEvents.
DoEvents is similar to Dialog, in the sense that it looks for
keypresses, mouse clicks, etc. and fires the appropriate
event(s). the big difference is that DoEvents does not loop,
like Dialog, until it receives a termination message. instead,
if there's nothing to process, DoEvents returns immediately.
you can call DoEvents inside the loop like this:

    while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
        if ($status != $old_status) {
            print "$status: $status_text\n";
            $old_status =  $status;
        }
        sleep ($@ ? 1 : 0.01);
        $MainWindow->DoEvents();
    }

this way your application can have a 'Stop' button that may,
for example, break the loop (not *immediately* responsive, but
better than nothing :-).

the loop could be embedded in an event sub (for example,
StartCheck_Click), or you can have no Win32::GUI::Dialog at all,
so that the above loop is the real 'core' of the script. as I said,
it depends on the design of your application.
if this is not clear, please elaborate a bit more about the program
you're trying to write.


cheers,
Aldo

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

Re: [perl-win32-gui-users] looping in win32 GUI

[<Kev...@Al...>]

Chris,

I guess what you want to do is have a status window on
which you can display the status text from the RASE call?
If that's the case you can do something like this

use Win32::GUI;

my $Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 86,
      -name   => "Win",
      -text   => "RAS Status"
      );

$Win->AddLabel(
       -text    => "  ",
       -name    => "Label",
       -left    => 5,
       -top     => 5,
       -width   => 280,
       -height  => 48,
      );

sub display {           #   Update status text
   my $text=shift;
   $Win->Show();
   $Win->BringWindowToTop();
   $Win->Refresh();
   $Win->Label->Text($text);
   $Win->Label->Update();
}

and use display instead of the print in your code
sample.

If you have other windows that you want to run in
the foreground you might want to consider not using
$Win->BringWindowToTop().

Hope that helps.

Kev.




chr...@ya... on 14/02/2001 13:29:22
To: per...@li... @ INTERNET
cc:  

Subject: [perl-win32-gui-users] looping in win32 GUI

$|=1;
use Win32::RASE;
eval "use Time::HiRes qw(sleep)";
$hrasconn = (RasEnumConnections())[1];
$old_status = -1;
while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
   if ($status != $old_status) {
       print "$status: $status_text\n";
       $old_status =  $status;
   }
   sleep ($@ ? 1 : 0.01);
}
# error 6 - Invalid handle
($err = Win32::RASE::GetLastError) != 6 and die
Win32::RASE::FormatMessage($err);
exit;


The above code goes into a while loop and constantly checks for the internet
connection and prints connected or disconnected as appropriate

Now my question is how do I use this loop in Win32 GUI

suppose I use the above loop as it is control , will NOT be transferred to
any other part of the program...

I know that Win32::GUI::Dialog(); actually goes into an indefinite loop
looking for keypresses etc

How can I integrate the while loop also into theWin32::GUI::Dialog(); loop ?


hope Im clear with my question if NOT I will elaborate

Thanks

chris
www.perl-resume.com





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

[perl-win32-gui-users] looping in win32 GUI

[christopher s. <chr...@ya...>]

$|=1;
use Win32::RASE;
eval "use Time::HiRes qw(sleep)";
$hrasconn = (RasEnumConnections())[1];
$old_status = -1;
while ( ($status, $status_text) = RasGetConnectStatus($hrasconn) ) {
   if ($status != $old_status) {
       print "$status: $status_text\n";
       $old_status =  $status;
   }
   sleep ($@ ? 1 : 0.01);
}
# error 6 - Invalid handle
($err = Win32::RASE::GetLastError) != 6 and die
Win32::RASE::FormatMessage($err);
exit;


The above code goes into a while loop and constantly checks for the internet
connection and prints connected or disconnected as appropriate

Now my question is how do I use this loop in Win32 GUI

suppose I use the above loop as it is control , will NOT be transferred to
any other part of the program...

I know that Win32::GUI::Dialog(); actually goes into an indefinite loop
looking for keypresses etc

How can I integrate the while loop also into theWin32::GUI::Dialog(); loop ?


hope Im clear with my question if NOT I will elaborate

Thanks

chris
www.perl-resume.com

[perl-win32-gui-users] Missing -name parameter causes access violation

[Keith K. <kki...@st...>]

The Perl code below will cause an access violation. Uncommenting the -name
parameter will fix it. Took a while to figure this out. The offending line
is in GUI.XS, Create(), line 4512:

	strcpy( (perlud->szWindowName), perlcs.szWindowName);

Is this the proper mailing list to report bugs on?

-Keith.

--cut here--cut here--cut here--cut here--cut here--cut here--cut here--cut
here--cut here--

use strict;
use Win32::GUI;

$wndMain = Win32::GUI::Window->new(
    -name    => 'wndMain',
    -title   => 'pbLaunch',
    -width   => 600,
    -height  => 400
);

$wndStatus = $wndMain->AddStatusBar(
##    -name    => 'wndStatus',
    -width   => $wndMain->ScaleWidth
);

Re: [perl-win32-gui-users] POE + Win32::GUI ?

[Ludvig af K. <kli...@ho...>]

I don't know much about the guts of Win32::GUI (or Win32 in general, or
POE for that matter), but would a combination of POE and Win32::GUI be
successful, or is Win32::GUI not stable enough yet? Or simply not
constructed for that sort of thing? To me the possibilities seem great,
but maybe I'm just following the hype, being too enthusiastic about POE.

My monitoring example is, namely, just an example. It does by the way
use quite a lot of HTTP specific stuff with cookies and redirects, so
that's why I chose to implement the networking with a module instead of
making it neatly non-blocking.

	-Ludde

Reini Urban wrote:
> 
> If Win32::GUI would be thread-safe :)
> POE is for sure a very nice abstraction layer for process management.
> 
> I would also recommend reading an ordinary win32 sdk book, the charles petzold
> "Programming Windows" probably. http://www.relisoft.com/win32/
> if you borrow it from a library you'll get the cd, where the complete text
> is in chm! (4mb)
> This book would answer 80% if the questions here, btw.
> 
> The very good perl cookbook has some good descriptions on process management,
> blocking, locks, threads, forks and alarms.
> There exists also a fulltext version in html.
> I don't fully understand this yet.
> 
> but i think that your web monitor example is covered in the cookbook.
> 
> Ludvig af Klinteberg schrieb:
> > I just read some about POE (Perl Object Environment -
> > http://poe.perl.org), and it seems really interesting. I had the idea
> > that by combining POE and Win32::GUI you could perhaps create a UI
> > program that doesn't freeze whenever it's doing something time
> > consuming. (e.g. sending/receiving data over a network)
> >
> > Some time ago I wrote a small program using Win32::GUI and
> > LWP::UserAgent that downloaded a web page every X minutes and checked if
> > it had been updated, and if it had the program popped up a window on the
> > screen. The only problem was that it was impossible to interact with the
> > program while it was downloading this (quite large) page from the
> > (rather slow) server. The idea struck me that maybe rewriting the whole
> > thing using POE might solve my troubles? As I said, I have no experience
> > with POE, but if it could be successfully combined with Win32::GUI I
> > would definitely look into it. So, can it be done? Has anyone with POE
> > knowledge tried it?
> --
> Reini Urban
> http://xarch.tu-graz.ac.at/home/rurban/
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

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

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

Erick J. Bourgeois wrote:
>> sorry, but where did you got this syntax?
>
> From the documentation in FileOp module.

oh, well, FileOp != Win32::GUI :-)

cheers,
Aldo

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

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

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

> sorry, but where did you got this syntax?

From the documentation in FileOp module.

erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Aldo Calpini <da...@pe...>
To: Erick J. Bourgeois
<per...@li...>
Sent: Monday, February 12, 2001 10:47 AM
Subject: Re: [perl-win32-gui-users] SaveAsDialog


> Erick J. Bourgeois wrote:
> > Has anyone had success using the SaveAsDialog?
> >
> > I'm using the SaveAsDialog in the following way:
> >
> >              my %param = (title => "SaveAs",
> > filters=>{'Filter 1' => '*.txt;*.doc', 'Filter 2'
> > =>'*.pl;*.pm'});
> >              my $file = SaveAsDialog %param, "foo.txt";
>
> sorry, but where did you got this syntax?
>
> try this:
>
>     my $file = Win32::GUI::GetSaveFileName(
>         -title => "SaveAs",
>         -filter => [
>             "Filter 1" => "*.txt;*.doc",
>             "Filter 2" => "*.pl;*.pm",
>         ],
>         -file => "foo.txt",
>     );
>
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-u
sers
>

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

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

Erick J. Bourgeois wrote:
> Has anyone had success using the SaveAsDialog?
>
> I'm using the SaveAsDialog in the following way:
>
>              my %param = (title => "SaveAs",
> filters=>{'Filter 1' => '*.txt;*.doc', 'Filter 2'
> =>'*.pl;*.pm'});
>              my $file = SaveAsDialog %param, "foo.txt";

sorry, but where did you got this syntax?

try this:

    my $file = Win32::GUI::GetSaveFileName(
        -title => "SaveAs",
        -filter => [
            "Filter 1" => "*.txt;*.doc",
            "Filter 2" => "*.pl;*.pm",
        ],
        -file => "foo.txt",
    );


cheers,
Aldo

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

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

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

Erick J. Bourgeois wrote:
> I wish to prevent the user from choosing more than one item
> in a Listview and since I didn't find an option
> for -multisel, like in a ListBox, I have attempted to
> achieve this through the ItemClick event for a ListView.
>
> sub ListView_ItemClick {
>     if ($Win->ListView->SelectCount() > 1) {
>         Win32::MsgBox("You can not pick more than one
> item!", 48, "Choose Only One");
>         $Win->ListView->Select(0);
>         return;
>     }
> }
>
> This displays the MsgBox great the first time, however it
> then loops back and displays it again, it fact, I believe it
> displays the MsgBox 2**(amount of selected items) times (ie.
> 2 to the power of). As you may see I tried Selecting the
> first item so the sub won't be called again. Any ideas?

yes, doing a:
    $Win->ListView->Select(0);
really fires an ItemClick event on the ListView, so you're in
a loop. you can use the -singlesel option on the ListView to
achieve what you want.

cheers,
Aldo

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

Re: [perl-win32-gui-users] POE + Win32::GUI ?

[Reini U. <ru...@x-...>]

If Win32::GUI would be thread-safe :)
POE is for sure a very nice abstraction layer for process management.

I would also recommend reading an ordinary win32 sdk book, the charles petzold 
"Programming Windows" probably. http://www.relisoft.com/win32/
if you borrow it from a library you'll get the cd, where the complete text 
is in chm! (4mb)
This book would answer 80% if the questions here, btw.

The very good perl cookbook has some good descriptions on process management, 
blocking, locks, threads, forks and alarms. 
There exists also a fulltext version in html.
I don't fully understand this yet.

but i think that your web monitor example is covered in the cookbook.

Ludvig af Klinteberg schrieb:
> I just read some about POE (Perl Object Environment -
> http://poe.perl.org), and it seems really interesting. I had the idea
> that by combining POE and Win32::GUI you could perhaps create a UI
> program that doesn't freeze whenever it's doing something time
> consuming. (e.g. sending/receiving data over a network)
> 
> Some time ago I wrote a small program using Win32::GUI and
> LWP::UserAgent that downloaded a web page every X minutes and checked if
> it had been updated, and if it had the program popped up a window on the
> screen. The only problem was that it was impossible to interact with the
> program while it was downloading this (quite large) page from the
> (rather slow) server. The idea struck me that maybe rewriting the whole
> thing using POE might solve my troubles? As I said, I have no experience
> with POE, but if it could be successfully combined with Win32::GUI I
> would definitely look into it. So, can it be done? Has anyone with POE
> knowledge tried it?
-- 
Reini Urban
http://xarch.tu-graz.ac.at/home/rurban/

[perl-win32-gui-users] POE + Win32::GUI ?

[Ludvig af K. <kli...@ho...>]

I just read some about POE (Perl Object Environment -
http://poe.perl.org), and it seems really interesting. I had the idea
that by combining POE and Win32::GUI you could perhaps create a UI
program that doesn't freeze whenever it's doing something time
consuming. (e.g. sending/receiving data over a network)

Some time ago I wrote a small program using Win32::GUI and
LWP::UserAgent that downloaded a web page every X minutes and checked if
it had been updated, and if it had the program popped up a window on the
screen. The only problem was that it was impossible to interact with the
program while it was downloading this (quite large) page from the
(rather slow) server. The idea struck me that maybe rewriting the whole
thing using POE might solve my troubles? As I said, I have no experience
with POE, but if it could be successfully combined with Win32::GUI I
would definitely look into it. So, can it be done? Has anyone with POE
knowledge tried it?

I think that's what I meant...
	-Ludde

[perl-win32-gui-users] ListView_ItemClick

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

I wish to prevent the user from choosing more than one item
in a Listview and since I didn't find an option
for -multisel, like in a ListBox, I have attempted to
achieve this through the ItemClick event for a ListView.

sub ListView_ItemClick {
    if ($Win->ListView->SelectCount() > 1) {
        Win32::MsgBox("You can not pick more than one
item!", 48, "Choose Only One");
        $Win->ListView->Select(0);
        return;
    }
}

This displays the MsgBox great the first time, however it
then loops back and displays it again, it fact, I believe it
displays the MsgBox 2**(amount of selected items) times (ie.
2 to the power of). As you may see I tried Selecting the
first item so the sub won't be called again. Any ideas?

erick
never stop questioning
www.jeb.ca

[perl-win32-gui-users] Listbox

[Moore, L. <Lar...@tf...>]

Is it possible to change the font/background attributes for each string
added to a listbox, say based on the length of the string?  Or is there a
better object for something such as this?

Larry

RE: [perl-win32-gui-users] Interesting behavior

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

David

I *BELIEVE* fork() is supported in Perl 5.6 on Win32 in an emulated form, but
I'm 150 miles away from my documentation and only have a 9600 baud mobile to
connect to the web over so I can't check !

It wasn't supported in older builds.

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] Interesting behavior

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

David Kuo said:

> A question might be stupid. Is the fork() working in NT or Win98?
> I tried it before but failed with message the function is not
> supported by the OS.

I think you need Perl 5.6 for this to work. In ActiveState speak, that is
the 600 series of builds.

And yes, using ActiveState build 623, the fork works on both NT and 98.

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

RE: [perl-win32-gui-users] Interesting behavior

[Kuo D. <dk...@or...>]

A question might be stupid. Is the fork() working in NT or Win98? I tried it
before but failed with message the function is not supported by the OS.

Thanks,

David 

-----Original Message-----
From: Tom Allebrandi [mailto:to...@yt...]
Sent: Friday, February 09, 2001 1:34 PM
To: per...@li...
Subject: [perl-win32-gui-users] Interesting behavior


I'm not sure if I should post this on this list or over on the Perl Win32
Users list.

Under Win32::GUI version 502 and ActiveState build 623, the following script
results in an access violation under NT 4 and an invalid page fault under
Win98. NT is only telling me a memory address where the problem is
occurring. Win98 claims that the invalid page fault is in Perl56.DLL.

	#! perl

	use Win32::GUI;	# ** 1 **

	fork();			# ** 2 **

	#
	# The $' (or the $`) var has to be present in order to cause the
crash, but
	# since it's not defined, use the "if (0)" to avoid interpreting it
	#
	if (0)
		{
		$';		# ** 3 **
		}

If you take out any of the lines marked "# ** n **" the problem goes away!

At one point, I had a

	print("Goodbye\n");

as the last statement in the script. I got both of them (one from each
branch of the fork()) which suggests that the problem is occurring in the
rundown of Perl itself.

If I had to guess, something is not getting cloned properly during the
fork() and it's invalid when the GUI destructor(s) get invoked at
termination.

Cute huh?

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



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