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

[perl-win32-gui-users] Label Bugs?

[<pko...@me...>]

Hello,

are the two following problems with labels well known?

1. If ..->AddLabel is called with no -text value pair or with an empty -text
value, then ...->Change(-text => "...") won't change the Label text.

2. If -align is specified, then the background color specified
by -background will be ignored.

Peter

P.S.: Still searching for a solution to disable/enable Toolbar Buttons
on-the-fly. Are there any code snippets???

[perl-win32-gui-users] Dean Lennox/GIS/CSC is out of the office.

[Dean L. <al...@cs...>]

I will be out of the office starting  07/27/2000 and will not return until
08/06/2001.

I will respond to your message when I return.

[perl-win32-gui-users] Searching testers for Win32-GUI Application

[<pko...@me...>]

Hello,

I am searching for people who are interested in testing a Win32-GUI app. It
is an german application which manages ebay auctions from german ebay - a
little workflow managment system.

It does the following:

- collecting auction emails from ebay through Microsoft Outlook 98
- displaying finished and current auctions
- storing auction, bidder and price data in an InterBase database
- calculation commission
- answering finished auctions by creating emails
- logging payment and shipping dates

The following prerequesites are needed:

- Microsoft Outlook 98
- Borland InterBase
- Account on german ebay
- german reading/writing because it is only a german app at the moment,
sorry.

I attached a picture from the app. If anyone is interested, please mail me.

Peter

Re: [perl-win32-gui-users] Progress Bar (HELP !)

[Erick B. <er...@je...>]

On Tue, 24 Jul 2001 08:27:17 -0500, Eoi...@de... said:

| 
|  Does any have the following ...
|  
|  Idiots Guide to PERL Progressbars
|  3 easy Steps to Progressbars & Perl
|  Progressbars by example..
|  etc,  etc, etc,  etc, etc,  etc, etc,  etc, etc,  etc, etc,	etc, etc,
|   etc,
|  etc,  

Eoin,

I use this subroutine to create a window that displays when I transfer a
file in an FTP client I made. Obviously you will have to modify some of
the code.

# code #
#===================
sub CreateProgressWin {
#===================
    $ProgWin = new Win32::GUI::DialogBox(
		-name	    => "ProgWin",
		-text	    => "Progress Window",
		-size	    => [280, 220],
		-pos	    => [($screen_width/2)-125,
($screen_height/2)-100],# center it
		-style	    =>,
    );
    $ProgWin->AddLabel(
		-name	    => "ProgLbl",
		-text	    => "Sending",
		-pos	    => [10, 10],
		-size	    => [$ProgWin->ScaleWidth-20, 70],
		-foreground => [255, 255, 255],
		-background => [0, 0, 0],
    );
    $ProgWin->AddLabel(
		-name	    => "ProgLblSize",
		-text	    => "0 bytes of 0 bytes",
		-pos	    => [45, 65],
		-size	    => [$ProgWin->ScaleWidth-40, 20],
		-foreground => [255, 255, 255],
		-background => [0, 0, 0],
    );
    $ProgWin->AddLabel(
		-name	    => "ProgLblPercent",
		-text	    => "0%",
		-pos	    => [($ProgWin->ScaleWidth/2)-15, 90],
		-size	    => [50, 20],
		-foreground => [255, 255, 255],
		-background => [0, 0, 0],
    );
    $ProgWin->AddProgressBar(
		-smooth  => 1,
		-name	 => "ProgBar",
		-pos	 => [0, $ProgWin->ScaleHeight-25],
		-size	 => [$ProgWin->ScaleWidth, 25],
    );
    # Abort Button #
    $ProgWin->AddButton(
		-text	  => "Abort",
		-name	  => "Abort",
		-pos	  => [($ProgWin->ScaleWidth()/2)-25,
$ProgWin->ScaleHeight()-60],
		-tabstop  => 1,
		-cancel   => 1,
		-default  => 1,
    );
    $ProgWin->Abort->SetFocus();
}

Then, I initialize my values before the transfer:

# code #
my $track=0;
$ProgWin->ProgLbl->Text("Sending $LocalFile...");
$ProgWin->ProgBar->SetRange(0, 100);
$ProgWin->ProgBar->SetPos(0);
$ProgWin->ProgLblSize->Text("$track bytes of $size bytes sent");
$ProgWin->ProgLblPercent->Text(int($pos)."%");
$ProgWin->Show();

