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

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

Diff Legend

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

Comparing CV/bin/cv (file contents): Revision 1.22 by root, Sat Nov 8 13:19:53 2003 UTC vs. Revision 1.51 by root, Sun Aug 14 02:25:44 2005 UTC

Diff Legend

Comparing CV/bin/cv (file contents):
Revision 1.22 by root, Sat Nov 8 13:19:53 2003 UTC vs.
Revision 1.51 by root, Sun Aug 14 02:25:44 2005 UTC