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

[perl-win32-gui-users] Scrollbars

[Steven V. <ste...@gm...>]

I have been having some trouble getting my scroll bars to work well. I
have been modifying an example I found on Rob May's weblog
(http://blog.robmay.me.uk/search/label/perl-win32-gui).

Sample code is included below. The problems I am having are:

1) The ScrollRange() call does not seem to be doing anything - I can
scroll well beyond the range specified.

2) SB_PAGE(UP|DOWN) events are not working at all

I am rather new to Win32::GUI and would appreciate any help.

Thanks

__CODE__
#!/usr/bin/perl
use strict; use warnings;

use Win32::GUI 1.05 qw(
    SB_VERT SB_LINEUP SB_LINEDOWN SB_PAGEUP SB_PAGEDOWN
    SB_THUMBTRACK SB_THUMBPOSITION
);

my $window = Win32::GUI::DialogBox->new(
    -name => "scroll_test",
    -text => "Scroll Test",
    -size => [400, 400],
    -vscroll => 1,
    -onScroll => \&process_scroll,
);

my $v_pos = 5;
for ( 0..100 ) {
    $window->AddLabel(
        -name => "label-$_",
        -text => "Label " . ($_ + 1),
        -pos => [5, $v_pos],
        -size => [100, 30],
    );

    $v_pos += 35;
}

$window->ScrollRange(SB_VERT, 0, 35 * 100);

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

sub process_scroll {
    my ( $self, $bar, $op, $pos ) = @_;

    my $prev_pos = $self->ScrollPos($bar);
    my $new_pos  = $prev_pos;

    my $use_rel = 0;
    my $rel_move = 0;

    if ( $op == SB_LINEUP ) {    # or SB_LINELEFT
        $new_pos -= 35;
        $rel_move -= 35;
        $use_rel = 1;
    } elsif ( $op == SB_LINEDOWN ) {    # or SB_LINERIGHT
        $new_pos += 35;
        $rel_move += 35;
        $use_rel = 1;
    } elsif ( $op == SB_PAGEUP ) {      # or SB_PAGELEFT
        $new_pos -= $self->ScrollPage($bar);
    } elsif ( $op == SB_PAGEDOWN ) {    # or SB_PAGERIGHT
        $new_pos += $self->ScrollPage($bar);
    } elsif ( $op == SB_THUMBTRACK ) {
        $new_pos = $pos;
    } elsif ( $op == SB_THUMBPOSITION ) {
        $new_pos = $pos;
    }

    $self->ScrollPos( $bar, $new_pos );

    if ( $bar == SB_VERT ) {
        for my $key ( %$self ) {
            next unless ref($self->{$key}) eq "Win32::GUI::Label";
            $self->{$key}->Top( -$new_pos );        # doesn't work

            my $cur = $self->{$key}->Top();
            #$self->{$key}->Top($cur - $rel_move);  # works better, but only
                                                    # for SB_LINE(UP|DOWN)
        }
    }

    1;
}

Re: [perl-win32-gui-users] Help constructing a task-manager like listbox

[Eric M. H. <Eri...@dc...>]

Hello there, I'm hoping there's a simple answer to this one but I'll
accept a complicated one - I'm an old hand with Perl but don't know much
about Windows internals or Win32::GUI...
 
I'm trying to build a listbox that will have about the same contents as
the "Applications" tab in Task manager, showing only those apps that
have real, focusable windows.  I've been using Win32::GuiTest's
"FindWindowLike" with empty search strings to get a list of windows, but
even with a search depth of 1 I get a lot of what appear to be
sub-windows of, say, Winamp or UltraEdit.  How do I filter those out, or
is there a better way to be going about this in the first place?
 
Also, a possibly brain-damaged question - is there a canonical way to
change Windows handles (that is, the integers returned by, for example,
Win32::GUI::GetWindow()) into Win32::GUI objects?  This seems like it
ought to be simple but I can't even find a useful example of how to do
it.
--------------------------------------------------------
Eric M. Hillman
System/Network Administrator
DCM Services, LLC
4150 Olson Memorial Hwy
Suite 200
Minneapolis, Minnesota 55422
Phone: 763-852-8521
Fax: 763-852-8378
Email: Eri...@dc...
http://www.dcmservices.com

This Information is sensitive information intended only for use by the individual or business to which it is addressed. If you are not the intended recipient, you are notified that any review, retransmission, dissemination, distribution, copying or other use of, or taking of any action in reliance upon this information is strictly prohibited. If you have received this communication in error, please contact the sender at 1-877-326-8786 and delete the material from your computer.

This communication is an attempt to collect a debt and any information obtained will be used for that purpose. This communication is from a debt collector. 
IRS CIRCULAR 230 NOTICE: Any federal tax advice contained in this communication (including any attachments) is not intended or written to be used, and cannot be used, for the purpose of avoiding penalties under the Internal Revenue Code.

Re: [perl-win32-gui-users] Access control in a child

[Cloud S. <tha...@ho...>]

dwinkjr wrote:
> 
> ok I am new to the whole Win32::Gui stuff.. But here is my problem.  I am
> trying to load a combobox with ODBC datasources.  The problem I am having
> is that the combobox is a child.  I cant seem to address it correctly. 
> Here is my code.
> my $GB3 = Win32::GUI::Groupbox->new($Win,
>        -text    => "Database Parameters:",
>        -name    => "GroupBox_3",
>        -left    => 12,
>        -top     => 151,
>        -width   => 349,
>        -height  => 174,
>       );
> my $CB= $Win->AddCombobox(
>        -name    => "CBox1",
>        -dropdown => 0,
>        -left    => 5,
>        -top     => 41,
>        -width   => 93,
>        -height  => 400,
>        -parent	=> $GB3,
>       );
> my %DataSources = Win32::ODBC::DataSources();
> foreach $DSNo ( keys( %DataSources ) )
> 	{
>         my %Config = Win32::ODBC::GetDSN( $DSNo );
>         $Win->CBox1->Add($DSNo);
> 	}
> 
> $Win->CBox1->SetCurSel(0);
> 
> Can someone help me out here?
> Thanks in advance.
> Dave W.
> 
Try $CB->Add($DSNo) instead $Win->CBox1->Add($DSNo);
-- 
View this message in context: http://www.nabble.com/Access-control-in-a-child-tp16732261p16908542.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] Access control in a child

[Robert H. <Rob...@ca...>]

