Re: [perl-win32-gui-users] Scintilla Editor Folding Implementation in Win32::GUI::Scintilla

[Jason P.]

Jeremy White wrote:


I had never actually bothered to make use of the _Notify until you 
mentioned it, and realized that it is completely useless as it is 
*never* fired. I am having serious problems even locating where such


Interesting - I'm getting the event firing. This control only works 
under OEM - so maybe that's the problem?

Hmm....
Well, I'm not using NEM in my code... could this be yet another classic 
5.8 vs 5.6?

I've attached my test code for you to test one your end if you get a second.

Jason P.
##
 use strict;
 use warnings;
 
 use Win32::GUI;
 use Win32::GUI::Scintilla;
 use Win32::GUI::Scintilla::Perl;
 
 my $win = new Win32::GUI::Window(
        -name => 'frmSciView',
        -size => [300,300],
        -minsize =>[300,300]
 );
 
 my $sciViewer = $win->AddScintillaPerl(
        -name=> "sciViewer",
        -left => 0, 
        -top => 0, 
        -width => ($win->GetClientRect)[2],
        -height => ($win->GetClientRect)[3],
        -addexstyle => WS_EX_CLIENTEDGE
 );
 
 $sciViewer->SetEOLMode(2);  
 #Change look and feel to your liking here.

 

 sub frmSciView_Resize{
        if (defined $win) {
                my ($width, $height) = ($win->GetClientRect)[2..3];

                $sciViewer->Resize ($width, $height);
        }
 }
 
 sub sciViewer_Notify{
        #
        my (%evt) = @_;

        print "sciViewer Notify = ", %evt, "\n";
 }     
 
 $win->Show();
 
 
 $sciViewer->LoadFile('ed_test.pl');

 
 print $sciViewer->GetEOLMode(),"\n";

 
 Win32::GUI::Dialog();
 
 $sciViewer->SaveFile('ed_test.pl');