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

Comparing CV/bin/cv (file contents):
Revision 1.11 by root, Wed Nov 5 01:29:47 2003 UTC vs.
Revision 1.52 by root, Sun Aug 14 19:07:15 2005 UTC

1	#!/opt/bin/perl	1	#!/opt/bin/perl
2		2
		3	use Cwd ();
		4	use Encode ();
		5
		6	use Gtk2 -init;
		7	use Gtk2::Gdk::Keysyms;
		8
		9	use Gtk2::CV;
		10
		11	use Gtk2::CV::ImageWindow;
		12	use Gtk2::CV::Schnauzer;
		13
		14	BEGIN {
		15	require Gtk2::CV::Plugin;
		16	require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
		17	}
		18
		19	use Gtk2::CV::Plugin::NameCluster;
		20	use Gtk2::CV::Plugin::RCluster;
		21
		22	Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
		23
		24	use File::Spec;
		25
		26	my $mainwin;
		27	my $viewer;
		28	my $schnauzer;
		29	my $info;
		30	my $help;
		31
		32	my $schnauzer_idx = 0;
		33
		34	sub new_schnauzer {
		35	my $s = new Gtk2::CV::Schnauzer;
		36
		37	$s->signal_connect_after (key_press_event => \&std_keys);
		38	$s->signal_connect (activate => sub {
		39	my $label = sprintf "%s (%d)",
		40	(File::Spec->splitpath ($_[1]))[2],
		41	-s $_[1];
		42	$info->set_label ($label);
		43	$viewer->load_image ($_[1]);
		44	});
		45
		46	Gtk2::CV::Plugin->call (new_schnauzer => $s);
		47
		48	$s;
		49	}
		50
		51	sub std_keys {
		52	my $key = $_[1]->keyval;
		53	my $state = $_[1]->state;
		54
		55	my $ctrl = $state * "control-mask";
		56
		57	if ($key == $Gtk2::Gdk::Keysyms{q}) {
		58	main_quit Gtk2;
		59	} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
		60	my $w = new Gtk2::Window;
		61
		62	$w->set_title ("CV: Schnauzer");
		63	$w->add (my $s = new_schnauzer);
		64	$s->set_dir (File::Spec->curdir);
		65	$s->set_geometry_hints;
		66	$w->show_all;
		67
		68	} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
		69	unless ($help) {
		70	require Gtk2::PodViewer;
		71
		72	$help = new Gtk2::Window;
		73	$help->set_title ("CV: Help");
		74	$help->set_default_size (500, 300);
		75	$help->signal_connect (delete_event => sub { $help->hide; 1 });
		76
		77	$help->add (my $sw = new Gtk2::ScrolledWindow);
		78	$sw->add (my $h = new Gtk2::PodViewer);
		79
		80	#binmode DATA, ":utf8";
		81	$h->load_string (do { local $/; <DATA> });
		82	}
		83
		84	$help->show_all;
		85	} else {
		86	return 0;
		87	}
		88
		89	1
		90	}
		91
		92	{
		93	$viewer = new Gtk2::CV::ImageWindow;
		94
		95	$viewer->set_title ("CV: Image");
		96
		97	$viewer->signal_connect (key_press_event => sub {
		98	&std_keys
		99	or $schnauzer->signal_emit (key_press_event => $_[1])
		100	});
		101	$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
		102
		103	$viewer->signal_connect (button3_press_event => sub {
		104	$mainwin->visible
		105	? $mainwin->hide
		106	: $mainwin->show_all;
		107	1;
		108	});
		109
		110	Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
		111
		112	$schnauzer = new_schnauzer;
		113
		114	$mainwin = new Gtk2::Window;
		115	$mainwin->set_title ("CV");
		116	$mainwin->add (my $vbox = new Gtk2::VBox);
		117	$mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
		118
		119	$vbox->add ($schnauzer);
		120	$vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
		121	$frame->add (my $hbox = new Gtk2::HBox 0, 0);
		122	$hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0);
		123	$hbox->pack_end (my $labelwindow = new Gtk2::EventBox, 1, 1, 0);
		124	$labelwindow->add ($info = new Gtk2::Label);
		125	$labelwindow->signal_connect_after (size_request => sub { $_[1]->width (0); 0 });
		126	$info->set (selectable => 1, xalign => 0, justify => "left");
		127
		128	$schnauzer->set_geometry_hints;
		129	}
		130
		131	if (@ARGV) {
		132	@ARGV == 1 && -d $ARGV[0]
		133	? $schnauzer->set_dir (Glib::filename_to_unicode shift)
		134	: $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
		135	$schnauzer->show_all;
		136	$schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
		137	} else {
		138	$schnauzer->set_dir (File::Spec->curdir);
		139	$mainwin->show_all;
		140	}
		141
		142	$viewer->show_all;
		143
		144	main Gtk2;
		145
		146	__DATA__
		147
