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

Re: [perl-win32-gui-users] Getting TAB in a Window

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

Ami wrote:
>I don't know why TAB works in a Dialog but not in a Window.

#Create window, then
$winMain->{dialogui} = 1;


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

Re: [perl-win32-gui-users] Question: Qualified callbacks

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

Ami wrote:
>At the moment I'm putting callbacks in package main, i.e. "global".  Is
>there any way to specify a package for callbacks?  Ideally Win32::GUI would
>assume the package of the object, instead of package main.

Yes. Or pass the window object to the event handler, that would be nice.

Untested, but I think it works like this: set -name => 
"MyPackage::MyControlname". This screws up a few other things, e.g. 
accessing the controls in an easy manner so it's not a good solution.

I keep all my control names in main, and put all event handlers in package 
main like this:

package MyApplicationStuff;
sub ::winMain_Terminate { #blah }


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] Another Listview Question...

[<Eva...@ao...>]

In a listview control, if a user selects multiple items, how can i get the 
indexes of ALL the items selected?  All i can figure out is how to get the 
first item selected...

-
______________________________
"Very funny Scotty.  Now beam up my clothes."

[perl-win32-gui-users] Getting TAB in a Window

[Ami Bar-Y. <am...@uf...>]

I don't know why TAB works in a Dialog but not in a Window.  I imagine some
digging around the dark recesses of Win32 documentation and the xs inner
workings might do the trick.  Then again, maybe it must be handled by the
Window's callbacks.

One idea that occurred to me, for now, is to make a Window and put a Dialog
in it and put the controls in the Dialog.  I haven't tried it yet, but it
sounds good :-)

Is there any plans to support more event types?  E.g. keyboard events.  Then
we might handle the TAB in our callbacks for a Window.  Not an ideal
solution.  I'd rather use events for more creative stuff.


Thanks,
--
Ami Bar-Yadin (am...@uf...)

[perl-win32-gui-users] Question: Qualified callbacks

[Ami Bar-Y. <am...@uf...>]

At the moment I'm putting callbacks in package main, i.e. "global".  Is
there any way to specify a package for callbacks?  Ideally Win32::GUI would
assume the package of the object, instead of package main.

Would this require changes to the xs?


Thanks,
--
Ami Bar-Yadin (am...@uf...)

RE: [perl-win32-gui-users] msk.pl

[Ami Bar-Y. <am...@uf...>]

> -----Original Message-----
> From: Aldo Calpini [mailto:da...@pe...]
> Sent: Wednesday, October 10, 2001 5:44 AM
> To: Ami Bar-Yadin
> Cc: List-Perl-Win32gui-users (E-mail)
> Subject: Re: [perl-win32-gui-users] msk.pl
...
> I already made a tentative at this, look at frm2pl.pl in the samples
> directory.
...


I haven't noticed it.  I looked at it right now, and I think I see where
you're going with this.  I was thinking in a different direction.

I'm not sure why we'd want a frm2pl.pl long term.  It would be better if a
program could read the source frm file each time, allowing further changes
to the form to be done in VB IDE.

Msk.pl maybe could read input in several different formats: msk, frm, etc.
I'd probably want to rename it and rethink how it's used.  Making it into a
class module, with sub classes for the different input formats is one way to
go.  Most of msk.pl would move to this module.  Msk.pl, looking much
simpler, would become one kind of use of this module, and frm2pl.pl would be
another kind of use.  Another use would be for a program to use the module
to build it's dialog.  This probably should tie in with any GUI form
designers for Win32::GUI.  I haven't had a chance to look at them yet.


(As you can probably tell, I'm using Outlook.  I want to move these messages
over to Agent at home...I'm still hashing out how I want to do it.  Then my
replies will look like newsgroup messages ought to look like.  Please
forgive and bear with me.  I haven't participated in a group for quite a
while :-)


Thanks,
--
Ami Bar-Yadin (am...@uf...)

RE: [perl-win32-gui-users] msk.pl

[Ami Bar-Y. <am...@uf...>]

I'd imagine Aldo Calpini is the one that set up the project.  Source Forge
lists 10 people working in the project.  Aldo Calpini and Joe Stewart are
listed as project administrators.

