perl-win32-gui-users Mailing List for Win32::GUI (Page 3)

Thanks, Richard.

I am enclosing here two versions of a complete little script, originally 
showing the problem. The problem was solved by avoiding -addexstyle => 
WS_EX_TOPMOST, and using "-owner => " instead.

Here is the script showing the problem: (5.014 not essential) Note: change 
the 'D:\My documents' to an existing directory.

# Start example script
use strict;
use warnings;
use 5.014;
use Win32::GUI();
use Win32::GUI qw{ WS_EX_TOPMOST};
my ($InputDir, $TopDir, $InputFileName, $dw, $dh, $desktop, $Window);

$TopDir = 'D:\My documents';    # Change this to an existing direcotry of 
yours
$desktop = Win32::GUI::GetDesktopWindow();
$dw = Win32::GUI::Width($desktop);
$dh = Win32::GUI::Height($desktop);
$Window = Win32::GUI::Window->new( -name => 'main', -text => 'Main window',
    -pos => [20/100*$dw, 20/100*$dh], -size => [50/100*$dw, 60/100*$dh],
    -onTerminate => \&TerminateWindow,
    -addexstyle => WS_EX_TOPMOST,   -dialogui => 1, -tabstop => 1, -cancel 
=> 1, );
$Window -> AddButton ( -name => 'ButtonCommit', -pos => [10,10],
    -size =>[16/100*$dw,3.5/100*$dh], -text => 'Commit changes', -onClick => 
\&Commit);
sub Commit {
$InputDir = Win32::GUI::BrowseForFolder( -root => $TopDir, -includefiles => 
1,
                -title => 'Select directory for parameter file',
                -text =>'Selext directory for parameter file',
                -size => [50/100*$dw, 50/100*$dh], -addexstyle => 
WS_EX_TOPMOST,);
$InputFileName = Win32::GUI::GetOpenFileName( -title  => 'Select the input 
file',
    -directory => $InputDir, -file   => "\0" . " " x 256,
    -filter => ["Text files (*.txt)" => "*.txt", "All files", "*.*", ],
    -text => 'text Select input file');
} # end sub Commit
$Window ->Show();
Win32::GUI::Dialog();
sub TerminateWindow {
return -1;
}
# end example script

Click the "Commit changes" button, then minimize the main window, and only 
then you see the "hiding" BrowseForFolder() window.
Note that the "BrowseForFolder()" window hides behind other windows, and you 
need to minimize other windows to get to it. All other Perl Win32::GUI 
windows do open up at the foreground.
Furthermore, note that -addexstyle => WS_EX_TOPMOST doesn't have an effect, 
while it usually does in Perl Win32::GUI windows.
Note: change the 'D:\My documents' to an existing directory.

Like I said, using the advice of: http://perlmonks.org/?node_id=995074, I 
eliminated "-addexstyle => WS_EX_TOPMOST", and entered "-owner => $Window" 
at the child window. That fixed it.
The role of  "-owner=>" is not clear to me. Why is it necessary, and why did 
it fix the problem - can you elaborate?

Here is the fixed code:

# Start example script
use strict;
use warnings;
use 5.014;
use Win32::GUI();
use Win32::GUI qw{ WS_EX_TOPMOST};
my ($InputDir, $TopDir, $InputFileName, $dw, $dh, $desktop, $Window);

$TopDir = 'D:\My documents'; # Change this to an existing direcotry of yours
$desktop = Win32::GUI::GetDesktopWindow();
$dw = Win32::GUI::Width($desktop);
$dh = Win32::GUI::Height($desktop);
$Window = Win32::GUI::Window->new( -name => 'main', -text => 'Main window',
  -pos => [20/100*$dw, 20/100*$dh], -size => [50/100*$dw, 60/100*$dh],
  -onTerminate => \&TerminateWindow,
  -dialogui => 1, -tabstop => 1, -cancel => 1, );
