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

Re[2]: [perl-win32-gui-users] ppm rep dada -maybe of topic

[Danny Z. <da...@be...>]

Dear Erick,
thanks

but .. i can't get any of these compiled on my machine..

errors like these

C:\gb\api\Win32-API-0.20>nmake

Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

        cl.exe -c  -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FC
RYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX -O1 -MD -
DNDEBUG      -DVERSION=\"0.20\"  -DXS_VERSION=\"0.20\"  -IE:\Perl\lib\CORE  API.
c
Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 11.00.7022 for 80x86
Copyright (C) Microsoft Corp 1984-1997. All rights reserved.

API.c
Command line error D2027 : cannot execute 'c1'
NMAKE : fatal error U1077: 'C:\WIN2K\system32\cmd.exe' : return code '0x2'
Stop.

appear al the time ..

i think i'm missing something pretty important :(


Best regards,
 Danny Zak                            mailto:da...@be...
  co-ceo 

Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium

Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65

-------------------------------------------------------------------
Wednesday, February 07, 2001, 11:44:15 PM, you wrote:

EJB> Get it from CPAN at
EJB> http://search.cpan.org/search?dist=Win32-API , then unpack
EJB> it and build it using nmake (follow the usual steps for
EJB> making). Should work great. :)

EJB> erick
EJB> never stop questioning
EJB> www.jeb.ca



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

Re: [perl-win32-gui-users] ppm rep dada -maybe of topic

[Erick J. B. <er...@e-...>]

Get it from CPAN at
http://search.cpan.org/search?dist=Win32-API , then unpack
it and build it using nmake (follow the usual steps for
making). Should work great. :)

erick
never stop questioning
www.jeb.ca

[perl-win32-gui-users] ppm rep dada -maybe of topic

[Danny Z. <da...@be...>]

Dear perl-win32-gui-users,

  i tried to install win32::api since the GB (from david hiltz) needs
  it..

  the easiest way seemed me to install it via the ppm reposotory
  (http://Dada.perl.it/ppm)

  although .. this isn't working for me, i have to use a firewall ..
  is there a special way to state this request of installation ?
  

If you have any questions, whatsoever, please feel free to contact us.
    
Best regards,
 Danny Zak                           mailto:da...@be...
 co-ceo 

Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium

Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65

[perl-win32-gui-users] GUI Builder 109 (was: Need Gui Builder)

[David H. <dh...@wh...>]

> 
> Did the GUI Builder written by David Hiltz ever find a download home? I
> need to re-install it and was wondering where I can find it. Thanks.

  Sorry that I didn't get something out earlier (I've been so busy). 
  Someday I would like to get the GUI Builder stuff out on sourceforge.  For
  now you can pick up my latest copy of GB (calling it Build 109) off our
  anonymous ftp server:

     ftp://ftp.wh.whoi.edu/pub

  Look for 'gb109.zip'.

  There is a readme.txt inside the zip that should explain stuff.

  David Hiltz

Re: [perl-win32-gui-users] Limit size of text field

[Bob S. <bs...@Pr...>]

Aldo Calpini wrote:

> Bob Stango wrote:
> > I found the MaxLength option in the docs but it does not seem
> > to limit the field. What I want is to be able to have the field
> > restricted to 15 characters. So no more characters could be
> > typed in. Is this possible? Have I just used the wrong syntax?
> > Thanks for any help.
>
> MaxLength is a METHOD, not an OPTION. change your code to this:
>
>     $Win->AddTextfield(
>         -text    => "",
>         -name    => "Host_Name",
>         -pos    =>  [ 285, 243 ],
>         -size    => [ 100, 20 ],
>         -tabstop => 1,
>     );
>     $Win->Host_Name->MaxLength( 15 );
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>

Thanks Aldo. Just more stuff I have to learn about.
:-)

Re: [perl-win32-gui-users] Limit size of text field

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

Bob Stango wrote:
> I found the MaxLength option in the docs but it does not seem
> to limit the field. What I want is to be able to have the field
> restricted to 15 characters. So no more characters could be
> typed in. Is this possible? Have I just used the wrong syntax?
> Thanks for any help.

MaxLength is a METHOD, not an OPTION. change your code to this:

    $Win->AddTextfield(
        -text    => "",
        -name    => "Host_Name",
        -pos    =>  [ 285, 243 ],
        -size    => [ 100, 20 ],
        -tabstop => 1,
    );
    $Win->Host_Name->MaxLength( 15 );

