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

[ramy]

Scintilla is a very powerfull source code editor, 
I am trying to test the Perl wrapper by Laurent Rocher,
below is the starting code from the Win32::GUI::Scintilla docs,
The only problem now I am having is how to activate the Folding
and how to use it, can anyone please post code on how to display
the folding margine and symbols etc. I see in the module functions
for folding but can not figure out how.

use Win32::GUI;
use Win32::GUI::Scintilla;  # main Window
$|=1;

 $Window = new Win32::GUI::Window (
            -name     => "Window",
            -title    => "Scintilla test",
            -pos      => [100, 100],
            -size     => [400, 400],
          ) or die "new Window";  # Create Scintilla Edit Window

 # $Edit = new Win32::GUI::Scintilla  (
 #               -parent  => $Window,
 # Or
 
 $Edit = $Window->AddScintilla  (
     -name    => "Edit",
     -pos     => [0, 0],
     -size    => [400, 400],
     -text    => "Test\n",
 ) or die "new Edit";  # Call Some method

 $Edit->AddText ("add\n");
 $Edit->AppendText ("append\n");  # Event loop
 
 $Window->Show();
 Win32::GUI::Dialog();  # Main window event handler

sub Window_Terminate {
 # Call Some method
 print "GetText = ", $Edit->GetText(), "\n";
 print "GetSelText = ", $Edit->GetSelText(), "\n";
 print "GetTextRange(2) = ", $Edit->GetTextRange(2), "\n";
 print "GetTextRange(2, 6) = ", $Edit->GetTextRange(2, 6), "\n";
 return -1;
}

# Main window resize
sub Window_Resize {
 if (defined $Window) {
  ($width, $height) = ($Window->GetClientRect)[2..3];
  $Edit->Move   (0, 0);
  $Edit->Resize ($width, $height);
 }
} 

# Scintilla Event Notification
sub Edit_Notify {
my (%evt) = @_;
 print "Edit Notify = ", %evt, "\n";
}