[ViewVC] Annotation of: cvs/CV/bin/cv

#!/opt/bin/perl

use Cwd ();
use Encode ();

use Gtk2 -init;
use Gtk2::Gdk::Keysyms;

use Gtk2::CV::ImageWindow;
use Gtk2::CV::Schnauzer;

use Gtk2::CV;

Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");

use File::Spec;

require Gtk2::CV::Plugin;
require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";

my $mainwin;
my $viewer;
my $schnauzer;
my $info;
my $help;

my $schnauzer_idx = 0;

sub new_schnauzer {
   my $s = new Gtk2::CV::Schnauzer;

   $s->signal_connect_after (key_press_event => \&std_keys);
   $s->signal_connect (activate => sub {
      my $label = sprintf "%s (%d)",
                  (File::Spec->splitpath ($_[1]))[2],
                  -s $_[1];
      $info->set_label ($label);
      $viewer->load_image ($_[1]);
   });
   $s->signal_connect (chdir => sub {
      my ($self, $dir) = @_;

      my $path = Cwd::abs_path $dir;

      $self->realize;
      $self->window->property_change (
         Gtk2::Gdk::Atom->intern ("_X_CWD", 0),
         Gtk2::Gdk::Atom->intern ("UTF8_STRING", 0),
         Gtk2::Gdk::CHARS, 'replace',
         Encode::encode_utf8 $path,
      );
   });

   Gtk2::CV::Plugin->call (new_schnauzer => $s);

   $s;
}

sub std_keys {
   my $key = $_[1]->keyval;
   my $state = $_[1]->state;

   my $ctrl = $state * "control-mask";

   if ($key == $Gtk2::Gdk::Keysyms{q}) {
      main_quit Gtk2;
   } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
      my $w = new Gtk2::Window;

      $w->set_title ("CV: Schnauzer");
      $w->add (my $s = new_schnauzer);
      $s->set_dir (File::Spec->curdir);
      $s->set_geometry_hints;
      $w->show_all;

   } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
      unless ($help) {
         require Gtk2::PodViewer;

         $help = new Gtk2::Window;
         $help->set_title ("CV: Help");
         $help->set_default_size (500, 300);
         $help->signal_connect (delete_event => sub { $help->hide; 1 });

         $help->add (my $sw = new Gtk2::ScrolledWindow);
         $sw->add (my $h = new Gtk2::PodViewer);

         #binmode DATA, ":utf8";
         $h->load_string (do { local $/; <DATA> });
      }

      $help->show_all;
   } else {
      return 0;
   }

   1
}

{
   $viewer = new Gtk2::CV::ImageWindow;

   $viewer->set_title ("CV: Image");

   $viewer->signal_connect (key_press_event => sub {
      &std_keys
         or $schnauzer->signal_emit (key_press_event => $_[1])
   });
   $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });

   $viewer->signal_connect (button3_press_event => sub {
      $mainwin->visible
         ? $mainwin->hide
         : $mainwin->show_all;
      1;
   });

   Gtk2::CV::Plugin->call (new_imagewindow => $viewer);

   $schnauzer = new_schnauzer;

   $mainwin = new Gtk2::Window;
   $mainwin->set_title ("CV");
   $mainwin->add (my $vbox = new Gtk2::VBox);
   $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });

   $vbox->add ($schnauzer);
   $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
   $frame->add (my $hbox = new Gtk2::HBox 0, 0);
   $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
   $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
   $info->set (wrap => 1);

   $schnauzer->set_geometry_hints;
}

if (@ARGV) {
   $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
   $schnauzer->show_all;
   $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
} else {
   $schnauzer->set_dir (File::Spec->curdir);
   $mainwin->show_all;
   $viewer->show_all;
}

$viewer->show_all;

main Gtk2;

__DATA__

=head1 NAME

cv - a fast gtk+ image viewer modeled after xv

=head1 SYNOPSIS

   cv [file...]

=head1 DESCRIPTION

None yet.

=head2 THE IMAGE WINDOW