$Window -> AddButton ( -name => 'ButtonCommit', -pos => [10,10],
 -size =>[16/100*$dw,3.5/100*$dh], -text => 'Commit changes', -onClick => 
\&Commit);
sub Commit {
$InputDir = Win32::GUI::BrowseForFolder( -root => $TopDir, -includefiles => 
1,
     -title => 'Select directory for parameter file',
     -text =>'Selext directory for parameter file',
     -size => [50/100*$dw, 50/100*$dh], -owner => $Window);
$InputFileName = Win32::GUI::GetOpenFileName( -title  => 'Select the input 
file',
  -directory => $InputDir, -file   => "\0" . " " x 256,
     -filter => ["Text files (*.txt)" => "*.txt", "All files", "*.*", ],
  -text => 'text Select input file');
TerminateWindow();
return -1;
} # end sub Commit
$Window ->Show();
Win32::GUI::Dialog();
sub TerminateWindow {
return -1;
}
# end example script

----- Original Message ----- 
From: Richard Hitchins To: Gail Hardmann Sent: Friday, 21 September, 2012 
17:36
Subject: Re: [perl-win32-gui-users] How to get Win32::GUI::BrowseForFolder() 
to the foreground at open?

Hi Gail
Strange, I would expect the file browser to be on top.  Can you post any 
more code so I can see the snippet in context?

If not, then a less than ideal way would be to minimize or hide the other 
windows just before you call the file browser and then reinstate them 
afterwards.
Richard

On 21/09/2012 12:29, Gail Hardmann wrote:
Hi Perl Win32::GUI users!

When calling Win32::GUI::BrowseForFolder(), the desktop (naturally) has 
several earlier windows on it. The BrowseForFolder() window hides behind 
those windows. This can be confusing and annoying, because sometimes you 
don't realize the program is asking you for a folder name, and you may think 
there is a bug.

(This is in difference from Win32::GUI::GetOpenFileName() or 
GetSaveFileName(), which do pop up in the foreground!).

My question is: how to make BrowseForFolder() come to the foreground?

One possibility is to find its handle, and then raise it to the foreground.
Can anyone suggest how to do it?

Note that
-addexstyle => WS_EX_TOPMOST
doesn't have any effect (see below).
Many TIA
Helen

Code snippet:
$InputDir = Win32::GUI::BrowseForFolder( -root => $TopDir, -includefiles => 
1,
                    -title => 'Select directory for parameter file',
                    -text =>'text Selext directory for parameter file',
                    -size => [50/100*$dw, 50/100*$dh], -addexstyle => 
WS_EX_TOPMOST,);
_______________________________________________
Perl-Win32-GUI-Users mailing list Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users 
http://perl-win32-gui.sourceforge.net/ 

Hi Perl Win32::GUI users!
When calling Win32::GUI::BrowseForFolder(), the desktop (naturally) has several earlier windows on it. The BrowseForFolder() window hides behind those windows. This can be confusing and annoying, because sometimes you don't realize the program is asking you for a folder name, and you may think there is a bug. 
(This is in difference from Win32::GUI::GetOpenFileName() or GetSaveFileName(), which do pop up in the foreground!).
My question is: how to make BrowseForFolder() come to the foreground?
One possibility is to find its handle, and then raise it to the foreground.Can anyone suggest how to do it?
Note that-addexstyle => WS_EX_TOPMOSTdoesn't have any effect (see below).Many TIA
Helen
Code snippet:$InputDir = Win32::GUI::BrowseForFolder( -root => $TopDir, -includefiles => 1,
                    -title => 'Select directory for parameter file', 
                    -text =>'text Selext directory for parameter file',
                    -size => [50/100*$dw, 50/100*$dh], -addexstyle => WS_EX_TOPMOST,); 		 	   		  

http://neohelenistika.com/pagnrk.html

http://www.handmade4help.org/licitatii/flgpr.html

John Whitney wrote:
> Hello:
>
> My Win32::GUI app has text in the window, and when run on Windows 7, versus
> 98 or XP, the size of the text in pixels changes.  Is there a way to keep
> the text size consistant, pixel wise, across the different operating
> systems?  Here is an image showing how it differs, Windows 7 vs Win98..
>   

