/usr/share/perl5/Curses/UI/TextEntry.pm is in libcurses-ui-perl 0.9609-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | # ----------------------------------------------------------------------
# Curses::UI::TextEntry
#
# (c) 2001-2002 by Maurice Makaay. All rights reserved.
# This file is part of Curses::UI. Curses::UI is free software.
# You can redistribute it and/or modify it under the same terms
# as perl itself.
#
# Currently maintained by Marcus Thiesen
# e-mail: marcus@cpan.thiesenweb.de
# ----------------------------------------------------------------------
# TODO: fix dox
package Curses::UI::TextEntry;
use strict;
use Curses;
use Curses::UI::Common;
use Curses::UI::TextEditor;
use vars qw(
$VERSION
@ISA
);
$VERSION = '1.10';
@ISA = qw(
Curses::UI::TextEditor
);
sub new ()
{
my $class = shift;
my %userargs = @_;
keys_to_lowercase(\%userargs);
my %args = (
-undolevels => 20, # number of undolevels. 0 = infinite
-homeonblur => 1, # cursor to homepos on blur?
-bg => -1,
-fg => -1,
%userargs,
-singleline => 1, # single line mode or not?
-showhardreturns => 0, # show hard returns with diamond char?
);
# Create the entry.
my $this = $class->SUPER::new( %args );
# There is no reason to show overflow symbols if no
# more characters than the available width can be
# added (the screen would wrap and after that
# typing would be impossible).
if ($this->{-maxlength} and
$this->canvaswidth > $this->{-maxlength}) {
$this->{-showoverflow} = 0;
}
# Setup bindings.
$this->clear_binding('loose-focus');
$this->set_binding('loose-focus', KEY_ENTER(), CUI_TAB(), KEY_BTAB() );
return $this;
}
1;
=pod
=head1 NAME
Curses::UI::TextEntry - Create and manipulate textentry widgets
=head1 CLASS HIERARCHY
Curses::UI::Widget
Curses::UI::Searchable
|
+----Curses::UI::TextEditor
|
+----Curses::UI::TextEntry
=head1 SYNOPSIS
use Curses::UI;
my $cui = new Curses::UI;
my $win = $cui->add('window_id', 'Window');
my $textentry = $win->add(
'mytextentry', 'TextEntry'
);
$textentry->focus();
my $text = $textentry->get();
=head1 DESCRIPTION
Curses::UI::TextEntry is a widget that can be used
to create a textentry widget. This class is
derived from Curses::UI::TextEditor. The
only special thing about this class is that the
B<-singleline> option is forced to a true value.
So for the usage of Curses::UI::TextEntry see
L<Curses::UI::TextEditor|Curses::UI::TextEditor>.
=head1 SEE ALSO
L<Curses::UI|Curses::UI>,
L<Curses::UI::TextEditor|Curses::UI::TextEditor>,
=head1 AUTHOR
Copyright (c) 2001-2002 Maurice Makaay. All rights reserved.
Maintained by Marcus Thiesen (marcus@cpan.thiesenweb.de)
This package is free software and is provided "as is" without express
or implied warranty. It may be used, redistributed and/or modified
under the same terms as perl itself.
|