perl-win32-gui-users Mailing List for Win32::GUI

use Win32::GUI;
my $file = "*.txt\0" . " " x 256;

my @files = GUI::GetOpenFileName(
-owner => $W,
-directory => "C:\\",
-title => "Create ASN File - Specify Output File",
-file => $file,
-multisel => 1,
);

print @files;

in 0.0.665 if you use multisel => 1 it will bring up an ugly 3.1 style box.
maybe this should be changed?

if you had been using warnings and/or strict you would have got the
following error: "my" variable $file masks earlier declaration in same
scope, because you declared $file twice. you should always use warnings if
not strict as well. instead of using -file => "*.txt"; you could use
-filter => "Text files" => "*.txt"; instead.

mark

I'm attempting to use Win32::GUI along with the
GetOpenFileName API call to open multiple files via
this GUI interface. I'm able to select one file with
the following Perl code, but I can't figure out how to
modify this code so that I can select multiple files
at one time. Thanks for any assistance offered:

#!perl

use Win32::GUI;
my $file = "*.txt\0" . " " x 256;

my $file = GUI::GetOpenFileName(
-owner => $W,
-directory => "C:\\",
-title => "Create ASN File - Specify Output File",
-file => $file,
);

print $file


__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com

G'day all,

Effectively, I just installed the latest version and all is working without
warning.

I was using the old version 0.0.502 (windows 2000, ActiveState perl 5.6.1),
because:

I followed the link at Perl.com:
	http://www.perl.com/cs/user/query/q/6?id_topic=3

	Which redirected me at:

	http://dada.perl.it/#gui

		Which install Win32::GUI 0.0.502 from the Personal PPM directory

There was effectively a warning in this page:

