/usr/share/perl5/Curses/UI/Radiobuttonbox.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::Radiobuttonbox
#
# (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::Radiobuttonbox;
use strict;
use Curses;
use Curses::UI::Common;
use Curses::UI::Listbox;
use Curses::UI::Widget;
use vars qw(
$VERSION
@ISA
);
$VERSION = '1.10';
@ISA = qw(
Curses::UI::Listbox
);
sub new ()
{
my $class = shift;
my %userargs = @_;
keys_to_lowercase(\%userargs);
my %args = (
%userargs,
-radio => 1, # Force radiobuttons
-multi => 0, # Force no multiselect
);
# Compute the needed with if -width is undefined.
# The extra 4 positions are for the radiobutton drawing.
$args{-width} = 4 + width_by_windowscrwidth(maxlabelwidth(%args), %args)
unless defined $args{-width};
# Create the entry.
my $this = $class->SUPER::new( %args);
return $this;
}
1;
=pod
=head1 NAME
Curses::UI::Radiobuttonbox - Create and manipulate radiobuttonbox widgets
=head1 CLASS HIERARCHY
Curses::UI::Widget
Curses::UI::Searchable
|
+----Curses::UI::Listbox
|
+----Curses::UI::Radiobuttonbox
=head1 SYNOPSIS
use Curses::UI;
my $cui = new Curses::UI;
my $win = $cui->add('window_id', 'Window');
my $radiobuttonbox = $win->add(
'myradiobuttonbox', 'Radiobuttonbox',
-values => [1, 2, 3],
-labels => { 1 => 'One',
2 => 'Two',
3 => 'Three' },
);
$radiobuttonbox->focus();
my $selected = $radiobuttonbox->get();
=head1 DESCRIPTION
Curses::UI::Radiobuttonbox is a widget that can be used
to create a radiobutton listbox. Only one value can be
selected at a time. This kind of listbox looks somewhat
like this:
+----------+
|< > One |
|<o> Two |
|< > Three |
+----------+
A Radiobuttonbox is derived from Curses::UI::Listbox. The
only special thing about this class is that the
B<-radio> option is forced to a true value. So for the
usage of Curses::UI::Radiobuttonbox see
L<Curses::UI::Listbox|Curses::UI::Listbox>).
=head1 SEE ALSO
L<Curses::UI|Curses::UI>,
L<Curses::UI::Listbox|Curses::UI::Listbox>,
=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.
|