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

[perl-win32-gui-users] Bold and unbold in RichEdit

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

I know that if you specify the '-bold => 1' option in creating a font 
object and using that font in the RichEdit object creation that you can get 
your text bolded in the RichEdit field.  My question is this, is it 
possible to go back and forth between bolded and unbolded text in a 
Richedit field?



Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

RE: [perl-win32-gui-users] Question about Button-Widget

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

> I triede for eg. the DblClick() event like that
> 
> sub Button_DblClick {
>    print "DblClick on Button.\n";
>    return 1;
> }
> 
> But this doesn't work ... are this events not supportet yet?

Yes they are, thru the class. Note that you can have buttons extend the
RichEdit widget and vice versa, which you might need because the Button
widget only gives you the MouseMove event. See 2nd snippet below.


The following is from my own posting back in may ... don't worry, you would
not have found it in the archive, the search function seems 2b a placebo.

<snip>
<please hold while we transfer your inquiry to another reply>
<snap>

new Win32::GUI::Class
(
	-name => '_Button',
	-widget => 'Button',
	-extends => 'Button',
);
$Main->AddButton
(
	-name => 'Belly',
	-text => 'Clickme',
	-class => '_Button',
);
sub Belly_MouseMove
{
	local ($button, $xpos, ypos) = @_;
#	print join (', ', @_), "\n";
}

<cut>
<and here is yet another exciting report on this amazing subject>
<smack>


Okay, if you dwell into gui.xs, around line 4100 you can see which classes
there are:
Button, Listbox, TabStrip, RichEdit, Graphic, InteractiveGraphic, Splitter
and SplitterH.
I don't know too much about it, but I vaguely remember that if you use
Graphic or InteractiveGraphic, you have to provide a paint method, which is
probably more than you want to do. The Splitter classes also might not be
too useful. If you search the xs file for "msgloop" and look at the other
classes, you will find that "button" and "listbox" give you MouseMove,
whereas RichEdit gives you MouseMove, LButtonDown, LButtonUp, RButtonDown
and RButtonUp. There's no restriction to not using a richedit class with
buttons, I tried that and it works just fine.

[perl-win32-gui-users] Question about Button-Widget

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

Hello,

im looking for information on the Button Widget. Can anyone explain
me, what this options are doing:

         -default=> 1,
         -ok     => 1,


So, i played a little with the Events on the Button-Widget, but it
seems that only the _Click Event are working ... ?

There are short eg. for the other ones:
 DblClick()
 GotFocus()
 LostFocus()
 MouseDown()
 MouseUp()

I triede for eg. the DblClick() event like that

sub Button_DblClick {
   print "DblClick on Button.\n";
   return 1;
}

But this doesn't work ... are this events not supportet yet?

Thx for your input ;-)
Hannes

RE: [perl-win32-gui-users] More on Tabs on Textfields

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