Then, while I read data, I ~SetPos~, although you can do it another way.

# code #
while(1) {
	Win32::GUI::DoEvents();
# I'm actually NOT sure if this is needed
	last if ($abort_trans);
	$ProgWin->ProgLblSize->Text("$track bytes of $size bytes sent");
	$percent = $track/$size;
	$pos = 100*$percent;
	$ProgWin->ProgLblPercent->Text(int($pos)."%");
	$ProgWin->ProgBar->SetPos($pos);
	Win32::GUI::DoEvents();
# Or this...although, I think it helps
	last unless $len = sysread(FILE, $buffer="", $blksize);
	$track += $len;
	my $wlen;
	unless(defined($wlen = $sock->write($buffer,$len)) && $wlen ==
$len) {
	    $sock->abort;
	    $ProgWin->Hide();
	    Msg_Box("Cannot write to remote file $LocalFileName:
$!",48,"Can't Write To File");
	    close(FILE); ResetTimer();
	    return undef;
	}
    }
    $ProgWin->Hide();
# Then hide it!
# end of code #

I hope this helps!

regards,

erick

[perl-win32-gui-users] Progress Bar (HELP !)

[<Eoi...@de...>]

Does any have the following ...

Idiots Guide to PERL Progressbars
3 easy Steps to Progressbars & Perl
Progressbars by example..
etc,  etc, etc,  etc, etc,  etc, etc,  etc, etc,  etc, etc,  etc, etc,  etc,
etc,  

I can't get it to work or even show up in the Window.

Eoin

RE: [perl-win32-gui-users] FW: Win32::GUI Events

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

This is how I intercept xxx_Terminate, which I do to write something to the
registry when the program exits. For the whole picture, see WinSize.pm @
www.fairymails.com/perl/ <http://www.fairymails.com/perl/> 

# must bottle this up inside eval
        eval qq
        (
# get pointer to current sub. $_ holds name of window
# &main:: notion required because this script is a module
                \$currterm = \\&main::$_\_Terminate;
# redefine sub (to do nothing but call another sub)
                sub $_\_Terminate {Terminate ()}
# must alter the pointer in the main namespace
                *main::$_\_Terminate = \\&$_\_Terminate;
        );
# now the following function gets called by the new xxx_Terminate sub
        sub Terminate
        {
# ... do your intercept stuff here, e.g.
                return 0 unless areyousure ('wanna quit?');
# get pointer to previous (intercepted) sub
                $_ = $$currterm;
# call the previous sub if there was one, if not, provide default
                return defined &$_ ? &$_ : -1;
        }

Hope that helps - it's no way of capturing all subs there might be, as your
reference to AUTOLOAD suggests you want to have. For that, you will need to
shoot a hole into the XS code.
Have fun,
Harald

> -----Original Message-----
> From: Forhan, Michael [  <mailto:Mic...@tr...>
mailto:Mic...@tr...]
> Sent: Wednesday, July 18, 2001 12:15
> To: 'per...@li...'
> Subject: [perl-win32-gui-users] FW: Win32::GUI Events
>
>
>
>
> >  -----Original Message-----
> > From:       Forhan, Michael
> > Sent:       Friday, July 13, 2001 1:10 PM
> > To: 'per...@li...'
> > Subject:    Win32::GUI Events
> >
> > Is there a way to 'intercept' a call to a subroutine, and handle it
> > elsewhere? I'm aware that if a subroutine is called, but
> doesn't exist,
> > you can use a 'sub AUTOLOAD {' and reference '$AUTOLOAD' to
> get the name
> > of the subroutine that the program is after. Unfortunately,
> this doesn't
> > seem to function for Events (if I leave out the
> Cancel_Click event for
> > instance, Autoload is never hit) I've been thinking about
> designing a
> > subroutine that just analyzes the type of event requested
> and performs
> > different processes according to the type.
> >
> > Thanks,
> > -Mike
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>  <http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] FW: Win32::GUI Events

[Forhan, M. <Mic...@tr...>]

