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

RE: [perl-win32-gui-users] need subroutine to run when Window get s focus

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

Not sure of the exact syntax but it would be something like:

if ($Window->GetFocus())
{
	&do_something;
}



> -----Original Message-----
> From: Jonathan Southwick [mailto:jso...@al...]
> Sent: Wednesday, November 13, 2002 11:45
> To: per...@li...
> Subject: [perl-win32-gui-users] need subroutine to run when 
> Window gets
> focus
> 
> 
> 
> Is there any way to get a routine to run when a window is 
> brought to the 
> top or receives focus?  That seems to be the only way I can 
> get a DC object 
> to refresh after it is covered by another window.
> 
> Jonathan
> 
> 
> 
> -------------------------------------------------------
> This sf.net email is sponsored by: Are you worried about 
> your web server security? Click here for a FREE Thawte 
> Apache SSL Guide and answer your Apache SSL security 
> needs: http://www.gothawte.com/rd523.html
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] need subroutine to run when Window gets focus

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

Is there any way to get a routine to run when a window is brought to the 
top or receives focus?  That seems to be the only way I can get a DC object 
to refresh after it is covered by another window.

Jonathan

[perl-win32-gui-users] RE: Systray application

[Anufriyenko,Igor,SOLON,ITSS <igo...@us...>]

I should have looked into NIcon documentation before asking about
RightCLick.
However, here is interesting behavior:


sub NI_RightClick {
   system("start /max  http://localhost");	    #activated only when
exiting PL script 
   my $command = qx 'net send anufrii Right Click'; #works immediately, but
is not executed in this combination after system   

                                                    # call to IE
        1;
    }
I have tried qx and system, but IE shows up only after exiting main script.
Ideas?

       Igor Anufriyenko
 Original message:
======================================================================     
Message: 2
From: "Anufriyenko,Igor,SOLON,ITSS" <igo...@us...>
To: "'per...@li...'"
	 <per...@li...>
Date: Fri, 8 Nov 2002 10:07:41 -0800 
Subject: [perl-win32-gui-users] Systray application

	Hello All,

	Is there a way to add a context menu to the Notify Icon?
	I have a mini application which should have system tray icon and
instead of maximizing main window, I would rather get a context menu for it.
	Also, does Notify Icon recognize Right Click event?

	Thank you,


       Igor Anufriyenko
End of Perl-Win32-GUI-Users Digest

[perl-win32-gui-users] Systray application

[Anufriyenko,Igor,SOLON,ITSS <igo...@us...>]

	Hello All,

	Is there a way to add a context menu to the Notify Icon?
	I have a mini application which should have system tray icon and
instead of maximizing main window, I would rather get a context menu for it.
	Also, does Notify Icon recognize Right Click event?

	Thank you,


       Igor Anufriyenko
       

Re: [perl-win32-gui-users] Richedit selected text

[<Kev...@al...>]

Joe,

Something like

             my ($x, $y) = $RE->Selection();

should do it.   $x and $y will be the character positions of the
selection, the whole text in the richedit being treated as a
single long string.  If you want to find out line numbers you
can use

      my $line1=$RE->LineFromChar($x);
      my $line2=$RE->LineFromChar($y);

Cheers,

Kev.



|---------+------------------------------------------------>
|         |           Jos...@co... |
|         |           Sent by:                             |
|         |           per...@li...ur|
|         |           ceforge.net                          |
|         |                                                |
|         |                                                |
|         |           07/11/2002 18:01                     |
|         |                                                |
|---------+------------------------------------------------>
  >----------------------------------------------------------------------------------------------|
  |                                                                                              |
  |       To:       per...@li...                                   |
  |       cc:                                                                                    |
  |       Subject:  [perl-win32-gui-users] Richedit selected text                                |
  >----------------------------------------------------------------------------------------------|




Hello,

I know that if you have some text selected in Richedit you can get the
start and end position but how to you get the actuall text that is
selected?

Thanks,

Joe






-------------------------------------------------------
This sf.net email is sponsored by: See the NEW Palm
Tungsten T handheld. Power & Color in a compact size!
http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0001en
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] "Number" and "Case" TEXTFIELDS

[Aldo C. <da...@pe...>]

