The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package syntaxhighlighter::ave;
$VERSION = '0.01';

use Wx qw(wxSTC_LEX_AVE wxSTC_H_TAG);

sub load{
 $_[0]->SetLexer( wxSTC_LEX_AVE );
 $_[0]->SetKeyWords(0,'nil true false else for if while then elseif end av self \
in exit');

# $_[0]->StyleSetSpec( wxSTC_H_TAG, "fore:#000055" ); # Apply tag style for selected lexer (blue)
 $_[0]->StyleSetSpec( 0,"fore:#FF0000");			# White space
 $_[0]->StyleSetSpec( 1,"fore:#aaaaaa");			# Comment
 $_[0]->StyleSetSpec( 2,"fore:#007f7f");			# Number
 $_[0]->StyleSetSpec( 3,"fore:#000077,bold");		# Keyword
 $_[0]->StyleSetSpec( 6,"fore:#f36600");			# String
 $_[0]->StyleSetSpec( 7,"fore:#207f7f,bold");		# Enumeration
 $_[0]->StyleSetSpec( 8,"back:#E0C0E0,eolfilled");	# End of line where string is not closed
 $_[0]->StyleSetSpec( 9,"fore:#7F007f");			# Identifier (everything else...)
 $_[0]->StyleSetSpec(10,"fore:#ff9999");			# Operators
 $_[0]->StyleSetSpec(11,"fore:#FF0000");			# Illegal token
 $_[0]->StyleSetSpec(32,"fore:#000000");			# Default 
# Other keywords 12-16 (bozo test colors :-) 12,13 bold
 
}

1;