"this module is available on PPM for ActivePerl 5xx and higher (still old
version 0.0.502, will be updated ASAP). "

	I was a bit afraid of taking a version not in the "ppm repository" (at
http://dada.perl.it/PPM), altough the web page states clearly that the
latest version is 0.0.665.  I wrongly assumed that 0.0.6665. is not mature.

Thank you Peter and Mark!  Next time I will be more careful!


/Pascal Lagassé

Kösel GmbH & Co. KG - Über 400 Jahre Bücher mit System
Wartenseestraße 11 87435 Kempten
http://www.koeselbuch.de mailto:pla...@ko...

That worked.  Thanks Alan.

Jonathan


At 11/22/2002 10:46 PM, you wrote:

>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 may want to use $tracker->Hide() to hide
>the button until tracking is needed, when $tracker->Show() will "roll
>down the blind" and let you follow the mouse pointer around.
>
>$bclass = new Win32::GUI::Class(  # reveals _MouseMove events from button
>         -name => "bclass",
>         -extends => 'Button',
>         -widget => "Button",
>         );
>
># make an invisible button that covers the area of your graphic
># $x/$y/$w/$h are left/top/width/height of the graphic
>$tracker = $mainwin->AddButton (
>         -name,  'tracker',
>         -class, 'bclass',
>         -left,  $x,
>         -top,   $y,
>         -width, $w,
>         -height,  $h,
>         -pushstyle, 11 | 0x800 ,  # this makes an invisible button
>         );
>
>sub tracker_MouseMove {
>         my($mmx, $mmy) = Win32::GUI::GetCursorPos();
>         dostuff_with_coordinates();
>         }
>
>sub tracker->Click {
>         do_some_stuff();
>         $tracker->Hide();   # roll it up until it is needed
>         }
>
>This may also be of some use - I use it as part of a routine that
>shifts a desktop planner display back and forth. There is no need for
>subclassing, but I don't think it responds to _MouseMove.
>
># ($left, $top, $width, $height) = dimensions of your graphic object
>$clicker = new GUI::Button (
>         -name, 'clicker',
>         -parent, $Win,
>         -left, $left,
>         -top, $top,
>         -width, $width,
>         -height, $height,
>         -pushstyle, 11,
>         );
>
>sub clicker_Click {
>         my($mmx, $mmy) = Win32::GUI::GetCursorPos();
>         dostuff_with_coordinates();
>         }
>
>(Aldo, pretty please give us access to the message loop next time
>round!)
>
>Virlin

i tried it, it works fine. i'm using activeperl 5.6.1.633 on windows 98=
 and
win32::gui 0.0.665. the only problem i see is if you 'use strict' (whic=
h
you should) you'd need to change $Win2 =3D new..... to my $Win2 otherwi=
se
you'll get an error about a global symbol requiring an explicit package=

name.

which versions of what are you using? it might be worth getting the lat=
est
ones.


                                                                       =
                                             =20
                    "Pascal Lagasse"                                   =
                                             =20
                    <PLa...@Ko...>                      To:  =
                                             =20
                    Sent by:                                      <perl=
-wi...@li...>      =20
                    per...@li...urc        cc:  =
                                             =20
                    eforge.net                                    Subje=
ct:     [perl-win32-gui-users] Win32::GUI and=20
                                                                  Warni=
ngs                                          =20
                                                                       =
                                             =20
                    25/11/02 07:39 PM                                  =
                                             =20
                                                                       =
                                             =20
                                                                       =
                                             =20




G'day,

I found a piece of Code in the list.
Unfortunately, when I tried it, (although it works fine), I got warning=
s.

I am using always the switch -w (perl -w ... program name)

What I got  as warning is:

...
Use of uninitialized value in subroutine entry at wintest.pl line 54.
     (in cleanup) Can't call method "EXISTS" on an undefined value at
C:/Programme/Perl/site/lib/Win32/GUI.pm line 918 during global destruct=
ion.


The piece of Code that I found in the list is:
#----------------------------------------
use Win32::GUI;

my $i=3D0;=00
my $Win =3D new Win32::GUI::Window(
      -left   =3D> 341,
      -top    =3D> 218,
      -width  =3D> 300,
      -height =3D> 213,
      -name   =3D> "Win",
      -text   =3D> "Window Title"
      );



$Win->AddButton(
       -text    =3D> "Loop",
       -name    =3D> "Loop",
       -left    =3D> 104.5,
       -top     =3D> 102,
       -width   =3D> 95,
       -height  =3D> 28,
      );

$Win2 =3D new Win32::GUI::Window(
      -left   =3D> 391,
      -top    =3D> 238,
      -width  =3D> 200,
      -height =3D> 183,
      -name   =3D> "Win2",
      -title   =3D> "New Window",
      );

$Win2->AddLabel(
       -text    =3D> "",
       -name    =3D> "Label",
       -left    =3D> 60,
       -top     =3D> 30,
       -width   =3D> 20,
       -height  =3D> 20,
      );

$Win2->AddButton(
       -text    =3D> "OK",
       -name    =3D> "OK",
       -left    =3D> 50,
       -top     =3D> 102,
       -width   =3D> 95,
       -height  =3D> 28,
      );

$Win->Show();

Win32::GUI::Dialog();

sub Win_Terminate {
   return -1;
}

sub OK_Click {
   $Win2->Hide();
   $i++;
}

sub Loop_Click {
   &Show_Win2($i);

}

sub Show_Win2 {
   my $num =3D shift;

   $Win2->Label->Text($num);
   $Win2->Show();
   $Win2->Update();

}
#----------------------------------------

I did not found a FAQ, so I do not know what key-concepts I am missing.=

I am not able to find what is wrong in the program.

Can someone help me! Thank you very much!


/Pascal Lagass=E9

K=F6sel GmbH & Co. KG - =DCber 400 Jahre B=FCcher mit System
Wartenseestra=DFe 11 87435 Kempten
http://www.koeselbuch.de mailto:pla...@ko...




-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

=

G'day,

I found a piece of Code in the list.
Unfortunately, when I tried it, (although it works fine), I got warnings.

I am using always the switch -w (perl -w ... program name)

What I got  as warning is:

...
Use of uninitialized value in subroutine entry at wintest.pl line 54.
	(in cleanup) Can't call method "EXISTS" on an undefined value at
C:/Programme/Perl/site/lib/Win32/GUI.pm line 918 during global destruction.


The piece of Code that I found in the list is:
#----------------------------------------
use Win32::GUI;

my $i=0;

my $Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 213,
      -name   => "Win",
      -text   => "Window Title"
      );