Johan Lindstrom wrote:
> The bug report (or feature request if this is the indtended behaviour):
> The options passed to Add****() methods seems to be, at some point, treated 
> as a hash, not as an array, i.e. two entries with -addstyle will clobber 
> each other.

this is indeed a bug. it doesn't happen with other controls, just
Textfield shows this behaviour. this was introduced by the support for
the "-prompt" option. it will be solved in the next release of
Win32::GUI. thank you very much!


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Re: [perl-win32-gui-users] "Number" and "Case" TEXTFIELDS

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

At 21:06 2002-11-06 +0100, Johan Lindstrom wrote:
>That's my bug fix, i.e. summing the -addstyle values into one value.
>
>New version of TGL in a few minutes, I'll just document a new feature first.

...for large values of minutes. But here we go: r2002-11-06 -- v0.16


Release theme: Do it yourself!

A new feature added and an old bug removed.

In an e-mail conversation Michael Alaly had this great idea: why not 
specifying the properties of a control in data files instead of hardcoding 
them in each control class? That way, anyone could add the properties they 
missed (The GUI Loft is build in a way that this would actually work).

I did that--with bells on, by reversing the entire idea :)  Instead of 
putting data outside of the program to influence the code, I made it 
possible to put code outside of the program. After all, why parse a config 
file when I can have Perl itself do it for me?

Also, lacking a decent test suit to do regression testing (me baaad), a bug 
crept in which disabled some properties under certain circumstances. Fixed.


 From the Changes file:

* New feature: Custom Perl code when running the binary distro. This makes 
it possible to add your own properties if they aren't implemented in TGL 
(if they are simple enough). Read more: Programmer's Reference..Custom 
properties.

* Bug fixed: Only one property will have effect if two or more control 
properties that use -addstyle or -remstyle are enabled in one control. This 
affects e.g. Textfield..Number and Textfield..Case.


Download here:
http://www.bahnhof.se/~johanl/perl/Loft/

[As always: Remember to upgrade the PPM modules before you try to run demos
or build your own windows.]


/J

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

Latest bookmark: "BASTET.COM - free Win32 software."
http://www.bastet.com/software/software.html
dmoz: /Computers/Software/Operating_Systems/Windows/ 114

RE: [perl-win32-gui-users] "Number" and "Case" TEXTFIELDS

[Eric H. <eri...@ch...>]

Sub Textfield_Change {
    my $text=3D$Textfield->Text();
    $text=3Duc($text);     # uc uppercase function, or lc lowercase
function
    $Textfield->Text($text);
}=20

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Johan Lindstrom
Sent: Wednesday, November 06, 2002 1:41 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] "Number" and "Case" TEXTFIELDS

At 10:49 2002-11-06 -0500, Magnone, Angelo wrote:
>Has anyone had any luck getting the "Number" and "Case" fields to work=20
>using The GUI Loft?
>
>Is there any way to "force" a TEXTFIELD to upper case?
>Is there any way to "force" a TEXTFIELD to numbers only?

Here's a workaround for you (until I fix the bug in TGL) and a bug
report=20
for Aldo:

The workaround:
If you disable Wantreturn for your Textfield, the Numbers stuff will
start=20
working.

The explanation:
The Numbers property of a Textfield is implemented in TGL as -addstyle
=3D>=20
0x2000. The default settings for a Textfield in TGL is "Wantreturn",
which=20
is also implemented with an -addstyle. These two clash.

The bug report (or feature request if this is the indtended behaviour):
The options passed to Add****() methods seems to be, at some point,
treated=20
as a hash, not as an array, i.e. two entries with -addstyle will clobber

each other.


Test case below. Uncomment the second -addstyle to see the numbers
option=20
fail. Fails for 0.0.558.

#!/usr/local/bin/perl -w
use strict;
use Win32::GUI;

my $winMain =3D new Win32::GUI::Window(
         -left   =3D> 13,
         -top    =3D> 32,
         -width  =3D> 439,
         -height =3D> 260,
         -name   =3D> "winMain",
         -text   =3D> "-addstyle demo",
         );

$winMain->AddTextfield(
                 -text    =3D> "tfTest",
                 -name    =3D> "tfTest",
                 -left    =3D> 0,
                 -top     =3D> 0,
                 -width   =3D> 400,
                 -height  =3D> 22,
         -addstyle =3D> 0x2000,
#        -addstyle =3D> 4096,
             );