Your only hope is to have the DPI set correctly for each monitor and use
that value to set the character size in point, not pixels.

But starting in Win7, and HTML5, because programmers used pixels all the 
time rather than points, the HTML5 designers redefined a pixel to be exactly
1/100th of an inch.  To get at real hardware values you have to look at some
other setting in a browser.  

Win7 has both types of magnification -- one that is XP compat which changes
the DPI number (which most apps ignored), and another which changes the size
of the pixel (which works for all apps, but may cause other problems -- 
like the
app not fitting on the screen or such.

Providing your Win7 isn't using global magnification -- you might try 
getting
at the DPI value...

I grab it in a BASH script on windows with
  dpi=$(regtool -d get '/HKLM/Software/Microsoft/Windows 
NT/CurrentVersion/FontDPI/LogPixels')
  # check for insane values
  ((dpi<50||dpi>>400)) && dpi=96
  echo "$dpi"

(I also added some sanity checking in case the number was really weird.

Another thing -- that looks different between the two -- one looks like 
it has
LCD font smoothing turned on, (Cleartype), the XP version looks like it 
might
be using anti aliasing, or maybe not even that....

I don't know where you can poke at those settings programatically...

Linda

Hello:

My Win32::GUI app has text in the window, and when run on Windows 7, versus
98 or XP, the size of the text in pixels changes.  Is there a way to keep
the text size consistant, pixel wise, across the different operating
systems?  Here is an image showing how it differs, Windows 7 vs Win98...

   http://www.johnwhitney.com/tmp/tmp.jpg

Here is my code for my test program...

#!perl -w
#  Perl text size test 1

use strict ; use warnings ; use Win32::GUI 1.05 qw () ; use constant
G_VERSION => 'Ver 1.1' ;

# Define fonts
my $font1 = new Win32::GUI::Font ( -name => 'Arial'         , -size => 10 )
;
my $font2 = new Win32::GUI::Font ( -name => 'Verdana'       , -size => 10 )
;
my $font3 = new Win32::GUI::Font ( -name => 'Courier New'   , -size => 10 )
;

my $window_main = Win32::GUI::Window -> new ( -title => "Perl text size
tests: " . G_VERSION , -pos => [ 300 , 300 ] , -size => [ 500 , 300 ]
, -background => 0xffffff ) ;

my $window_main_t1 = new Win32::GUI::Label ( $window_main , -text => "Text
1" , -name => 'window_main_t1' , -font => $font1 , -size => [ 100 , 18 ]
, -background => 0xd0d0d0 , -pos => [ 17 , 38 ] ) ;
my $window_main_t2 = new Win32::GUI::Label ( $window_main , -text => "Text
2" , -name => 'window_main_t2' , -font => $font2 , -size => [ 100 , 18 ]
, -background => 0xd0d0d0 , -pos => [ 17 , 58 ] ) ;
my $window_main_t3 = new Win32::GUI::Label ( $window_main , -text => "Text
3" , -name => 'window_main_t3' , -font => $font3 , -size => [ 100 , 18 ]
, -background => 0xd0d0d0 , -pos => [ 17 , 78 ] ) ;

# Add m1...
my $window_main_m1 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m1' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0x808080 , -pos => [  17 , 18 ] ) ;
my $window_main_m2 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m2' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0x909090 , -pos => [  67 , 18 ] ) ;
my $window_main_m3 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m3' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0xA0A0A0 , -pos => [ 117 , 18 ] ) ;
my $window_main_m4 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m4' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0xB0B0B0 , -pos => [ 167 , 18 ] ) ;
my $window_main_m5 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m5' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0xC0C0C0 , -pos => [ 217 , 18 ] ) ;
my $window_main_m6 = new Win32::GUI::Label ( $window_main , -text => ' '
, -name => 'window_main_m6' , -font => $font1 , -size => [ 50 , 18 ]
, -background => 0xD0D0D0 , -pos => [ 267 , 18 ] ) ;

$window_main -> Show () ;

Win32::GUI::Dialog () ;
$window_main -> Hide () ;
exit ( 0 ) ;

John :-)
jo...@jo...
801 815 9265

in the past (20 Feb 2008) Cloud Strife posted "Win32 GUI 1.06 PPM 5.10 x64 and Source Distribution" , i have found the ppm file on my hard disk but not the source, i have uploaded it here
http://www.mediafire.com/?tjyjhbare5qnzej  
also added perl.exe.manifest and vcredist_x64 if someone find it usefull. i remember it works okay except AxWindow and Grid.

regards
eros



 		 	   		  

Only that I have not had *any* time to even review the 64-bit patches - and I'm not likely to get any any time soon.
I'm also not sure that Jeremy's right;  I don't think the 64-bit patches are in the repository.  That said, I have no issue with someone else applying them and spinning a release.

The patches are in the repository as I committed them a while back:) From memory it was mostly basic stuff. The test suite passed and I did test all the examples and they ran fine although it would need more testing on larger projects (and other versions of perl - I'm still on 5.8.x). I used mingw so couldn't play with the modules that required the ms frameworks. I was planning on getting the free version of the MS 64 bit compiler up and running but ran out of time. 
What's the process of spinning a (test) release?





 		 	   		  

On 17 February 2012 18:22, Jan Dubois <ja...@ac...> wrote:

>
> Is there a reason not to make another release with the 64-bit fixes?
> That way it would automatically be picked up by the ActiveState PPM
> build machines.
>

Only that I have not had *any* time to even review the 64-bit patches - and
I'm not likely to get any any time soon.

I'm also not sure that Jeremy's right;  I don't think the 64-bit patches
are in the repository.  That said, I have no issue with someone else
applying them and spinning a release.

Rob.

On Fri, 17 Feb 2012, Alex Lee wrote:
> 
> Thanks Jeremy.
> You were right about the repository.
> I was able to to install the module with dmake - there were some error
> messages but seem to work! In particular the Grid & axwindow seem to
> need msvc instead.

Is there a reason not to make another release with the 64-bit fixes?
That way it would automatically be picked up by the ActiveState PPM
build machines.

> BTW: the nomenclature Win32::GUI in a 64 bit is kinda funny =)

Not really, Win32 is the API, that is shared between 32-bit and
64-bit Windows.  E.g. even in 64-bit Windows a 'long' is still just
32-bit to preserve API compatibility.

Cheers,
-Jan

Jeremy,
On second thought I did find a freshly minted blib folder - I think I
will try package this manually into a tar.gz file.
thanks.
Alex

On Fri, Feb 17, 2012 at 10:08 AM, Alex Lee <sim...@gm...> wrote:
> Thanks Jeremy.
> You were right about the repository.
> I was able to to install the module with dmake - there were some error
> messages but seem to work! In particular the Grid & axwindow seem to
> need msvc instead.
>
> Although I was able to install with dmake I could not get it to
> generate a proper ppm distro.  For example when I typed
> dmake ppd BINARY_LOCATION=Module.tar.gz
>
> it generated the Win32-GUI.ppd but not the actual tar.gz file.  When I
> looked in the ppd file the codebase href points to the
> "Win32-GUI.tar.gz" which I assume is the same directly but I could not
> find it anywhere.
>
> I'm probably doing something very naive - any advice?
>
> BTW: the nomenclature Win32::GUI in a 64 bit is kinda funny =)
>
> Alex
>
> On Fri, Feb 17, 2012 at 1:30 AM, Jeremy White <jez...@ho...> wrote:
>>
>>> Hi all:
>>> does anyone have a PPM distribution (Win32::GUI) that can run on v
>>> 5.14 64-bit? I tried creating this myself with the source 1.06 but so
>>> far it is not working.
>>
>> I don't think there is a PPM for 64 bit. You should be able to build your
>> own (using Mingw) but not from the source of 1.06, but from
>> the sourceforge repository as fixes to build on 64 bit are committed there.
>>
>> If you have any problems with the build let me know.
>>
>> Cheers,
>>
>> jez.
>>
>>
>>
>>
>> ------------------------------------------------------------------------------
>> Virtualization & Cloud Management Using Capacity Planning
>> Cloud computing makes use of virtualization - but cloud computing
>> also focuses on allowing computing to be delivered as a service.
>> http://www.accelacomm.com/jaw/sfnl/114/51521223/
>> _______________________________________________
>> Perl-Win32-GUI-Users mailing list
>> Per...@li...
>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>> http://perl-win32-gui.sourceforge.net/