I think 10 people having their hand in the oven is enough for a project this
size, but that's just my opinion.

I don't know how much time I'll be able to put in this.  I want to play with
it, but I've got a to-do list at work that's years long.  Attachments in the
mail list is as good for me as CVS access.  Either way, whatever I do with
this package I will gladly share here.


Thanks,
--
Ami Bar-Yadin (am...@uf...)


> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...]On Behalf Of
> Mark Wilkinson
> Sent: Wednesday, October 10, 2001 8:42 PM
> Cc: List-Perl-Win32gui-users (E-mail)
> Subject: Re: [perl-win32-gui-users] msk.pl
>
>
> this is wonderful!
>
> Y'know... given that Win32::GUI is on Source-forge, these
> kinds of bug-fixes
> and upgrades really should be committed directly into the
> distributed code,
> rather than (or as well as) sent out to the group.  I see a
> lot of interesting
> ideas and bits and pieces of documentation etc. flow through
> this mailing
> list, but the code itself remains broken and/or badly
> documented in parts (eg.
> Menu's).  Is there anyone on the list whose responsibility it is to
> incorporate these snippets into the source code? Is there
> anyone out there
> with cvs write access?...Is there anyone out there who can
> give *me* cvs write
> access??  I would be willing to take up some of the slack
> myself if I had
> write access to the source.
>
> Mark
>
>
> Ami Bar-Yadin wrote:
>
> > I just joined the list, and a search of the archive does
> not show any
> > messages about the msk.pl program in the samples folder.
> >
> > As my first project to get familiar with Win32::GUI I
> finished msk.pl,
> > implementing the functionality it seemed to be aiming at.
> I thought I'll
> > share it with the group.  I also extended it a little, and
> I include a
> > slightly modified test.msk.  I use "usage.pl" to process
> command line
> > options, and I've included my copy of it.
> >
> > I think the original msk.pl and my version of it are just
> the beginning.
> > I'm going to take a look and see if I can read Visual Basic
> 6 form files
> > (.frm) and create Win32::GUI forms from them.  Leaving any
> VB code out, of
> > course.
> >
> > Thanks,
> > --
> > Ami Bar-Yadin (am...@uf...)
> >
> >
> --------------------------------------------------------------
> ----------
> >                Name: usage.pl
> >    usage.pl    Type: Perl Program (application/x-perl)
> >            Encoding: base64
> >
> >              Name: msk.pl
> >    msk.pl    Type: Perl Program (application/x-perl)
> >          Encoding: base64
> >
> >                Name: test.msk
> >    test.msk    Type: unspecified type (application/octet-stream)
> >            Encoding: 7bit
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Single select in listview?

[<pko...@me...>]

>How can I make a listview control where the user can only select one item
at a time?

-singlesel => 1

Peter

http://sourceforge.net/projects/auctioneer/
(Win32::GUI App for Auctions on the German eBay Marketplace)

[perl-win32-gui-users] Single select in listview?

[<Eva...@ao...>]

How can I make a listview control where the user can only select one item at 
a time?

Re: [perl-win32-gui-users] msk.pl

[Mark W. <ma...@il...>]

this is wonderful!

Y'know... given that Win32::GUI is on Source-forge, these kinds of bug-fixes
and upgrades really should be committed directly into the distributed code,
rather than (or as well as) sent out to the group.  I see a lot of interesting
ideas and bits and pieces of documentation etc. flow through this mailing
list, but the code itself remains broken and/or badly documented in parts (eg.
Menu's).  Is there anyone on the list whose responsibility it is to
incorporate these snippets into the source code? Is there anyone out there
with cvs write access?...Is there anyone out there who can give *me* cvs write
access??  I would be willing to take up some of the slack myself if I had
write access to the source.

Mark


Ami Bar-Yadin wrote:

> I just joined the list, and a search of the archive does not show any
> messages about the msk.pl program in the samples folder.
>
> As my first project to get familiar with Win32::GUI I finished msk.pl,
> implementing the functionality it seemed to be aiming at.  I thought I'll
> share it with the group.  I also extended it a little, and I include a
> slightly modified test.msk.  I use "usage.pl" to process command line
> options, and I've included my copy of it.
>
> I think the original msk.pl and my version of it are just the beginning.
> I'm going to take a look and see if I can read Visual Basic 6 form files
> (.frm) and create Win32::GUI forms from them.  Leaving any VB code out, of
> course.
>
> Thanks,
> --
> Ami Bar-Yadin (am...@uf...)
>
>   ------------------------------------------------------------------------
>                Name: usage.pl
>    usage.pl    Type: Perl Program (application/x-perl)
>            Encoding: base64
>
>              Name: msk.pl
>    msk.pl    Type: Perl Program (application/x-perl)
>          Encoding: base64
>
>                Name: test.msk
>    test.msk    Type: unspecified type (application/octet-stream)
>            Encoding: 7bit

Re: [perl-win32-gui-users] Win32-GUI cursor events

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

Anufriyenko,Igor wrote:
>         Is there documented (or undocumented) information regarding Mouse
>movement events such as:
>
>         - cursor over control
>         - cursor leaves control

That would be soo nice! But no, not that I know of.

There is a MouseMove event for the Graphic control (I use it in The GUI 
Loft), and it seems like you can get other controls to react like that 
using Classes. See the mousemove.pl Sample program in the Win32::GUI source 
distribution at SourceForge.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail 

[perl-win32-gui-users] Win32-GUI cursor events

[Anufriyenko,Igor,SOLON,I. - D. D. <igo...@us...>]

	Is there documented (or undocumented) information regarding Mouse
movement events such as:

	- cursor over control
	- cursor leaves control

	Thank you,

	Igor Anufriyenko

[perl-win32-gui-users] msk.pl

[Ami Bar-Y. <am...@uf...>]

I just joined the list, and a search of the archive does not show any
messages about the msk.pl program in the samples folder.

As my first project to get familiar with Win32::GUI I finished msk.pl,
implementing the functionality it seemed to be aiming at.  I thought I'll
share it with the group.  I also extended it a little, and I include a
slightly modified test.msk.  I use "usage.pl" to process command line
options, and I've included my copy of it.



I think the original msk.pl and my version of it are just the beginning.
I'm going to take a look and see if I can read Visual Basic 6 form files
(.frm) and create Win32::GUI forms from them.  Leaving any VB code out, of
course.


Thanks,
--
Ami Bar-Yadin (am...@uf...)

[perl-win32-gui-users] Web browser

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

I have just uploaded a module, IeOle.pm to PCE 
(http://www.jeb.ca/cgi-bin/exchange/display.cgi).  It uses OLE to automate 
an instance of Internet Explorer.  The IE window is 'always on top' and sits 
on top of your Win32::GUI window.  You cannot respond to events as yet, but 
you can navigate.  Please send any comments, bug reports, etc. to 
<jal...@ho...>.  The next two big features I plan to implement are 
responding to events and changing the base font.

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp

RE: [perl-win32-gui-users] Setting attributes after creation

[Piske, H. <Har...@bo...>]

> No luck so far, I've tried everyones various suggestions. AFAIK, you
> can use hexadecimal or decimals for colours.

Three suggestions:

1) If you create a label the size of your window as the very first control,
you can use it's background color to fill the window. 
$Main->AddLabel
(
	-name => 'backcolor',
	-background => 0xFF0000,
	-pos => [0, 0],
	-size => [640, 480],
);
To avoid problems when resizing the window, you can also make the label the
size of the desktop (or larger). However, even then, Change()ing this
label's -background property has no effect.

2)
	local $dc = $Main->GetDC ();
	local $brush = new Win32::GUI::Brush
	(
		-style => 0,
		-color => 0x00FF00,	# there it is
	);
	local $oldbrush = $dc->SelectObject ($brush);
	$dc->Rectangle (0, 0, $Main->Width (), $Main->Height ());
	$dc->SelectObject ($oldbrush);	# only bother if you
							# use DC otherwise
	$Main->InvalidateRect (0);
	$Main->Update ();
What's wrong with this method: whenever the window gets redrawn (like when
you change the size or activate it from behind another window) the color is
gone and needs to be redone with this procedure.