$winMain->Show();
Win32::GUI::Dialog();
__END__


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "BASTET.COM - free Win32 software."
http://www.bastet.com/software/software.html
dmoz: /Computers/Software/Operating_Systems/Windows/ 114




-------------------------------------------------------
This sf.net email is sponsored by: See the NEW Palm=20
Tungsten T handheld. Power & Color in a compact size!
http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0001en
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] "Number" and "Case" TEXTFIELDS

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

At 13:55 2002-11-06 -0600, Scott Carr wrote:
>What if you use:
>
>-addstyle => 0x3000

That's my bug fix, i.e. summing the -addstyle values into one value.

New version of TGL in a few minutes, I'll just document a new feature first.


/J

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

Latest bookmark: "BASTET.COM - free Win32 software."
http://www.bastet.com/software/software.html
dmoz: /Computers/Software/Operating_Systems/Windows/ 114

Re: [perl-win32-gui-users] "Number" and "Case" TEXTFIELDS

[Scott C. <sc...@pr...>]

What if you use:

-addstyle => 0x3000

? 
Scott Carr
Documentation Maintainer
OpenOffice.org


Quoting Johan Lindstrom <jo...@ba...>:

> At 10:49 2002-11-06 -0500, Magnone, Angelo wrote:
> >Has anyone had any luck getting the "Number" and "Case" fields to work
> >using The GUI Loft?
> >
> >Is there any way to "force" a TEXTFIELD to upper case?
> >Is there any way to "force" a TEXTFIELD to numbers only?
> 
> Here's a workaround for you (until I fix the bug in TGL) and a bug report
> for Aldo:
> 
> The workaround:
> If you disable Wantreturn for your Textfield, the Numbers stuff will start
> working.
> 
> The explanation:
> The Numbers property of a Textfield is implemented in TGL as -addstyle =>
> 0x2000. The default settings for a Textfield in TGL is "Wantreturn", which
> is also implemented with an -addstyle. These two clash.
> 
> The bug report (or feature request if this is the indtended behaviour):
> The options passed to Add****() methods seems to be, at some point, treated
> as a hash, not as an array, i.e. two entries with -addstyle will clobber
> each other.
> 
> 
> Test case below. Uncomment the second -addstyle to see the numbers option
> fail. Fails for 0.0.558.
> 
> #!/usr/local/bin/perl -w
> use strict;
> use Win32::GUI;
> 
> my $winMain = new Win32::GUI::Window(
>          -left   => 13,
>          -top    => 32,
>          -width  => 439,
>          -height => 260,
>          -name   => "winMain",
>          -text   => "-addstyle demo",
>          );
> 
> $winMain->AddTextfield(
>                  -text    => "tfTest",
>                  -name    => "tfTest",
>                  -left    => 0,
>                  -top     => 0,
>                  -width   => 400,
>                  -height  => 22,
>          -addstyle => 0x2000,
> #        -addstyle => 4096,
>              );
> 
> $winMain->Show();
> Win32::GUI::Dialog();
> __END__
> 
> 
> /J
> 
> -------- ------ ---- --- -- --  --  -    -     -      -         -
> Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...
> 
> Latest bookmark: "BASTET.COM - free Win32 software."
> http://www.bastet.com/software/software.html
> dmoz: /Computers/Software/Operating_Systems/Windows/ 114
> 
> 
> 
> 
> -------------------------------------------------------
> This sf.net email is sponsored by: See the NEW Palm
> Tungsten T handheld. Power & Color in a compact size!
> http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0001en
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 


-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/

Re: [perl-win32-gui-users] "Number" and "Case" TEXTFIELDS

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

At 10:49 2002-11-06 -0500, Magnone, Angelo wrote:
>Has anyone had any luck getting the "Number" and "Case" fields to work 
>using The GUI Loft?
>
>Is there any way to "force" a TEXTFIELD to upper case?
>Is there any way to "force" a TEXTFIELD to numbers only?

Here's a workaround for you (until I fix the bug in TGL) and a bug report 
for Aldo:

The workaround:
If you disable Wantreturn for your Textfield, the Numbers stuff will start 
working.

