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

[perl-win32-gui-users] Combobox

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

Why is it that in the following Combobox:

$HostName = $MainWin->AddCombobox(
    -name     => "HostName",
    -tabstop  => 1,
    -style    => WS_VISIBLE | 2 | WS_NOTIFY,
    -left     => 205,
    -top      => 10,
    -width    => 110,
    -height   => 160,
);
$HostName->InsertItem ("ftp.server1.com");
$HostName->InsertItem ("ftp.server2.com");

The first item is not showing right away, I have to drop the
combobox first. I also tried -text=>"ftp.server1.com"

erick

never stop questioning
www.jeb.ca

RE: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

[Thomas, T. B <tim...@lm...>]

Aldo - pretty cool, did you just implement that?
	I seem to be getting a not-very-descriptive error when I try your
code. See below.
		Tim

D:\Archive\scripts\completed\digitaltool>perl aldourl.gpl
Wrong number of parameters: expected 0, got 2.
BEGIN failed--compilation aborted at aldourl.gpl line 2.

D:\Archive\scripts\completed\digitaltool>cat aldourl.gpl
    use Win32::GUI;
    use Win32::GUI::HyperLink;

    my $Window =3D new Win32::GUI::Window(
        -title   =3D> 'Win32::GUI::HyperLink demo',
        -pos     =3D> [ 100, 100 ],
        -size    =3D> [ 150, 100 ],
        -name    =3D> 'Window',
    );
    $Window->AddHyperLink(
        -text    =3D> "dada's perl lab",
        -name    =3D> "test",
        -pos     =3D> [ 25, 25 ],
        -url     =3D> "http://dada.perl.it",
        # or: -url =3D> "mailto:dada\@perl.it",
    );
    $Window->Show();
    my $rc =3D Win32::GUI::Dialog(0);

    sub Window_Terminate {
        return -1;
    }

------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
----
---------------------


-----Original Message-----
From: Aldo Calpini [mailto:da...@pe...]
Sent: Tuesday, January 23, 2001 10:13 AM
To: Thomas, Timothy B
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
Wind ow


Thomas, Timothy B wrote:
> Sean - Thanks! That was my next step, but didn't yet have the time
> to research how to go about doing it. Didn't know it was so easy
> to implement a custom cursor like that. Your code works perfectly.

please find attached HyperLink.pm, which implements a 'regular'
Win32::GUI::HyperLink control ;-)
warning: the code is full of black (maybe voodoo) magic.

using it is this simple:

    use Win32::GUI;
    use Win32::GUI::HyperLink;

    my $Window =3D new Win32::GUI::Window(
        -title   =3D> 'Win32::GUI::HyperLink demo',
        -pos     =3D> [ 100, 100 ],
        -size    =3D> [ 150, 100 ],
        -name    =3D> 'Window',
    );
    $Window->AddHyperLink(
        -text    =3D> "dada's perl lab",
        -name    =3D> "test",
        -pos     =3D> [ 25, 25 ],
        -url     =3D> "http://dada.perl.it",
        # or: -url =3D> "mailto:dada\@perl.it",
    );
    $Window->Show();
    my $rc =3D Win32::GUI::Dialog(0);

    sub Window_Terminate {
        return -1;
    }

you don't need to specify a Click event, the HyperLink
class already provides a default one that simply activates
the link.
   =20
> Deviating from Win32-GUI somewhat:
>         Next step is to figure out how to mimik a "mailto:" for
> the e-mail link. Should be easy, once we figure out how to
> determine what the default e-mail program is. Not sure what
> assication is set for that. .html for the browser is easy, but
> what about e-mail's? maybe .msg? Here's the ftype info for .msg
> on my NT system, using outlook for e-mail.

in my code, I've used the ShellExecute API that works like a
charm with a standard "mailto:" linkage.


cheers,
Aldo

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

Re: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

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

Just to tell you Thomas, emails in Outlook have the ending
.eml

