Try playing about with the following (it won't work in version
.665 - and don't ask me how/why it works in .558!). I use it to draw
rectangles for widgets in a primitive but quite useful gui designer
that makes Perl do much of the work we all lo-o-o-ove to do manually.
vPerl it ain't, however! You
PeachTree Accounting is an application I find as an example that has
child window(s) within a main window. As the main window
Is moved, the child windows move along with it and remain in the same
relative position in the main window client area.
The scroll bars on the main window are hidden unti
Microsoft says you can use WS_OVERLAPPEDWINDOW combined with WS_VSCROLL
and WS_HSCROLL
To create a window that scrolls. I can not get this to work in
Win32::GUI.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Eric Hansen
Sent: Friday, November 22, 20
Can anyone tell me if scrolling capabilities (left/right, up/down) for a
window and dialogbox
Can easily be implemented or not in Win32::GUI perl.
Thanks,
Eric
This e-mail may be privileged and/or confidential, and the sender
I want to be able to track the mouse over a Graphic object. I tried to
follow the general outline of the mousemove.pl sample included with the
WIn32 module but I can't get it to work properly.
Has anyone been able to accomplish this?
Jonathan
I was looking on an API reference site for information on saving the Custom
Colors in the ChooseColor dialog. It appears it is only returning a single
value. When I use ChooseColor I initalize it with the current
color. $getcolor is what is returned (what I choose from the dialog
box). I wo
I used The Gui Loft to create a TabStip for various screens...
For some reason, a tab change using the arrow keys and/or tab key does NOT
execute the "sub TabStrip_Change".
A mouse click on a tab DOES execute the "sub TabStrip_Click".
Has anyone been able to get the tab change using the arrow
Pete,
You forgot the 'keys' in your foreach statement.
ie
foreach my $number (%countother)
should be
foreach my $number ( keys %countother)
otherwise the foreach loops through both keys and values.
Cheers,
Kev.
|-+>
|
At 09:38 2002-11-22 -0500, Peter Eisengrein wrote:
The script below outputs the correct $number (hash key) but for some
reason it also outputs the value. What gives?
-snip-
foreach my $number (%countother)
foreach my $number (keys %countother)
/J
-- --- -- -- -- --
Try this:
foreach my $number (keys %countother)
{
print "$number\n";
}
David
-Original Message-
From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
Sent: Friday, November 22, 2002 9:39 AM
To: Perl-Win32-Gui-Users (E-mail)
Subject: [perl-win32-gui-users] odd hash behavior
The
That's how it's supposed to act. If you don't want the value, change the
last 4 lines to this:
foreach my $number (keys %countother)
{
print "$number\n";
}
You need to specify keys if you don't want the value to also be printed.
Steve H.
-Original Message-
From: Peter Eise
I have just "upgraded" to a computer that is using XP SP1, and I installed
Perl 5.6.1 Build 633, and used PPM to install the current release of
Win32::GUI from ActiveState. The version number is 0.0.558.
Now, I can no longer get any of the Win32::GUI scripts to work, and cannot
make a new GUI pro
The script below outputs the correct $number (hash key) but for some reason
it also outputs the value. What gives?
-Pete
###
use strict;
my %countother;
print "File: ";
chomp(my $file=);
open(FILE,$file) || die "can't open file : $!\n";
foreach ()
{
chomp
Try :
use Win32 ();
use Win32::GUI;
>From my understanding, both of these modules export some of the same constant
>names and this causes a conflict. "using" Win32 with an empy list stops it
>from importing anything. This "should" fix it.
Joe Frazier, Jr.
Technical Support Engineer
Peoplec
At 08:33 2002-11-22 +0100, Jerome Martin wrote:
I'have installed Win32-GUI 0.0.665 under mi Win2000 with ActivePerl 5.6.1.
And got the following messages. What is the problem ?
c:\>perl
use Win32;
use Win32::GUI;
Prototype mismatch: sub main::MB_ICONEXCLAMATION () vs none at
C:/ActivePerl/lib
15 matches
Mail list logo