<br><font size=2 face="sans-serif">Use $CB-&gt;InsertItem($DSNo);</font>
<br><font size=2 face="sans-serif">instead of </font>
<br><tt><font size=2>$Win-&gt;CBox1-&gt;Add($DSNo);</font></tt><font size=2 face="sans-serif"><br>
</font>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td width=40%><font size=1 face="sans-serif"><b>dwinkjr &lt;dav...@gm...&gt;</b>
</font>
<br><font size=1 face="sans-serif">Sent by: per...@li...</font>
<p><font size=1 face="sans-serif">16/04/2008 03:57 PM</font>
<td width=59%>
<table width=100%>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">To</font></div>
<td><font size=1 face="sans-serif">per...@li...</font>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">cc</font></div>
<td>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">Subject</font></div>
<td><font size=1 face="sans-serif">[perl-win32-gui-users] &nbsp;Access
control in a child</font></table>
<br>
<table>
<tr valign=top>
<td>
<td></table>
<br></table>
<br>
<br>
<br><tt><font size=2><br>
ok I am new to the whole Win32::Gui stuff.. But here is my problem. &nbsp;I
am<br>
trying to load a combobox with ODBC datasources. &nbsp;The problem I am
having is<br>
that the combobox is a child. &nbsp;I cant seem to address it correctly.
&nbsp;Here is<br>
my code.<br>
my $GB3 = Win32::GUI::Groupbox-&gt;new($Win,<br>
 &nbsp; &nbsp; &nbsp; -text &nbsp; &nbsp;=&gt; &quot;Database Parameters:&quot;,<br>
 &nbsp; &nbsp; &nbsp; -name &nbsp; &nbsp;=&gt; &quot;GroupBox_3&quot;,<br>
 &nbsp; &nbsp; &nbsp; -left &nbsp; &nbsp;=&gt; 12,<br>
 &nbsp; &nbsp; &nbsp; -top &nbsp; &nbsp; =&gt; 151,<br>
 &nbsp; &nbsp; &nbsp; -width &nbsp; =&gt; 349,<br>
 &nbsp; &nbsp; &nbsp; -height &nbsp;=&gt; 174,<br>
 &nbsp; &nbsp; &nbsp;);<br>
my $CB= $Win-&gt;AddCombobox(<br>
 &nbsp; &nbsp; &nbsp; -name &nbsp; &nbsp;=&gt; &quot;CBox1&quot;,<br>
 &nbsp; &nbsp; &nbsp; -dropdown =&gt; 0,<br>
 &nbsp; &nbsp; &nbsp; -left &nbsp; &nbsp;=&gt; 5,<br>
 &nbsp; &nbsp; &nbsp; -top &nbsp; &nbsp; =&gt; 41,<br>
 &nbsp; &nbsp; &nbsp; -width &nbsp; =&gt; 93,<br>
 &nbsp; &nbsp; &nbsp; -height &nbsp;=&gt; 400,<br>
 &nbsp; &nbsp; &nbsp; -parent &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; =&gt; $GB3,<br>
 &nbsp; &nbsp; &nbsp;);<br>
my %DataSources = Win32::ODBC::DataSources();<br>
foreach $DSNo ( keys( %DataSources ) )<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
{<br>
 &nbsp; &nbsp; &nbsp; &nbsp;my %Config = Win32::ODBC::GetDSN( $DSNo );<br>
 &nbsp; &nbsp; &nbsp; &nbsp;$Win-&gt;CBox1-&gt;Add($DSNo);<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
}<br>
<br>
$Win-&gt;CBox1-&gt;SetCurSel(0);<br>
<br>
Can someone help me out here?<br>
Thanks in advance.<br>
Dave W.<br>
-- <br>
View this message in context: http://www.nabble.com/Access-control-in-a-child-tp16732261p16732261.html<br>
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.<br>
<br>
<br>
-------------------------------------------------------------------------<br>
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference <br>
Don't miss this year's exciting event. There's still time to save $100.
<br>
Use priority code J8TL2D2. <br>
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone<br>
_______________________________________________<br>
Perl-Win32-GUI-Users mailing list<br>
Per...@li...<br>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users<br>
http://perl-win32-gui.sourceforge.net/<br>
</font></tt>
<br>

Re: [perl-win32-gui-users] Access control in a child

[dwinkjr <dav...@gm...>]

Can anyone help me here???

dwinkjr wrote:
> 
> ok I am new to the whole Win32::Gui stuff.. But here is my problem.  I am
> trying to load a combobox with ODBC datasources.  The problem I am having
> is that the combobox is a child.  I cant seem to address it correctly. 
> Here is my code.
> my $GB3 = Win32::GUI::Groupbox->new($Win,
>        -text    => "Database Parameters:",
>        -name    => "GroupBox_3",
>        -left    => 12,
>        -top     => 151,
>        -width   => 349,
>        -height  => 174,
>       );
> my $CB= $Win->AddCombobox(
>        -name    => "CBox1",
>        -dropdown => 0,
>        -left    => 5,
>        -top     => 41,
>        -width   => 93,
>        -height  => 400,
>        -parent	=> $GB3,
>       );
> my %DataSources = Win32::ODBC::DataSources();
> foreach $DSNo ( keys( %DataSources ) )
> 	{
>         my %Config = Win32::ODBC::GetDSN( $DSNo );
>         $Win->CBox1->Add($DSNo);
> 	}
> 
> $Win->CBox1->SetCurSel(0);
> 
> Can someone help me out here?
> Thanks in advance.
> Dave W.
> 

-- 
View this message in context: http://www.nabble.com/Access-control-in-a-child-tp16732261p16897182.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] Window doesn't appear until codehas finished

[Brian R. (G. H. School) <Row...@gr...>]

Thanks for that help. Seems to be just what I wanted.

________________________________

From: per...@li...
[mailto:per...@li...] On Behalf Of
Emmanuel E
Sent: Thursday, 24 April 2008 1:31 a.m.
To: per...@li...
Subject: Re: [perl-win32-gui-users] Window doesn't appear until codehas
finished


I think he means he wants to use threads. So that one thread can take
care of the window in the foreground and another the code in the
background...

Ilya BANDORIN wrote: 

	What do you mean by "in background"?

	

	If you wish to perform some tasks "in background" while user
sees login window, enters his login/pass, etc - I think the only way is
to create a multithreaded application.

	

	But if you just want to create/show window and then perform some