cheers,
Aldo

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

[perl-win32-gui-users] Need Gui Builder

[Bob S. <bs...@Pr...>]

Did the GUI Builder written by David Hiltz ever find a download home? I need
to re-install it and was wondering where I can find it. Thanks.

Bob

[perl-win32-gui-users] Limit size of text field

[Bob S. <bs...@Pr...>]

Hi all,

I am using this to create a text field:

# Create text field for Computer Name entry
$Win->AddTextfield(
       -MaxLength    => 15,
       -text    => "",
       -name    => "Host_Name",
       -left    => 285,
       -top     => 243,
       -tabstop => 1,
       -width   => 100,
       -height  => 20,
      );

I found the MaxLength option in the docs but it does not seem to limit the
field. What I want is to be able to have the field restricted to 15
characters. So no more characters could be typed in. Is this possible? Have
I just used the wrong syntax? Thanks for any help.

Bob

Re: [perl-win32-gui-users] Event routines

[<Kev...@Al...>]

Thomas,

It is possible to dynamically create windows.  I wrote the
accompanying script in response to a query quite a while
ago.  It creates 4 windows and hides all but one of them.
Clicking OK brings up the next window.

Hope this helps.

Kev.






tho...@ba... on 07/02/2001 12:03:17
To: per...@li... @ INTERNET
cc:  

Subject: [perl-win32-gui-users] Event routines

Is Win32::GUI designed to support something like this:

$subtxt = "Simple_Click";
    eval qq (
      sub main::$subtxt {
        print "button clicked\n";
        $W->SimpleLabel->Text("Got a click");
    }
    );

(Actually this piece of code does not work...)

The problem is that I would like to create a number of controls dynamically
because I know the number of controls to
create only at runtime.

regards,
Thomas

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

Re: [perl-win32-gui-users] Event routines

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

tho...@ba... wrote:
> Is Win32::GUI designed to support something like this:
>
> $subtxt = "Simple_Click";
>     eval qq (
>       sub main::$subtxt {
>         print "button clicked\n";
>         $W->SimpleLabel->Text("Got a click");
>     }
>     );
>
> (Actually this piece of code does not work...)

yes, Win32::GUI supports things like these (it's really Perl that
supports it :-), but your code is wrong. $W is interpreted as a
variable in your eval string, you need to escape it:

    eval qq (
        sub main::$subtxt {
            print "button clicked\n";
            \$W->SimpleLabel->Text("Got a click");
        }
    );

...and always check for $@ after an eval!


cheers,
Aldo

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

[perl-win32-gui-users] Event routines

[<tho...@ba...>]

Is Win32::GUI designed to support something like this:

$subtxt = "Simple_Click";
    eval qq (
      sub main::$subtxt {
        print "button clicked\n";
        $W->SimpleLabel->Text("Got a click");
    }
    );

(Actually this piece of code does not work...)

The problem is that I would like to create a number of controls dynamically
because I know the number of controls to
create only at runtime.

regards,
Thomas

[perl-win32-gui-users] web browser

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

>you should instead look at Win32::OLE, to see if you can
>embed an InternetExplorer instance in a window.

Has anyone succeeded at this?  I played around with it, and while I can get 
an instance of IE to come up, I haven't been able to figure out how to embed 
it in a Win32::GUI window (it always wants to be in its own top-level 
window).  On the MSDN site, they mention something called WebBrowser, which 
is an ActiveX control, which apparently _can_ be embedded in another window. 
  Anyone have any ideas?
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

[perl-win32-gui-users] MouseUp and MouseDown

[Jeremy B. <sco...@ya...>]

Has anyone gotten _MouseUp or _MouseDown working? 
I've tried but the event doesn't seem to be called
from what I can tell.

Thanks,
Jeremy Blonde
sco...@ya...

__________________________________________________
Get personalized email addresses from Yahoo! Mail - only $35 
a year!  http://personal.mail.yahoo.com/

RE: [perl-win32-gui-users] Progress Bar question

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

Thanks. Do you know if this same 16-bit size also applies to the size of the
RichEdit buffer? I have a problem with Win98 machines losing data from the
RichEdit window once there is "too much" data.

-----Original Message-----
From: Aldo Calpini [mailto:da...@pe...]
Sent: Monday, February 05, 2001 8:44 AM
To: Peter Eisengrein
Subject: Re: [perl-win32-gui-users] Progress Bar question