Thanks Jeremy.
You were right about the repository.
I was able to to install the module with dmake - there were some error
messages but seem to work! In particular the Grid & axwindow seem to
need msvc instead.

Although I was able to install with dmake I could not get it to
generate a proper ppm distro.  For example when I typed
dmake ppd BINARY_LOCATION=Module.tar.gz

it generated the Win32-GUI.ppd but not the actual tar.gz file.  When I
looked in the ppd file the codebase href points to the
"Win32-GUI.tar.gz" which I assume is the same directly but I could not
find it anywhere.

I'm probably doing something very naive - any advice?

BTW: the nomenclature Win32::GUI in a 64 bit is kinda funny =)

Alex

On Fri, Feb 17, 2012 at 1:30 AM, Jeremy White <jez...@ho...> wrote:
>
>> Hi all:
>> does anyone have a PPM distribution (Win32::GUI) that can run on v
>> 5.14 64-bit? I tried creating this myself with the source 1.06 but so
>> far it is not working.
>
> I don't think there is a PPM for 64 bit. You should be able to build your
> own (using Mingw) but not from the source of 1.06, but from
> the sourceforge repository as fixes to build on 64 bit are committed there.
>
> If you have any problems with the build let me know.
>
> Cheers,
>
> jez.
>
>
>
>
> ------------------------------------------------------------------------------
> Virtualization & Cloud Management Using Capacity Planning
> Cloud computing makes use of virtualization - but cloud computing
> also focuses on allowing computing to be delivered as a service.
> http://www.accelacomm.com/jaw/sfnl/114/51521223/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