The multi will accept Ctrl+Tab as tab, dunno 'bout Ctrl+Return, presumably
ditto. If that's not what you want, consider intercepting keys - either tab
and return only in the multi field, which might not work, or tab and return
for the non-dialogui-window, doing the focus-shifting yourself, which also
might not work. This would involve Win32::GUI::AcceleratorTable and a great
deal of research ... :(

-----Original Message-----
From: Gross, Stephan [mailto:sg...@lo...]
Sent: Thursday, November 08, 2001 13:38
To: 'Perl GUI'
Subject: [perl-win32-gui-users] More on Tabs on Textfields


Regarding this recent conversation on tabstops, I have this problem.  I have
a multiline textfield and some other individual textfields.  Without
tabstops and dialogui, the multiline textfield can have tabs and returns
inside it but the individual textfields don't tab at all.  When I add
tabstops (selectively, to the individuals) and dialogui, the individual
textfields now tab but the multiline one no longer accepts tabs and returns.
Any ideas?


_______________________________________________________
Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...


 

[perl-win32-gui-users] More on Tabs on Textfields

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

Regarding this recent conversation on tabstops, I have this problem.  I have
a multiline textfield and some other individual textfields.  Without
tabstops and dialogui, the multiline textfield can have tabs and returns
inside it but the individual textfields don't tab at all.  When I add
tabstops (selectively, to the individuals) and dialogui, the individual
textfields now tab but the multiline one no longer accepts tabs and returns.
Any ideas?


_______________________________________________________
Stephan Gross       Loral Skynet     908-470-2388     sg...@lo...


 

[perl-win32-gui-users] Putting cursor at end of RichEdit

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

ANOTHER thing I don't know how to do ...

If a bunch of lines are copied into the RichEdit field and you get to the 
end the vertical scroll bar appears like it should but I would like what 
was last appended to be shown.  Right now I have to manually scroll to the 
end of the RichEdit field.  Is there a way to do this?


Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

RE: [perl-win32-gui-users] Tab through buttons and textfields

[<Jos...@DM...>]

You need both the -tabstop => 1, and $Window->{dialogui} =1;  to work.
Just tried with just one and it didn't work, needed both.

Joe







Peter Eisengrein <Pet...@at...> on 11/08/2001 01:33:54 PM

To:   "'Piske, Harald'" <Har...@bo...>,
      "'Jos...@DM...'" <Jos...@DM...>,
      per...@li...
cc:
Subject:  RE: [perl-win32-gui-users] Tab through buttons and textfields

I knew that added the functionality to the window (suppose I should have
mentioned it too) but thought you also had to tell it which widgets are
tabstops and which aren't. No?

> -----Original Message-----
> From: Piske, Harald [mailto:Har...@bo...]
> Sent: 08 November 2001 13:17
> To: 'Jos...@DM...';
> per...@li...
> Subject: RE: [perl-win32-gui-users] Tab through buttons and textfields
>
>
> Actually, there seems to be an easier way.
>
> $Window->{-dialogui} = 1;
>
> Taken from a recent posting.
> We have a silent agreement here on this list not to blame or
> flame anyone
> for re-posting questions that have been answered, since we
> know searching
> the archives does not work ... right, guys? Erm, GUIs?
>
> > -----Original Message-----
> > From: Peter Eisengrein [mailto:Pet...@at...]
> > Sent: Thursday, November 08, 2001 09:50
> > To: 'Jos...@DM...';
> > per...@li...
> > Subject: RE: [perl-win32-gui-users] Tab through buttons and
> textfields
> >
> >
> > On each widget that you want to be able to tab to/from you
> need to add
> > -tabstop => 1,
> >
> >
> >
> > > -----Original Message-----
> > > From: Jos...@DM... [mailto:Jos...@DM...]
> > > Sent: 08 November 2001 12:07
> > > To: per...@li...
> > > Subject: [perl-win32-gui-users] Tab through buttons and textfields
> > >
> > >
> > >
> > >
> > > Hello,
> > >
> > > How do you set up a gui window so that you can use the tab
> > > key to go from
> > > one textfield or button to another?
> > >
> > > Thanks,
> > >
> > > Joe
> > >
> > >
> > >
> > >
> > >
> > >
> > > _______________________________________________
> > > Perl-Win32-GUI-Users mailing list
> > > Per...@li...
> > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] Default in Button Definition

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

Never mind I figured it out!  I needed the:

$Window->{-dialogue} = 1;


Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755



At 11/8/2001 01:41 PM, Jonathan Southwick wrote:
>Another problem I am having.  I would like the user to press enter in a 
>Textfield object and append the results to a RichEdit object.  I have done 
>this before but for some reason it is not working now.  Here is my code:
>
>    $ChatBox = $GameWindow->AddRichEdit(
>         -name    => "ChatBox",
>         -left    => 400,
>         -top     => 5,
>         -width   => 230,
>         -height  => 330,
>         -disabled=> 1,
>         -addstyle=> WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_LEFT | 
> ES_MULTILINE | ES_AUTOVSCROLL | ES_READONLY | ES_WANTRETURN,
>         -addexstyle=> WS_EX_CLIENTEDGE,
>    );
>    $ChatText = $GameWindow->AddTextfield(
>         -name   => "ChatText",
>         -top    => 345,
>         -left   => 400,
>         -width  => 175,
>         -height => 25,
>         -disabled=> 1,
>         -tabstop=> 1,
>    );
>    $Send = $GameWindow->AddButton(
>         -name   => "SendText",
>         -text   => "Send",
>         -top    => 345,
>         -left   => 580,
>         -height => 25,
>         -width  => 50,
>         -tabstop=> 1,
>         -default=> 1,
>         -ok     => 1,
>         -disabled=> 1,
>    );
>
>and the subroutine for the button event:
>
>sub SendText_Click {
>    if ($ChatText->Text() eq "") {
>       return;
>    }
>    my $OldText = $ChatBox->Text();
>    my $NewText = $ChatText->Text();
>    if ($OldText eq "") {
>       $ChatBox->Text("<$YourNick> $NewText");
>    } else {
>       $ChatBox->Text("$OldText\n<$YourNick> $NewText");
>    }
>    $ChatText->Text("");
>    $ChatText->SetFocus();
>    return;
>}
>
>
>
>Am I doing something wrong?
>
>
>
>Jonathan Southwick
>jso...@al...
>Technical & Network Services
>Allegheny College, Meadville, PA 16335
>(814) 332-2755
>
>
>_______________________________________________
>Perl-Win32-GUI-Users mailing list
>Per...@li...
>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] Default in Button Definition

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