Peter Eisengrein wrote:
> Anyone know what the maximum allowed value is for the
> ->SetRange($min,$max) on Win32::GUI::AddProgressBar? I am trying
> to have it be set dynamically based upon a file size and it would
> appear that if a file is too big the $max gets set to some default.

the storage is actually 16 bit. I've just found that there is
a way to store values up to 32 bits. I'll add this functionality
in the next release. thanks for pointing this out :-)


cheers,
Aldo

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



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

RE: [perl-win32-gui-users] AcceleratorTable

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

I've never been able to get the -accel's to work either. Good luck, I am
looking forward to seeing the resolution on this.

-----Original Message-----
From: Erick J. Bourgeois [mailto:er...@e-...]
Sent: Saturday, February 03, 2001 10:00 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] AcceleratorTable


The subs that you supplied do not respond to the keys either. Any more
ideas?
 
erick
never stop questioning
www.jeb.ca <http://www.jeb.ca> 

----- Original Message ----- 
From: Peter Eisengrein <mailto:Pet...@at...>  

I may be wrong, but I've found that you cannot call a _Click() directly (you
actually have to Click on something). I'd try this with your subs:
 

sub Open_Click {
    Open();
}
 
sub Open {
    my $file=GUI::GetOpenFileName(-title=>"File To Open",
-filter=>["*.*"],);
}
sub OpenHK_Click {
    Open;
}

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

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

Shain Edge wrote:
> Hehe.. 
>
> The question I would ask is why isn't the documentation in all
> of the other distributions, or at least a file to itself with a
> link to it in the source code? I found the Win32-GUI accidently
> by doing a Win32 search on the PPM. It looked like something that
> would interest me so I DLed it, looked at it and blinked,
> wondering how to use it? Second step was looking around at the
> files that were installed and only found the creator's e-mail.
> Then I searched around more and found only other types of
> distributions of the product, but no docs. So I ended up posting
> the question.

you're correct, and pardon my nervous attitude :-)
I usually announce releases on this mailing list, so I presumed
that users of this mailing list were aware of the fact that the PPM
distribution is only there to help people without a C compiler,
not to provide a complete package.
the documentation is not stable at this point, so it can't be
added to the PPM (would leave a mess of half-written files here
and there with every new release :-).

> This goes to another question. What are the primary differences
> between Win32-GUI and Perl-Tk?

this is candidate #1 for the yet-to-be-written FAQ :-)


cheers,
Aldo

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

Re: [perl-win32-gui-users] Style Option Bug?

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

Erick J. Bourgeois wrote:
> Jeremy,
>
> I didn't know that there was an -align option, but that is
> not really what I was concerned with, it's the colors.
> Why can't you use the two color options (ie. -background
> and -foreground) ALL the time, with any control?

because there are either bugs in my code, OR the Win32 SDK
does not support what you want to do. I can fix bugs, but
I can't provide what the SDK does not provide :-)

that said, I've fixed Win32::GUI for your case (I have
removed a check that avoided coloring if the Label has
the SS_SIMPLE style. don't know why it didn't worked, but
now it seems to work. if you explicitly add the SS_SIMPLE
style to the Label, however, you don't get the background
color, but this should not be a problem :-).


cheers,
Aldo

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

Re: [perl-win32-gui-users] wishlist :)

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

Danny Zak wrote:
> Dear perl-win32-gui-users,
>
>   hm.. again .. i'm really happy with the win32 development..
>
>   i got some simple questions (or more like a wishlist :) )
>
>   * is there a spreadsheet (grid) look-a-like solution or
>   component ?

no, but I'm thinking about implementing one (just thinking
for now :-).

>   * is there a inline webbrowser somewhere ? or a HTML or
>   XML parser ?

no, and I don't think I will try to implement one :-)
you should instead look at Win32::OLE, to see if you can
embed an InternetExplorer instance in a window.
that said, it seems that RichEdit 3.0 (available in
Windows 2000) has a lot of nice features, that I'll try to
implement if time permits.

>   * is there support for JPG or common image formats like
>   .PNG or .GIF? since i only found how to open a BITMAP image
>   (i assume this is a .BMP file)

yes, support is for .BMP files only. there is something in
the Win32 API about JPGs, but I have not yet investigated it
thoroughly.