You can use the following keys in the image window:

 q       quit the program
 <       half the image size
 >       double the image size
 ,       shrink the image by 10%
 .       enlarge the image by 10%
 n       reset to normal size
 m       maximize to screensize
 M       maxime to screensize, respecting image aspect
 ctrl-m  toggle maxpect-always mode
 u       uncrop
 r       set scaling mode to 'nearest' (fastest)
 s       set scaling mode to 'bilinear' (default)
 S       set scaling mode to 'hyper' (slowest)
 t       rotate clockwise 90°
 T       rotate counterclockwise°
 ctrl-v  open a new visual schnauzer window for the current dir
 ctrl-s  rescan visual schnauzer files for updates/deletes etc.
 ctrl-e  run an editor ($CV_EDITOR or "gimp") on the current image.

And when playing movies, these additional keys are active:

 left    rewind by 10 seconds
 right   forward by 10 seconds
 down    rewind by 60 seconds
 up      forward by 60 seconds
 pg_up   rewind by 600 seconds
 pg_down forward by 600 seconds
 o       toggle on-screen display
 p       pause/unpause
 escape  stop playing
 9       turn volume down
 0       turn volume up

The following keys are redirected to the default visual schnauzer window:

 space     next image
 backspace last image

=head2 THE VISUAL SCHNAUZER

You can use the following keys in the schnauzer window:

 space       move to and display next image
 backspace   move to and display previous image
 return      display selected picture

 cursor keys move selection
 page-up     move one page up
 page-down   move one page down
 home        move to first file
 end         move to last file

 ctrl-d      delete selected files WITHOUT ASKING AGAIN
 ctrl-g      generate icons for the selected files
 ctrl-u      update selected (or all) icons if neccessary
 ctrl-a      select all files

=head1 ENVIRONMENT

=over 4

=item CV_EDITOR

The program that gets executed when the user presses C<CTRL-e> in the
Schnauzer or image window. The default is C<gimp>.

=item CV_PRINT_DESTINATION

The default (perl-style) destination to use in the print dialog.

=item CV_TRASHCAN

When set, must point to a directory where all files that are deleted are
moved to. If unset, files that are deleted are really being deleted.

=back

=head1 SECURITY CONSIDERATIONS

CV uses Pixbuf to load images. Pixbuf is not considered safe for this
purpose, though (from the gtk-2.2 release notes):

"While efforts have been made to make gdk-pixbuf robust against invalid
images, using gdk-pixbuf to load untrusted data is not recommended, due to
the likelyhood that there are additional problems where an invalid image
could cause gdk-pixbuf to crash or worse."

=head1 BUGS/TODO

 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
 incompatible with utf-8 fails.

 rotate on disk
 print
 lots of ui issues
 save(?)
 preferences
 ctrl-u in schnauzer
 shift-cursor in schnauzer

=head1 AUTHOR

Marc Lehmann <cv@plan9.de>.

=cut