$Win->AddButton(
       -text    => "Loop",
       -name    => "Loop",
       -left    => 104.5,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );

$Win2 = new Win32::GUI::Window(
      -left   => 391,
      -top    => 238,
      -width  => 200,
      -height => 183,
      -name   => "Win2",
      -title   => "New Window",
      );

$Win2->AddLabel(
       -text    => "",
       -name    => "Label",
       -left    => 60,
       -top     => 30,
       -width   => 20,
       -height  => 20,
      );

$Win2->AddButton(
       -text    => "OK",
       -name    => "OK",
       -left    => 50,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );

$Win->Show();

Win32::GUI::Dialog();

sub Win_Terminate {
   return -1;
}

sub OK_Click {
   $Win2->Hide();
   $i++;
}

sub Loop_Click {
   &Show_Win2($i);

}

sub Show_Win2 {
   my $num = shift;

   $Win2->Label->Text($num);
   $Win2->Show();
   $Win2->Update();

}
#----------------------------------------

I did not found a FAQ, so I do not know what key-concepts I am missing.
I am not able to find what is wrong in the program.

Can someone help me! Thank you very much!


/Pascal Lagassé

Kösel GmbH & Co. KG - Über 400 Jahre Bücher mit System
Wartenseestraße 11 87435 Kempten
http://www.koeselbuch.de mailto:pla...@ko...

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 may want to use $tracker->Hide() to hide
the button until tracking is needed, when $tracker->Show() will "roll
down the blind" and let you follow the mouse pointer around.

$bclass = new Win32::GUI::Class(  # reveals _MouseMove events from button
        -name => "bclass",
        -extends => 'Button',
        -widget => "Button",
        );

# make an invisible button that covers the area of your graphic
# $x/$y/$w/$h are left/top/width/height of the graphic
$tracker = $mainwin->AddButton (
        -name,  'tracker',
        -class, 'bclass',
        -left,  $x,
        -top,   $y,
        -width, $w,
        -height,  $h,
        -pushstyle, 11 | 0x800 ,  # this makes an invisible button
        );

sub tracker_MouseMove {
        my($mmx, $mmy) = Win32::GUI::GetCursorPos();
        dostuff_with_coordinates();
        }

sub tracker->Click {
        do_some_stuff();
        $tracker->Hide();   # roll it up until it is needed
        }

This may also be of some use - I use it as part of a routine that
shifts a desktop planner display back and forth. There is no need for
subclassing, but I don't think it responds to _MouseMove.

# ($left, $top, $width, $height) = dimensions of your graphic object
$clicker = new GUI::Button (
        -name, 'clicker',
        -parent, $Win,
        -left, $left,
        -top, $top,
        -width, $width,
        -height, $height,
        -pushstyle, 11,
        );

sub clicker_Click {
        my($mmx, $mmy) = Win32::GUI::GetCursorPos();
        dostuff_with_coordinates();
        }

(Aldo, pretty please give us access to the message loop next time
round!)

Virlin

>    1. MouseMove (Jonathan Southwick)
> Message: 1
> Date: Fri, 22 Nov 2002 13:07:22 -0500
> To: per...@li...
> From: Jonathan Southwick <jso...@al...>
> Subject: [perl-win32-gui-users] MouseMove


> 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

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 until you move a child
window (to some degree) so that it is partially hidden

 from the client area of the main window.=20

=20

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Eric Hansen
Sent: Friday, November 22, 2002 2:23 PM
To: 'Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)'
Subject: RE: [perl-win32-gui-users] Is this not a basic functionality
that has been overlooked?

=20

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.

=20

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Eric Hansen
Sent: Friday, November 22, 2002 1:39 PM
To: 'Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)'
Subject: [perl-win32-gui-users] Is this not a basic functionality that
has been overlooked?

=20

Can anyone tell me if scrolling capabilities (left/right, up/down) for a
window and dialogbox=20

Can easily be implemented or not in Win32::GUI perl.=20