>   what about licensing ? if i develop a product in perl with
>   usage of the win32::gui module, and I spread (well lets asume
>   for FREE) to the public.. is it still under GNU license or do
>   we have to pay the win32::gui team something ?

no, you don't have to pay anything. I'm not a lawyer and I don't
want to pay a lawyer :-)
Win32::GUI is released under the Artistic License, eg. you can
redistribute it under the same terms of Perl itself.


cheers,
Aldo

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

Re: [perl-win32-gui-users] Progress Bar question

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

Peter Eisengrein wrote:
> Anyone know what the maximum allowed value is for the
> ->SetRange($min,$max) on Win32::GUI::AddProgressBar? I am trying
> to have it be set dynamically based upon a file size and it would
> appear that if a file is too big the $max gets set to some default.

the storage is actually 16 bit. I've just found that there is
a way to store values up to 32 bits. I'll add this functionality
in the next release. thanks for pointing this out :-)


cheers,
Aldo

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

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

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

Hello

    Find in attach file, a package for easy use of TabStrip.

    - Panel.pm : implement a container window
    - TabPanel.pm : implement a tabstrip with Panel for each page.
    - Panel.pl : test Panel class
    - TabPanel.pl : test TabPanel class

    Question for improvement :
        - How get size of display area of a tab control ?
         (Actualy i use size of Tab control, but not working with multiline
or imagelist)
        - Any idea for better implement of tab click event ?
         (I use a a global hash for keep reference of TabPanel)
        - Better name for class ? (my english isn't very good ;o)


Laurent.

[perl-win32-gui-users] wishlist :)

[Danny Z. <da...@be...>]

Dear perl-win32-gui-users,

  hm.. again .. i'm really happy with the win32 development..

  i got some simple questions (or more like a wishlist :) )

  * is there a spreadsheet (grid) look-a-like solution or component ?
  * is there a inline webbrowser somewhere ? or a HTML or XML parser ?
  * is there support for JPG or common image formats like .PNG or
  .GIF? since i only found how to open a BITMAP image (i assume this
  is a .BMP file)

  what about licensing ? if i develop a product in perl with usage of
  the win32::gui module, and I spread (well lets asume for FREE) to
  the public.. is it still under GNU license or do we have to pay the
  win32::gui team something ?

  GREAT.. the win32::gui
  

Best regards,
 Danny Zak                           mailto:da...@be...
 co-ceo 

Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium

Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65

Re: [perl-win32-gui-users] Style Option Bug?

[Erick J. B. <er...@e-...>]

Jeremy,

I didn't know that there was an -align option, but that is
not really what I was concerned with, it's the colors.
Why can't you use the two color options (ie. -background
and -foreground) ALL the time, with any control?

erick
never stop questioning
www.jeb.ca
----- Original Message -----
From: Jeremy Blonde <sco...@ya...>
To: <per...@li...>
Sent: Saturday, February 03, 2001 8:45 PM
Subject: Re: [perl-win32-gui-users] Style Option Bug?


> Erick,
>
> It looks like it's only the ES_CENTER style that is
> not being handled/not being used properly.
>
> I tried adding "-align => center" and not modifying
> "-style", and it ends up with the same result.
> Perhaps others can give a little more insight as to
> why the style is not being applied correctly.
>
> In any case, I believe it would be better to move away
> from modifying "-style" directly and instead use
> "-align => center", to align the label.  Or at least
> use "-addstyle" or "-pushstyle" instead of just
> "-style".
>
> Jeremy Blonde
> sco...@ya...

Re: [perl-win32-gui-users] Style Option Bug?

[Jeremy B. <sco...@ya...>]

Erick,

It looks like it's only the ES_CENTER style that is
not being handled/not being used properly.

I tried adding "-align => center" and not modifying
"-style", and it ends up with the same result. 
Perhaps others can give a little more insight as to
why the style is not being applied correctly.

In any case, I believe it would be better to move away
from modifying "-style" directly and instead use
"-align => center", to align the label.  Or at least
use "-addstyle" or "-pushstyle" instead of just
"-style".

Jeremy Blonde
sco...@ya...