The explanation:
The Numbers property of a Textfield is implemented in TGL as -addstyle => 
0x2000. The default settings for a Textfield in TGL is "Wantreturn", which 
is also implemented with an -addstyle. These two clash.

The bug report (or feature request if this is the indtended behaviour):
The options passed to Add****() methods seems to be, at some point, treated 
as a hash, not as an array, i.e. two entries with -addstyle will clobber 
each other.


Test case below. Uncomment the second -addstyle to see the numbers option 
fail. Fails for 0.0.558.

#!/usr/local/bin/perl -w
use strict;
use Win32::GUI;

my $winMain = new Win32::GUI::Window(
         -left   => 13,
         -top    => 32,
         -width  => 439,
         -height => 260,
         -name   => "winMain",
         -text   => "-addstyle demo",
         );

$winMain->AddTextfield(
                 -text    => "tfTest",
                 -name    => "tfTest",
                 -left    => 0,
                 -top     => 0,
                 -width   => 400,
                 -height  => 22,
         -addstyle => 0x2000,
#        -addstyle => 4096,
             );

$winMain->Show();
Win32::GUI::Dialog();
__END__


/J

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

Latest bookmark: "BASTET.COM - free Win32 software."
http://www.bastet.com/software/software.html
dmoz: /Computers/Software/Operating_Systems/Windows/ 114

[perl-win32-gui-users] Richedit text

[<Jos...@co...>]

Hello,

I know that if you have some text selected in Richedit you can get the
start and end position but how to you get the actuall text that is
selected?

Thanks,

Joe

[perl-win32-gui-users] "Number" and "Case" TEXTFIELDS

[Magnone, A. <ang...@rb...>]

Has anyone had any luck getting the "Number" and "Case" fields to work using
The GUI Loft?

Is there any way to "force" a TEXTFIELD to upper case?
Is there any way to "force" a TEXTFIELD to numbers only?

Thanks ;)



------------------------------------------------------------
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

[perl-win32-gui-users] Re: Disabling the x in a window.

[Scott C. <sc...@pr...>]

Hide the console window...

It was a question I had asked recently.

my ($DOS) = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);

-- 
Scott Carr
OpenOffice.org
Documentation Maintainer
http://documentation.openoffice.org/


Quoting Beckett Richard-qswi266 <Ric...@mo...>:

> Hi folks,
> 
> I have been trawling Google looking for a solution, and I thought I'd found
> it, but for the life of me I can't get it to work, yet it seems a common
> answer to the question...
> 
> When I start my script, I use the original dos window as a console window,
> and create a GUI using Tk.
> 
> I want to disable the X in the corner of the console window, so that the
> user has to exit the program correctly from the GUI.
> 
> Here's what I have...
> =-=-=-
> # DEFINE THE REQUIRED MODULES
> use strict;
> use warnings;
> use Win32::GUI;
> 
> # Open the console window after it minimises (can't stop minimise)
> # Do it now, because there's a long pause on slower machines otherwise.
> my $perlwin = Win32::GUI::GetPerlWindow();
> Win32::GUI::OpenIcon($perlwin);
> Win32::GUI::Move($perlwin, 0, 0);
> print "Loading, please wait for the GUI window...\n";
> 
> # Define rest of modules.
> use Net::FTP;
> use Net::Cmd;
> use Time::HiRes qw( usleep gettimeofday tv_interval );
> use Win32::OLE qw(in with);
> use Win32::OLE::Const 'Microsoft Excel';
> use Win32::OLE::Variant;
> use Win32::OLE::NLS qw(:LOCALE :DATE);
> $Win32::OLE::Warn = 0; # I'll handle errors myself!
> use Cwd;
> use Win32::Console;
> use Tk;
> use Tk::Menu;
> use Tk::Widget;
> use TK::DialogBox;
> use Tk::ErrorDialog;
> 
> $perlwin = Win32::GUI::GetPerlWindow();
> $perlwin->protocol('WM_DELETE_WINDOW' => sub{});
> 
> When this runs, I get the follwing error:
> 
> Loading, please wait for the GUI window...
> Can't call method "protocol" without a package or object reference at
> multi-ftp-v31.pl line 39.
> 
> I really don't know what I'm doing wrong, and it's driving me knuts!
> 
> Thanks.
> 
> R.
> _______________________________________________
> Perl-Win32-Users mailing list
> Per...@li...
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> 