Revision:	1.43
Committed:	Tue Jun 28 21:26:04 2005 UTC (19 years ago) by root
Branch:	MAIN
CVS Tags:	rel-0_5
Changes since 1.42:	+6 -4 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/opt/bin/perl
2
3	root	1.37	use Cwd ();
4			use Encode ();
5
6	root	1.12	use Gtk2 -init;
7			use Gtk2::Gdk::Keysyms;
8
9			use Gtk2::CV::ImageWindow;
10			use Gtk2::CV::Schnauzer;
11
12	root	1.16	use Gtk2::CV;
13
14			Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
15
16	root	1.20	use File::Spec;
17
18	root	1.40	require Gtk2::CV::Plugin;
19			require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
20
21	root	1.20	my $mainwin;
22	root	1.12	my $viewer;
23			my $schnauzer;
24	root	1.20	my $info;
25	root	1.21	my $help;
26	root	1.12
27	root	1.25	my $schnauzer_idx = 0;
28
29	root	1.12	sub new_schnauzer {
30	root	1.20	my $s = new Gtk2::CV::Schnauzer;
31	root	1.12
32			$s->signal_connect_after (key_press_event => \&std_keys);
33	root	1.20	$s->signal_connect (activate => sub {
34			my $label = sprintf "%s (%d)",
35			(File::Spec->splitpath ($_[1]))[2],
36			-s $_[1];
37			$info->set_label ($label);
38			$viewer->load_image ($_[1]);
39			});
40	root	1.37	$s->signal_connect (chdir => sub {
41			my ($self, $dir) = @_;
42
43			my $path = Cwd::abs_path $dir;
44
45			$self->realize;
46			$self->window->property_change (
47			Gtk2::Gdk::Atom->intern ("_X_CWD", 0),
48			Gtk2::Gdk::Atom->intern ("UTF8_STRING", 0),
49			Gtk2::Gdk::CHARS, 'replace',
50			Encode::encode_utf8 $path,
51			);
52			});
53	root	1.12
54	root	1.40	Gtk2::CV::Plugin->call (new_schnauzer => $s);
55
56	root	1.12	$s;
57			}
58
59			sub std_keys {
60			my $key = $_[1]->keyval;
61			my $state = $_[1]->state;
62
63	root	1.21	my $ctrl = $state * "control-mask";
64	root	1.12
65			if ($key == $Gtk2::Gdk::Keysyms{q}) {
66			main_quit Gtk2;
67			} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
68	root	1.20	my $w = new Gtk2::Window;
69	root	1.26
70			$w->set_title ("CV: Schnauzer");
71	root	1.20	$w->add (my $s = new_schnauzer);
72			$s->set_dir (File::Spec->curdir);
73	root	1.25	$s->set_geometry_hints;
74	root	1.21	$w->show_all;
75	root	1.25
76	root	1.21	} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
77			unless ($help) {
78			require Gtk2::PodViewer;
79
80			$help = new Gtk2::Window;
81	root	1.26	$help->set_title ("CV: Help");
82	root	1.21	$help->set_default_size (500, 300);
83			$help->signal_connect (delete_event => sub { $help->hide; 1 });
84
85			$help->add (my $sw = new Gtk2::ScrolledWindow);
86			$sw->add (my $h = new Gtk2::PodViewer);
87
88			#binmode DATA, ":utf8";
89			$h->load_string (do { local $/; <DATA> });
90			}
91
92			$help->show_all;
93	root	1.12	} else {
94	root	1.43	return 0;
95	root	1.12	}
96
97	root	1.43	1
98	root	1.12	}
99
100	root	1.20	{
101			$viewer = new Gtk2::CV::ImageWindow;
102	root	1.15
103	root	1.20	$viewer->set_title ("CV: Image");
104	root	1.15
105	root	1.43	$viewer->signal_connect (key_press_event => sub {
106			&std_keys
107			or $schnauzer->signal_emit (key_press_event => $_[1])
108			});
109	root	1.20	$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
110	root	1.13
111	root	1.20	$viewer->signal_connect (button3_press_event => sub {
112			$mainwin->visible
113			? $mainwin->hide
114			: $mainwin->show_all;
115	root	1.23	1;
116	root	1.20	});
117
118	root	1.40	Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
119
120	root	1.20	$schnauzer = new_schnauzer;
121
122			$mainwin = new Gtk2::Window;
123			$mainwin->set_title ("CV");
124			$mainwin->add (my $vbox = new Gtk2::VBox);
125	root	1.23	$mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
126	root	1.20
127			$vbox->add ($schnauzer);
128	root	1.22	$vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
129	root	1.20	$frame->add (my $hbox = new Gtk2::HBox 0, 0);
130			$hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
131			$hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
132	root	1.39	$info->set (wrap => 1);
133	root	1.25
134			$schnauzer->set_geometry_hints;
135	root	1.20	}
136	root	1.12
137			if (@ARGV) {
138	root	1.36	$schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
139	root	1.31	$schnauzer->show_all;
140	root	1.18	$schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
141	root	1.17	} else {
142	root	1.20	$schnauzer->set_dir (File::Spec->curdir);
143	root	1.19	$mainwin->show_all;
144	root	1.34	$viewer->show_all;
145	root	1.12	}
146
147	root	1.35	$viewer->show_all;
148
149	root	1.12	main Gtk2;
150	root	1.21
151			__DATA__
152	root	1.12
153	root	1.11	=head1 NAME
154
155			cv - a fast gtk+ image viewer modeled after xv
156
157			=head1 SYNOPSIS
158
159			cv [file...]
160
161			=head1 DESCRIPTION
162
163			None yet.
164
165			=head2 THE IMAGE WINDOW
166
167			You can use the following keys in the image window:
168
169			q quit the program
170			< half the image size
171			> double the image size
172			, shrink the image by 10%
173			. enlarge the image by 10%
174			n reset to normal size
175			m maximize to screensize
176			M maxime to screensize, respecting image aspect
177	root	1.26	ctrl-m toggle maxpect-always mode
178	root	1.11	u uncrop
179			r set scaling mode to 'nearest' (fastest)
180			s set scaling mode to 'bilinear' (default)
181			S set scaling mode to 'hyper' (slowest)
182			t rotate clockwise 90°
183			T rotate counterclockwise°
184			ctrl-v open a new visual schnauzer window for the current dir
185	root	1.28	ctrl-s rescan visual schnauzer files for updates/deletes etc.
186	root	1.31	ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image.
187	root	1.11
188	root	1.33	And when playing movies, these additional keys are active:
189
190			left rewind by 10 seconds
191			right forward by 10 seconds
192			down rewind by 60 seconds
193			up forward by 60 seconds
194			pg_up rewind by 600 seconds
195			pg_down forward by 600 seconds
196			o toggle on-screen display
197			p pause/unpause
198			escape stop playing
199			9 turn volume down
200			0 turn volume up
201
202	root	1.11	The following keys are redirected to the default visual schnauzer window:
203
204			space next image
205			backspace last image
206
207			=head2 THE VISUAL SCHNAUZER
208
209			You can use the following keys in the schnauzer window:
210
211			space move to and display next image
212			backspace move to and display previous image
213			return display selected picture
214
215			cursor keys move selection
216			page-up move one page up
217			page-down move one page down
218			home move to first file
219			end move to last file
220
221	root	1.24	ctrl-d delete selected files WITHOUT ASKING AGAIN
222	root	1.11	ctrl-g generate icons for the selected files
223	root	1.24	ctrl-u update selected (or all) icons if neccessary
224	root	1.32	ctrl-a select all files
225	root	1.11
226	root	1.27	=head1 ENVIRONMENT
227
228			=over 4
229
230	root	1.38	=item CV_EDITOR
231
232			The program that gets executed when the user presses C<CTRL-e> in the
233			Schnauzer or image window. The default is C<gimp>.
234
235	root	1.27	=item CV_PRINT_DESTINATION
236
237			The default (perl-style) destination to use in the print dialog.
238
239	root	1.38	=item CV_TRASHCAN
240
241			When set, must point to a directory where all files that are deleted are
242			moved to. If unset, files that are deleted are really being deleted.
243
244	root	1.27	=back
245
246	root	1.23	=head1 SECURITY CONSIDERATIONS
247
248			CV uses Pixbuf to load images. Pixbuf is not considered safe for this
249			purpose, though (from the gtk-2.2 release notes):
250
251			"While efforts have been made to make gdk-pixbuf robust against invalid
252			images, using gdk-pixbuf to load untrusted data is not recommended, due to
253			the likelyhood that there are additional problems where an invalid image
254			could cause gdk-pixbuf to crash or worse."
255
256	root	1.11	=head1 BUGS/TODO
257	root	1.23
258			Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
259			incompatible with utf-8 fails.
260	root	1.11
261			rotate on disk
262			print
263			lots of ui issues
264			save(?)
265			preferences
266	root	1.12	ctrl-u in schnauzer
267			shift-cursor in schnauzer
268	root	1.11
269			=head1 AUTHOR
270
271			Marc Lehmann <cv@plan9.de>.
272
273			=cut
274	root	1.1