> Deviating from Win32-GUI somewhat:
>         Next step is to figure out how to mimik a
"mailto:" for the e-mail
> link. Should be easy, once we figure out how to determine
what the default
> e-mail program is. Not sure what assication is set for
that. .html for the
> browser is easy, but what about e-mail's? maybe .msg?
Here's the ftype info
> for .msg on my NT system, using outlook for e-mail.
>
> C:\>assoc .msg
> ..msg=msgfile
>
> C:\>ftype msgfile
> msgfile="C:\Program Files\Microsoft
Office\Office\OUTLOOK.EXE" /f "%1"
>

Re: [perl-win32-gui-users] Cursor Inline?

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

Thomas, Timothy B wrote:
> Is there a way to imbed a cursor into your code the way you
> can a bitmap?

actually not, but it should be fairly trivial to write a
Win32::GUI::CursorInline module :-)


cheers,
Aldo

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

Re: [perl-win32-gui-users] Version conflict

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

Erick J. Bourgeois wrote:
> I received this message after I installed version 0.0.502
>
> Win32::GUI object version 0.0.502 does not match
> $Win32::GUI::VERSION Beta at D:
> /Perl/lib/DynaLoader.pm line 219.
> Compilation failed in require at ftp.pl line 4.
> BEGIN failed--compilation aborted at ftp.pl line 4.
>
> How do I change the Dynaloader.pm?

the problem is not the DynaLoader, is GUI.pm that
was not updated. check that you don't have an older
version somewhere else in your @INC.


cheers,
Aldo

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

Re: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

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

Thomas, Timothy B wrote:
> Sean - Thanks! That was my next step, but didn't yet have the time
> to research how to go about doing it. Didn't know it was so easy
> to implement a custom cursor like that. Your code works perfectly.

please find attached HyperLink.pm, which implements a 'regular'
Win32::GUI::HyperLink control ;-)
warning: the code is full of black (maybe voodoo) magic.

using it is this simple:

    use Win32::GUI;
    use Win32::GUI::HyperLink;

    my $Window = new Win32::GUI::Window(
        -title   => 'Win32::GUI::HyperLink demo',
        -pos     => [ 100, 100 ],
        -size    => [ 150, 100 ],
        -name    => 'Window',
    );
    $Window->AddHyperLink(
        -text    => "dada's perl lab",
        -name    => "test",
        -pos     => [ 25, 25 ],
        -url     => "http://dada.perl.it",
        # or: -url => "mailto:dada\@perl.it",
    );
    $Window->Show();
    my $rc = Win32::GUI::Dialog(0);

    sub Window_Terminate {
        return -1;
    }

you don't need to specify a Click event, the HyperLink
class already provides a default one that simply activates
the link.
    
> Deviating from Win32-GUI somewhat:
>         Next step is to figure out how to mimik a "mailto:" for
> the e-mail link. Should be easy, once we figure out how to
> determine what the default e-mail program is. Not sure what
> assication is set for that. .html for the browser is easy, but
> what about e-mail's? maybe .msg? Here's the ftype info for .msg
> on my NT system, using outlook for e-mail.

in my code, I've used the ShellExecute API that works like a
charm with a standard "mailto:" linkage.


cheers,
Aldo

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

Re: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

[Robert S. <rs...@em...>]

i think there is actually a mailto: association in the registry

yep:

HKEY_CLASSES_ROOT\mailto\shell\open\command

-rob


"Thomas, Timothy B" wrote:
>=20
> Sean - Thanks! That was my next step, but didn't yet have the time to
> research how to go about doing it. Didn't know it was so easy to implem=
ent a
> custom cursor like that. Your code works perfectly.
>=20
> Deviating from Win32-GUI somewhat:
>         Next step is to figure out how to mimik a "mailto:" for the e-m=
ail
> link. Should be easy, once we figure out how to determine what the defa=
ult
> e-mail program is. Not sure what assication is set for that. .html for =
the
> browser is easy, but what about e-mail's? maybe .msg? Here's the ftype =
info
> for .msg on my NT system, using outlook for e-mail.
>=20
> C:\>assoc .msg
> ..msg=3Dmsgfile
>=20
> C:\>ftype msgfile
> msgfile=3D"C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE" /f "%1=
"
>=20
> Someone else see what it is on theirs, inparticular if you use Netscape
> Messenger.
> I'm not sure that's as much of a standard as .html.
>=20
>         Thanks again Sean!
>                         Tim
>=20
> -----------------------------------------------------------------------=
-----
> ---------------------
> Tim Thomas
> Unix Systems Administrator
> Lockheed Martin EIS =B7 Denver Data Center
> 303-430-2281
> mailto:tim...@lm...
> -----------------------------------------------------------------------=
-----
> ---------------------
>=20
> -----Original Message-----
> From: Sean Healy [mailto:jal...@ho...]
> Sent: Monday, January 22, 2001 6:21 PM
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
> Window
>=20
> >Here's the code that you all helped me to figure out. You can use this=
 to