-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/

[perl-win32-gui-users] error running tests

[<ma...@mm...>]

hi. i was having problems running a program under 95b on a clients computer
so i perlapped up 01_basic.t and ran it on their computer and it got the
following error message.

Can't load 'auto/Win32/GUI/GUI.dll' for module Win32::GUI: load_fil
e:One of the
library files needed to run this application cannot be found at /Pe
rlApp/DynaLoa
der.pm line 212.
BEGIN failed--compilation aborted at test.pl line 2.

i assume this means that either a dll is missing or i've become a victim of
dll hell. is it possible to tell which (or anything) from this error?

thanx in advance

[perl-win32-gui-users] Font color?

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

How can I change the color of a font? I'd expect it to be something like:

our $Font = new Win32::GUI::Font(
	-name => "Arial", 
	-height => 24,
	-color	=> 'Red',
	-bold => 1,
);


but it doesn't work. 

TIA,
Pete

RE: [perl-win32-gui-users] force a "tab selection" from a tabstri p

[Sean H. <jal...@ho...>]

>I believe this will only "show" the actual tab you selected.  I'm using GUI
>LOFT and what I'd like to do is force a "mouse click" on the tab... so that
>all the associated fields for that tab are displayed.
>
>Any ideas?

$Tab->Select(INDEX) will select the tab and call the _Change event, same as 
a mouse click.

_________________________________________________________________
Broadband? Dial-up? Get reliable MSN Internet Access. 
http://resourcecenter.msn.com/access/plans/default.asp

Re: [perl-win32-gui-users] building win32::gui

[Laurent R. <ro...@cl...>]

Hello,

    For build, Win32::GUI on win98 :

    1) Edit Makefile.pl and edit in sub xs_c { ... }
       Replace && between $(PERL) and $(MV) commands by a carriage return and a
tabulation

    2) Use 4NT shell ( See trial version : http://www.jpsoft.com/download.htm )
       It's support long command line and some other stuff.

    3) In source directory :

       Perl makefile.pl
       nmake
       nmake install

      The Xsubb message isn't a problem.
      It's Ok for me and ActiveState Perl 5.6.1.

Laurent.

----- Original Message -----
From: <ma...@mm...>
To: <ma...@mm...>
Cc: <per...@li...>;
<per...@li...>
Sent: Wednesday, October 30, 2002 11:14 PM
Subject: Re: [perl-win32-gui-users] building win32::gui


>
> i did 'nmake /i' and right after when i got the previous error message i'm
> told
>
> fatal error C1083: Cannot open source file: 'GUI.cpp': No such file or
> directory
>
> i checked win32-gui-0.0.665.tar.gz from dada and sourceforge and neither of
> the files have gui.cpp in them.
>
>
>
>                     ma...@mm...
>                     Sent by:                                      To:
>                     per...@li...urc
per...@li...
>                     eforge.net                                    cc:
>                                                                   Subject:
[perl-win32-gui-users] building
>                                                                   win32::gui
>                     31/10/02 08:19 AM
>
>
>
>
>
>
> another error when building. i've never been able to build win32::gui
> myself, always had to use the ppm module. i have ms vc++ 6 and when i try
> and nmake i get this error
>
>         C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib C:
> \Perl\lib\ExtUtils/xs
> ubpp  -typemap C:\Perl\lib\ExtUtils\typemap -typemap typemap GUI.xs
> >xstmp.c &&
> C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib -MExtUtils::Command -e mv
> xstmp
> ..c GUI.cpp
> Usage: xsubpp [-v] [-C++] [-except] [-prototypes] [-noversioncheck]
> [-nolinenumb
> ers] [-nooptimize] [-noinout] [-noargtypes] [-s pattern] [-typemap
> typemap]... f
> ile.xs
> NMAKE : fatal error U1077: 'C:\Perl\bin\perl.exe' : return code '0xff'
> Stop.
>
> funnily enough when i 'perl makefile.pl' i get the same usage message for
> xsubpp. is there something wrong with the makefile? seems to work fine when
> i try building it on 2000 - i only get this error on 98. could it then be
> the command processor? the problem is that if i use ppm whenever i do
> Win32::GUI::DoEvents() it crashes.
>
> thanx in advance
>
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by: Influence the future
> of Java(TM) technology. Join the Java Community
> Process(SM) (JCP(SM)) program now.
> http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0004en
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
>
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by: Influence the future
> of Java(TM) technology. Join the Java Community
> Process(SM) (JCP(SM)) program now.
> http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0004en
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] building win32::gui