>  -----Original Message-----
> From: 	Forhan, Michael  
> Sent:	Friday, July 13, 2001 1:10 PM
> To:	'per...@li...'
> Subject:	Win32::GUI Events
> 
> Is there a way to 'intercept' a call to a subroutine, and handle it
> elsewhere? I'm aware that if a subroutine is called, but doesn't exist,
> you can use a 'sub AUTOLOAD {' and reference '$AUTOLOAD' to get the name
> of the subroutine that the program is after. Unfortunately, this doesn't
> seem to function for Events (if I leave out the Cancel_Click event for
> instance, Autoload is never hit) I've been thinking about designing a
> subroutine that just analyzes the type of event requested and performs
> different processes according to the type.
> 
> Thanks,
> -Mike
> 

Re: Win32::GUI::Modalizer (was Re: [perl-win32-gui-users] wait for user input)

[<pko...@me...>]

Johan wrote:
> don't have access to :)  A guess is that the Deactivate or Activate event
> is triggered differently on Win98 than on NT.

Perhaps, I don't know.

> /J - thinking of how to implement a "real" modal dialog using Inline::CPP
> (it should be doable)

I would like a real modal dialog package for Win32::GUI, too. But I haven't
the time to implement it. So my only big Win32::GUI project (a workflow
managemenet for Ebay auctions, see screenshot) is stopped for now until
there is a useful package to create modal dialogs

(And I already don't know how to en-/disable speedbar buttons on the fly :-)

Peter

Re: Win32::GUI::Modalizer (was Re: [perl-win32-gui-users] wait for user input)

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

Peter wrote:
>Then it is the problem I mentioned to you one or two weeks ago. The app
>freezes because the focus seems to change very fast between the dialog
>boxes,

Ahh... ok. I didn't understand that from our previous conversation, sorry 
about that. So, now the only problem is how to debug that on a platform I 
don't have access to :)  A guess is that the Deactivate or Activate event 
is triggered differently on Win98 than on NT.


/J - thinking of how to implement a "real" modal dialog using Inline::CPP 
(it should be doable)

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

Re: Win32::GUI::Modalizer (was Re: [perl-win32-gui-users] wait for user input)

[<pko...@me...>]

Johan wrote:
> In what way? Did it just not make the window modal? Or did it
> freeze/crash
> anything?

> I have never experienced this first hand myself, so... :)

First: Am I right when I think that you use the Win32::GUI::Modalizer in
Oasis to make dialogs modal?

Then it is the problem I mentioned to you one or two weeks ago. The app
freezes because the focus seems to change very fast between the dialog
boxes, e.g. the about box in Oasis and the main app window. After that I
must kill Oasis to work with Win98.

Peter

Re: Win32::GUI::Modalizer (was Re: [perl-win32-gui-users] wait for user input)

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

Peter wrote:
> > It does what you want, although in a sligthly different way. I've had
> > reports of it not working 100% properly under Win95, so if anyone using
> > that platform would care to try it out I would be grateful.
>
>I tested it under Win98 and sorry it didn't work there, too.

In what way? Did it just not make the window modal? Or did it freeze/crash 
anything?

I have never experienced this first hand myself, so... :)


/J

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

Win32::GUI::Modalizer (was Re: [perl-win32-gui-users] wait for user input)

[<pko...@me...>]

> If you can't get it to work, try the Win32::GUI::Modalizer module at:
> 
> http://www.bahnhof.se/~johanl/perl/Win32GUI/
> 
> It does what you want, although in a sligthly different way. I've had 
> reports of it not working 100% properly under Win95, so if anyone using 
> that platform would care to try it out I would be grateful.

I tested it under Win98 and sorry it didn't work there, too.

Peter

Re: [perl-win32-gui-users] wait for user input

[<Fo...@ao...>]

In a message dated 7/16/01 4:06:28 PM Eastern Daylight Time, 
Pet...@at... writes:


> How can I temporarily halt the main Dialog() from accepting other events? I
> have an event that opens a dialog box (an alert) that I bring focus to,
> disable the other windows, etc. I want to wait for user input (click a
> button) before moving on. However, the script picks up other things going on
> and it closes my DialogBox as fast as it opens it.
> 

Show it modally. I forget the exact syntax, but it should be fairly easy to 
figure out from the documentation.

