diff options
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/ZincText.pm | 117 |
1 files changed, 115 insertions, 2 deletions
diff --git a/Perl/ZincText.pm b/Perl/ZincText.pm index 0cf04b5..26ff038 100644 --- a/Perl/ZincText.pm +++ b/Perl/ZincText.pm @@ -60,7 +60,7 @@ sub insertChar { } if ((scalar(@selit) == scalar(@it)) && - ($selit[0] == $it[0]) && ($selit[1] == $it[1])) { + ($selit[0] eq $it[0]) && ($selit[1] eq $it[1])) { $w->dchars(@it, 'sel.first', 'sel.last'); } $w->insert(@it, 'insert', $c); @@ -135,7 +135,7 @@ sub textDel { } if ((scalar(@selit) == scalar(@it)) && - ($selit[0] == $it[0]) && ($selit[1] == $it[1])) { + ($selit[0] eq $it[0]) && ($selit[1] eq $it[1])) { $w->dchars(@it, 'sel.first', 'sel.last'); } else { @@ -145,3 +145,116 @@ sub textDel { } 1; +__END__ + +=head1 NAME + +ZincText - Zinc extension for easing text input on text item or on fields + +=head1 SYNOPSIS + + use ZincText; + + $zinc = $mw->Zinc(); + new ZincText ($zinc); + .... + $zinc->addtag('text', 'withtag', $a_text); + $zinc->addtag('text', 'withtag', $a_track); + $zinc->addtag('text', 'withtag', $a_waypoint); + $zinc->addtag('text', 'withtag', $a_tabular); + +=head1 DESCRIPTION + +This module implements text input with the mouse and keyboard 'a la emacs'. +Text items must have the 'text' tag and must of course be sensitive. +Track, waypoint and tabular items have fields and these fields can +be edited the same way. Only sensitive fields can be edited. the following +interactions are supported: + +=over 2 + +=item B<click 1> + +To set the cursor position + +=item B<click 2> + +To paste the current selection + +=item B<drag 1> + +To make a selection + +=item B<shift drag 1> + +To extend the current selection + +=item B<shift 1> + +To extend the current selection + +=item B<left arrow>, B<right arrow> + +To move the cursor to the left or to the right + +=item B<up arrow>, B<down arrow> + +To move the cursor up or down a line + +=item B<ctrl+a>, B<home> + +To move the cursor at the begining of the line + +=item B<ctrl+e>, B<end> + +To move the cursor at the end of the line + +=item B<meta+<>, B<meta+E<gt>> + +To move the cursor at the beginning / end of the text + +=item B<BackSpace>, B<ctrl+h> + +To delete the char just before the cursor + +=item B<Delete> + +To delete the char just after the cursor + +=item B<Return> + +To insert a return char. This does not validate the input! + +=back + +=head1 BUGS + +No known bugs at this time. If you find one, please report them to the authors. + +=head1 SEE ALSO + +perl(1), Tk(1), Tk::Zinc(3), zinc-demos(1) + +=head1 AUTHORS + +Patrick Lecoanet <lecoanet@cena.fr> +(and some documentation by Christophe Mertz <mertz@cena.fr>) + +=head1 COPYRIGHT + +CENA (C) 2002 + +ZincText is part of Zinc and has been developed by the CENA (Centres d'Etudes de la Navigation Aérienne) +for its own needs in advanced HMI (Human Machine Interfaces or Interactions). Because we are confident +in the benefit of free software, the CENA delivered this toolkit under the GNU +Library General Public License. + +This code is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library +General Public License for more details. + +=head1 HISTORY + +June 2002 : initial release with Zinc-perl 3.2.6 + +=cut |