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

Comparing CV/bin/cv (file contents):
Revision 1.13 by root, Wed Nov 5 02:05:25 2003 UTC vs.
Revision 1.54 by root, Fri Aug 19 00:19:52 2005 UTC

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

Diff Legend

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

Comparing CV/bin/cv (file contents): Revision 1.13 by root, Wed Nov 5 02:05:25 2003 UTC vs. Revision 1.54 by root, Fri Aug 19 00:19:52 2005 UTC

Diff Legend

Comparing CV/bin/cv (file contents):
Revision 1.13 by root, Wed Nov 5 02:05:25 2003 UTC vs.
Revision 1.54 by root, Fri Aug 19 00:19:52 2005 UTC