Dave

Re: [perl-win32-gui-users] wait for user input

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

Peter wrote:
>How can I temporarily halt the main Dialog() from accepting other events? I
>have an event that opens a dialog box (an alert) that I bring focus to,
>disable the other windows, etc. I want to wait for user input (click a
>button) before moving on.

A modal dialog box in other words. Unfortunately there is no support for a 
"true" modal dialog box in Win32::GUI AFAIK, so your way is pretty much the 
way to go.


>However, the script picks up other things going on

Even though the other windows are disabled? What kind of things?


>and it closes my DialogBox as fast as it opens it.

Can you find out why that happens? Is there another event being triggered 
by something?


If you can't get it to work, try the Win32::GUI::Modalizer module at:

http://www.bahnhof.se/~johanl/perl/Win32GUI/

It does what you want, although in a sligthly different way. I've had 
reports of it not working 100% properly under Win95, so if anyone using 
that platform would care to try it out I would be grateful.


/J

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

RE: [perl-win32-gui-users] wait for user input

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

I didn't do this or test this, just an idea: if you fork into another,
totally independent script that uses GUI, then the Dialog() call from there
should not trigger event subs in your first script. Then all you need is to
hang in one event sub of your first script until the second one comes back.

On the other hand, the functionality you describe is what modal windows are
supposed to do - freeze their parent. We had a number of trails about
implementing modality a few weeks ago, anybody who was in on this, back me
up, please.

Have fun,
Harald

> -----Original Message-----
> From: Peter Eisengrein [mailto:Pet...@at...]
> Sent: Monday, July 16, 2001 12:55
> To: Perl GUI Mail list (E-mail)
> Subject: [perl-win32-gui-users] wait for user input
> 
> 
> How can I temporarily halt the main Dialog() from accepting 
> other events? I
> have an event that opens a dialog box (an alert) that I bring 
> focus to,
> disable the other windows, etc. I want to wait for user input (click a
> button) before moving on. However, the script picks up other 
> things going on
> and it closes my DialogBox as fast as it opens it.
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] wait for user input

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

How can I temporarily halt the main Dialog() from accepting other events? I
have an event that opens a dialog box (an alert) that I bring focus to,
disable the other windows, etc. I want to wait for user input (click a
button) before moving on. However, the script picks up other things going on
and it closes my DialogBox as fast as it opens it.

Re: [perl-win32-gui-users] an array of hashes

[Erick B. <er...@je...>]

On Mon, 02 Jul 2001 17:13:55 -0700, Jeremy Aiyadurai said:

.. 
~snip~
|		push(@messageInfoList,%messageInfo);	  # pushing
hash
into the array.
|		}

Instead of putting the hash into the array, try inserting a reference
to
it. That is,
push(@messageInfoList, \%messageInfo);

Then you can access the info by doing the following:

foreach  (@messageInfoList) {
	print  "From: $_->{From}\n"; 
	...
}

Hope that helps.

regards,

erick

RE: [perl-win32-gui-users] Drop down boxes

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

Tried your code snippet and it works fine. Maybe there's something wrong
with one of your event subs? Or your general installation? What windows,
perl (perl -v) and GUI (ppm query) versions are you using? Check your own
code in a script that does nothing else (see below) and see if it does the
same kind of misbehavior.

use Win32::GUI;
$Window = new Win32::GUI::Window
(
	-name => 'Main',
	-text => 'Test',
	-pos => [100, 100],
	-size => [320, 240],
);
sub Main_Terminate {-1};

@Data = (17..42);

 my $DataList = $Window->AddCombobox( -name     => 'DataList'
                                     ,-width    => 70
                                     ,-height   => 100
                                     ,-top      => 5
                                     ,-left     => 70
                                     ,-addstyle => WS_VSCROLL | 2 
                                    );

 my $key;
 foreach $key ( @Data ) {
     $DataList->Add( $key );
 }

$Window->Show ();
Win32::GUI::Dialog ();

[perl-win32-gui-users] Drop down boxes

[Forhan, M. <Mic...@tr...>]

