NAME

Tk::TextHighlight::Perl - a Plugin for Perl syntax highlighting

SYNOPSIS

Tk::TextHighlight::PerlCool inherits Syntax::Highlight::Perl;

  use Tk;
  require Tk::TextHighlight;

  my $m = new MainWindow;

  my $e = $m->Scrolled("TextHighlight",
    -syntax => "PerlCool",
    -scrollbars => "se",
    -background => "black",
  )->pack(-expand => 1, -fill => "both");

  $m->MainLoop;

For its limitations see also there. This module provides extra methods to provide syntax highlighting for the Perl programming language.

METHODS

highlight($string);

returns a list of string snippets and tags that can be inserted in a Tk::Text like widget instantly.

rules($txtwidget,\@list)

sets and returns a reference to a list of tagnames and options. By default it is set to:

 [
    ['DEFAULT', -foreground => 'black'],
    ['Comment_Normal', -foreground => 'lightblue'],
    ['Comment_Pod', -foreground => 'lightblue'],
    ['Directive', -foreground => 'darkgreen'],
    ['Label', -foreground => 'black'],
    ['Quote', -foreground => 'green'],
    ['String', -foreground => 'green'],
    ['Variable_Scalar', -foreground => 'blue'],
    ['Variable_Array', -foreground => 'blue'],
    ['Variable_Hash', -foreground => 'blue'],
    ['Subroutine', -foreground => 'cyan'],
    ['Character', -foreground => 'magenta'],
    ['Keyword', -foreground => 'darkgreen'],
    ['Builtin_Operator', -foreground => 'darkred'],
    ['Operator', -foreground => 'darkgreen'],
    ['Number', -foreground => 'yellow'],
 ]

rulesConfigure($txtwidget,\@list)

Used internally. Don't call it yourself.

rulesDelete($txtwidget,\@list)

stateCompare(\@state);

Compares @state to the current state of the formatter. returns true when equal.

stateGet

Returns a list of the current state of the formatter. Called by the highlighting routines in Tk::TextHighlight.

stateSet(@list)

Sets the state of the formatter. Called by the highlighting routines in Tk::TextHighlight.

AUTHOR

Original CodeText Author: Hans Jeuken (haje@toneel.demon.nl)

TextHighlight Author: Jim Turner (turnerjw784@mesh.net)

BUGS

Propably plenty