Another problem I am having.  I would like the user to press enter in a 
Textfield object and append the results to a RichEdit object.  I have done 
this before but for some reason it is not working now.  Here is my code:

    $ChatBox = $GameWindow->AddRichEdit(
         -name    => "ChatBox",
         -left    => 400,
         -top     => 5,
         -width   => 230,
         -height  => 330,
         -disabled=> 1,
         -addstyle=> WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_LEFT | 
ES_MULTILINE | ES_AUTOVSCROLL | ES_READONLY | ES_WANTRETURN,
         -addexstyle=> WS_EX_CLIENTEDGE,
    );
    $ChatText = $GameWindow->AddTextfield(
         -name   => "ChatText",
         -top    => 345,
         -left   => 400,
         -width  => 175,
         -height => 25,
         -disabled=> 1,
         -tabstop=> 1,
    );
    $Send = $GameWindow->AddButton(
         -name   => "SendText",
         -text   => "Send",
         -top    => 345,
         -left   => 580,
         -height => 25,
         -width  => 50,
         -tabstop=> 1,
         -default=> 1,
         -ok     => 1,
         -disabled=> 1,
    );

and the subroutine for the button event:

sub SendText_Click {
    if ($ChatText->Text() eq "") {
       return;
    }
    my $OldText = $ChatBox->Text();
    my $NewText = $ChatText->Text();
    if ($OldText eq "") {
       $ChatBox->Text("<$YourNick> $NewText");
    } else {
       $ChatBox->Text("$OldText\n<$YourNick> $NewText");
    }
    $ChatText->Text("");
    $ChatText->SetFocus();
    return;
}



Am I doing something wrong?



Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

[perl-win32-gui-users] Wordwrap in RichEdit

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

I am copying text from a Textfield object and appending it to a RichEdit 
object when the user clicks on a button.  The text is not wrapping though 
and I would like it to.

my RichEdit object is defined as:

    $ChatBox = $GameWindow->AddRichEdit(
	-name    => "ChatBox",
	-left    => 400,
	-top     => 5,
	-width   => 230,
	-height  => 330,
	-disabled=> 1,
	-addstyle=> WS_CHILD | WS_VISIBLE | WS_VSCROLL | ES_LEFT | ES_MULTILINE | 
ES_AUTOVSCROLL | ES_READONLY | ES_WANTRETURN,
	-addexstyle=> WS_EX_CLIENTEDGE,
    );

Am I doing something wrong here?


Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

RE: [perl-win32-gui-users] Tab through buttons and textfields

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

I knew that added the functionality to the window (suppose I should have
mentioned it too) but thought you also had to tell it which widgets are
tabstops and which aren't. No?

> -----Original Message-----
> From: Piske, Harald [mailto:Har...@bo...]
> Sent: 08 November 2001 13:17
> To: 'Jos...@DM...'; 
> per...@li...
> Subject: RE: [perl-win32-gui-users] Tab through buttons and textfields
> 
> 
> Actually, there seems to be an easier way.
> 
> $Window->{-dialogui} = 1;
> 
> Taken from a recent posting.
> We have a silent agreement here on this list not to blame or 
> flame anyone
> for re-posting questions that have been answered, since we 
> know searching
> the archives does not work ... right, guys? Erm, GUIs?
> 
> > -----Original Message-----
> > From: Peter Eisengrein [mailto:Pet...@at...]
> > Sent: Thursday, November 08, 2001 09:50
> > To: 'Jos...@DM...'; 
> > per...@li...
> > Subject: RE: [perl-win32-gui-users] Tab through buttons and 
> textfields
> > 
> > 
> > On each widget that you want to be able to tab to/from you 
> need to add
> > -tabstop => 1,
> > 
> > 
> > 
> > > -----Original Message-----
> > > From: Jos...@DM... [mailto:Jos...@DM...]
> > > Sent: 08 November 2001 12:07
> > > To: per...@li...
> > > Subject: [perl-win32-gui-users] Tab through buttons and textfields
> > > 
> > > 
> > > 
> > > 
> > > Hello,
> > > 
> > > How do you set up a gui window so that you can use the tab 
> > > key to go from
> > > one textfield or button to another?
> > > 
> > > Thanks,
> > > 
> > > Joe
> > > 
> > > 
> > > 
> > > 
> > > 
> > > 
> > > _______________________________________________
> > > Perl-Win32-GUI-Users mailing list
> > > Per...@li...
> > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > > 
> > 
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