3) I did not do this, but maybe you'd have to resort to CreateWindowEx (with
API, not GUI). For an example you can look at alone.pl on
www.fairymails.com/perl/. That thing makes a label on the desktop, not a
colored window, but still you can see the use of CreateWindowEx.

hope one of these help you
Harald

RE: [perl-win32-gui-users] how do you read the contents of an edi t control?

[Piske, H. <Har...@bo...>]

> my $ss = pack("CCCCCCCCCCCC",5,0,0,0,  0,0,0,0,  0,0,0,0);
> GUI::SendMessage($window, $EM_GETLINE, 0, $ss);   # <<<< this does not

My guess is that you pass the SendMessage function a copy of $ss, or the
contents of $ss, to be precise, so that whatever gets put in there will not
make it back to $ss. But if you pass \$ss instead, I would not bet on the
SendMessage function to know what to make of it. If it adheres to DWIM,
you're lucky.

Re: [perl-win32-gui-users] Setting attributes after creation

[Marcus <li...@wo...>]

On 08.10.01 at 14:13 Eva...@ao... wrote:
>I believe colors in Win32::GUI are in decimal form, rather than hex,
so if 
>I'm right, then $win->Change(-background => [255,255,255]) should
work.

No luck so far, I've tried everyones various suggestions. AFAIK, you
can use hexadecimal or decimals for colours.

The manual states that the Change method takes a handle as first
argument, so I tried this:

my $winh = $win->{-handle};

$win->Change($winh, -background => "#FFFFFF");

No change with that either. Any more suggestions?

Marcus

[perl-win32-gui-users] how do you read the contents of an edit control?

[Ted H. <th...@me...>]

I am trying to read the contents of an edit control.  The control is 
created by another application, so I have no control over it.  I tried the 
code below, but the EM_GETLINE message is a strange one in that you need to 
place the buffer size in the first two bytes of the target string.  Any 
help would be appreciated.

my $linetextlen = GUI::SendMessage( $window, $EM_LINELENGTH, 0, 0);   # 
<<<< this works
print  " linetextlen=$linetextlen";

my $ss = pack("CCCCCCCCCCCC",5,0,0,0,  0,0,0,0,  0,0,0,0);
GUI::SendMessage($window, $EM_GETLINE, 0, $ss);   # <<<< this does not
print " text=$ss";   

[perl-win32-gui-users] Setting attributes after creation

[Marcus <li...@wo...>]

How do you change the background colour of a window, or in general
change any attribute after creation?
I tried $win->Change(-background => "#FFFFFF"), but that didn't appear
to do anything. Does anybody know how to do this?
I didn't find the "Change" method in any of the samples.

Btw, any chance of making the archives searchable?
If the group wants to mirror the list on yahoogroups, for example, and
that's still possible as it used to be, then I'll help set it up.

Thanks,

Marcus

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

[Marcus <li...@wo...>]

On 07.10.01 at 11:35 Peter K=F6ller wrote:
>Have a look into the AboutDialog of my current Win32-GUI project
>"Auktionator":
>http://sourceforge.net/projects/auctioneer/
>There you will find how I use Win32::GUI::HyperLink.

Thanks Peter and Evan(?), that's very useful. "Auktionator" also looks
like a cool Win32 GUI application. Another good example to add to the
list.

Marcus

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

[<Eva...@ao...>]

package Win32::GUI::HyperLink;

my $VERSION =3D "0.02";

use Win32::GUI;
use Win32::GUI::BitmapInline 0.02;
use Win32::API 0.20;

@ISA =3D qw( Win32::GUI::Label );


my $LoadCursor =3D new Win32::API("user32", "LoadCursor", "NN", "N");
my $ShellExecute =3D new Win32::API("shell32", "ShellExecute", "NPPPPI", "N"=
);
my $linkCursor =3D $LoadCursor->Call( 0, 32649 );