=20

Thanks,

Eric=20

=20

------------------------------------------------------------
This e-mail may be privileged and/or confidential, and the sender does
not waive any related rights and obligations. Any distribution, use or
copying of this e-mail or the information it contains by other than an
intended recipient is unauthorized. If you received this e-mail in
error, please advise me (by return e-mail or otherwise) immediately.=20

Ce courriel est confidentiel et prot=E9g=E9. L'exp=E9diteur ne renonce =
pas aux
droits et obligations qui s'y rapportent. Toute diffusion, utilisation
ou copie de ce message ou des renseignements qu'il contient par une
personne autre que le (les) destinataire(s) d=E9sign=E9(s) est =
interdite. Si
vous recevez ce courriel par erreur, veuillez m'en aviser =
imm=E9diatement,
par retour de courriel ou par un autre moyen.=20


=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=20

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.

=20

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Eric Hansen
Sent: Friday, November 22, 2002 1:39 PM
To: 'Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)'
Subject: [perl-win32-gui-users] Is this not a basic functionality that
has been overlooked?

=20

Can anyone tell me if scrolling capabilities (left/right, up/down) for a
window and dialogbox=20

Can easily be implemented or not in Win32::GUI perl.=20

=20

Thanks,

Eric=20

=20

------------------------------------------------------------
This e-mail may be privileged and/or confidential, and the sender does
not waive any related rights and obligations. Any distribution, use or
copying of this e-mail or the information it contains by other than an
intended recipient is unauthorized. If you received this e-mail in
error, please advise me (by return e-mail or otherwise) immediately.=20

Ce courriel est confidentiel et prot=E9g=E9. L'exp=E9diteur ne renonce =
pas aux
droits et obligations qui s'y rapportent. Toute diffusion, utilisation
ou copie de ce message ou des renseignements qu'il contient par une
personne autre que le (les) destinataire(s) d=E9sign=E9(s) est =
interdite. Si
vous recevez ce courriel par erreur, veuillez m'en aviser =
imm=E9diatement,
par retour de courriel ou par un autre moyen.=20


=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=20

Can anyone tell me if scrolling capabilities (left/right, up/down) for a
window and dialogbox=20

Can easily be implemented or not in Win32::GUI perl.=20

=20

Thanks,

Eric=20

=20

------------------------------------------------------------
This e-mail may be privileged and/or confidential, and the sender does
not waive any related rights and obligations. Any distribution, use or
copying of this e-mail or the information it contains by other than an
intended recipient is unauthorized. If you received this e-mail in
error, please advise me (by return e-mail or otherwise) immediately.=20

Ce courriel est confidentiel et prot=E9g=E9. L'exp=E9diteur ne renonce =
pas aux
droits et obligations qui s'y rapportent. Toute diffusion, utilisation
ou copie de ce message ou des renseignements qu'il contient par une
personne autre que le (les) destinataire(s) d=E9sign=E9(s) est =
interdite. Si
vous recevez ce courriel par erreur, veuillez m'en aviser =
imm=E9diatement,
par retour de courriel ou par un autre moyen.=20


=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=20

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 would like to be able to store any custom colors that are 
defined.  Is there a way to do this?  I couldn't figure it out form the API 
reference.  Here is my code:

sub BarPlotColor_Click {
   my ($getcolor) = $MainWindow->ChooseColor(-color => $pcolorBar);
   if ($getcolor) {
     $pcolorBar = $getcolor;
   }
   GraphWork_Paint;
   return;
}

Also, the dialog box always is placed at (0,0).  Can this be changed?

Jonathan

I used The Gui Loft to create a TabStip for various screens...

=46or 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 keys to work from
a .gld file?

Any thoughts would be greatly appreciated.

Thanks,
Angelo ;)




------------------------------------------------------------
This e-mail may be privileged and/or confidential, and the sender does not waive any related rights and obligations. Any distribution, use or copying of this e-mail or the information it contains by other than an intended recipient is unauthorized. If you received this e-mail in error, please advise me (by return e-mail or otherwise) immediately.=20