> Hi all:
> does anyone have a PPM distribution (Win32::GUI) that can run on v
> 5.14 64-bit?  I tried creating this myself with the source 1.06 but so
> far it is not working.

I don't think there is a PPM for 64 bit. You should be able to build your own (using Mingw) but not from the source of 1.06, but from the sourceforge repository as fixes to build on 64 bit are committed there.
If you have any problems with the build let me know.
Cheers,
jez.


 		 	   		  

Hi all:
does anyone have a PPM distribution (Win32::GUI) that can run on v
5.14 64-bit?  I tried creating this myself with the source 1.06 but so
far it is not working.

Thank you very much for your help in advance!
Alex

> I ask because I want to use a package method rather than a sub in main.
> Like you might say in Tk
> 
> $self->{window}->after(1000, sub { $myotherobject->timerhandler(); });


Have a look at the NEM (new event model) as it allows you to associate subs refs to events. It's also faster. 		 	   		  

Is there any way of overriding the default names for event subs? Eg if
I've created a timer named Tick, can I connect a sub with an arbitrary
name to the timer event instead of having to use Tick_Timer?

I ask because I want to use a package method rather than a sub in main.
Like you might say in Tk

$self->{window}->after(1000, sub { $myotherobject->timerhandler(); });




-- 
http://www.fastmail.fm - Access all of your messages and folders
                          wherever you are

Hi Richard

Yeah i have the same problem of returns nothing on a 64-bit system.

As i am new to this so i dont know how to build a development environment on a 64-bit machine 
with the 64-bit version of Perl and compile our executable against that

Thanks in advance

Regards
Ankit Gupta



________________________________
 From: Richard Hitchins <ric...@go...>
To: ankit gupta <ank...@ya...> 
Cc: ""per...@li..."" <per...@li...> 
Sent: Wednesday, 16 November 2011 5:20 PM
Subject: Re: [perl-win32-gui-users] Win 32 module of perl on 64 bit Application
 