RE: [perl-win32-gui-users] Tab through buttons and textfields

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

Actually, there seems to be an easier way.

$Window->{-dialogui} = 1;

Taken from a recent posting.
We have a silent agreement here on this list not to blame or flame anyone
for re-posting questions that have been answered, since we know searching
the archives does not work ... right, guys? Erm, GUIs?

> -----Original Message-----
> From: Peter Eisengrein [mailto:Pet...@at...]
> Sent: Thursday, November 08, 2001 09:50
> To: 'Jos...@DM...'; 
> per...@li...
> Subject: RE: [perl-win32-gui-users] Tab through buttons and textfields
> 
> 
> On each widget that you want to be able to tab to/from you need to add
> -tabstop => 1,
> 
> 
> 
> > -----Original Message-----
> > From: Jos...@DM... [mailto:Jos...@DM...]
> > Sent: 08 November 2001 12:07
> > To: per...@li...
> > Subject: [perl-win32-gui-users] Tab through buttons and textfields
> > 
> > 
> > 
> > 
> > Hello,
> > 
> > How do you set up a gui window so that you can use the tab 
> > key to go from
> > one textfield or button to another?
> > 
> > Thanks,
> > 
> > Joe
> > 
> > 
> > 
> > 
> > 
> > 
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

RE: [perl-win32-gui-users] RE: Peekmessage (was Capture shutdown)

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

> 	Still got one problem, 
> 
> 	my $messref =\@message;
> 	$result=$Win1->PeekMessage(0,0,@$messref);
> 
> 	Should fill @message with the message details.
> 	like getmessage does,
...
> 	 but it dont, any suggestion ?

I suggest there is a bug in the xs. I have come across the same thing and
did not manage to find a solution - the 3-parm-version of PeekMessage simply
does not return the messref, it garbles up your program instead. Simple
workaround is, when PeekMessage signals the Message you are looking for is
in the Q, do a GetMessage to get it. Very easy.

The problem I see in your case: if you want to make sure you get notified
before shutdown, you either have to poll PeekMessage at a rather high
frequency (burning resources) or do a GetMessage on that particular ID,
blocking your script for everything else. Maybe you can fork into a new task
that then sits there, patiently waiting for GetMessage to trigger saving the
settings.

hth
Harald

RE: [perl-win32-gui-users] Tab through buttons and textfields

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

On each widget that you want to be able to tab to/from you need to add
-tabstop => 1,



> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: 08 November 2001 12:07
> To: per...@li...
> Subject: [perl-win32-gui-users] Tab through buttons and textfields
> 
> 
> 
> 
> Hello,
> 
> How do you set up a gui window so that you can use the tab 
> key to go from
> one textfield or button to another?
> 
> Thanks,
> 
> Joe
> 
> 
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] RE: Peekmessage (was Capture shutdown)

[Rogers, J. <rog...@oc...>]

	Well knock me down, and hand the red face prize,  :-)
	I got no answer to previous post, so I assume it was just too
amusing.

	peek message it would seem, will only work on your own windows.
	so  where $Win1 is the WI32-GUI window object.
	$result=$Win1->PeekMessage(0,0);

	works a treat. (0s mean all message identifiers, should put the one
you want.)

	Still got one problem, 

	my $messref =\@message;
	$result=$Win1->PeekMessage(0,0,@$messref);

	Should fill @message with the message details.
	like getmessage does,