I am having a wierd problem utilizing drop down boxes. Using the following
Code:

 my $DataList = $Window->AddCombobox( -name     => 'DataList'
                                     ,-width    => 70
                                     ,-height   => 100
                                     ,-top      => 5
                                     ,-left     => 70
                                     ,-addstyle => WS_VSCROLL | 2 
                                    );

 my $key;
 foreach $key ( @Data ) {
     $DataList->Add( $key );
 }

I get a window to display a drop down box, but the fields appear to be
empty, until I use my keyboard to scroll through the list (via the up and
down arrows). I tried adding a $DataList->Show(); and even placing a
$DataList->Reset(); before adding the data. None of these appear to work.
Also, when I click on the arrow to display the rest of the list, it 'locks'
open, not allowing me to close it until I press esc on the keyboard (and
sometimes that doesn't work right away.) Any idea of how I can fix this?

Thanks,
-Mike 

Re: [perl-win32-gui-users] Newbie: Win32::GUI - Problem finding loadable object for module W in32::GUI

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

Mark wrote:
> > As a newbie to both Perl and Win32:GUI I am a little confused with an
> > error message I am receiving after running the simple Perl script below.

I guess you are using the Windows Script Host and a .wsf file to run this 
(or something similar).

I just had to try this thing, and got the following to work (install the 
Windows Script Host and put this in test.wsf):


<Job Id="First Win32::GUI attempt">
<script language=PerlScript>

use Win32::GUI;

my $winMain = new Win32::GUI::Window(
         "-left"   => 13,
         "-top"    => 32,
         "-width"  => 439,
         "-height" => 260,
         "-name"   => "winMain",
         "-text"   => "Autoscroller"
         );

$winMain->Show();

Win32::GUI::Dialog();

</script>
</job>


Your example contains broken Win32::GUI code (no -name option etc), and the 
Scripting Host engine didn't grok that -optionnamn is valid Perl. And the 
program crashed when I didn't have the Dialog() call present for some 
reason...  * shrug *

Anyway... see if you can get my code to run when you get the system to 
understand that you have Win32::GUI installed.


> > I have ActivePerl installed in C:/Perl and Win32::GUI installed in
> > C:/Perl/site/lib/Win32GUI

Should really be:

C:/Perl/site/lib/Win32/GUI

so if that wasn't a typo... What version of Perl and Win32::GUI do you have 
installed?

Have you been able to run regular Win32::GUI Perl programs, i.e.

   perl myguiprogram.pl

at all? Start there and wait with the PerlScript stuff until you are sure 
the basics work.


Hope That Helps,

/J

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

RE: [perl-win32-gui-users] Newbie: Win32::GUI - Problem finding l oadable object for module W in32::GUI

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

You need to give your widgets a -name and the label needs a position. Also,
if you do not include Win32::GUI::Dialog() your window will not remain open.

Try this one.

use Win32::GUI;
	$main = Win32::GUI::Window->new(-name => "Window", -width => 100,
-height => 100);
 	$main->AddLabel(-name => "label", -left => 5, -top => 5, -text =>
"Hello Mark");
 	$main->Show();

Win32::GUI::Dialog();



> -----Original Message-----
> From: Mark Hindmarsh [mailto:MHi...@ar...]
> Sent: Wednesday, July 11, 2001 9:32 AM
> To: 'per...@li...'
> Subject: [perl-win32-gui-users] Newbie: Win32::GUI - Problem finding
> loadable object for module W in32::GUI
> 
> 
> 
> > Hi guys,
> > 
> > As a newbie to both Perl and Win32:GUI I am a little 
> confused with an
> > error message I am receiving after running the simple Perl 
> script below.
> > 
> > -- Can't locate loadable object for module Win32::GUI in @INC (@INC
> > contains: C:/Perl/lib C:/Perl/Site/lib .) at (eval 2) line 3 --
> > 
> > The script is as follows:
> > 
> > <Job Id="First Win32::GUI attempt">
> > <script language=PerlScript>
> > 
> > 	use Win32::GUI;
> > 	$main = Win32::GUI::Window->new(-width => 100, -height => 100);
> > 	$main->AddLabel(-text => "Hello Mark");
> > 	$main->Show();
> > 
> > </script>
> > </job>
> > 
> > I have ActivePerl installed in C:/Perl and Win32::GUI installed in
> > C:/Perl/site/lib/Win32GUI
> > I also tried copying GUI.pm from C:/Perl/site/lib/Win32GUI into
> > C:/Perl/site/lib, but to no avail.
> > 
> > What 'loadable object' is it looking for? GUI.pm or something else?
> > 
> > Can anyone help me??
> > 
> > I look forward to your reply,
> > 
> > Regards,
> > 
> > Mark
> > 
> > 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Newbie: Win32::GUI - Problem finding loadable object for module W in32::GUI