Hi Ankit

When I run on a 32 Bit system the GetItemText returns the name correctly but returns nothing on a 64-bit system.  Is that the same problem you are having?

The problem may be that Win32::GuiTest has been compiled against the 32-bit version of Perl.

You could try building a development environment on a 64-bit machine with the 64-bit version of Perl and compile your executable against that.  That may fix the problem.

Let us know how you get on.

Richard


On Wed, Nov 16, 2011 at 10:32 AM, ankit gupta <ank...@ya...> wrote:

Hi Richard.
>
>
>I am using Win32::GuiTest Module.Right now m getting problem in GetItemText function of GUI Test module .Attaching module for your reference
>
>
>
>Thanks in Advance
>
>
>Regards
>Ankit Gupta
>
>
>
>
>
>
>________________________________
>From: Richard Hitchins <ric...@go...>
>To: ankit gupta <ank...@ya...>
>Cc: "per...@li..." <per...@li...>
>Sent: Wednesday, 16 November 2011 12:37 PM
>Subject: Re: [perl-win32-gui-users] Win 32 module of perl on 64 bit Application
>
>
>
>Hi Ankit
>
> What other packages are you using in your suite?  Do you get any error messages when you try and run it? Also which version of Perl are you using?
>
>Richard
>
>
>On Wed, Nov 16, 2011 at 5:19 AM, ankit gupta <ank...@ya...> wrote:
>
>Hi All,
>>
>>
>>I have designed the suite in Perl for testing our product.Its running fine when we run for 32 bit Application but its not working when we run it for 64 bit Application on 64 bit Machine.
>>
>>
>>
>>Please help me out in this ASAP.
>>
>>
>>
>>Thanks in Advance
>>
>>
>>Regards
>>Ankit Gupta
>>
>>------------------------------------------------------------------------------
>>RSA(R) Conference 2012
>>Save $700 by Nov 18
>>Register now
>>http://p.sf.net/sfu/rsa-sfdev2dev1
>>_______________________________________________
>>Perl-Win32-GUI-Users mailing list
>>Per...@li...
>>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>>http://perl-win32-gui.sourceforge.net/
>>
>
>
>

Hi Ankit

When I run on a 32 Bit system the GetItemText returns the name correctly
but returns nothing on a 64-bit system.  Is that the same problem you are
having?

The problem may be that Win32::GuiTest has been compiled against the 32-bit
version of Perl.

You could try building a development environment on a 64-bit machine with
the 64-bit version of Perl and compile your executable against that.  That
may fix the problem.

Let us know how you get on.

Richard

On Wed, Nov 16, 2011 at 10:32 AM, ankit gupta
<ank...@ya...>wrote:

> Hi Richard.
>
> I am using Win32::GuiTest Module.Right now m getting problem in
> GetItemText function of GUI Test module .Attaching module for your reference
>
> Thanks in Advance
>
> Regards
> Ankit Gupta
>
>
> ------------------------------
> *From:* Richard Hitchins <ric...@go...>
> *To:* ankit gupta <ank...@ya...>
> *Cc:* "per...@li..." <
> per...@li...>
> *Sent:* Wednesday, 16 November 2011 12:37 PM
> *Subject:* Re: [perl-win32-gui-users] Win 32 module of perl on 64 bit
> Application
>
> Hi Ankit
>
>  What other packages are you using in your suite?  Do you get any error
> messages when you try and run it? Also which version of Perl are you using?
>
> Richard
>
> On Wed, Nov 16, 2011 at 5:19 AM, ankit gupta <ank...@ya...
> > wrote:
>
> Hi All,
>
> I have designed the suite in Perl for testing our product.Its running fine
> when we run for 32 bit Application but its not working when we run it for
> 64 bit Application on 64 bit Machine.
>
> Please help me out in this ASAP.
>
> Thanks in Advance
>
> Regards
> Ankit Gupta
>
>
> ------------------------------------------------------------------------------
> RSA(R) Conference 2012
> Save $700 by Nov 18
> Register now
> http://p.sf.net/sfu/rsa-sfdev2dev1
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>
>
>
>
>