> >implement a clickable URL in your About Window, or whereever you like.=
 The
> >code may not be very clean, let me know if you have suggestions to imp=
rove
> >this. This example runs as-is.
>=20
> This is great!  I've been playing with it a bit, and I added some stuff=
 so
> you can change the cursor when it's over the link.  You put this code
> somewhere before the label with the URL:
>=20
> $linkCursor =3D new Win32::GUI::Cursor('harrow.cur');
>=20
> $urlClass =3D new Win32::GUI::Class(
>     -name =3D> "UrlLabelClass",
>     -extends =3D> "STATIC",
>     -cursor =3D> $linkCursor,
> );
>=20
> Then you add '-class =3D> $urlClass' to the label.  The cursor 'harrow.=
cur' is
>=20
> included with the Win32-GUI samples.  (I think) STATIC is what Windows
> actually calls labels.
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] Cursor Inline?

[Thomas, T. B <tim...@lm...>]

Is there a way to imbed a cursor into your code the way you can a =
bitmap?

something like this:

$cursor =3D new Win32::GUI::BitmapInline( q(
...
) );

$linkCursor =3D new Win32::GUI::Cursor($cursor);

$urlClass =3D new Win32::GUI::Class(
    -name =3D> "UrlLabelClass",
    -extends =3D> "STATIC",
    -cursor =3D> $linkCursor,
);

------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
----
---------------------


-----Original Message-----
From: Thomas, Timothy B [mailto:tim...@lm...]
Sent: Tuesday, January 23, 2001 9:09 AM
To: 'per...@li...'
Subject: RE: [perl-win32-gui-users] Final Code: Click on URL in About
Wind ow


Christopher - it's not meant to work that way, only when you click on =
the
URL is it supposed to open your browser. What version of Win32-GUI are =
you
running? Make sure you are running the latest, I think 0.0.502 is the =
most
recent stable version.

------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
----
---------------------


-----Original Message-----
From: christopher sagayam [mailto:chr...@ya...]
Sent: Monday, January 22, 2001 9:56 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
Window


one more thing

I don't know whether it is meant to be or not..

But when I click on the url it goes to the url BUT when I click on any =
other
place in the window too it goes to the url ( incl the OK button too)

chris
www.perl-resume.com



----- Original Message -----
From: Sean Healy <jal...@ho...>
To: <per...@li...>
Sent: Tuesday, January 23, 2001 6:50 AM
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About =
Window


> >Here's the code that you all helped me to figure out. You can use =
this to
> >implement a clickable URL in your About Window, or whereever you =
like.
The
> >code may not be very clean, let me know if you have suggestions to
improve
> >this. This example runs as-is.
>
> This is great!  I've been playing with it a bit, and I added some =
stuff so
> you can change the cursor when it's over the link.  You put this code
> somewhere before the label with the URL:
>
> $linkCursor =3D new Win32::GUI::Cursor('harrow.cur');
>
> $urlClass =3D new Win32::GUI::Class(
>     -name =3D> "UrlLabelClass",
>     -extends =3D> "STATIC",
>     -cursor =3D> $linkCursor,
> );
>
> Then you add '-class =3D> $urlClass' to the label.  The cursor =
'harrow.cur'
is
> included with the Win32-GUI samples.  (I think) STATIC is what =
Windows
> actually calls labels.
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


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

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

RE: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

[Thomas, T. B <tim...@lm...>]

Sean - Thanks! That was my next step, but didn't yet have the time to
research how to go about doing it. Didn't know it was so easy to =
implement a
custom cursor like that. Your code works perfectly.