Ce courriel est confidentiel et prot=E9g=E9. L'exp=E9diteur ne renonce pas aux droits et obligations qui s'y rapportent. Toute diffusion, utilisation ou copie de ce message ou des renseignements qu'il contient par une personne autre que le (les) destinataire(s) d=E9sign=E9(s) est interdite. Si vous recevez ce courriel par erreur, veuillez m'en aviser imm=E9diatement, par retour de courriel ou par un autre moyen.=20


=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=20

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.



|---------+------------------------------------------------>
|         |           Peter Eisengrein                     |
|         |           <Pet...@at...>           |
|         |           Sent by:                             |
|         |           per...@li...ur|
|         |           ceforge.net                          |
|         |                                                |
|         |                                                |
|         |           22/11/2002 14:38                     |
|         |                                                |
|---------+------------------------------------------------>
  >--------------------------------------------------------------------=
--------------------------|
  |                                                                    =
                          |
  |       To:       "Perl-Win32-Gui-Users (E-mail)" <perl-win32-gui-use=
rs...@li...> |
  |       cc:                                                          =
                          |
  |       Subject:  [perl-win32-gui-users] odd hash behavior           =
                          |
  >--------------------------------------------------------------------=
--------------------------|






The script below outputs the correct $number (hash key) but for some re=
ason
it also outputs the value. What gives?

-Pete

###############################

use strict;

my %countother;

print "File: ";
chomp(my $file=3D<STDIN>);

open(FILE,$file) || die "can't open file : $!\n";

foreach (<FILE>)
{
=A0=A0=A0=A0=A0=A0=A0 chomp($_);
=A0=A0=A0=A0=A0=A0=A0 my @line =3D split(/\,/,$_);
=A0=A0=A0=A0=A0=A0=A0 my ($number) =3D $line[8] =3D~ /\"(.*)\"/;
=A0=A0=A0=A0=A0=A0=A0 $countother{$number}++;
}
close(FILE);

my $count =3D keys %countother;

print "Total of $count numbers used in ~ 1 week.\n";
print "*****************************************************\n";
print "NUMBER=A0=A0 =A0=A0=A0=A0=A0=A0=A0 CALLS\n";

foreach my $number (%countother)
{
=A0=A0=A0=A0=A0=A0=A0 print "$number\n";
}


=

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

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "O'Reilly Network Patterns, Hype, and Snobbery..."
http://www.oreillynet.com/pub/wlg/2341
dmoz: ...mming/Methodologies/Patterns_and_Anti-Patterns/ 164

Try this:

foreach my $number (keys %countother) 
{ 
        print "$number\n"; 
} 

David

-----Original Message-----
From: Peter Eisengrein [mailto:Pet...@at...]
Sent: Friday, November 22, 2002 9:39 AM
To: Perl-Win32-Gui-Users (E-mail)
Subject: [perl-win32-gui-users] odd hash behavior



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=<STDIN>); 

open(FILE,$file) || die "can't open file : $!\n"; 

foreach (<FILE>) 
{ 
        chomp($_); 
        my @line = split(/\,/,$_); 
        my ($number) = $line[8] =~ /\"(.*)\"/; 
        $countother{$number}++; 
} 
close(FILE); 


my $count = keys %countother; 

print "Total of $count numbers used in ~ 1 week.\n"; 
print "*****************************************************\n"; 
print "NUMBER           CALLS\n"; 

foreach my $number (%countother) 
{ 
        print "$number\n"; 
} 

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 Eisengrein [mailto:Pet...@at...] 
Sent: Friday, November 22, 2002 6:39 AM
To: Perl-Win32-Gui-Users (E-mail)
Subject: [perl-win32-gui-users] odd hash behavior
 
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=<STDIN>); 
open(FILE,$file) || die "can't open file : $!\n"; 
foreach (<FILE>) 
{ 
        chomp($_); 
        my @line = split(/\,/,$_); 
        my ($number) = $line[8] =~ /\"(.*)\"/; 
        $countother{$number}++; 
} 
close(FILE); 
 
my $count = keys %countother; 
print "Total of $count numbers used in ~ 1 week.\n"; 
print "*****************************************************\n"; 
print "NUMBER           CALLS\n"; 
foreach my $number (%countother) 
{ 
        print "$number\n"; 
} 
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

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 program work. The errors I get are below my Sig block.
 
What else did/do I need to do to make these scripts work in the new
configuration?
 
Line 7 from the scrip that is referred to in all the error messages is this:
 
use Win32::GUI;
 
 
Steve H.
 
 
C:\Program Files\Perl Builder2>xlReport.pl
Prototype mismatch: sub main::MB_ICONEXCLAMATION () vs none at
C:/Perl/lib/Expor
ter.pm line 57.
        Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AU
TORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT',
 ...) called at C:\Program Files\Perl Builder2\xlReport.pl line 7
        main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 7
        eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 7
Prototype mismatch: sub main::MB_ICONWARNING () vs none at
C:/Perl/lib/Exporter.
pm line 57.
        Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AU
TORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT',
 ...) called at C:\Program Files\Perl Builder2\xlReport.pl line 7
        main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 7
        eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 7
Prototype mismatch: sub main::MB_ICONINFORMATION () vs none at
C:/Perl/lib/Expor
ter.pm line 57.
        Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AU
TORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT',
 ...) called at C:\Program Files\Perl Builder2\xlReport.pl line 7
        main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 7
        eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 7
Prototype mismatch: sub main::MB_ICONASTERISK () vs none at
C:/Perl/lib/Exporter
.pm line 57.
        Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AU
TORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT',
 ...) called at C:\Program Files\Perl Builder2\xlReport.pl line 7
        main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 7
        eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 7
Prototype mismatch: sub main::MB_ICONQUESTION () vs none at
C:/Perl/lib/Exporter
.pm line 57.
        Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AU
TORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT',
 ...) called at C:\Program Files\Perl Builder2\xlReport.pl line 7
        main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 7
        eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 7
Prototype mismatch: sub main::MB_ICONSTOP () vs none at
C:/Perl/lib/Exporter.pm
line 57.
        Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AU
TORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT',
 ...) called at C:\Program Files\Perl Builder2\xlReport.pl line 7
        main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 7
        eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 7
Prototype mismatch: sub main::MB_ICONERROR () vs none at
C:/Perl/lib/Exporter.pm
 line 57.
        Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AU
TORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT',
 ...) called at C:\Program Files\Perl Builder2\xlReport.pl line 7
        main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 7
        eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 7
Prototype mismatch: sub main::MB_ICONHAND () vs none at
C:/Perl/lib/Exporter.pm
line 57.
        Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AU
TORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT',
 ...) called at C:\Program Files\Perl Builder2\xlReport.pl line 7
        main::BEGIN() called at C:/Perl/site/lib/Win32/GUI.pm line 7
        eval {...} called at C:/Perl/site/lib/Win32/GUI.pm line 7
Undefined subroutine &main::myUi called at C:\Program Files\Perl
Builder2\xlRepo
rt.pl line 16.
 
C:\Program Files\Perl Builder2>
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

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=<STDIN>);

open(FILE,$file) || die "can't open file : $!\n";

foreach (<FILE>)
{
	chomp($_);
	my @line = split(/\,/,$_);
	my ($number) = $line[8] =~ /\"(.*)\"/;
	$countother{$number}++;
}
close(FILE);


my $count = keys %countother;

print "Total of $count numbers used in ~ 1 week.\n";
print "*****************************************************\n";
print "NUMBER		CALLS\n";

foreach my $number (%countother)
{
	print "$number\n";
}

Try :
use Win32 ();
use Win32::GUI;
=20
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. =20

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:su...@pe...


-----Original Message-----
From: Jerome Martin [mailto:jer...@al...]
Sent: Friday, November 22, 2002 2:34 AM
To: 'per...@li....'
Subject: [perl-win32-gui-users] Error using Win32::GUI module


Hi,
=20
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 ?
=20
=20
c:\>perl=20
use Win32;
use Win32::GUI;
Prototype mismatch: sub main::MB_ICONEXCLAMATION () vs none at =
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX', =
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX', =
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONWARNING () vs none at =
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX', =
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX', =
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONINFORMATION () vs none at =
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX', =
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX', =
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONASTERISK () vs none at =
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX', =
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX', =
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONQUESTION () vs none at =
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX', =
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX', =
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONSTOP () vs none at =
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX', =
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX', =
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONERROR () vs none at =
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX', =
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX', =
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONHAND () vs none at =
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX', =
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX', =
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2

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/Exporter.pm line 57.

It's a clash between Win32 and Win32::GUI that appeared in Perl 5.6.1 I 
think. Either Perl broke something, or the Win32 changed. I suspect the latter.

use Win32 ();

will solve the problem. The effect of the () is that no symbols are 
imported from the Win32 module. If you still need some of them, specify 
them as

use Win32 qw( MY_SYMBOL );


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "O'Reilly Network Patterns, Hype, and Snobbery..."
http://www.oreillynet.com/pub/wlg/2341
dmoz: ...mming/Methodologies/Patterns_and_Anti-Patterns/ 164

Hi,
 
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/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONWARNING () vs none at
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONINFORMATION () vs none at
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONASTERISK () vs none at
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONQUESTION () vs none at
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONSTOP () vs none at
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONERROR () vs none at
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
Prototype mismatch: sub main::MB_ICONHAND () vs none at
C:/ActivePerl/lib/Exporter.pm line 57.
 Exporter::import('BS_3STATE', 'BS_AUTO3STATE', 'BS_AUTOCHECKBOX',
'BS_AUTORADIOBUTTON', 'BS_CHECKBOX', 'BS_DEFPUSHBUTTON', 'BS_GROUPBOX',
'BS_LEFTTEXT', ...) called at - line 2
 main::BEGIN() called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2
 eval {...} called at C:/ActivePerl/site/lib/Win32/GUI.pm line 2

I can't seem to get a window or dialogbox to scroll??
  
I can get scroll bars to APPEAR using -addstyle => WS_VSCROLL |
WS_HSCROLL
But they provide no functionality? 

I want to split my application main window in half and display a 2nd
window
in the top half and a 3rd window in the bottom half.
  
These 2 child windows or dialogboxes will have their own set of widgets.

Window2 will display data record DETAILS in a scrolling window.
This top window will need to be scrollable so that the user can get at
all the Textfields, to see and edit them. 

Window3 will contain a ListView control showing record summaries as a 
    scrollable datasheet (rows/columns).

When the user selects a single ListView row, the details will show in
the
Top half of the screen in Textfields, and can be edited. The user can
edit the data and click a SAVE Button which will refresh the contents of
the selected ListView row.  Menu option SaveExit can be chosen so that
the
"touched" records will be updated in the database. Menu Option Exit can
be
used to exit without saving any of the changes. 
 
Help!

Hello listers!

I would like to display extended unicode characters inside a RichEdit
control. I found out that I can type unicode in the RichEdit field by
entering the character number on the keyboard. But it seems to me that the
Text(), Load(), Save(), etc. functions of Win32::GUI's RichEdit control just
work with the 0 to 255 ANSI characters and not with unicode. Is there a way
to get these functions to work with extended unicode characters? Or am I
mistaken somewhere?

I am currently using ActivePerl 5.8 B1 and Win32::GUI 0.0.558.

Thanks for advice!

Regards,

  Christian

You might want to check your processes running under task manager after
you exit your script that runs choosecolor. I always have to kill the
process manually.


-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Jonathan Southwick
Sent: Tuesday, November 19, 2002 12:58 PM
To: per...@li...
Subject: [perl-win32-gui-users] ChooseColor() part 2


Is there anyway to make the Custom Colors that are defined in
ChooseColor() 
stick?  When I define a Custom Color it doesn't stick for the next time
i 
bring the ChooseColor() dialog.


Jonathan



-------------------------------------------------------
This sf.net email is sponsored by: To learn the basics of securing 
your web site with SSL, click here to get a FREE TRIAL of a Thawte 
Server Certificate: http://www.gothawte.com/rd524.html
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users