[<ma...@mm...>]

i did 'nmake /i' and right after when i got the previous error message i'm
told

fatal error C1083: Cannot open source file: 'GUI.cpp': No such file or
directory

i checked win32-gui-0.0.665.tar.gz from dada and sourceforge and neither of
the files have gui.cpp in them.


                                                                                                                    
                    ma...@mm...                                                                                
                    Sent by:                                      To:                                               
                    per...@li...urc        per...@li...        
                    eforge.net                                    cc:                                               
                                                                  Subject:     [perl-win32-gui-users] building      
                                                                  win32::gui                                        
                    31/10/02 08:19 AM                                                                               
                                                                                                                    
                                                                                                                    




another error when building. i've never been able to build win32::gui
myself, always had to use the ppm module. i have ms vc++ 6 and when i try
and nmake i get this error

        C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib C:
\Perl\lib\ExtUtils/xs
ubpp  -typemap C:\Perl\lib\ExtUtils\typemap -typemap typemap GUI.xs
>xstmp.c &&
C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib -MExtUtils::Command -e mv
xstmp
.c GUI.cpp
Usage: xsubpp [-v] [-C++] [-except] [-prototypes] [-noversioncheck]
[-nolinenumb
ers] [-nooptimize] [-noinout] [-noargtypes] [-s pattern] [-typemap
typemap]... f
ile.xs
NMAKE : fatal error U1077: 'C:\Perl\bin\perl.exe' : return code '0xff'
Stop.

funnily enough when i 'perl makefile.pl' i get the same usage message for
xsubpp. is there something wrong with the makefile? seems to work fine when
i try building it on 2000 - i only get this error on 98. could it then be
the command processor? the problem is that if i use ppm whenever i do
Win32::GUI::DoEvents() it crashes.

thanx in advance



-------------------------------------------------------
This sf.net email is sponsored by: Influence the future
of Java(TM) technology. Join the Java Community
Process(SM) (JCP(SM)) program now.
http://ads.sourceforge.net/cgi-bin/redirect.pl?sunm0004en
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] DoEvents and Text Boxes

[Eric H. <er...@ro...>]

I am using Win32::Gui to add a GUI to an existing program. This program already uses POE for
events and such, so i added an infinite loop that would call Win32::GUI::DoEvents();

This works fine except when  i have a test box.  If there is a text box then any input into it is
doubled.  i.e. if you type "eric" it comes out "eerriicc"  If anyone has any ideas i would
appreciate it. 

Thank you in advance.
Eric Hodges

__________________________________________________
Do you Yahoo!?
Y! Web Hosting - Let the expert host your web site
http://webhosting.yahoo.com/

[perl-win32-gui-users] building win32::gui

[<ma...@mm...>]

another error when building. i've never been able to build win32::gui
myself, always had to use the ppm module. i have ms vc++ 6 and when i try
and nmake i get this error

        C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib C:
\Perl\lib\ExtUtils/xs
ubpp  -typemap C:\Perl\lib\ExtUtils\typemap -typemap typemap GUI.xs
>xstmp.c &&
C:\Perl\bin\perl.exe -IC:\Perl\lib -IC:\Perl\lib -MExtUtils::Command -e mv
xstmp
.c GUI.cpp
Usage: xsubpp [-v] [-C++] [-except] [-prototypes] [-noversioncheck]
[-nolinenumb
ers] [-nooptimize] [-noinout] [-noargtypes] [-s pattern] [-typemap
typemap]... f
ile.xs
NMAKE : fatal error U1077: 'C:\Perl\bin\perl.exe' : return code '0xff'
Stop.

funnily enough when i 'perl makefile.pl' i get the same usage message for
xsubpp. is there something wrong with the makefile? seems to work fine when
i try building it on 2000 - i only get this error on 98. could it then be
the command processor? the problem is that if i use ppm whenever i do
Win32::GUI::DoEvents() it crashes.

thanx in advance

RE: [perl-win32-gui-users] force a "tab selection" from a tabstri p

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

=20
I generally will set it up something like this:
=20
sub Tab_Click
{
    &Tab();
}
=20
sub Tab
{
    # do stuff here
    return 1;
}
=20
=20
then you can call Tab() directly from your code or via a _Click event.

-----Original Message-----
From: Magnone, Angelo [mailto:ang...@rb...]
Sent: Wednesday, October 30, 2002 14:19
To: 'Peter Eisengrein'; Magnone, Angelo; Perl-Win32-Gui-Users@Lists.
Sourceforge. Net (E-mail)
Subject: RE: [perl-win32-gui-users] force a "tab selection" from a =
tabstri p


I believe this will only "show" the actual tab you selected.  I'm using =
GUI
LOFT and what I'd like to do is force a "mouse click" on the tab... so =
that
all the associated fields for that tab are displayed.
=20
Any ideas?
=20


-----Original Message-----
From: Peter Eisengrein [mailto:Pet...@at...]
Sent: Wednesday, October 30, 2002 2:13 PM
To: 'Magnone, Angelo'; Perl-Win32-Gui-Users@Lists. Sourceforge. Net =
(E-mail)
Subject: RE: [perl-win32-gui-users] force a "tab selection" from a =
tabstri p



$tabstrip1->Select(0); # selects the 1st tab=20
$tabstrip1->Select(1); # selects the 2nd tab=20
$tabstrip1->Select(2); # selects the 3rd tab=20
...etc...=20




-----Original Message-----=20
From: Magnone, Angelo [ mailto:ang...@rb...
<mailto:ang...@rb...> ]=20
Sent: Wednesday, October 30, 2002 13:51=20
To: Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)=20
Subject: [perl-win32-gui-users] force a "tab selection" from a tabstrip =





Is there any way to force a "tab selection" from a tabstrip... for =
example
using $tabstrip1->Show();=20
Thanks :)=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

RE: [perl-win32-gui-users] force a "tab selection" from a tabstri p

[Magnone, A. <ang...@rb...>]

I believe this will only "show" the actual tab you selected.  I'm using =
GUI
LOFT and what I'd like to do is force a "mouse click" on the tab... so =
that
all the associated fields for that tab are displayed.
=20
Any ideas?
=20


-----Original Message-----
From: Peter Eisengrein [mailto:Pet...@at...]
Sent: Wednesday, October 30, 2002 2:13 PM
To: 'Magnone, Angelo'; Perl-Win32-Gui-Users@Lists. Sourceforge. Net =
(E-mail)
Subject: RE: [perl-win32-gui-users] force a "tab selection" from a =
tabstri p



$tabstrip1->Select(0); # selects the 1st tab=20
$tabstrip1->Select(1); # selects the 2nd tab=20
$tabstrip1->Select(2); # selects the 3rd tab=20
...etc...=20




-----Original Message-----=20
From: Magnone, Angelo [ mailto:ang...@rb...
<mailto:ang...@rb...> ]=20
Sent: Wednesday, October 30, 2002 13:51=20
To: Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)=20
Subject: [perl-win32-gui-users] force a "tab selection" from a tabstrip =





Is there any way to force a "tab selection" from a tabstrip... for =
example
using $tabstrip1->Show();=20
Thanks :)=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

RE: [perl-win32-gui-users] force a "tab selection" from a tabstri p

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

$tabstrip1->Select(0); # selects the 1st tab
$tabstrip1->Select(1); # selects the 2nd tab
$tabstrip1->Select(2); # selects the 3rd tab
...etc...




-----Original Message-----
From: Magnone, Angelo [mailto:ang...@rb...]
Sent: Wednesday, October 30, 2002 13:51
To: Perl-Win32-Gui-Users@Lists. Sourceforge. Net (E-mail)
Subject: [perl-win32-gui-users] force a "tab selection" from a tabstrip




Is there any way to force a "tab selection" from a tabstrip... for =
example
using $tabstrip1->Show();=20
Thanks :)=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

[perl-win32-gui-users] force a "tab selection" from a tabstrip

[Magnone, A. <ang...@rb...>]

Is there any way to force a "tab selection" from a tabstrip... for example
using $tabstrip1->Show();

Thanks :)



------------------------------------------------------------
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