Deviating from Win32-GUI somewhat:
	Next step is to figure out how to mimik a "mailto:" for the e-mail
link. Should be easy, once we figure out how to determine what the =
default
e-mail program is. Not sure what assication is set for that. .html for =
the
browser is easy, but what about e-mail's? maybe .msg? Here's the ftype =
info
for .msg on my NT system, using outlook for e-mail.=20

C:\>assoc .msg
.msg=3Dmsgfile

C:\>ftype msgfile
msgfile=3D"C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE" /f =
"%1"

Someone else see what it is on theirs, inparticular if you use Netscape
Messenger.
I'm not sure that's as much of a standard as .html.

	Thanks again Sean!
			Tim


------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
----
---------------------


-----Original Message-----
From: Sean Healy [mailto:jal...@ho...]
Sent: Monday, January 22, 2001 6:21 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
Window


>Here's the code that you all helped me to figure out. You can use this =
to
>implement a clickable URL in your About Window, or whereever you like. =
The
>code may not be very clean, let me know if you have suggestions to =
improve
>this. This example runs as-is.

This is great!  I've been playing with it a bit, and I added some stuff =
so=20
you can change the cursor when it's over the link.  You put this code=20
somewhere before the label with the URL:

$linkCursor =3D new Win32::GUI::Cursor('harrow.cur');

$urlClass =3D new Win32::GUI::Class(
    -name =3D> "UrlLabelClass",
    -extends =3D> "STATIC",
    -cursor =3D> $linkCursor,
);

Then you add '-class =3D> $urlClass' to the label.  The cursor =
'harrow.cur' is

included with the Win32-GUI samples.  (I think) STATIC is what Windows=20
actually calls labels.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com


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

RE: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

[Thomas, T. B <tim...@lm...>]

Christopher - it's not meant to work that way, only when you click on =
the
URL is it supposed to open your browser. What version of Win32-GUI are =
you
running? Make sure you are running the latest, I think 0.0.502 is the =
most
recent stable version.

------------------------------------------------------------------------=
----
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
----
---------------------


-----Original Message-----
From: christopher sagayam [mailto:chr...@ya...]
Sent: Monday, January 22, 2001 9:56 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
Window


one more thing

I don't know whether it is meant to be or not..

But when I click on the url it goes to the url BUT when I click on any =
other
place in the window too it goes to the url ( incl the OK button too)

chris
www.perl-resume.com



----- Original Message -----
From: Sean Healy <jal...@ho...>
To: <per...@li...>
Sent: Tuesday, January 23, 2001 6:50 AM
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About =
Window


> >Here's the code that you all helped me to figure out. You can use =
this to
> >implement a clickable URL in your About Window, or whereever you =
like.
The
> >code may not be very clean, let me know if you have suggestions to
improve
> >this. This example runs as-is.
>
> This is great!  I've been playing with it a bit, and I added some =
stuff so
> you can change the cursor when it's over the link.  You put this code
> somewhere before the label with the URL:
>
> $linkCursor =3D new Win32::GUI::Cursor('harrow.cur');
>
> $urlClass =3D new Win32::GUI::Class(
>     -name =3D> "UrlLabelClass",
>     -extends =3D> "STATIC",
>     -cursor =3D> $linkCursor,
> );
>
> Then you add '-class =3D> $urlClass' to the label.  The cursor =
'harrow.cur'
is
> included with the Win32-GUI samples.  (I think) STATIC is what =
Windows
> actually calls labels.
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


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

[perl-win32-gui-users] Version conflict

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

I received this message after I installed version 0.0.502

Win32::GUI object version 0.0.502 does not match
$Win32::GUI::VERSION Beta at D:
/Perl/lib/DynaLoader.pm line 219.
Compilation failed in require at ftp.pl line 4.
BEGIN failed--compilation aborted at ftp.pl line 4.


How do I change the Dynaloader.pm?

erick

Re: [perl-win32-gui-users] Win32::GUI version 0.0.558

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