@gmessage=$Win1->GetMessage(0,0);
print "result $gmessage[0]\n";
print "message id $gmessage[1]\n";
print "wparam $gmessage[2]\n";
print "lparam $gmessage[3]\n";
print "time $gmessage[4]\n";
print "x cordinate $gmessage[5]\n";
print "y coordinate $gmessage[6]\n";

	 but it dont, any suggestion ?


	JohnR,

[perl-win32-gui-users] gif or mng GUI support

[MetroData <met...@co...>]

Somebody knows a GUI module with gif or mng support?

Thanks

Oscar

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

[Stephen P. <ca...@fr...>]

On Tuesday 06 November 2001 3:35 pm, Johannes Gamperl wrote:
> Hello,
>
> i'm new to Win32::GUI .. so i've a question about the options of the
> widgets. Is ther a list of all available options to the relevant
> widgets ...?
>
> i'm also looking for a few different eg. to the usage of the ListView
> Widget ...

The only documentation for Win32::GUI is in the source archive, which comes 
with plenty of example scripts (including ListView).

http://prdownloads.sourceforge.net/perl-win32-gui/Win32-GUI-0.0.558.tar.gz

[perl-win32-gui-users] ListView and Border

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

Hello,

is ther a option to disable the border around a ListView Widget?
BTW ... is ther also a lost of all available options to all of the
widgets?

thx a lot
Hannes

[perl-win32-gui-users] Peekmessage (was Capture shutdown)

[Rogers, J. <rog...@oc...>]

Howdy,

Marcus wrote,
>How do you use PeekMessage?

Yes, How do you use Peekmessage, my feeble attempt follows
it dosnt work. Can any one help or is it truly broken or Am I just plain
wrong?

JohnR

#!perl 
use strict;
use Win32::GUI;
use Win32::API;
#Put the name of the window
my $winname="Test Window";
my $handle=0;
&gethandle;
print "The Decimal value of the handle for $winname is $handle\n";
#0s are all messages ?
my $min=0;
my $max=0;
#docs said values go in ref to a array so
my @message;
my $messref=\@message;

#run in a while loop untill a message happens peekmessage returns 1 ?
my $test=0;
while($test == 0){$test=Win32::GUI::PeekMessage($handle,$min,$max,$messref);
			sleep 1;}
print "@message\n";
print "finished\n";


#my $waitin=<>;

####Returns handle of window specified in $winname
sub gethandle{
		my $desktop = GUI::GetDesktopWindow();
		print "Desktop Window: $desktop\n";
		my $window = GUI::GetWindow($desktop, GW_CHILD);
		while($window) {my $title = GUI::Text($window);
  			if($title eq "$winname"){print "found $title\n";
							$handle=$window;
							}
			$window = GUI::GetWindow($window, GW_HWNDNEXT);
			}  
}

[perl-win32-gui-users] Event Subroutines Inside Other Subroutines?

[Matt S. <ma...@ks...>]

Hello,

I'm a pretty new to both Perl, and the Win32::GUI module.  If this isn't
the right place to ask this question, let me know, and I'll go away.

In my program, there's several times I come up with a list of items I want
the user to choose from. So I wrote a subroutine to display a small dialog
box asking the user to select one item from a given list:

my $chooseWin;

...

sub select_from_list {
  my @list = @_;
  my $item;

  $chooseWin = new Win32::GUI::DialogBox( ... );
  $chooseWin->AddListbox( -name => 'chooseList', ... );
  $chooseWin->AddButton( -name => 'chooseOK', ... );

  $chooseWin->chooseList->AddString($_) for (@list);
  $chooseWin->Show();
  Win32::GUI::Dialog();
  $chooseWin->Hide();
  return $item;

  sub chooseOK_Click {
    $item = $chooseWin->chooseList->SelectedItem();
    return -1;
  }
}

This works the first time I call &select_from_list.  Every time after
that, it always returns undef.  After hunting through documentation, I
gather this happens because chooseOK_Click is compiled only once (in this
case, the first time it's called), and so only has access to the variables
visible to it when it's compiled.  Since $item is lexical to
select_from_list, the second time I call chooseOK_Click, it's $item is a
reference to the same $item from the first time I called select_from_list,
which is not the $item I'm using in my second call to select_from_list.
Do I understand this right?

Because I want select_from_list to return whatever value they select that
time, I declare $item global to the program.  This fixes my problem, but I
don't know if it's the right way to go about this - I think I want
select_from_list to be entirely self-contained.  But I can't do this as
long as the event subroutines are compiled only once, even when inside
other subroutines. Am I doing this the wrong way?

-- 
      -Matt Stegman

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

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

Hello,

i'm new to Win32::GUI .. so i've a question about the options of the
widgets. Is ther a list of all available options to the relevant
widgets ...?

i'm also looking for a few different eg. to the usage of the ListView
Widget ...



thx a lot for your help ;-)
Hannes