[Mark H. <MHi...@ar...>]

> Hi guys,
> 
> As a newbie to both Perl and Win32:GUI I am a little confused with an
> error message I am receiving after running the simple Perl script below.
> 
> -- Can't locate loadable object for module Win32::GUI in @INC (@INC
> contains: C:/Perl/lib C:/Perl/Site/lib .) at (eval 2) line 3 --
> 
> The script is as follows:
> 
> <Job Id="First Win32::GUI attempt">
> <script language=PerlScript>
> 
> 	use Win32::GUI;
> 	$main = Win32::GUI::Window->new(-width => 100, -height => 100);
> 	$main->AddLabel(-text => "Hello Mark");
> 	$main->Show();
> 
> </script>
> </job>
> 
> I have ActivePerl installed in C:/Perl and Win32::GUI installed in
> C:/Perl/site/lib/Win32GUI
> I also tried copying GUI.pm from C:/Perl/site/lib/Win32GUI into
> C:/Perl/site/lib, but to no avail.
> 
> What 'loadable object' is it looking for? GUI.pm or something else?
> 
> Can anyone help me??
> 
> I look forward to your reply,
> 
> Regards,
> 
> Mark
> 
> 

Re: [perl-win32-gui-users] Checkboxes in Listview?

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

Stephan wrote:
>Can I put checkboxes into a listview?  Not the default one that comes with 
>listview, but the real checkbox widgets.

I once tried putting a Textfield on top of a ListView with little success. 
Apart from the ListView wanting to redraw itself on top of the Textfield (I 
think it was), the events triggered by the ListView made things so messy I 
abandoned that idea.

I would be very interested in your solution if you can make it work.


BTW, I looked into the ListView native checkboxes a little when doing the 
Cluster stuff in The GUI Loft.

I discovered that the checkboxes have no support  for getting/setting 
values using Win32::GUI. You'll have to do that yourself, which turned out 
to be a little tricky (which, in turn, made me take a lateral design 
decision and go with bitmaps (the eyes) instead :)

http://www.bahnhof.se/~johanl/perl/Loft/manual.html#clusters


/J

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

Re: [perl-win32-gui-users] Kill event?

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

Peter wrote:
>Is there a Kill or other such event if a GUI app crashes or killed? Or
>should that just be handled with %SIG it would be awfully convenient if you
>could do something like:

I tried a few things awhile back and the only %SIG I could get to work was 
this:

sub trapEnd {
         print "\nPress Ctrl-C again to terminate program\n";
         logInfo("** Killed once **");
         }
$SIG{INT} = "trapEnd";

But that only works if you press Ctrl-C in the DOS window (it wasn't a 
Win32::GUI application, Ctrl-C doesn't work in a window anyway).

But if the app is killed from the Task Manager, or if the user closes the 
DOS window with the [X] button the program never gets to know what hit it 
before it's too late.

AFAIK, your only chance is to eval {} the main loop to catch runtime errors 
and deaths. That's basically it.


/J

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

Re: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: [perl-win32-gui-users] Kill event?

[Ahmed F. <ahm...@ya...>]

I know this is off the topic and all, but likepeople have blonde jokes
right? Here in the indian subcontinent we have Sardar Jee jokes, which are
jokes related to Sikhs (people of a religion). All sardar jee's have "singh"
in their name, and hence this joke tops it, heh.

We'll now be returning to our normal programming. :)

Ahmed.


-----Original Message-----
From: Amit Singh <mai...@us...>
To: per...@li...
<per...@li...>
Date: Tuesday, July 10, 2001 6:15 PM
Subject: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE: RE:
[perl-win32-gui-users] Kill event?


Hello,
This account closes on 31st July 01.
Kindly mail me at mai...@vs...

Cheers
Amit



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


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com