if(not $linkCursor) {
$linkCursor =3D newCursor Win32::GUI::BitmapInline( q(
AAACAAEAICAAAAwAAQDoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA
/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATMREREQAAA
AAAAAAAAAAAEzEREREAAAAAAAAAAAAAABMxERERAAAAAAAAAAAAAAATMREREQAAAAAAAAAAAAAAE
zEREREAAAAAAAAAAAAAAAEQAAAAAAAAAAAAAAAAAAAB////4AAAAAAAAAAAAAAAAf///+AAAAAAA
AAAAAAAAB/////+AAAAAAAAAAAAAAH//////gAAAAAAAAAAAAAf///////gAAAAAAAAAAAAH////
///4AAAAAAAAAAAAf///////+AAAAAAAAAAAAH////////+AAAAAAAAAAAf/////////gAAAAAAA
AAAH/4j//////4AAAAAAAAAAf/gA//////+AAAAAAAAAAH+AB/////9/gAAAAAAAAAf4AAf/f/f4
D4AAAAAAAAAHcAAH+A+A+A+AAAAAAAAAAAAAB/gPgPgHcAAAAAAAAAAAAAf4D4D4AAAAAAAAAAAA
AAAH+A+AdwAAAAAAAAAAAAAAB/gHcAAAAAAAAAAAAAAAAAf4AAAAAAAAAAAAAAAAAAAH+AAAAAAA
AAAAAAAAAAAAB/gAAAAAAAAAAAAAAAAAAAf4AAAAAAAAAAAAAAAAAAAAdwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAD////////////gA///4AP//+AD///gA///4AP///AH///wB///8Af//+AD///A
A///gAH//4AB//8AAf//AAD//gAA//4AAP/8AAD//CAA//hgAP/44AD//+AB///gB///4A///+B/
///h////4f///+H////h////8////////w=3D=3D
) );
}

my %linkFont =3D Win32::GUI::Font::Info(Win32::GUI::GetStockObject(17));
$linkFont{-underline} =3D 1;
my $linkFont =3D new Win32::GUI::Font( %linkFont );
my $linkClass =3D new Win32::GUI::Class(
    -name =3D> "Win32::GUI::HyperLink",
    -extends =3D> "STATIC",
    -cursor =3D> $linkCursor,
);

sub new {
    my $class =3D shift;
    my $parent =3D shift;
    my %options =3D @_;
    $options{-class} =3D $linkClass;
    $options{-foreground} =3D [0, 0, 255] unless exists $options{-foreground=
};
    $options{-font} =3D $linkFont unless exists $options{-font};
    $options{-notify} =3D 1;
   =20
    eval qq(
        sub main::$options{-name}_Click {
            Win32::GUI::HyperLink::OpenLink("\Q$options{-url}\E");     =20
        }          =20
    );  =20
    return new Win32::GUI::Label( $parent, %options ); =20
}

sub Win32::GUI::Window::AddHyperLink {
    return Win32::GUI::HyperLink->new(@_);
}

sub OpenLink {
    $ShellExecute->Call( 0, 0, shift, 0, 0, 6);
}

1;

[perl-win32-gui-users] Hyperlinks

[Marcus <li...@wo...>]

I'd like to create hyperlinks in an "About" window. I used a label, but
didn't see any colour change. Do I need to use RichEdit for colours?

I don't suppose anybody already has any code for hyperlinks?

Thanks,

Marcus

[perl-win32-gui-users] RE: Menus, samples

[Marcus <li...@wo...>]

On 30.09.01 at 15:13 Frazier, Joe Jr wrote:
>There is no URL.  I checked the samples.  You MUST download the source
>in order to get the documention and the samples.   Several of the
>samples have Menus to look at.

Look for a sample program with menus, and look at the source. It's very
simple. I just learnt about menus yesterday like that.

>Note that several of the samples WILL
>NOT work without modifications.   Most are just missing a -name for
some
>of the controls.  

Can't we collect the corrected samples and redistribute them?
I've just started with Win32::GUI and it's offputting as a newcomer.
You wonder about the status of development and whether it's worth
getting into Win32::GUI at this stage. I didn't find any hints that the
errors were due to syntax errors (or syntax changes?) in the samples.

Marcus

RE: [perl-win32-gui-users] (no subject)

[Frazier, J. J. <Joe...@Pe...>]

