FM / UI

/usr/local/share/perl5/Curses/UI

Name	Size	Mode	Actions
Dialog/	-	0755	rm
Language/	-	0755	rm
Buttonbox.pm	17489	0444	edit dl rm
Calendar.pm	21602	0444	edit dl rm
Checkbox.pm	7703	0444	edit dl rm
Color.pm	5575	0444	edit dl rm
Common.pm	17332	0444	edit dl rm
Container.pm	18943	0444	edit dl rm
Label.pm	10165	0444	edit dl rm
Language.pm	3665	0444	edit dl rm
Listbox.pm	26687	0444	edit dl rm
Menubar.pm	22027	0444	edit dl rm
Notebook.pm	27850	0444	edit dl rm
PasswordEntry.pm	2498	0444	edit dl rm
Popupmenu.pm	13417	0444	edit dl rm
Progressbar.pm	7168	0444	edit dl rm
Radiobuttonbox.pm	2888	0444	edit dl rm
Searchable.pm	11501	0444	edit dl rm
TextEditor.pm	45218	0444	edit dl rm
TextEntry.pm	2960	0444	edit dl rm
TextViewer.pm	2203	0444	edit dl rm
Tutorial.pod	5289	0444	edit dl rm
Widget.pm	53396	0444	edit dl rm
Window.pm	4357	0444	edit dl rm

Edit: /usr/local/share/perl5/Curses/UI/PasswordEntry.pm (2498B)

# ----------------------------------------------------------------------
# Curses::UI::PasswordEntry
#
# (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::PasswordEntry;

use strict;
use Curses;
use Curses::UI::TextEntry;
use Curses::UI::Common;

use vars qw($VERSION @ISA);

@ISA = qw(
    Curses::UI::TextEntry
);

$VERSION = '1.10';
	
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?
		-fg              => -1,
		-bg              => -1,
	
		%userargs,

-password	 => '*',# force password token
		-showhardreturns => 0,	
	);

# Create the entry.
	my $this = $class->SUPER::new( %args);

return $this;
}

=pod

=head1 NAME

Curses::UI::PasswordEntry - Create and manipulate passwordentry widgets

=head1 CLASS HIERARCHY

Curses::UI::Widget
 Curses::UI::Searchable 
    |
    +----Curses::UI::TextEditor
            |
            +----Curses::UI::TextEntry
                    |
                    +----Curses::UI::PasswordEntry

=head1 SYNOPSIS

use Curses::UI;
    my $cui = new Curses::UI;
    my $win = $cui->add('window_id', 'Window');

my $passwordentry = $win->add( 
        'mypasswordentry', 'PasswordEntry'
    );

$passwordentry->focus();
    my $password = $passwordentry->get();

=head1 DESCRIPTION

Curses::UI::PasswordEntry is a widget that can be used 
to create a passwordentry widget. This class is
derived from Curses::UI::TextEntry. The
only special thing about this class is that the 
B<-password> option is forced to '*'.
So for the usage of Curses::UI::PasswordEntry see
L<Curses::UI::TextEntry|Curses::UI::TextEntry>.

=head1 SEE ALSO

L<Curses::UI|Curses::UI>, 
L<Curses::UI::TextEntry|Curses::UI::TextEntry>,

=head1 AUTHOR

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.

cmd: