-
		if ($debug) {-
		sub new {-
		   $self->{COMMANDS} = {-
		sub AppendText {-
		   unless ($self->Broadcast('append', @_)) {-
		sub Broadcast {-
		   foreach (@$plugs) {-
		      if ($_->Receive(@_)) {-
		sub Call2Remove {-
		   if ($call =~ /.*remove$/) {-
		   } else {-
		sub Call2Replace {-
		   if ($call =~ /.*replace$/) {-
		   } else {-
		sub Call2WriteText {-
		   if ($call =~ /.*write$/) {-
		   } else {-
		sub Callback {-
		sub CanUndo {-
		sub CanRedo {-
		sub Clear {-
		   unless ($self->Broadcast('clear')) {-
		sub ClearSelection {-
		sub Command {-
		sub Copy {-
		   unless ($self->Broadcast('copy')) {-
		sub Cut {-
		   unless ($self->Broadcast('cut')) {-
		sub DoRemove {-
		   if (defined($ins)) {-
		sub DoReplace {-
		   if ($sel) {-
		   if (defined($ins)) {-
		sub DoWrite {-
		   if ($sel) {-
		   if (defined($ins)) {-
		sub FindPluginId {-
		   foreach (@$plgs) {-
		      if ($name eq $plgs->[$index]->Name) {-
		sub FindPlugin {-
		   foreach (@$plgs) {-
		      if ($name eq $_->Name) {-
		sub GetClipboardText {-
		   if (wxTheClipboard->Open) {-
		      if( $ok ) {-
		sub GetLineNumber {-
		sub HasSelection {-
		sub IsWriteable {-
		   if ((($key >= 32) and ($key < 127)) or (($key > 127) and ($key < 256))) {-
		sub Listening {-
		   if (@_) {-
		      unless ($new eq $self->{LISTENING}) {-
		         if ($new) {-
		         } else {-
		sub LoadFile {-
		   unless ($self->Broadcast('load', @_)) {-
		sub LoadPlugin {-
		   if (defined($plug)) {-
		   } else {-
		sub Name {-
		sub OnChar {-
		   if ($k eq 322) { #Insert key pressed, record flip insert/ovr mode.-
		      if ($self->OvrMode) {-
		      } else {-
		   unless ($self->Broadcast('key', $event)) {-
		sub OvrMode {-
		sub Paste {-
		   unless ($self->Broadcast('paste')) {-
		sub Plugin {-
		   unless ($id =~ /^\d+$/) {-
		   if (@_) { -
		sub Receive {-
		   if (exists $self->{COMMANDS}->{$name}) {-
		sub Redo {-
		   unless ($self->Broadcast('redo')) {-
		sub RegisterPlugin {-
		sub Remove {-
		   unless ($self->Broadcast(@call)) {-
		sub Remove2Call {-
		sub Replace {-
		   unless ($self->Broadcast(@call)) {-
		sub Replace2Call {-
		sub SaveFile {-
		   unless ($self->Broadcast('save', @_)) {-
		sub NativePlugins {-
		sub Syntax {-
		sub Undo {-
		   unless ($self->Broadcast('undo')) {-
		sub WriteText {-
		   unless ($self->Broadcast(@call)) {-
		sub WriteText2Call {