extra code, you can call Win32::GUI::DoEvent instead of
Win32::GUI::Dialog(). It will draw the window and all stuff but won't
"stop" for interaction with user. Of course you should call
Win32::GUI::Dialog() at some point to allow user to interact with your
application.

	

	

	From: per...@li...
[mailto:per...@li...] On Behalf Of
Brian Rowlands (Greymouth High School)
	Sent: Wednesday, April 23, 2008 4:06 PM
	To: per...@li...
	Subject: [perl-win32-gui-users] Window doesn't appear until code
has finished

	

	I'm writing a login gui in perl and I've got a mental block: 

	I've created my gui: 

	my $main = Win32::GUI::Window->new( 
	        -name   => 'Main', 
	        -width  => 600, 
	        -height => 400, 
	        -text   => 'GHS Login', 
	        -sizable=> 0, 
	        -hasminimize => 0, 
	        -hasmaximize=> 0, 
	); 
	... widgets positioned 
	$main->Center(); 
	$main->Show(); 
	Win32::GUI::Dialog(); 
	exit(0); 

	My question is, how can I get the  window to be displayed and
then have perl code running in the background? 
	I've tried: 
	sub Main_Activate { 
	        ... perl code 
	return 0; 
	} 
	The perl code runs and then the window appears. 

	

	Thanks 
	Brian Rowlands 
	We must accept finite disappointment, but we must never lose
infinite hope.
	Martin Luther King Jr.
<file:///%5C%5Cquotes%5Ck%5Cmartinlutherking%5C> 

	

	=======================================================
	
	Ce message et toutes les pieces jointes (ci-apres le "message") 
	sont confidentiels et etablis a l'intention exclusive de ses
destinataires.
	Toute utilisation ou diffusion non autorisee est interdite. 
	Tout message electronique est susceptible d'alteration. 
	La SOCIETE GENERALE et ses filiales declinent toute
responsabilite
	au titre de ce message s'il a ete altere, deforme ou falsifie.
	                               	 
	=======================================================
	
	This message and any attachments (the "message") are
confidential
	and intended solely for the addressees.
	Any unauthorized use or dissemination is prohibited. 
	E-mails are susceptible to alteration.   
	Neither SOCIETE GENERALE nor any of its subsidiaries or
affiliates
	shall be liable for the message if altered, changed or
falsified. 
	
	=======================================================
	  
	
________________________________


	
------------------------------------------------------------------------
-
	This SF.net email is sponsored by the 2008 JavaOne(SM)
Conference 
	Don't miss this year's exciting event. There's still time to
save $100. 
	Use priority code J8TL2D2. 
	
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/j
avaone
	
________________________________


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

Re: [perl-win32-gui-users] Window doesn't appear until code has finished

[Emmanuel E <emm...@gm...>]

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
I think he means he wants to use threads. So that one thread can take
care of the window in the foreground and another the code in the
background...<br>
<br>
Ilya BANDORIN wrote:
<blockquote
 cite="mid:8B0...@bs...net"
 type="cite">
  <meta http-equiv="Content-Type" content="text/html; ">
  <meta name="Generator" content="Microsoft Word 12 (filtered medium)">
  <title>Window doesn't appear until code has finished</title>
  <style>