--- "Erick J. Bourgeois" <er...@e-...> wrote:
> When I create a label and/or combobox, give them
> color attributes and then try and use the -style
> option, the colors are completely ignored. That is,
> if I just use the control without the -style option,
> then the colors work. For example, the following
> works great:
> 
> use Win32::GUI;
> 
> $MainWin = new Win32::GUI::Window(
>     -name => "MainWin",
>     -text => "Style Option",
>     -size => [200, 200],
>     -pos => [70, 70],
> );
> $MainWin->AddLabel(
>     -text => "Hello World!",
>     -size => [$MainWin->Width, $MainWin->Height],
>     -pos => [0, 0],
>     -background => [0,51,102],
>     -foreground => [255,255,255],
> );
> $MainWin->Show();
> Win32::GUI::Dialog();
> 
> sub MainWin_Terminate {
>     $MainWin->Hide();
>     return -1;
> }
> #--------------EOF---------------#
> 
> However, this ignores the color option altogether:
> 
> use Win32::GUI;
> 
> $MainWin = new Win32::GUI::Window(
>     -name => "MainWin",
>     -text => "Style Option",
>     -size => [200, 200],
>     -pos => [70, 70],
> );
> $MainWin->AddLabel(
>     -text => "Hello World!",
>     -size => [$MainWin->Width, $MainWin->Height],
>     -pos => [0, 0],
>     -style => ES_CENTER | WS_VISIBLE,
>     -background => [0,51,102],
>     -foreground => [255,255,255],
> );
> $MainWin->Show();
> Win32::GUI::Dialog();
> 
> sub MainWin_Terminate {
>     $MainWin->Hide();
>     return -1;
> }
> #--------------EOF---------------#
> 
> 
> 
> erick
> never stop questioning
> www.jeb.ca
> 


__________________________________________________
Get personalized email addresses from Yahoo! Mail - only $35 
a year!  http://personal.mail.yahoo.com/

[perl-win32-gui-users] Style Option Bug?

[Erick J. B. <er...@e-...>]

When I create a label and/or combobox, give them color attributes and =
then try and use the -style option, the colors are completely ignored. =
That is, if I just use the control without the -style option, then the =
colors work. For example, the following works great:

use Win32::GUI;

$MainWin =3D new Win32::GUI::Window(
    -name =3D> "MainWin",
    -text =3D> "Style Option",
    -size =3D> [200, 200],
    -pos =3D> [70, 70],
);
$MainWin->AddLabel(
    -text =3D> "Hello World!",
    -size =3D> [$MainWin->Width, $MainWin->Height],
    -pos =3D> [0, 0],
    -background =3D> [0,51,102],
    -foreground =3D> [255,255,255],
);
$MainWin->Show();
Win32::GUI::Dialog();

sub MainWin_Terminate {
    $MainWin->Hide();
    return -1;
}
#--------------EOF---------------#

However, this ignores the color option altogether:

use Win32::GUI;

$MainWin =3D new Win32::GUI::Window(
    -name =3D> "MainWin",
    -text =3D> "Style Option",
    -size =3D> [200, 200],
    -pos =3D> [70, 70],
);
$MainWin->AddLabel(
    -text =3D> "Hello World!",
    -size =3D> [$MainWin->Width, $MainWin->Height],
    -pos =3D> [0, 0],
    -style =3D> ES_CENTER | WS_VISIBLE,
    -background =3D> [0,51,102],
    -foreground =3D> [255,255,255],
);
$MainWin->Show();
Win32::GUI::Dialog();

sub MainWin_Terminate {
    $MainWin->Hide();
    return -1;
}
#--------------EOF---------------#



erick
never stop questioning
www.jeb.ca

Re: Antwort: Re: [perl-win32-gui-users] Tabstrips

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

Hello

    Yes, i have the same problem ;o)

    I made a new version with click event working.

    I remove Groupbox and use a specific class for the Page of the TabStrip.
    So, event react now.

    I have a problem for read or use elements in this class without a
specific reference.
    For exemple, $Win->Page0->SimpleLabel->Text("Click !!!") in the click
event don't work.

    In the second sample, i attach an create all with $Win->Tab.
    I can use elements like this
$Win->Tab->Page0->{"SimpleLabel"}->Text("Click !!!").
    Don't understand why, but work.


Laurent.

----- Original Message -----
From: <tho...@ba...>
Subject: Antwort: Re: [perl-win32-gui-users] Tabstrips


> Hi,
>
> seems that my joy was a little too early: If I create a button named
"button"
> and add it to a certain GroupBox (-parent => $Win->box)
> then the subroutine "Button_Click" does not seem to react on my clicks on
the
> button...
>
> regards,
> Thomas
>