fel...@mo... wrote:
> Aldo,
>
> I noticed that when I do a
>
> ppm install --location=http://dada.perl.it/PPM Win32-GUI
>
> I will get Win32-GUI version 0.0.502.  I don't get Win32-GUI
> version 0.0.558.
>
> Are you not placing this version in your PPM repository?

gimme time! this is not an automagical process ;-)
BTW, I'm not sure yet that 0.0.558 is stable enough for a
PPM distribution. I would like to get some feedback from
'people with a C compiler' that can build the module and
test it, before giving it out to everybody.


cheers,
Aldo

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

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

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

Erick J. Bourgeois wrote:
> Aldo, I thought I had the version just before 0.0.558,
> however when I type:
>
>> perl -MWin32::GUI -e "print Win32::GUI::Version;"
>
> it tells me it is beta.

too old. please upgrade NOW :-)
version 0.0.502, which is available as PPM package, has all
the features that you're missing.
(BTW, if you have trouble downloading files with PPM, I have
also packaged the PPM distribution as ZIP files on SourceForge).

cheers,
Aldo

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

[perl-win32-gui-users] Resizing

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

Aldo, I thought I had the version just before 0.0.558,
however when I type:

> perl -MWin32::GUI -e "print Win32::GUI::Version;"

it tells me it is beta.

erick

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

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

Erick J. Bourgeois wrote:
> I'm afraid the -minsize option does not work.

Erick, which version of Win32::GUI do you have
installed? try this command:

perl -MWin32::GUI -e "print Win32::GUI::Version;"

-resizable and -(min|max)size were added (IIRC --
If I Remember Correctly) around version 0.0.490.


cheers,
Aldo

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

Re: [perl-win32-gui-users] Final Code: Click on URL in About Window

[christopher s. <chr...@ya...>]

one more thing

I don't know whether it is meant to be or not..

But when I click on the url it goes to the url BUT when I click on any other
place in the window too it goes to the url ( incl the OK button too)

chris
www.perl-resume.com



----- Original Message -----
From: Sean Healy <jal...@ho...>
To: <per...@li...>
Sent: Tuesday, January 23, 2001 6:50 AM
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About Window


> >Here's the code that you all helped me to figure out. You can use this to
> >implement a clickable URL in your About Window, or whereever you like.
The
> >code may not be very clean, let me know if you have suggestions to
improve
> >this. This example runs as-is.
>
> This is great!  I've been playing with it a bit, and I added some stuff so
> you can change the cursor when it's over the link.  You put this code
> somewhere before the label with the URL:
>
> $linkCursor = new Win32::GUI::Cursor('harrow.cur');
>
> $urlClass = new Win32::GUI::Class(
>     -name => "UrlLabelClass",
>     -extends => "STATIC",
>     -cursor => $linkCursor,
> );
>
> Then you add '-class => $urlClass' to the label.  The cursor 'harrow.cur'
is
> included with the Win32-GUI samples.  (I think) STATIC is what Windows
> actually calls labels.
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

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

[Sam <sa...@se...>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

try running progressbar.pl in the samples directory in the win32 
distribution. if it goes then use that code, owise ask again, and 
state that that sample doesn't go, and what errors you got eg a 
BSOD/critical messagebox etc.

> Was hoping someone could provide a little guidance on using a progress bar. 
> WIN32-GUI-PPM-5.6, ActiveState Perl dist, WinME. Have been unable to get a 
> progress bar to appear at all. All other objects seem to work OK. Any ideas?
> 
> Thanks
> Matt Heffron
> m_h...@ho...
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 



-----BEGIN PGP SIGNATURE-----
Version: N/A

iQA/AwUBOmxLuJsRND2Z+TaWEQKsgACg2d3CZVJXrUYTAM0wEWusfy5aMl8AoO93
0GfrhwDjphzcBxIelHKUfjPZ
=mnYv
-----END PGP SIGNATURE-----

Sam Jacobson
R & D Manager / Software Engineer
Selective Communications
Ph +64 9 302 1142
www.selective.co.nz

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

[christopher s. <chr...@ya...>]

Works perfect for me too

chris
www.perl-resume.com



----- Original Message ----- 
From: Erick J. Bourgeois <er...@e-...>
To: <per...@li...>
Sent: Tuesday, January 23, 2001 2:14 AM
Subject: Re: [perl-win32-gui-users] Resizing


> I added the resizable option, however it still does not
> work:
> 
> $MainWin = new Win32::GUI::Window(
>     -name     => "MainWin",
>     -text     => "Main Window",
>     -height   => 400,
>     -width    => 450,
>     -left     => 200,
>     -top      => 100,
>     -font     => $Font,
>     -menu     => $Menu,
>     -resizable   => 0,
> 
> );
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] Final Code: Click on URL in About Window

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

