-
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 {