/usr/bin/tkmore is in libtk-pod-perl 0.9942-1.
This file is owned by root:root, with mode 0o755.
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 136 137 138 139 140 141 | #!/usr/bin/perl -w
eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use vars qw($VERSION);
$VERSION = 5.08;
use Tk;
use Tk::More;
use Getopt::Long;
my %opt;
Getopt::Long::config('pass_through');
if (!GetOptions(\%opt, "font=s", "i|ignore-case!", "encoding=s", "S")) {
require Pod::Usage;
Pod::Usage::pod2usage(2);
}
my $mw = tkinit;
# Unhandled options left?
Getopt::Long::config('nopass_through');
if (!GetOptions({})) {
require Pod::Usage;
Pod::Usage::pod2usage(2);
}
my $file = shift @ARGV;
if (!defined $file) {
die "Filename is missing.\n";
}
my $more = $mw->Scrolled("More",
-font => $opt{font},
-scrollbars => "osoe",
-searchcase => !$opt{i},
($opt{S} ? (-wrap => 'none') : ()),
)->pack(-fill => "both", -expand => 1);
my $menu = $more->menu;
my $fm = $menu->entrycget("File", -menu);
$fm->insert("Exit", "command", -label => "Open ...", -underline => 0,
-command => sub {
my $f = $more->getOpenFile;
return if !defined $f;
load_file($f);
});
$fm->entryconfigure("Exit", -accelerator => "Ctrl-Q");
my $helpmenu = $menu->Menu
(-tearoff => 0,
-menuitems => [
[Button => "~Usage",
-command => sub {
require Tk::Pod;
$mw->Pod(-file => "Tk::More");
}]
]
);
$menu->cascade(-label => "Help", -underline => 0, -menu => $helpmenu);
$mw->configure(-menu => $menu);
$more->focus;
load_file($file);
$more->AddQuitBindings;
MainLoop;
sub load_file {
my $file = shift;
LOAD_FILE: {
# check if it's gzipped
my $buf;
if (open(FILE, "<$file") &&
read(FILE, $buf, 2) == 2 &&
$buf eq "\037\213" &&
eval { require PerlIO::gzip; 1 }
) {
seek FILE, 0, 0 or die $!;
binmode FILE, ':gzip';
$more->LoadFH(\*FILE, -encoding => $opt{encoding});
last LOAD_FILE;
}
$more->Load($file, -encoding => $opt{encoding});
};
$mw->title("tkmore - $file");
}
__END__
=head1 NAME
tkmore - a Perl/Tk based pager
=head1 SYNOPSIS
tkmore [X11 options] [-i] [-encoding encoding] filename
=head1 DESCRIPTION
B<tkmore> is a pager similar to L<more(1)> or L<less(1)>.
=head2 OPTIONS
Besides standard X11 options like C<-font>, B<tkmore> supports:
=over
=item -i
Turn on case-insensitive search. Alias: C<-ignore-case>.
=item -encoding encoding
Specify the encoding for the specified file and all subsequently
loaded files. By default no encoding is assumed.
=item -S
Set wrap mode to B<none>. The effect is similar like the C<-S> option
of C<less>.
=back
=head2 KEY BINDINGS
For a list of key bindings, see L<Tk::More/ADDITIONAL BINDINGS>.
=head1 AUTHOR
Slaven Rezic
=head1 SEE ALSO
L<Tk::More>, L<more(1)>, L<less(1)>
=cut
|