3	=head1 NAME	148	=head1 NAME
4		149
5	cv - a fast gtk+ image viewer modeled after xv	150	cv - a fast gtk+ image viewer loosely modeled after XV
6		151
7	=head1 SYNOPSIS	152	=head1 SYNOPSIS
8		153
9	cv [file...]	154	cv [file...]
10		155
		156	=head1 FEATURES
		157
		158	CV is supposed to work similar to the venerable XV image viewer, just
		159	faster. Why faster?
		160
		161	=over 4
		162
		163	=item * optimized directory scanning algorithm
		164
		165	The directory scanning in CV plays some tricks that - on most modern
		166	filesystems - makes it possible to detect filetypes faster than stat()'ing
		167	every file. This makes CV suitable for directories with lots of files
		168	(10000+).
		169
		170	This algorithm is quite unprecise - it doesn't make a difference between
		171	files, device nodes, symlinks and the like, and filetype detection is done
		172	using the file extension only.
		173
		174	=item * use of asynchronous I/O
		175
		176	CV tries to use asynchronous I/O whereever it makes sense, for example
		177	while scanning directories, waiting for stat data or unlinking files. This
		178	usually decreases scanning times for large directories a bit (especially
		179	on RAID devices and over NFS).
		180
		181	=item * fast image loading
		182
		183	The time span between the user issuing a command and displaying the new
		184	image should be as small as possible. CV uses optimized (especially
		185	for JPEG) loading functions and sacrifices some quality (e.g no gamma
		186	correction) to achieve this speed.
		187
		188	=item * fast thumbnail creation
		189
		190	Thumbnail creation is crucial for me, so it's better be fast. Thumbnail
		191	creation for JPEGs has been specially optimized.
		192
		193	=item * minimum optical clutter
		194
		195	CV has no menus or other user interface elements that take up a lot of
		196	screen space. The schnauzer windows can also be somewhat crowded.
		197
		198	The point of an image viewer is viewing images, not a nice GUI. This is
		199	similar to XV's behaviour.
		200
		201	=item * efficient (and hard to learn) user interface
		202
		203	CV uses key combinations. A lot. If you are an experienced XV user, you
		204	will find most of these keys familiar. If not, CV might be hard to use at
		205	first, but will be an efficient tool later.
		206
		207	=item * i18n'ed filename handling throughout
		208
		209	As long as glib can recognize your filename encoding (either UTF-8 or
		210	locale-specific, depending on your settings) and you have the relevant
		211	fonts, CV will display your filenames correctly.
		212
		213	=item * extensible through plug-ins
		214
		215	I have weird plug-ins that access remote databases to find a
		216	directory. This is not likely to be of any use to other people. Likewise,
		217	others might have weird requirements I cannot dream of.
		218
		219	=item * filename clustering
		220
		221	Among the standard plug-ins is a filename clustering plug-in, that (in
		222	case of tens of thousands images in one directory) might be able to
		223	cluster similar names together.
		224
		225	=back
		226
