Skip to content

Commit

Permalink
- fix pod error reported by podchecker
Browse files Browse the repository at this point in the history
  • Loading branch information
dk committed Sep 13, 2007
1 parent 1249ddf commit 486665f
Show file tree
Hide file tree
Showing 35 changed files with 90 additions and 95 deletions.
10 changes: 7 additions & 3 deletions Prima.pm
Original file line number Diff line number Diff line change
Expand Up @@ -125,7 +125,7 @@ Prima - a perl graphic toolkit
=head1 SYNOPSIS
use Prima qw(Application Buttons);
new Prima::MainWindow(
text => 'Hello world!',
size => [ 200, 200],
Expand All @@ -134,7 +134,7 @@ Prima - a perl graphic toolkit
text => 'Hello world!',
onClick => sub { $::application-> close },
);
run Prima;
=head1 DESCRIPTION
Expand Down Expand Up @@ -281,7 +281,7 @@ by using C<Prima::options> routine.
In cases where Prima argument parsing conflicts with application options, use
L<Prima::noARGV> to disable automatic parsing; also see L<parse_argv>.
Alternatively, the construct
BEGIN { local @ARGV; require Prima; }
will also do.
Expand Down Expand Up @@ -314,8 +314,12 @@ L<Prima::Widget> - window management
=over 2
=item *
L<Prima::Widget::pack> - Tk::pack geometry manager
=item *
L<Prima::Widget::place> - Tk::place geometry manager
=back
Expand Down
4 changes: 2 additions & 2 deletions Prima/Buttons.pm
Original file line number Diff line number Diff line change
Expand Up @@ -1240,13 +1240,13 @@ Note: C<*> - marked classes are abstract.
=head1 USAGE
use Prima::Buttons;
my $button = $widget-> insert( 'Prima::Button',
text => 'Push button',
onClick => sub { print "hey!\n" },
);
$button-> flat(1);
my $group = $widget-> insert( 'Prima::GroupBox',
onRadioClick => sub { print $_[1]-> text, "\n"; }
);
Expand Down
4 changes: 2 additions & 2 deletions Prima/ColorDialog.pm
Original file line number Diff line number Diff line change
Expand Up @@ -968,7 +968,7 @@ Prima::ColorDialog - standard color selection facilities
=head1 SYNOPSIS
use Prima qw(StdDlg Application);
my $p = Prima::ColorDialog-> create(
quality => 1,
);
Expand Down Expand Up @@ -1058,7 +1058,7 @@ Returns C<Prima::Image> object.
Called when the user starts dragginh a color from the color wheel by with left
mouse button and combination of Alt, Ctrl, and Shift keys. $PROPERTY is one
of C<Prima::Widget> color properties, and depends on combination of keys:
Alt backColor
Ctrl color
Alt+Shift hiliteBackColor
Expand Down
2 changes: 1 addition & 1 deletion Prima/Const.pm
Original file line number Diff line number Diff line change
Expand Up @@ -647,7 +647,7 @@ See also L<Prima::Object/Flow>.
nt::PrivateFirst
nt::CustomFirst
=item Direction constants
nt::FluxReverse
Expand Down
6 changes: 3 additions & 3 deletions Prima/Docks.pm
Original file line number Diff line number Diff line change
Expand Up @@ -1864,7 +1864,7 @@ The full hierarchy is as follows:
Prima::InternalDockerShuttle
Prima::LinearDockerShuttle
Prima::SingleLinearWidgetDocker
Prima::ExternalDockerShuttle
All docker widget classes are derived from C<Prima::AbstractDocker::Interface>.
Expand Down Expand Up @@ -1908,7 +1908,7 @@ a direct or an indirect parent. In this case, however, the maintenance
of the link must be implemented separately, for example:
$self-> dockup( $upper_dock_not_parent );
$upper_dock_not_parent-> add_notification( 'Destroy', sub {
return unless $_[0] == $self-> dockup;
undef $self-> {dockup_event_id};
Expand Down Expand Up @@ -2093,7 +2093,7 @@ sets, direct and indirect, or, C<vertical> property independent and
dependent.
The first set contains explicitly named constants:
grow::Left grow::ForwardLeft grow::BackLeft
grow::Down grow::ForwardDown grow::BackDown
grow::Right grow::ForwardRight grow::BackRight
Expand Down
4 changes: 2 additions & 2 deletions Prima/Edit.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2769,9 +2769,9 @@ __DATA__
=head1 NAME
Prima::Edit - standard text editing widget
=head1 SYNOPSIS
use Prima::Edit;
my $e = Prima::Edit-> create(
text => 'Hello $world',
Expand Down
2 changes: 1 addition & 1 deletion Prima/EditDialog.pm
Original file line number Diff line number Diff line change
Expand Up @@ -286,7 +286,7 @@ to find and replace options selection.
=head1 SYNOPSIS
use Prima::StdDlg;
my $dlg = Prima::FindDialog-> create( findStyle => 0);
my $res = $dlg-> execute;
if ( $res == mb::Ok) {
Expand Down
6 changes: 1 addition & 5 deletions Prima/FrameSet.pm
Original file line number Diff line number Diff line change
Expand Up @@ -916,7 +916,7 @@ Prima::FrameSet - standard frameset widget
=head1 SYNOPSIS
use Prima::FrameSet;
my $frame = Prima::FrameSet->create(
frameSizes => [qw(211 20% 123 10% * 45% *)],
opaqueResize => 0,
Expand All @@ -940,10 +940,6 @@ and L<resizeMethod> properties, respectively.
Two additional auxiliary packages are defined within this module: L<Prima::FrameSet::Frame>
and L<Prima::FrameSet::Slider>.
=head1 API
=head2 Properties
=head1 AUTHOR
Vadim Belman, E<lt>[email protected]E<gt>
Expand Down
4 changes: 2 additions & 2 deletions Prima/Grids.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2642,7 +2642,7 @@ and explained below:
gsci::COL_INDEX - visual column number where the cell displayed
gsci::ROW_INDEX - visual row number where the cell displayed
gsci::V_FULL - cell is fully visible
gsci::V_LEFT - inclusive-inclusive rectangle of the visible
gsci::V_BOTTOM part of the cell. These four indices are grouped
gsci::V_RIGHT under list constant, gsci::V_RECT.
Expand All @@ -2652,7 +2652,7 @@ and explained below:
gsci::BOTTOM it is fully visible. These four indices are grouped
gsci::RIGHT under list constant, gsci::RECT. If gsci::V_FULL
gsci::TOP is 1, these values are identical to these in gsci::V_RECT.
If the cell is not visible, returns empty array.
=item has_selection
Expand Down
2 changes: 1 addition & 1 deletion Prima/MDI.pm
Original file line number Diff line number Diff line change
Expand Up @@ -1361,7 +1361,7 @@ window class ( see L<Prima::DockManager>.
=head1 SYNOPSIS
use Prima::MDI;
my $owner = Prima::MDIWindowOwner-> create();
my $mdi = $owner-> insert( 'Prima::MDI');
$mdi-> client-> insert( 'Prima::Button' => centered => 1 );
Expand Down
5 changes: 2 additions & 3 deletions Prima/Make.pm
Original file line number Diff line number Diff line change
Expand Up @@ -681,12 +681,11 @@ See L<init> for details.
install:
\t$^X Makefile.PL --cp $ld $INSTALL_DL a.pm $INSTALL_LIB
\t$^X Makefile.PL --cpbin a.pl $INSTALL_BIN
MAKE
close F;
=head2 API
=head1 API
=head2 Methods
Expand Down
2 changes: 1 addition & 1 deletion Prima/Notebooks.pm
Original file line number Diff line number Diff line change
Expand Up @@ -1736,7 +1736,7 @@ displayed inside the larger polygon:
POLYGON1
[2,3] [4,5]
o..........o
. .
Expand Down
4 changes: 4 additions & 0 deletions Prima/PS/Drawable.pm
Original file line number Diff line number Diff line change
Expand Up @@ -1619,8 +1619,12 @@ and vice versa calculations
- ::region is not realized ( yet?)
=back
=head2 Specific properties
=over
=item ::copies
amount of copies that PS interpreter should print
Expand Down
2 changes: 1 addition & 1 deletion Prima/PS/Fonts.pm
Original file line number Diff line number Diff line change
Expand Up @@ -373,7 +373,7 @@ patched correspondingly.
Example:
$Prima::PS::Fonts::files{Standard Symbols} = $Prima::PS::Fonts::files{Symbol};
$Prima::PS::Fonts::files{'Device-specific symbols, set 1'} = 'my/devspec/data.1';
$Prima::PS::Fonts::files{'Device-specific symbols, set 2'} = 'my/devspec/data.2';
$Prima::PS::Fonts::enum_families{DevSpec} = 'Device-specific symbols, set 1';
Expand Down
14 changes: 7 additions & 7 deletions Prima/PodView.pm
Original file line number Diff line number Diff line change
Expand Up @@ -1693,13 +1693,13 @@ The 'podview' commands are:
Example:
=for podview <cut>
=for text just text-formatter info
....
text-only info
...
=for podview </cut>
The E<lt>cut<gt> clause skips all POD input until cancelled.
Expand All @@ -1717,16 +1717,16 @@ L<cut> behavior if ( and only if ) the image load operation was unsuccessful.
This make possible simultaneous use of 'podview' and 'text' :
=for podview <img src="graphic.gif" cut=1 >
=begin text
y .
| .
|.
+----- x
=end text
=for podview </cut>
In the example above 'graphic.gif' will be shown if it can be found and loaded,
Expand Down
2 changes: 1 addition & 1 deletion Prima/PrintDialog.pm
Original file line number Diff line number Diff line change
Expand Up @@ -189,7 +189,7 @@ selection process.
=head1 SYNOPSIS
use Prima::PrintDialog;
$dlg = Prima::PrintSetupDialog-> create;
if ( $dlg-> execute) {
my $p = $::application-> get_printer;
Expand Down
6 changes: 3 additions & 3 deletions Prima/Sliders.pm
Original file line number Diff line number Diff line change
Expand Up @@ -1785,11 +1785,11 @@ This property unites the following set of class hierarchies:
Prima::AbstractSpinButton
Prima::SpinButton
Prima::AltSpinButton
Prima::SpinEdit
Prima::Gauge
Prima::AbstractSlider
Prima::Slider
Prima::CircularSlider
Expand Down
2 changes: 1 addition & 1 deletion Prima/StdDlg.pm
Original file line number Diff line number Diff line change
Expand Up @@ -212,7 +212,7 @@ no need to C<use> the corresponding module explicitly.
=head1 SYNOPSIS
use Prima::StdDlg;
Prima::FileDialog-> create-> execute;
Prima::FontDialog-> create-> execute;
Expand Down
2 changes: 1 addition & 1 deletion Prima/Themes.pm
Original file line number Diff line number Diff line change
Expand Up @@ -257,7 +257,7 @@ For interactive theme selection use F<examples/theme.pl> sample program.
use Prima::Themes; load('color');
# list registered themes
print Prima::Themes::list;
# install a theme
Prima::Themes::install('cyan');
# list installed themes
Expand Down
8 changes: 4 additions & 4 deletions Prima/Tie.pm
Original file line number Diff line number Diff line change
Expand Up @@ -270,13 +270,13 @@ and I<value> property respectively.
=head1 SYNOPSIS
use Prima::Tie;
tie @items, 'Prima::Tie::items', $widget;
tie @some_property, 'Prima::Tie::Array', $widget, 'some_property';
tie $text, 'Prima::Tie::text', $widget;
tie $some_property, 'Prima::Tie::Scalar', $widget, 'some_property';
=head1 USAGE
Expand Down
2 changes: 1 addition & 1 deletion Prima/VB/VBLoader.pm
Original file line number Diff line number Diff line change
Expand Up @@ -329,7 +329,7 @@ after the creation, the widget hierarchy can be accessed in the standard way:
In case a form is to be included not from a fm file but from other data source,
L<AUTOFORM_REALIZE> call can be used to transform perl array into set of
widgets:
$form = AUTOFORM_REALIZE( [ Form1 => {
class => 'Prima::Window',
parent => 1,
Expand Down
3 changes: 1 addition & 2 deletions pod/Prima/Clipboard.pod
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,6 @@ the following:

# copy
$c-> text( $string);


This simplistic code hides other aspects of Prima::Clipboard class.

Expand Down Expand Up @@ -109,7 +108,7 @@ said:
if ( $formats{'Image'}) {
$image = $c-> fetch('Image');
}

$c-> close;
}

Expand Down
Loading

0 comments on commit 486665f

Please sign in to comment.