[perl-win32-gui-users] RichEdit and Class in 0.0.665

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

Tried to post this previously, but it's been over 48 hours and it hasn't 
shown up in my inbox, so I'll try again.

I have some old code written under 0.0.558 which uses a Class to get the 
RButtonDown event from a RichEdit.  I recently tried to run this code under 
0.0.665, and it won't even compile.  The Class is:

$Clickable = new Win32::GUI::Class(
   -name    => 'Clickable',
   -widget  => 'RichEdit',
   -extends => 'RichEdit',
   );

If I comment out the -widget option, or comment out the -class option from 
the RichEdit, the script compiles and runs, but I get no RButtonDown event.  
Does anyone know a workaround for this?

Some time ago, someone posted a way to make a RichEdit respond to clicks, 
etc. by sending a certain message via SendMessage.  I don't remember the 
message constant or the associated parameters, but if anyone still has this, 
and it works under 0.0.665, could you please repost it?  It would probably 
be a better solution than faking RightCLick via RButtonDown.

Also, somewhat more recently, someone asked about having multiple columns in 
a TreeView.  I have made this work (sort of) with a ListView and associated 
ImageList.  I'm working on encapsulating it into a module.  Once I have the 
module ready, I'll put it up somewhere (unless someone has beaten me to it 
and I just haven't seen the announcement).

_________________________________________________________________
MSN Photos is the easiest way to share and print your photos: 
http://photos.msn.com/support/worldwide.aspx