RE: [perl-win32-gui-users] Capture shutdown

[Rogers, J. <rog...@oc...>]

I tried this, it half works,
When shutting down windows, it would appear that the Perl window terminates
before executing the sub.
 I put a file write and a $wait=<>; in the $Win_Shutdown sub so I dont think
I missed it.
The Gui.xs mod works though,

If I send a WM_QUERYENDSESSION message manually with Win32::GUI::Sendmessage
then it works.
I monitored the window with spy 
<00001> 04740150 S WM_QUERYENDSESSION nSource:0 (Logoff or Shutdown from
Windows Security dialog) [wParam:00000000 lParam:00000000]

Then the window responds only after after the sub finishes.

<00002> 04740150 R WM_QUERYENDSESSION fShutdownIsOk:True [lResult:00000001]

This is all on NT I am thinking that NT behaviour with this is different
from 9x and 
I suspect that it might work with win 9x, but I dont have it handy with
perl.
 If any one wants my binarys to try, drop me line off list.

JohnR


> I have not been successful.  PeekMessage doesn't seem to work at all, and 
> all I could get GetMessage to catch were menu clicks (my application has a
> 
> NotifyIcon, but I never call Show on the main window). To solve my
> original 
> problem, I simply have my application write to file each time a setting 
> changes.  An inelegant and inefficient solution, but it works.
> 
> I think if something like the following were to be added to the main
> message 
> loop in GUI.xs (perhaps between case WM_SYSCOMMAND and case WM_SIZE), it 
> would work.
> 
>     case WM_QUERYENDSESSION:
>         if(GetObjectName(NOTXSCALL hwnd, Name)) {
>             /*
>              * (@)EVENT:Shutdown()
>              * Sent when Windows is about to shut down.
>              * (@)APPLIES_TO:Window, DialogBox
>              */
>             strcat(Name, "_Shutdown");
>             PerlResult = DoEvent_Generic(NOTXSCALL Name);
>         }
>         break;
> 
> Then {WindowName}_Shutdown would be called whenever Windows is about to
> shut 
> down.  According to what I was able to discover, if an application returns
> 
> false, Windows stops the shutdown process.  So returning 1 or 0 should
> work 
> as expected; I believe returning -1 from your sub would end the Dialog 
> phase, but that Win32::GUI would then return a 1, so Windows would shut 
> down.
> 
> If anyone wants to test this out (I do not have a compiler), that would be
> 
> nice.  Perhaps it could be included in the next release if it works.
> Then, 
> again, it's only really useful for something that runs during the entire 
> Windows session, like my application or a daemon, so perhaps it's not
> really 
> necessary.
> 
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Open Network Folder with Browse For Fo lder

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

> ----------- start -----------
> my $bff = Win32::FFI::BrowseForFolder->new(
>            -initial => CSIDL_NETWORK,
>            -folder  => "\\\\client\d$",
>            -title   => "Select Profile Template",
>           -regexp  =>'^(?i)[cd]:',
>            );
> my $dir = $bff->show;
> ----------- end -----------
> 
> What am I doing wrong? Or is there a different module which 
> can be used?

Is this a typo in the posting or in the code ... you thought of doubling the
\\ into \\\\, but the \d$ has to become \\d$ as well.

Re: [perl-win32-gui-users] Windows message identifiers

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

At 01:48 2001-11-06 +1100, Rogers, John wrote:
>Is there a documented resource of the hex message identifiers ?
>or is there a fuction to generate it.

Constant values for the Win32 API:
<http://www.mvps.org/vbnet/index.html?http://www.mvps.org/vbnet/api/_consts/constsa.htm>


$faq->add($_, "Useful links");    #Please?


/J

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

[perl-win32-gui-users] Windows message identifiers

[Rogers, J. <rog...@oc...>]

Is there a documented resource of the hex message identifiers ?
or is there a fuction to generate it.

I want to use the SendMessage function. 
eg
Win32::GUI::SendMessage($handle,$msg,$Wparam,$Lparam,);

JohnR