11	=head1 DESCRIPTION	227	=head1 DESCRIPTION
12		228
13	None yet.
14
15	=head2 THE IMAGE WINDOW	229	=head2 THE IMAGE WINDOW
16		230
17	You can use the following keys in the image window:	231	You can use the following keys in the image window:
18		232
19	q quit the program	233	q quit the program
20	< half the image size	234	< half the image size
21	> double the image size	235	> double the image size
22	, shrink the image by 10%	236	, shrink the image by 10%
23	. enlarge the image by 10%	237	. enlarge the image by 10%
24	n reset to normal size	238	n reset to normal size
25	m maximize to screensize	239	m maximize to screensize
26	M maxime to screensize, respecting image aspect	240	M maximize to screensize, respecting image aspect
		241	ctrl-m toggle maxpect-always mode
27	u uncrop	242	u uncrop
28	r set scaling mode to 'nearest' (fastest)	243	r set scaling mode to 'nearest' (fastest)
29	s set scaling mode to 'bilinear' (default)	244	s set scaling mode to 'bilinear' (default)
30	S set scaling mode to 'hyper' (slowest)	245	shift-s set scaling mode to 'hyper' (slowest)
31	t rotate clockwise 90°	246	t rotate clockwise 90°
32	T rotate counterclockwise°	247	T rotate counterclockwise°
33	ctrl-v open a new visual schnauzer window for the current dir	248	ctrl-v open a new visual schnauzer window for the current dir
		249	ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
		250	ctrl-p fire up the print fialog
		251	escape cancel a crop action
34		252
35	The following keys are redirected to the default visual schnauzer window:	253	And when playing movies, these additional keys are active:
36		254
37	space next image	255	left rewind by 10 seconds
38	backspace last image	256	right forward by 10 seconds
		257	down rewind by 60 seconds
		258	up forward by 60 seconds
		259	pg_up rewind by 600 seconds
		260	pg_down forward by 600 seconds
		261	o toggle on-screen display
		262	p pause/unpause
		263	escape stop playing
		264	9 turn volume down
		265	0 turn volume up
		266
		267	Any other keys will be sent to the default schnauzer window, which can be
		268	toggled on and off by right-clicking into the image window.
		269
		270	Left-clicking into the image window will let you crop the image (usually
		271	to zoom into large images that CV scales down).
39		272
40	=head2 THE VISUAL SCHNAUZER	273	=head2 THE VISUAL SCHNAUZER
41		274
42	You can use the following keys in the schnauzer window:	275	You can use the following keys in the schnauzer window:
43		276
		277	ctrl-space,
44	space move to and display next image	278	space move to and display next image
		279	ctrl-backspace,
45	backspace move to and display previous image	280	backspace move to and display previous image
		281	ctrl-return,
46	return display selected picture	282	return display selected picture, or enter directory
47		283
48	cursor keys move selection	284	cursor keys move selection
49	page-up move one page up	285	page-up move one page up
50	page-down move one page down	286	page-down move one page down
51	home move to first file	287	home move to first file
52	end move to last file	288	end move to last file
53		289
54	ctrl-g generate icons for the selected files	290	ctrl-a select all files
		291	ctrl-shift-a select all files currently displayed in the schnauzer window