VGhlcmUgaXMgbm8gVVJMLiAgSSBjaGVja2VkIHRoZSBzYW1wbGVzLiAgWW91IE1VU1QgZG93bmxv
YWQgdGhlIHNvdXJjZQ0KaW4gb3JkZXIgdG8gZ2V0IHRoZSBkb2N1bWVudGlvbiBhbmQgdGhlIHNh
bXBsZXMuICAgU2V2ZXJhbCBvZiB0aGUNCnNhbXBsZXMgaGF2ZSBNZW51cyB0byBsb29rIGF0LiAg
IE5vdGUgdGhhdCBzZXZlcmFsIG9mIHRoZSBzYW1wbGVzIFdJTEwNCk5PVCB3b3JrIHdpdGhvdXQg
bW9kaWZpY2F0aW9ucy4gICBNb3N0IGFyZSBqdXN0IG1pc3NpbmcgYSAtbmFtZSBmb3Igc29tZQ0K
b2YgdGhlIGNvbnRyb2xzLiAgDQogDQoNCgktLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLSANCglG
cm9tOiBNYXJrIFdpbGtpbnNvbiANCglTZW50OiBTdW4gOS8zMC8yMDAxIDEyOjI2IFBNIA0KCVRv
OiBGcmF6aWVyLCBKb2UgSnIgDQoJQ2M6IHBlcmwtd2luMzItZ3VpLXVzZXJzQGxpc3RzLnNvdXJj
ZWZvcmdlLm5ldCANCglTdWJqZWN0OiBSZTogW3Blcmwtd2luMzItZ3VpLXVzZXJzXSAobm8gc3Vi
amVjdCkNCgkNCgkNCg0KCUkgY2FuJ3QgZmluZCBhbnl3aGVyZSBpbiB0aGUgZG9jdW1lbnRhdGlv
biB0aGF0IGRlc2NyaWJlcyBob3cgdG8NCmNyZWF0ZS91c2UNCglNZW51J3MuLi4gaXQganVzdCBz
YXlzICJUQkEiIGV2ZXJ5d2hlcmUuDQoJDQoJSG93IGFyZSB5b3UgZmluZGluZyB0aGlzIGluZm9y
bWF0aW9uPz8gIFBsZWFzZSBzZW5kIG1lIHRoZSBVUkwuDQpJIGNoZWNrZWQNCglhbGwgb2YgdGhl
IFVSTCdzIGZyb20gdGhlICJEb2N1bWVudGF0aW9uIiB0aHJlYWQgYW5kIHRoZXkgZGlkbid0DQpo
ZWxwLiAgSQ0KCWhhdmUgYWxzbyByZWFkIHRoZSBzb3VyY2UgY29kZSwgYnV0IGl0IGlzbid0IGRv
Y3VtZW50ZWQgaW4gYW55DQp1c2VmdWwgd2F5DQoJZWl0aGVyLCBzby4uLiAgSSdtIHN0dWNrLg0K
CQ0KCTotKA0KCQ0KCU1hcmsNCgkNCgkNCgkiRnJhemllciwgSm9lIEpyIiB3cm90ZToNCgkNCgk+
IEdpdmVuOg0KCT4NCgk+ICRtZW51ID0gV2luMzI6OkdVSTo6TWFrZU1lbnUoDQoJPiAgICAgIiZG
aWxlIiAgICAgPT4gIkZpbGUiLA0KCT4gICAgICIgPiBFJnhpdCIgID0+ICJFeGl0IiwNCgk+ICAg
ICAiJlNlYXJjaCIgICA9PiAiU2VhcmNoIiwNCgk+ICAgICAiID4gJkNsaWVudCBJRCIgID0+ICJD
SUQiLA0KCT4gKTsNCgk+DQoJPiB0aGVuIHRoaXM6DQoJPiAkbWVudS0+e0NJRH0tPkVuYWJsZWQo
MCk7DQoJPg0KCT4gZGlzYWJsZXMgdGhlIENsaWVudCBJRCBtZW51IGNvbW1hbmQgYW5kDQoJPg0K
CT4gJG1lbnUtPntDSUR9LT5FbmFibGVkKDEpOw0KCT4NCgk+IHJlZW5hYmxlcyBpdC4NCgk+DQoJ
PiAtLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLQ0KCT4gRnJvbTogRXZhbks0MDc2N0Bhb2wuY29t
IFttYWlsdG86RXZhbks0MDc2N0Bhb2wuY29tXQ0KCT4gU2VudDogVGh1cnNkYXksIFNlcHRlbWJl
ciAyNywgMjAwMSAxMjoxOCBBTQ0KCT4gVG86IHBlcmwtd2luMzItZ3VpLXVzZXJzQGxpc3RzLnNv
dXJjZWZvcmdlLm5ldA0KCT4gU3ViamVjdDogW3Blcmwtd2luMzItZ3VpLXVzZXJzXSAobm8gc3Vi
amVjdCkNCgk+DQoJPiBJJ3ZlIGdvdCAyIHF1ZXN0aW9ucy4uLg0KCT4NCgk+IEluIGEgbGlzdHZp
ZXcgY29udHJvbCwgaXMgdGhlcmUgYSB3YXkgSSBjYW4gc2VsZWN0ICphbGwqIG9mDQp0aGUgaXRl
bXMgaW4NCgk+IHRoZSBjb250cm9sPyAgQWxvbmcgdGhvc2Ugc2FtZSBsaW5lcywgY291bGQgaSBh
bHNvIHNlbGVjdA0KKm5vbmUqIG9mIHRoZQ0KCT4gaXRlbXM/DQoJPg0KCT4gQW5kIG9uZSBtb3Jl
IHRoaW5nLi4uY2FuIGkgZW5hYmxlL2Rpc2FibGUgc3BlY2lmaWMgaXRlbXMgaW4gYQ0KCT4gV2lu
MzI6OkdVSTo6TWVudSBvYmplY3QgKGFuZCBpZiBzbywgaG93KT8NCgk+DQoJPiAtDQoJPiBfX19f
X19fX19fX19fX19fX19fX19fX19fX19fX18NCgk+ICJWZXJ5IGZ1bm55IFNjb3R0eS4gIE5vdyBi
ZWFtIHVwIG15IGNsb3RoZXMuIg0KCT4NCgk+IF9fX19fX19fX19fX19fX19fX19fX19fX19fX19f
X19fX19fX19fX19fX19fX19fDQoJPiBQZXJsLVdpbjMyLUdVSS1Vc2VycyBtYWlsaW5nIGxpc3QN
Cgk+IFBlcmwtV2luMzItR1VJLVVzZXJzQGxpc3RzLnNvdXJjZWZvcmdlLm5ldA0KCT4NCmh0dHBz
Oi8vbGlzdHMuc291cmNlZm9yZ2UubmV0L2xpc3RzL2xpc3RpbmZvL3Blcmwtd2luMzItZ3VpLXVz
ZXJzDQoJDQoJDQoNCg==