>Here's the code that you all helped me to figure out. You can use this to
>implement a clickable URL in your About Window, or whereever you like. The
>code may not be very clean, let me know if you have suggestions to improve
>this. This example runs as-is.

This is great!  I've been playing with it a bit, and I added some stuff so 
you can change the cursor when it's over the link.  You put this code 
somewhere before the label with the URL:

$linkCursor = new Win32::GUI::Cursor('harrow.cur');

$urlClass = new Win32::GUI::Class(
    -name => "UrlLabelClass",
    -extends => "STATIC",
    -cursor => $linkCursor,
);

Then you add '-class => $urlClass' to the label.  The cursor 'harrow.cur' is 
included with the Win32-GUI samples.  (I think) STATIC is what Windows 
actually calls labels.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

[perl-win32-gui-users] Resizing

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

> Maybe, just maybe, this will work.  Add the following to
your window
> declaration:
>
>  -minsize=> [$minwidth,$minheight],
>  -maxsize=> [$maxwidth,$maxheight],
>
I'm afraid the -minsize option does not work.

$MainWin = new Win32::GUI::Window(
    -name     => "MainWin",
    -text     => "JEB FTP Client",
    -height   => 400,
    -width    => 450,
    -left     => 200,
    -top      => 100,
    -font     => $Font,
    -menu     => $Menu,
    -minsize  => [450, 400],
    -maxsize  => [450, 400]
);

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

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

Maybe, just maybe, this will work.  Add the following to your window
declaration:

 -minsize=> [$minwidth,$minheight],
 -maxsize=> [$maxwidth,$maxheight],

I know the -minsize works because I use it in one of my programs but never
tried the maxsize.

----- Original Message -----
From: "Erick J. Bourgeois" <er...@e-...>
To: <per...@li...>
Sent: Monday, January 22, 2001 3:44 PM
Subject: Re: [perl-win32-gui-users] Resizing


> I added the resizable option, however it still does not
> work:
>
> $MainWin = new Win32::GUI::Window(
>     -name     => "MainWin",
>     -text     => "Main Window",
>     -height   => 400,
>     -width    => 450,
>     -left     => 200,
>     -top      => 100,
>     -font     => $Font,
>     -menu     => $Menu,
>     -resizable   => 0,
>
> );
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

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

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

The code you sent works for me.  I don't know what's going on.

>$MainWin = new Win32::GUI::Window(
>     -name     => "MainWin",
>     -text     => "Main Window",
>     -height   => 400,
>     -width    => 450,
>     -left     => 200,
>     -top      => 100,
>     -font     => $Font,
>     -menu     => $Menu,
>     -resizable   => 0,
>
>);
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

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

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

I added the resizable option, however it still does not
work:

$MainWin = new Win32::GUI::Window(
    -name     => "MainWin",
    -text     => "Main Window",
    -height   => 400,
    -width    => 450,
    -left     => 200,
    -top      => 100,
    -font     => $Font,
    -menu     => $Menu,
    -resizable   => 0,

);

[perl-win32-gui-users] Progress Bar

[Matt H. <m_h...@ho...>]

Was hoping someone could provide a little guidance on using a progress bar. 
WIN32-GUI-PPM-5.6, ActiveState Perl dist, WinME. Have been unable to get a 
progress bar to appear at all. All other objects seem to work OK. Any ideas?

Thanks
Matt Heffron
m_h...@ho...
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

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

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

>How does one prevent a user from resizing a window? The only
>thing I could think of is testing the window size when they
>attempt to resize and then stopit from being resized. Is
>there an easier or more efficient way of doing it?

Add this option:
   -resizable => 0

You can also call it '-sizable'.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com