55	ctrl-d delete selected files WITHOUT ASKING AGAIN	292	ctrl-d delete selected files WITHOUT ASKING AGAIN
		293	ctrl-g force generation of thumbnais for the selected files
		294	ctrl-s rescan current direcory or files updates/deletes etc.
		295	ctrl-u update selected (or all) icons if neccessary
		296	ctrl-l don't use, will become a plug-in eventually
		297
		298	0-9,
		299	a-z find the first filename beginning with this letter
		300
		301	Right-clicking into the schnauzer window displays a pop-up menu with
		302	additional actions.
		303
		304	=head1 FILES
		305
		306	When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
		307	it were a perl script. in that, you will mostly load plug-ins.
		308
		309	Example:
		310
		311	system "fping -q -t 10 ether"
		312	or require "/fs/cv/cvplugin.pl";
		313
		314	This will load a plug-in, but only if the machine I<ether> is reachable
		315	(supposedly the plug-in is networked in some way :).
		316
		317	=head1 ENVIRONMENT
		318
		319	=over 4
		320
		321	=item CV_EDITOR
		322
		323	The program that gets executed when the user presses C<CTRL-e> in the
		324	Schnauzer or image window. The default is C<gimp>.
		325
		326	=item CV_PRINT_DESTINATION
		327
		328	The default (perl-style) destination to use in the print dialog.
		329
		330	=item CV_TRASHCAN
		331
		332	When set, must point to a directory where all files that are deleted are
		333	moved to. If unset, files that are deleted are really being deleted.
		334
		335	=back
		336
		337	=head1 SECURITY CONSIDERATIONS
		338
		339	CV uses Pixbuf to load images. Pixbuf is not considered safe for this
		340	purpose, though (from the gtk-2.2 release notes):
		341
		342	"While efforts have been made to make gdk-pixbuf robust against invalid
		343	images, using gdk-pixbuf to load untrusted data is not recommended, due to
		344	the likelyhood that there are additional problems where an invalid image
		345	could cause gdk-pixbuf to crash or worse."
56		346
57	=head1 BUGS/TODO	347	=head1 BUGS/TODO
58		348
		349	Lots of functionality is missing.
		350
		351	Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
		352	names incompatible might utf-8 fail.
		353
59	rotate on disk	354	rotate on disk
60	print
61	lots of ui issues	355	lots of ui issues
62	save(?)	356	save(?)
63	preferences	357	preferences
		358	shift-cursor in schnauzer
64		359
65	=head1 AUTHOR	360	=head1 AUTHOR
66		361
67	Marc Lehmann <cv@plan9.de>.	362	Marc Lehmann <cv@plan9.de>.
68		363
69	=cut	364	=cut
70		365
71	use Gtk2 -init;
72	use Gtk2::Gdk::Keysyms;
73
74	use Gtk2::CV::ImageWindow;
75	use Gtk2::CV::Schnauzer;
76
77	my $viewer;
78	my $schnauzer;
79
80	sub new_schnauzer {
81	my $w = new Gtk2::Window;
82	$w->add (my $s = new Gtk2::CV::Schnauzer);
83
84	$s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
85	$s->signal_connect_after (key_press_event => \&std_keys);
86
87	$s->set_dir (".");
88	$w->show_all;
89
90	$s;
91	}
92
93	sub std_keys {
94	my $key = $_[1]->keyval;
95	my $state = $_[1]->state;
96
97	my $ctrl = grep $_ eq "control-mask", @$state;
98
99	if ($key == $Gtk2::Gdk::Keysyms{q}) {
100	main_quit Gtk2;
101	} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
102	new_schnauzer;
103	} else {
104	$schnauzer->handle_key ($key, $state);
105	}
106
107	1;
108	}
109
110	$viewer = new Gtk2::CV::ImageWindow;
111	$viewer->signal_connect (key_press_event => \&std_keys);
112	$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
113
114	$schnauzer = new_schnauzer;
115
116	if (@ARGV) {
117	$viewer->load_image ($ARGV[0]);
118
119	if (@ARGV > 1) {
120	$schnauzer->set_paths (\@ARGV);
121	}
122	}
123
124	$viewer->show_all;
125
126	main Gtk2;
127
128

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing CV/bin/cv (file contents): Revision 1.11 by root, Wed Nov 5 01:29:47 2003 UTC vs. Revision 1.52 by root, Sun Aug 14 19:07:15 2005 UTC

Diff Legend

Comparing CV/bin/cv (file contents):
Revision 1.11 by root, Wed Nov 5 01:29:47 2003 UTC vs.
Revision 1.52 by root, Sun Aug 14 19:07:15 2005 UTC