Re: [perl-win32-gui-users] (no subject)

[Mark W. <ma...@il...>]

I can't find anywhere in the documentation that describes how to create/use
Menu's... it just says "TBA" everywhere.

How are you finding this information??  Please send me the URL.  I checked
all of the URL's from the "Documentation" thread and they didn't help.  I
have also read the source code, but it isn't documented in any useful way
either, so...  I'm stuck.

:-(

Mark


"Frazier, Joe Jr" wrote:

> Given:
>
> $menu = Win32::GUI::MakeMenu(
>     "&File"     => "File",
>     " > E&xit"  => "Exit",
>     "&Search"   => "Search",
>     " > &Client ID"  => "CID",
> );
>
> then this:
> $menu->{CID}->Enabled(0);
>
> disables the Client ID menu command and
>
> $menu->{CID}->Enabled(1);
>
> reenables it.
>
> -----Original Message-----
> From: Eva...@ao... [mailto:Eva...@ao...]
> Sent: Thursday, September 27, 2001 12:18 AM
> To: per...@li...
> Subject: [perl-win32-gui-users] (no subject)
>
> I've got 2 questions...
>
> In a listview control, is there a way I can select *all* of the items in
> the control?  Along those same lines, could i also select *none* of the
> items?
>
> And one more thing...can i enable/disable specific items in a
> Win32::GUI::Menu object (and if so, how)?
>
> -
> ______________________________
> "Very funny Scotty.  Now beam up my clothes."
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users