<!--
 /* Font Definitions */
 @font-face
	{font-family:Calibri;
	panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
	{font-family:Tahoma;
	panose-1:2 11 6 4 3 5 4 4 2 4;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{margin:0cm;
	margin-bottom:.0001pt;
	font-size:12.0pt;
	font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
	{mso-style-priority:99;
	color:blue;
	text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
	{mso-style-priority:99;
	color:purple;
	text-decoration:underline;}
p
	{mso-style-priority:99;
	mso-margin-top-alt:auto;
	margin-right:0cm;
	mso-margin-bottom-alt:auto;
	margin-left:0cm;
	font-size:12.0pt;
	font-family:"Times New Roman","serif";}
span.EmailStyle18
	{mso-style-type:personal-reply;
	font-family:"Tahoma","sans-serif";
	color:#1F497D;}
.MsoChpDefault
	{mso-style-type:export-only;
	font-size:10.0pt;}
@page Section1
	{size:612.0pt 792.0pt;
	margin:2.0cm 42.5pt 2.0cm 3.0cm;}
div.Section1
	{page:Section1;}
-->
  </style>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1" />
 </o:shapelayout></xml><![endif]-->
  <div class="Section1">
  <p class="MsoNormal"><span
 style="font-size: 10pt; font-family: &quot;Tahoma&quot;,&quot;sans-serif&quot;; color: rgb(31, 73, 125);"
 lang="EN-US">What do you mean by &#8220;in background&#8221;?<o:p></o:p></span></p>
  <p class="MsoNormal"><span
 style="font-size: 10pt; font-family: &quot;Tahoma&quot;,&quot;sans-serif&quot;; color: rgb(31, 73, 125);"
 lang="EN-US"><o:p>&nbsp;</o:p></span></p>
  <p class="MsoNormal"><span
 style="font-size: 10pt; font-family: &quot;Tahoma&quot;,&quot;sans-serif&quot;; color: rgb(31, 73, 125);"
 lang="EN-US">If you wish to perform some tasks &#8220;in background&#8221;
while user sees login window, enters his login/pass, etc - I think the
only way
is to create a multithreaded application.<o:p></o:p></span></p>
  <p class="MsoNormal"><span
 style="font-size: 10pt; font-family: &quot;Tahoma&quot;,&quot;sans-serif&quot;; color: rgb(31, 73, 125);"
 lang="EN-US"><o:p>&nbsp;</o:p></span></p>
  <p class="MsoNormal"><span
 style="font-size: 10pt; font-family: &quot;Tahoma&quot;,&quot;sans-serif&quot;; color: rgb(31, 73, 125);"
 lang="EN-US">But if you just want to create/show window and then
perform some
extra code, you can call Win32::GUI::DoEvent instead of
Win32::GUI::Dialog(). It
will draw the window and all stuff but won&#8217;t &#8220;stop&#8221; for
interaction with user. Of course you should call Win32::GUI::Dialog()
at some
point to allow user to interact with your application.<o:p></o:p></span></p>
  <p class="MsoNormal"><span
 style="font-size: 10pt; font-family: &quot;Tahoma&quot;,&quot;sans-serif&quot;; color: rgb(31, 73, 125);"
 lang="EN-US"><o:p>&nbsp;</o:p></span></p>
  <p class="MsoNormal"><span
 style="font-size: 10pt; font-family: &quot;Tahoma&quot;,&quot;sans-serif&quot;; color: rgb(31, 73, 125);"
 lang="EN-US"><o:p>&nbsp;</o:p></span></p>
  <div>
  <div
 style="border-style: solid none none; border-color: rgb(181, 196, 223) -moz-use-text-color -moz-use-text-color; border-width: 1pt medium medium; padding: 3pt 0cm 0cm;">
  <p class="MsoNormal"><b><span
 style="font-size: 10pt; font-family: &quot;Tahoma&quot;,&quot;sans-serif&quot;;"
 lang="EN-US">From:</span></b><span
 style="font-size: 10pt; font-family: &quot;Tahoma&quot;,&quot;sans-serif&quot;;"
 lang="EN-US">
<a class="moz-txt-link-abbreviated" href="mailto:per...@li...">per...@li...</a>
[<a class="moz-txt-link-freetext" href="mailto:per...@li...">mailto:per...@li...</a>] <b>On
Behalf Of </b>Brian
Rowlands (Greymouth High School)<br>
  <b>Sent:</b> Wednesday, April 23, 2008 4:06 PM<br>
  <b>To:</b> <a class="moz-txt-link-abbreviated" href="mailto:per...@li...">per...@li...</a><br>
  <b>Subject:</b> [perl-win32-gui-users] Window doesn't appear until
code has
finished<o:p></o:p></span></p>
  </div>
  </div>
  <p class="MsoNormal"><span lang="EN-US"><o:p>&nbsp;</o:p></span></p>
  <p><span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">I'm
writing
a login gui in perl and I've got a mental block:</span> <o:p></o:p></p>
  <p><span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">I've
created
my gui:</span> <o:p></o:p></p>
  <p><span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">my
$main =
Win32::GUI::Window-&gt;new(</span> <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span
 style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">-name&nbsp;&nbsp;
=&gt; 'Main',</span> <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span
 style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">-width&nbsp;
=&gt; 600,</span> <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span
 style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">-height
=&gt; 400,</span> <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-text&nbsp;&nbsp; =&gt; 'GHS Login',</span> <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-sizable=&gt; 0,</span> <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-hasminimize =&gt; 0,</span> <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-hasmaximize=&gt; 0, </span><br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">);</span>
  <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">&#8230;
widgets
positioned</span> <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">$main-&gt;Center();</span>
  <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">$main-&gt;Show();</span>
  <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">Win32::GUI::Dialog();</span>
  <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">exit(0);</span>
  <o:p></o:p></p>
  <p><span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">My
question
is, how can I get the&nbsp; window to be displayed and then have perl code
running in the background?</span> <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">I've
tried:</span>
  <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">sub
Main_Activate {</span> <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&#8230; perl code</span> <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">return
0;</span>
  <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">}</span>
  <br>
  <span style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;;">The
perl code
runs and then the window appears.</span> <o:p></o:p></p>
  <p class="MsoNormal"><o:p>&nbsp;</o:p></p>
  <p><span
 style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;; color: red;">Thanks</span>
  <br>
  <span
 style="font-size: 10pt; font-family: &quot;Arial&quot;,&quot;sans-serif&quot;; color: red;">Brian
Rowlands</span> <br>
  <span style="font-family: &quot;Arial&quot;,&quot;sans-serif&quot;; color: red;">We must
accept finite
disappointment, but we must never lose infinite hope.<br>
  </span><a moz-do-not-send="true"
 href="file:///%5C%5Cquotes%5Ck%5Cmartinlutherking%5C"><i><span
 style="font-family: &quot;Arial&quot;,&quot;sans-serif&quot;; color: red;">Martin Luther
King Jr.</span></i></a><o:p></o:p></p>
  <p class="MsoNormal"><o:p>&nbsp;</o:p></p>
  </div>
  <pre>=======================================================

Ce message et toutes les pieces jointes (ci-apres le "message") 
sont confidentiels et etablis a l'intention exclusive de ses destinataires.
Toute utilisation ou diffusion non autorisee est interdite. 
Tout message electronique est susceptible d'alteration. 
La SOCIETE GENERALE et ses filiales declinent toute responsabilite
au titre de ce message s'il a ete altere, deforme ou falsifie.
                               	 
=======================================================

This message and any attachments (the "message") are confidential
and intended solely for the addressees.
Any unauthorized use or dissemination is prohibited. 
E-mails are susceptible to alteration.   
Neither SOCIETE GENERALE nor any of its subsidiaries or affiliates
shall be liable for the message if altered, changed or falsified. 

=======================================================
  </pre>
  <pre wrap="">
<hr size="4" width="90%">
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference 
Don't miss this year's exciting event. There's still time to save $100. 
Use priority code J8TL2D2. 
<a class="moz-txt-link-freetext" href="http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone">http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone</a></pre>
  <pre wrap="">
<hr size="4" width="90%">
_______________________________________________
Perl-Win32-GUI-Users mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Per...@li...">Per...@li...</a>
<a class="moz-txt-link-freetext" href="https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users">https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users</a>
<a class="moz-txt-link-freetext" href="http://perl-win32-gui.sourceforge.net/">http://perl-win32-gui.sourceforge.net/</a></pre>
</blockquote>
</body>
</html>

Re: [perl-win32-gui-users] Window doesn't appear until code has finished

[Ilya B. <Ily...@so...>]

What do you mean by "in background"?

 

If you wish to perform some tasks "in background" while user sees login
window, enters his login/pass, etc - I think the only way is to create a
multithreaded application.

 

But if you just want to create/show window and then perform some extra
code, you can call Win32::GUI::DoEvent instead of Win32::GUI::Dialog().
It will draw the window and all stuff but won't "stop" for interaction
with user. Of course you should call Win32::GUI::Dialog() at some point
to allow user to interact with your application.

 

 

From: per...@li...
[mailto:per...@li...] On Behalf Of
Brian Rowlands (Greymouth High School)
Sent: Wednesday, April 23, 2008 4:06 PM
To: per...@li...
Subject: [perl-win32-gui-users] Window doesn't appear until code has
finished

 

I'm writing a login gui in perl and I've got a mental block: 

I've created my gui: 

my $main = Win32::GUI::Window->new( 
        -name   => 'Main', 
        -width  => 600, 
        -height => 400, 
        -text   => 'GHS Login', 
        -sizable=> 0, 
        -hasminimize => 0, 
        -hasmaximize=> 0, 
); 
... widgets positioned 
$main->Center(); 
$main->Show(); 
Win32::GUI::Dialog(); 
exit(0); 

My question is, how can I get the  window to be displayed and then have
perl code running in the background? 
I've tried: 
sub Main_Activate { 
        ... perl code 
return 0; 
} 
The perl code runs and then the window appears. 

 

Thanks 
Brian Rowlands 
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. <file:///\\quotes\k\martinlutherking\> 

 


=======================================================

Ce message et toutes les pieces jointes (ci-apres le "message") 
sont confidentiels et etablis a l'intention exclusive de ses destinataires.
Toute utilisation ou diffusion non autorisee est interdite. 
Tout message electronique est susceptible d'alteration. 
La SOCIETE GENERALE et ses filiales declinent toute responsabilite
au titre de ce message s'il a ete altere, deforme ou falsifie.
                               	 
=======================================================

This message and any attachments (the "message") are confidential
and intended solely for the addressees.
Any unauthorized use or dissemination is prohibited. 
E-mails are susceptible to alteration.   
Neither SOCIETE GENERALE nor any of its subsidiaries or affiliates
shall be liable for the message if altered, changed or falsified. 

=======================================================

[perl-win32-gui-users] Window doesn't appear until code has finished

[Brian R. (G. H. School) <Row...@gr...>]

I'm writing a login gui in perl and I've got a mental block:

I've created my gui:

my $main = Win32::GUI::Window->new(
	-name   => 'Main',
	-width  => 600,
	-height => 400,
        -text   => 'GHS Login',
        -sizable=> 0,
        -hasminimize => 0,
        -hasmaximize=> 0, 
);
... widgets positioned
$main->Center();
$main->Show();
Win32::GUI::Dialog();
exit(0);

My question is, how can I get the  window to be displayed and then have
perl code running in the background?
I've tried:
sub Main_Activate {
        ... perl code
return 0;
}
The perl code runs and then the window appears.


Thanks
Brian Rowlands
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. </quotes/k/martinlutherking/>  

Re: [perl-win32-gui-users] Delete Text from text box

[dwinkjr <dav...@gm...>]

Thanks,
that worked.  I cant believe that i didnt think of that.


Dave

Ilya BANDORIN wrote:
> 
> Hello,
> 
> Why not to use Text() method to clean it?
> 
> Something like
> $windowName->TextFieldName->Text('');
> 
> 
> Regards,
> _____
> Ilya
> 
> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...] On Behalf Of
> dwinkjr
> Sent: Wednesday, April 16, 2008 10:28 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] Delete Text from text box
> 
> 
> I am reading a file and displaying the contents of the file into a
> mulitline
> text box in my script.  I need to find a way to delete any text that is
> in
> the textbox before i do the append.  Anyone have any ideas?
> 
> 
> =======================================================
> 
> Ce message et toutes les pieces jointes (ci-apres le "message") 
> sont confidentiels et etablis a l'intention exclusive de ses
> destinataires.
> Toute utilisation ou diffusion non autorisee est interdite. 
> Tout message electronique est susceptible d'alteration. 
> La SOCIETE GENERALE et ses filiales declinent toute responsabilite
> au titre de ce message s'il a ete altere, deforme ou falsifie.
>                                	 
> =======================================================
> 
> This message and any attachments (the "message") are confidential
> and intended solely for the addressees.
> Any unauthorized use or dissemination is prohibited. 
> E-mails are susceptible to alteration.   
> Neither SOCIETE GENERALE nor any of its subsidiaries or affiliates
> shall be liable for the message if altered, changed or falsified. 
> 
> =======================================================
> 
> -------------------------------------------------------------------------
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference 
> Don't miss this year's exciting event. There's still time to save $100. 
> Use priority code J8TL2D2. 
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
> 
> 

-- 
View this message in context: http://www.nabble.com/Delete-Text-from-text-box-tp16728552p16763501.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] Delete Text from text box

[Ilya B. <Ily...@so...>]

Hello,

Why not to use Text() method to clean it?

Something like
$windowName->TextFieldName->Text('');


Regards,
_____
Ilya

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
dwinkjr
Sent: Wednesday, April 16, 2008 10:28 PM
To: per...@li...
Subject: [perl-win32-gui-users] Delete Text from text box


I am reading a file and displaying the contents of the file into a
mulitline
text box in my script.  I need to find a way to delete any text that is
in
the textbox before i do the append.  Anyone have any ideas?


=======================================================

Ce message et toutes les pieces jointes (ci-apres le "message") 
sont confidentiels et etablis a l'intention exclusive de ses destinataires.
Toute utilisation ou diffusion non autorisee est interdite. 
Tout message electronique est susceptible d'alteration. 
La SOCIETE GENERALE et ses filiales declinent toute responsabilite
au titre de ce message s'il a ete altere, deforme ou falsifie.
                               	 
=======================================================

This message and any attachments (the "message") are confidential
and intended solely for the addressees.
Any unauthorized use or dissemination is prohibited. 
E-mails are susceptible to alteration.   
Neither SOCIETE GENERALE nor any of its subsidiaries or affiliates
shall be liable for the message if altered, changed or falsified. 

=======================================================

[perl-win32-gui-users] Access control in a child

[dwinkjr <dav...@gm...>]

ok I am new to the whole Win32::Gui stuff.. But here is my problem.  I am
trying to load a combobox with ODBC datasources.  The problem I am having is
that the combobox is a child.  I cant seem to address it correctly.  Here is
my code.
my $GB3 = Win32::GUI::Groupbox->new($Win,
       -text    => "Database Parameters:",
       -name    => "GroupBox_3",
       -left    => 12,
       -top     => 151,
       -width   => 349,
       -height  => 174,
      );
my $CB= $Win->AddCombobox(
       -name    => "CBox1",
       -dropdown => 0,
       -left    => 5,
       -top     => 41,
       -width   => 93,
       -height  => 400,
       -parent	=> $GB3,
      );
my %DataSources = Win32::ODBC::DataSources();
foreach $DSNo ( keys( %DataSources ) )
	{
        my %Config = Win32::ODBC::GetDSN( $DSNo );
        $Win->CBox1->Add($DSNo);
	}

$Win->CBox1->SetCurSel(0);

Can someone help me out here?
Thanks in advance.
Dave W.
-- 
View this message in context: http://www.nabble.com/Access-control-in-a-child-tp16732261p16732261.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

[perl-win32-gui-users] Delete Text from text box

[dwinkjr <dav...@gm...>]

I am reading a file and displaying the contents of the file into a mulitline
text box in my script.  I need to find a way to delete any text that is in
the textbox before i do the append.  Anyone have any ideas?
-- 
View this message in context: http://www.nabble.com/Delete-Text-from-text-box-tp16728552p16728552.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] Handling WM_MOUSEWHEEL or other arbitrary windows messages

[Jeremy W. <jez...@ho...>]

Hi,

A quick reply below to get you moving...


> I have a Win32-GUI app with a scrollable window area, and it uses the
> "-onScroll => \&scrollfn" model to handle manipulation of the scrollbar
> (and other normal messages). It's working well, such as it is.
>
> Now I'd like to add handling for the WM_MOUSEWHEEL message so I can scroll
> on mouse wheel events. However, I don't see any "-onMouseWheel" or
> similar event parameter in the supported events.

>From memory this isn't supported.

> So it occurs to me, then, that I'd like to specify a handler specifically
> for that message ID. Not just for this message, but also in case I'd like
> to handle WM_USER1 or something random in the future.
>
> But it's not clear to me how to specify what given function should be
> called when receiving an arbitrary specific windows message ID, nor what
> the formal parameters of that function should be when it is called.
>
> Does anyone know how to process arbitrary window messages? Any help
> appreciated.

If you search for the Hook method in the documentation it allows you to attach handlers for other messages.

Sorry that I couldn't provide more detail (I don't have win32::GUI on this environment).

Cheers,

jez.
_________________________________________________________________
Welcome to the next generation of Windows Live
http://www.windowslive.co.uk/get-live

[perl-win32-gui-users] Handling WM_MOUSEWHEEL or other arbitrary windows messages

[E. W. <win...@we...>]

Hello,

I have a Win32-GUI app with a scrollable window area, and it uses the
"-onScroll => \&scrollfn" model to handle manipulation of the scrollbar
(and other normal messages).  It's working well, such as it is.

Now I'd like to add handling for the WM_MOUSEWHEEL message so I can scroll
on mouse wheel events.  However, I don't see any "-onMouseWheel" or
similar event parameter in the supported events.

So it occurs to me, then, that I'd like to specify a handler specifically
for that message ID.  Not just for this message, but also in case I'd like
to handle WM_USER1 or something random in the future.

But it's not clear to me how to specify what given function should be
called when receiving an arbitrary specific windows message ID, nor what
the formal parameters of that function should be when it is called.

Does anyone know how to process arbitrary window messages?  Any help
appreciated.

Thanks,
E. Westbrook

[perl-win32-gui-users] How to catch/process mouse clicks on a balloon?

[Ilya B. <Ily...@so...>]

Hello,

Does anybody know if it is possible to execute a subroutine when user
clicks on a popup balloon of NotifyIcon? Now it just closes on mouse
click. Can't find any solution for this.

Regards, Ilya


=======================================================

Ce message et toutes les pieces jointes (ci-apres le "message") 
sont confidentiels et etablis a l'intention exclusive de ses destinataires.
Toute utilisation ou diffusion non autorisee est interdite. 
Tout message electronique est susceptible d'alteration. 
La SOCIETE GENERALE et ses filiales declinent toute responsabilite
au titre de ce message s'il a ete altere, deforme ou falsifie.
                               	 
=======================================================

This message and any attachments (the "message") are confidential
and intended solely for the addressees.
Any unauthorized use or dissemination is prohibited. 
E-mails are susceptible to alteration.   
Neither SOCIETE GENERALE nor any of its subsidiaries or affiliates
shall be liable for the message if altered, changed or falsified. 

=======================================================

[perl-win32-gui-users] How to scale bmp?

[Waldemar B. <wb...@sa...>]

Hello everyone!

How is going? We've spring here! at last!!!!

To the point: I can my all window be scaleable except bitmaps, which I do
with package Bitmap. May someone could help with the problem?

Problem is that my window dimensions are taken from a bitmap and then all other objects
are put on the window. That window is scaleable and therefore I would like my bitmap be
scaleable too.

Regards

Waldemar

Re: [perl-win32-gui-users] Problem executing shell commands from within perl after call to GetSaveFileName

[Gabriel T. <to...@ri...>]

Glenn,

Thank you for your response, which confirms that the call to 
GetSaveFileName has repercussions (which, in my opinion, are undesirable).

I did try to get a directory listing after the call to 
GetSaveFileName (using perl and using backticks) and it seems to 
indicate that the current directory has not changed.  Still, the 
backtick commands do not see the files in that directory unless I 
specify their full path.

One thing I should try is to use ./filename instead of the full file 
path and see if that works.  If so, that would be a decent workaround.

Thanks again,

Gabriel


At 09:28 AM 4/8/2008 -0700, Glenn Linderman wrote:
>On approximately 4/7/2008 7:04 PM, came the following characters 
>from the keyboard of Gabriel R. Toro:
>>Hi,
>>
>>This question may be too simple for this group; if so, I apologize. 
>>I only use perl once in a while and this is my first experience 
>>with Win32::GUI.
>>
>>I wrote a simple perl script that calls GetSaveFileName to get the 
>>name of an output file and then calls the shell to execute some 
>>separate programs (I get the same problems using backtics or 
>>system). After the call to GetSaveFileName, the shell commands do 
>>not seem to find the necessary files (even though the files exist 
>>in the current directory), unless I specify the full path for those 
>>files. If I remove the call to GetSaveFileName and hard-wire a 
>>name, everything works.
>>
>>It is not a problem with the subroutine that calls GetSaveFileName; 
>>the subroutine returns the right name (including full path). It 
>>seems like Win32::GUI is having some undesirable side effect:
>>-does Win32::GUI change the current path? (my tests suggests it does not)
>>
>
>No.
>
>>-does Win32::GUI change the shell that executes the backtick or 
>>system commands or the settings of that shell?
>>
>
>No.
>
>>-anything else?
>>
>
>The GetSaveFileName dialog in Windows is known to change the current 
>directory, if you navigate away from the default location initially 
>displayed.  This can have repercussions, as you've experienced.
>
>There is a question of whether the Win32::GUI::GetSaveFileName 
>should pass through this behavior (as current) or should protect the 
>user from it (save & restore the CWD), or better document the 
>behavior of Windows itself.  I find that behavior of Windows rather 
>unfriendly, although I'm sure Bill can justify it as some sort of a 
>monopolistic practice.
>
>>I would appreciate any suggestions.
>>
>>Thanks,
>>
>>Gabriel
>>
>>
>>PS: Here is my GetSaveFileName (which, as I indicated, is working 
>>OK except for the "side effects").

....removed ...




>>-------------------------------------------------------------------------
>>This SF.net email is sponsored by the 2008 JavaOne(SM) Conference 
>>Register now and save $200. Hurry, offer ends at 11:59 p.m., 
>>Monday, April 7! Use priority code J8TLD2. 
>>http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
>>_______________________________________________
>>Perl-Win32-GUI-Users mailing list
>>Per...@li...
>>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>>http://perl-win32-gui.sourceforge.net/
>>
>>
>
>--
>Glenn -- http://nevcal.com/
>===========================
>A protocol is complete when there is nothing left to remove.
>-- Stuart Cheshire, Apple Computer, regarding Zero Configuration Networking
>

Re: [perl-win32-gui-users] Problem executing shell commands from within perl after call to GetSaveFileName

[rpnoble <rp...@ib...>]

Gabriel R. Toro wrote:
> 
> Hi,
> 
> This question may be too simple for this group; if so, I apologize. I 
> only use perl once in a while and this is my first experience with
> Win32::GUI.
> 
> I wrote a simple perl script that calls GetSaveFileName to get the 
> name of an output file and then calls the shell to execute some 
> separate programs (I get the same problems using backtics or system). 
> After the call to GetSaveFileName, the shell commands do not seem to 
> find the necessary files (even though the files exist in the current 
> directory), unless I specify the full path for those files. If I 
> remove the call to GetSaveFileName and hard-wire a name, everything works.
> 
> It is not a problem with the subroutine that calls GetSaveFileName; 
> the subroutine returns the right name (including full path). It seems 
> like Win32::GUI is having some undesirable side effect:
> -does Win32::GUI change the current path? (my tests suggests it does not)
> -does Win32::GUI change the shell that executes the backtick or 
> system commands or the settings of that shell?
> -anything else?
> 
> I would appreciate any suggestions.
> 
> Thanks,
> 
> Gabriel
> 
> 
> PS: Here is my GetSaveFileName (which, as I indicated, is working OK 
> except for the "side effects").
> sub GetSaveFileName
> #
> # returns selected pdf file
> # #no arguments (may want to add them later)
> {
>      use strict;
>      use warnings;
> 
>      use Win32::GUI qw();
> 
>      my $window_main = Win32::GUI::Window->new(
>                                                 -name  => 'window_main',
>                                                 -size  => [320, 240],
>                                                 -title => 'CmnDlg - Save
> As',
>                                                 );
> 
>      $window_main->Show();
> 
>      my $file = '';
>      my $directory = 'C:/';
> 
> # Save as file dialog box, show files with *.txt extension, in messages
> folder
> 
>      $file = Win32::GUI::GetSaveFileName(
>                                           -owner     =>  $window_main,
>                                           -title     =>  'Select 
> Output pdf file',
>                                           -directory =>  $directory,
>                                           -filter    =>  ['Pdf 
> files', '*.pdf', 'All files', '*.*'],
>                                           -file      =>  $file,
>                                           );
>      return $file;
> }
> 1 # needed if we are using require
> 
> 
> 
> -------------------------------------------------------------------------
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference 
> Register now and save $200. Hurry, offer ends at 11:59 p.m., 
> Monday, April 7! Use priority code J8TLD2. 
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
> 
> 

Have you tried quoting the command line string? Under Windows XP you have to
quote the command line paths if spaces are in the path.
-- 
View this message in context: http://www.nabble.com/Problem-executing-shell-commands-from-within-perl-after-call-to-GetSaveFileName-tp16558563p16580369.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

[perl-win32-gui-users] Problem executing shell commands from within perl after call to GetSaveFileName

[Gabriel R. T. <to...@ri...>]

Hi,

This question may be too simple for this group; if so, I apologize. I 
only use perl once in a while and this is my first experience with Win32::GUI.

I wrote a simple perl script that calls GetSaveFileName to get the 
name of an output file and then calls the shell to execute some 
separate programs (I get the same problems using backtics or system). 
After the call to GetSaveFileName, the shell commands do not seem to 
find the necessary files (even though the files exist in the current 
directory), unless I specify the full path for those files. If I 
remove the call to GetSaveFileName and hard-wire a name, everything works.

It is not a problem with the subroutine that calls GetSaveFileName; 
the subroutine returns the right name (including full path). It seems 
like Win32::GUI is having some undesirable side effect:
-does Win32::GUI change the current path? (my tests suggests it does not)
-does Win32::GUI change the shell that executes the backtick or 
system commands or the settings of that shell?
-anything else?

I would appreciate any suggestions.

Thanks,

Gabriel


PS: Here is my GetSaveFileName (which, as I indicated, is working OK 
except for the "side effects").
sub GetSaveFileName
#
# returns selected pdf file
# #no arguments (may want to add them later)
{
     use strict;
     use warnings;

     use Win32::GUI qw();

     my $window_main = Win32::GUI::Window->new(
                                                -name  => 'window_main',
                                                -size  => [320, 240],
                                                -title => 'CmnDlg - Save As',
                                                );

     $window_main->Show();

     my $file = '';
     my $directory = 'C:/';

# Save as file dialog box, show files with *.txt extension, in messages folder

     $file = Win32::GUI::GetSaveFileName(
                                          -owner     =>  $window_main,
                                          -title     =>  'Select 
Output pdf file',
                                          -directory =>  $directory,
                                          -filter    =>  ['Pdf 
files', '*.pdf', 'All files', '*.*'],
                                          -file      =>  $file,
                                          );
     return $file;
}
1 # needed if we are using require

Re: [perl-win32-gui-users] No scrollbar on combo box drop-down.

[Brian M. <bmi...@hu...>]

Tim Johnson wrote:
> Oops.  Trying again from an account that is actually a member of the list.
>
> On Fri, Apr 4, 2008 at 4:45 PM, Tim Johnson <toj...@gm... 
> <mailto:toj...@gm...>> wrote:
>
>     I was tasked with making a quick and dirty uninstaller that can be
>     launched through SMS in order to give people without admin rights
>     the right to uninstall things, and so I whipped up something quick
>     and dirty (code below).  It actually works pretty well, but
>     there's one big problem:  The combo box is longer than the height
>     of the window, and while I can use the arrow keys to scroll up and
>     down, I would much rather have a scroll bar in order to view the
>     rest of the list.  What am I missing?  A quick search of the
>     Google didn't really help much.
>
Just add -vscroll => 1 to your AddCombobox:

my $combo_box = $window->AddCombobox(-name => "UninstallList",
                                     -text => "Applications",
                                     -width => 500,
                                     -height => 120,
                                     -left => 10,
                                     -top => 10,
                                     -sort => 1,
                                     -dropdown => 1,
                                     -resizable => 0,
                                     -vscroll => 1,
                                     );

-- 
Brian, Tommy, Helen and Paka -- bmi...@hu...
This message traveled at least 44,000 miles to reach you!




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 080404-0, 04/04/2008
Tested on: 4/5/2008 12:52:07 PM
avast! is copyright (c) 2000-2008 ALWIL Software.
http://www.avast.com

Re: [perl-win32-gui-users] No scrollbar on combo box drop-down.

[Tim J. <toj...@gm...>]

Oops.  Trying again from an account that is actually a member of the list.

On Fri, Apr 4, 2008 at 4:45 PM, Tim Johnson <toj...@gm...> wrote:

> I was tasked with making a quick and dirty uninstaller that can be
> launched through SMS in order to give people without admin rights the right
> to uninstall things, and so I whipped up something quick and dirty (code
> below).  It actually works pretty well, but there's one big problem:  The
> combo box is longer than the height of the window, and while I can use the
> arrow keys to scroll up and down, I would much rather have a scroll bar in
> order to view the rest of the list.  What am I missing?  A quick search of
> the Google didn't really help much.
>
>
> ########################################
>
> use strict;
> use warnings;
> use Win32::GUI;
> use Win32::TieRegistry (Delimiter => '/');
>
>
> sub MainWindow_Terminate() {
>   -1;
> }
>
> sub GetUninstallInfo() {
>   my %uninstall = ();
>   my $uninstall_key =
> $Registry->{'HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/' .
>                                   'CurrentVersion/Uninstall'};
>   no warnings qw(uninitialized);
>
>   foreach my $key(keys %{$uninstall_key}) {
>     if ($uninstall_key->{$key . "DisplayName"}) {
>       my $name = join(' ', $uninstall_key->{$key . "Publisher"},
>                            $uninstall_key->{$key . "DisplayName"},
>                            $uninstall_key->{$key . "DisplayVersion"});
>       $name =~ s/^\s+//;
>       $uninstall{$name} = $uninstall_key->{$key . "UninstallString"}
>     }
>   }
>   use warnings qw(uninitialized);
>   return %uninstall;
> }
>
> my $main_app_name = "Google Universal Uninstaller 1.0";
> my $icon = new Win32::GUI::Icon('g.ico') or die();
> my $window = Win32::GUI::Window->new(-name => 'MainWindow',
>                                      -width => 550,
>                                      -height => 150,
>                                      -title => $main_app_name);
> $window->ChangeIcon($icon);
>
> my %uninstall = GetUninstallInfo();
>
> my $combo_box = $window->AddCombobox(-name => "UninstallList",
>                                      -text => "Applications",
>                                      -width => 500,
>                                      -height => 120,
>                                      -left => 10,
>                                      -top => 10,
>                                      -sort => 1,
>                                      -dropdown => 1,
>                                      -resizable => 0,
>                                      );
>
>
> foreach my $application (keys %uninstall) {
>   if ($uninstall{$application}) {
>     $combo_box->AddString($application);
>   }
> }
>
> $combo_box->SetCurSel(0);
>
> my $button = $window->AddButton(-name => "BtnRemove",
>                                 -text => "Uninstall the selected
> application.",
>                                 -width => "300",
>                                 -height => "40",
>                                 -top => 50,
>                                 -left => 100);
> $button->Show();
>
>
> $window->Show();
> Win32::GUI::Dialog();
>
>
> sub BtnRemove_Click() {
>   my $index = $combo_box->GetCurSel();
>   if ($index > -1){
>     my $app = $combo_box->GetString($index);
>     system($uninstall{$app});
>   }
> }
>
>
> ##########################################
>
>
> --
> _____________________
> Ceci n'est pas un email.




-- 
_____________________
Ceci n'est pas un email.

Re: [perl-win32-gui-users] Need to post progress

[Charles A. <cha...@al...>]

Hello,

You could try using a Win32::GUI::Textfield with multiline,  
autovscroll and readonly enabled.  Set it to the right size with width  
and height, and update the text with Append() ($tf->Append('foo') )...


Charles Alderman

----- Original Message -----
From: Jacques Choquette <jac...@vi...>
Sent: Wed, 02 Apr 2008 19:04:44 -0400
Re: [perl-win32-gui-users] Need to post progress



> Hi,
>
> I need to post the progress of my script in some kind of text box, a
> little bit like a listbox but the user cannot select anything. All I
> want is to show the user what is happening like:
> Processing file ?
> Finding errors at line xxx
> Finding bad characters at line xxx
> Finished processing file ?
> Opening new file ?
>
> And so on
>
> The text should scroll automatically and always show the last thing
> written to it.
> Is there such a widget in Win32:GUI?
>
> Thank you so much to reply.
>
> Have a great day!
>
> Jacques
>
> No virus found in this outgoing message.
> Checked by AVG.
> Version: 7.5.519 / Virus Database: 269.22.5/1356 - Release Date:
> 4/2/2008 16:14
>
>

[perl-win32-gui-users] Need to post progress

[Jacques C. <jac...@vi...>]

Hi,
 
I need to post the progress of my script in some kind of text box, a
little bit like a listbox but the user cannot select anything. All I
want is to show the user what is happening like:
Processing file …
Finding errors at line xxx
Finding bad characters at line xxx
Finished processing file …
Opening new file …
 
And so on 
 
The text should scroll automatically and always show the last thing
written to it.
Is there such a widget in Win32:GUI?
 
Thank you so much to reply.
 
Have a great day!
 
Jacques

No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.519 / Virus Database: 269.22.5/1356 - Release Date:
4/2/2008 16:14
 

[perl-win32-gui-users] Adminmisc and perl 5.10

[Brian R. (G. H. School) <Row...@gr...>]

Hi Folks
I'm writing a login script for my school network and was planning on
using adminmisc by Dave Roth as I need to use impersonation. Sadly, I
can't find a perl 5:10 version and I'm not skilled enough to create one
[ never done such before ].

Can anyone point me to a 5.10 version or offer another solution for
impersonation?

Thanks
Brian Rowlands
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. </quotes/k/martinlutherking/>