Hi Ankit

 What other packages are you using in your suite?  Do you get any error
messages when you try and run it? Also which version of Perl are you using?

Richard

On Wed, Nov 16, 2011 at 5:19 AM, ankit gupta
<ank...@ya...>wrote:

> Hi All,
>
> I have designed the suite in Perl for testing our product.Its running fine
> when we run for 32 bit Application but its not working when we run it for
> 64 bit Application on 64 bit Machine.
>
> Please help me out in this ASAP.
>
> Thanks in Advance
>
> Regards
> Ankit Gupta
>
>
> ------------------------------------------------------------------------------
> RSA(R) Conference 2012
> Save $700 by Nov 18
> Register now
> http://p.sf.net/sfu/rsa-sfdev2dev1
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>

Hi All,

I have designed the suite in Perl for testing our product.Its running fine when we run for 32 bit Application but its not working when we run it for 64 bit Application on 64 bit Machine.


Please help me out in this ASAP.


Thanks in Advance

Regards
Ankit Gupta

Can anyone explain how to use the ApproximateViewRect method of a ListView object? The docs for Win32::GUI don't really explain anything.

A quick google says that the API call  returns a "CSize" object.

This http://cpansearch.perl.org/src/ROBERTMAY/Win32-GUI-1.03/ListView.xs seems to indicate that the Win32::GUI method returns a DWORD.

Here's a bit of code that I tried which seems to return almost reasonable results:

                my $z = $lv->ApproximateViewRect(0,0);

                my $x = $z >> 16;
                my $y = $z & 0xffff;
                $lv->Resize($x, $y);


                $mw->Resize($lv->Width(), $lv->Height());

Ken Cornetet 812.482.8499
To err is human - to moo, bovine.

> -----Original Message-----
> From: Ryan Perry [mailto:rp...@re...] 
> Sent: 08 September 2011 19:24
> To: per...@li...
> Subject: [perl-win32-gui-users] Send text to another program
> 
> I'm from the UNIX world so I don't even know where to start 
> to find the answer to this question, I guess here.
> 
> I'd like to have a windows program that a user types a code 
> into, then it sends other text into another program as if it 
> had been typed on the keyboard.  Is that possible?

Hi Ryan

You could use Win32::GuiTest for this.

Kieron

I come from the unix world too, but Win32 is such a nice toy system 
with PERL that I find myself coding quite a bit on it.

give Win32::GUItest a shot you can get it at:
  http://search.cpan.org/~erngui/Win32-GuiTest-1.3/GuiTest.pm
It might do your trick.


On Thu, 8 Sep 2011 13:24:13 -0500, Ryan Perry wrote:
> I'm from the UNIX world so I don't even know where to start to find
> the answer to this question, I guess here.
>
> I'd like to have a windows program that a user types a code into,
> then it sends other text into another program as if it had been typed
> on the keyboard.  Is that possible?
>
> Thanks!

-- 
Angelos Karageorgiou
http://www.linkedin.com/in/unixgr

I'm from the UNIX world so I don't even know where to start to find the
answer to this question, I guess here.

I'd like to have a windows program that a user types a code into, then it
sends other text into another program as if it had been typed on the
keyboard.  Is that possible?

Thanks!

-- 
*Ryan Perry*

Hi Hongsheng,

I have had errors with nmake.
I found dmake from the mingw package works better.

Regards

Rob


From: yhsh327 [mailto:yh...@16...]
Sent: Monday, 8 August 2011 4:05 PM
To: per...@li...
Subject: [perl-win32-gui-users] need your help for win32 gui

Hi,

I am trying to use win32 gui in perl 5.12 version, so I need build source on perl 5.12, but I met some problems when doing "nmake", I want to know whether you still support this or not?
please could you reply this email if you can do this help?
I will provide more  details information after I got your reply.

thanks.
Hongsheng