i've dug through the documentation and found win32::gui::accelerator and
win32::gui::acceleratortable and -accel -accelerators and -acceleratortable
and i've tried a number of combinations of these but it doesn't seem to
work. are these deprecated or are they supposed to work?
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: "Mark Di Nicola" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>; <perl-win32-gui-users@lists.sourceforge.net>;
<[EMAIL PROTECTED]>; "Peter Eisengrein"
<[EMAIL PROTECTED]>
Sent: Sunday, May 19, 2002 2:34 AM
Subject: Re: [perl-win32-gui-users] keystrokes
>
> Mark,
>
> I think something like the example at the below used to work but it
doesn't
> seem to work any more on my system. Aldo's PRIDE example had something
> like this in it but this doesn't work now on my system either (it only
> worked if I commented out the " -class => $EditorClass," line from the
> definition of the RichEdit control).
>
> Hopefully you'll have better luck than me getting this to work.
>
> Cheers,
>
> Kev.
>
> use Win32::GUI;
>
> $Win = new Win32::GUI::Window(
> -left => 341,
> -top => 218,
> -width => 300,
> -height => 300,
> -name => "Win",
> -text => "A Window"
> );
>
> $Win->Show();
>
> $Win->AddRichEdit(
> -text => "",
> -name => "MyEdit",
> -multiline => 1,
> -left => 9,
> -top => 14,
> -width => 271,
> -height => 248,
> -addexstyle => WS_EX_CLIENTEDGE,
> -addstyle => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
> | ES_LEFT | ES_MULTILINE | ES_AUTOHSCROLL |
> ES_AUTOVSCROLL,
> );
>
> Win32::GUI::Dialog();
>
> sub MyEdit_KeyPress {
> my $key = shift;
> print "Key: $key\n";
> # do what ever action you want depending on the value of key
> }
>
> sub MyEdit_Change {
> print "Richedit changed\n";
> }
>
> sub Win_Terminate {
> return -1;
> }
>
>
> |---------+------------------------------------------------>
> | | "Mark Di Nicola" |
> | | <[EMAIL PROTECTED]> |
> | | Sent by: |
> | | [EMAIL PROTECTED]|
> | | ceforge.net |
> | | |
> | | |
> | | 18/05/2002 01:51 |
> | | |
> |---------+------------------------------------------------>
>
>---------------------------------------------------------------------------
-------------------|
> |
|
> | To: "Peter Eisengrein" <[EMAIL PROTECTED]>,
<[EMAIL PROTECTED]>, |
> | <perl-win32-gui-users@lists.sourceforge.net>
|
> | cc:
|
> | Subject: Re: [perl-win32-gui-users] keystrokes
|
>
>---------------------------------------------------------------------------
-------------------|
>
>
>
>
>
> thanks. have you got any examples on how its supposed to be done?
> ----- Original Message -----
> From: Peter Eisengrein
> To: '[EMAIL PROTECTED]' ; perl-win32-gui-users@lists.sourceforge.net
> Sent: Saturday, May 18, 2002 4:29 AM
> Subject: RE: [perl-win32-gui-users] keystrokes
>
> There is an 'accelerator' method which does what I think you want but
I've
> never been able to make it work. You can fake some of it if the keystroke
> has an associated number value.
>
>
> > -----Original Message-----
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> > Sent: Thursday, May 16, 2002 20:11
> > To: perl-win32-gui-users@lists.sourceforge.net
> > Subject: [perl-win32-gui-users] keystrokes
> >
> >
> > hi. is there any way of associating a keystroke with
> > something, like alt+s
> > to bring up a settings window?
> >
> >
> > _______________________________________________________________
> >
> > Have big pipes? SourceForge.net is looking for download
> > mirrors. We supply
> > the hardware. You get the recognition. Email Us:
> > [EMAIL PROTECTED]
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>
>
>
>
>
> _______________________________________________________________
> Hundreds of nodes, one monster rendering program.
> Now that's a super model! Visit http://clustering.foundries.sf.net/
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
