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

Comparing CV/bin/cv (file contents):
Revision 1.23 by root, Wed Nov 12 00:59:02 2003 UTC vs.
Revision 1.56 by root, Mon Aug 22 03:33:33 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;
38	my $state = $_[1]->state;	53	my $state = $_[1]->state;
…		…
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;
86	1;	107	1
87	});	108	});
		109
		110	Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
88		111
89	$schnauzer = new_schnauzer;	112	$schnauzer = new_schnauzer;
90		113
91	$mainwin = new Gtk2::Window;	114	$mainwin = new Gtk2::Window;
92	$mainwin->set_title ("CV");	115	$mainwin->set_title ("CV");
93	$mainwin->add (my $vbox = new Gtk2::VBox);	116	$mainwin->add (my $vbox = new Gtk2::VBox);
94	$mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });	117	$mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 });
95		118
96	$vbox->add ($schnauzer);	119	$vbox->add ($schnauzer);
97	$vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);	120	$vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
98	$frame->add (my $hbox = new Gtk2::HBox 0, 0);	121	$frame->add (my $hbox = new Gtk2::HBox 0, 0);
99	$hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);	122	$hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0);
100	$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;
101	}	129	}
102		130
103	if (@ARGV) {	131	if (@ARGV) {
104	$schnauzer->set_paths (\@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;
105	$schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);	136	$schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
106	} else {	137	} else {
107	$schnauzer->set_dir (File::Spec->curdir);	138	$schnauzer->set_dir (File::Spec->curdir);
108	$mainwin->show_all;	139	$mainwin->show_all;
109	}	140	}
…		…
114		145
115	__DATA__	146	__DATA__
116		147
117	=head1 NAME	148	=head1 NAME
118		149
119	cv - a fast gtk+ image viewer modeled after xv	150	cv - a fast gtk+ image viewer loosely modeled after XV
120		151
121	=head1 SYNOPSIS	152	=head1 SYNOPSIS
122		153
123	cv [file...]	154	cv [file...]
124		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 uses 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	On the positive side, it is usually many orders of magnitude faster than
		175	traditional scanning techniques (good for directories with 10000 or
		176	100000+ files).
		177
		178	=item * queuing for all time-consuming background tasks
		179
		180	All tasks, such as unlinking files or generating thumbnails, that can be
		181	done in the background will be done so - no waiting required, even when
		182	changing directories.
		183
		184	=item * use of asynchronous I/O
		185
		186	CV tries to use asynchronous I/O whereever it makes sense, for example
		187	while scanning directories, waiting for stat data, unlinking files or
		188	generating thumbnails. This usually decreases scanning times for large
		189	directories a bit (especially on RAID devices and over NFS) and makes CV
		190	much more interactive.
		191
		192	=item * fast image loading
		193
		194	The time span between the user issuing a command and displaying the new
		195	image should be as small as possible. CV uses optimized (especially
		196	for JPEG) loading functions and sacrifices some quality (e.g no gamma
		197	correction, although this might change) to achieve this speed.
		198
		199	=item * fast thumbnail creation
		200
		201	Thumbnail creation uses both CPU and Disk-I/O. CV interleaves both, so
		202	on modern CPUs, thumbnailing is usually limited by I/O speed. Thumbnail
		203	creation for JPEGs has been specially optimized and can even take
		204	advantage of multiple CPUs.
		205
		206	=item * minimum optical clutter
		207
		208	CV has no menus or other user interface elements that take up a lot of
		209	screen space (or are useful for beginning users). The schnauzer windows
		210	can also be somewhat crowded.
		211
		212	The point of an image viewer is viewing images, not a nice GUI. This is
		213	similar to XV's behaviour.
		214
		215	=item * efficient (and hard to learn) user interface
		216
		217	CV uses key combinations. A lot. If you are an experienced XV user, you
		218	will find most of these keys familiar. If not, CV might be hard to use at
		219	first, but will be an efficient tool later.
		220
		221	=item * multi-window GUI
		222
		223	CV doesn't force you to use a specific layout, instead it relies on your
		224	window manager, thus enabling you to chose whatever layout that suits you
		225	most.
		226
		227	=item * i18n'ed filename handling throughout
		228
		229	As long as glib can recognize your filename encoding (either UTF-8 or
		230	locale-specific, depending on the setting of G_BROKEN_FILENAMES) and you
		231	have the relevant fonts, CV will display your filenames correctly.
		232
		233	=item * extensible through plug-ins
		234
		235	I have weird plug-ins that access remote databases to find a
		236	directory. This is not likely to be of any use to other people. Likewise,
		237	others might have weird requirements I cannot dream of.
		238
		239	=item * filename clustering
		240
		241	Among the standard plug-ins is a filename clustering plug-in, that (in
		242	case of tens of thousands images in one directory) might be able to
		243	cluster similar names together.
		244
		245	=back
		246
125	=head1 DESCRIPTION	247	=head1 DESCRIPTION
126		248
127	None yet.
128
129	=head2 THE IMAGE WINDOW	249	=head2 THE IMAGE WINDOW
130		250
131	You can use the following keys in the image window:	251	You can use the following keys in the image window:
132		252
133	q quit the program	253	q quit the program
134	< half the image size	254	< half the image size
135	> double the image size	255	> double the image size
136	, shrink the image by 10%	256	, shrink the image by 10%
137	. enlarge the image by 10%	257	. enlarge the image by 10%
138	n reset to normal size	258	n reset to normal size
139	m maximize to screensize	259	m maximize to screensize
140	M maxime to screensize, respecting image aspect	260	M maximize to screensize, respecting image aspect
		261	ctrl-m toggle maxpect-always mode
141	u uncrop	262	u uncrop
142	r set scaling mode to 'nearest' (fastest)	263	r set scaling mode to 'nearest' (fastest)
143	s set scaling mode to 'bilinear' (default)	264	s set scaling mode to 'bilinear' (default)
144	S set scaling mode to 'hyper' (slowest)	265	shift-s set scaling mode to 'hyper' (slowest)
145	t rotate clockwise 90°	266	t rotate clockwise 90°
146	T rotate counterclockwise°	267	T rotate counterclockwise°
147	ctrl-v open a new visual schnauzer window for the current dir	268	ctrl-v open a new visual schnauzer window for the current dir
		269	ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
		270	ctrl-p fire up the print fialog
		271	escape cancel a crop action
148		272
149	The following keys are redirected to the default visual schnauzer window:	273	And when playing movies, these additional keys are active:
150		274
151	space next image	275	left rewind by 10 seconds
152	backspace last image	276	right forward by 10 seconds
		277	down rewind by 60 seconds
		278	up forward by 60 seconds
		279	pg_up rewind by 600 seconds
		280	pg_down forward by 600 seconds
		281	o toggle on-screen display
		282	p pause/unpause
		283	escape stop playing
		284	9 turn volume down
		285	0 turn volume up
		286
		287	Any other keys will be sent to the default schnauzer window, which can be
		288	toggled on and off by right-clicking into the image window.
		289
		290	Left-clicking into the image window will let you crop the image (usually
		291	to zoom into large images that CV scales down).
153		292
154	=head2 THE VISUAL SCHNAUZER	293	=head2 THE VISUAL SCHNAUZER
155		294
156	You can use the following keys in the schnauzer window:	295	You can use the following keys in the schnauzer window:
157		296
		297	ctrl-space,
158	space move to and display next image	298	space move to and display next image
		299	ctrl-backspace,
159	backspace move to and display previous image	300	backspace move to and display previous image
		301	ctrl-return,
160	return display selected picture	302	return display selected picture, or enter directory
161		303
162	cursor keys move selection	304	cursor keys move selection
163	page-up move one page up	305	page-up move one page up
164	page-down move one page down	306	page-down move one page down
165	home move to first file	307	home move to first file
166	end move to last file	308	end move to last file
167		309
168	ctrl-g generate icons for the selected files	310	ctrl-a select all files
		311	ctrl-shift-a select all files currently displayed in the schnauzer window
169	ctrl-d delete selected files WITHOUT ASKING AGAIN	312	ctrl-d delete selected files WITHOUT ASKING AGAIN
		313	ctrl-g force generation of thumbnais for the selected files
		314	ctrl-s rescan current direcory or files updates/deletes etc.
		315	ctrl-u update selected (or all) icons if neccessary
		316	ctrl-l don't use, will become a plug-in eventually
		317
		318	^ go to parent directory (caret).
		319
		320	0-9,
		321	a-z find the first filename beginning with this letter
		322
		323	Right-clicking into the schnauzer window displays a pop-up menu with
		324	additional actions.
		325
		326	=head1 FILES
		327
		328	When starting, CV runs the F<.cvrc> file in your F<$HOME> directory as if
		329	it were a perl script. in that, you will mostly load plug-ins.
		330
		331	Example:
		332
		333	system "fping -q -t 10 ether"
		334	or require "/fs/cv/cvplugin.pl";
		335
		336	This will load a plug-in, but only if the machine I<ether> is reachable
		337	(supposedly the plug-in is networked in some way :).
		338
		339	=head1 ENVIRONMENT
		340
		341	=over 4
		342
		343	=item CV_EDITOR
		344
		345	The program that gets executed when the user presses C<CTRL-e> in the
		346	Schnauzer or image window. The default is C<gimp>.
		347
		348	=item CV_PRINT_DESTINATION
		349
		350	The default (perl-style) destination to use in the print dialog.
		351
		352	=item CV_TRASHCAN
		353
		354	When set, must point to a directory where all files that are deleted are
		355	moved to. If unset, files that are deleted are really being deleted.
		356
		357	=back
170		358
171	=head1 SECURITY CONSIDERATIONS	359	=head1 SECURITY CONSIDERATIONS
172		360
173	CV uses Pixbuf to load images. Pixbuf is not considered safe for this	361	CV uses Pixbuf to load non-JPEG images. Pixbuf is not considered safe for
174	purpose, though (from the gtk-2.2 release notes):	362	this purpose, though (from the gtk-2.2 release notes):
175		363
176	"While efforts have been made to make gdk-pixbuf robust against invalid	364	"While efforts have been made to make gdk-pixbuf robust against invalid
177	images, using gdk-pixbuf to load untrusted data is not recommended, due to	365	images, using gdk-pixbuf to load untrusted data is not recommended, due to
178	the likelyhood that there are additional problems where an invalid image	366	the likelyhood that there are additional problems where an invalid image
179	could cause gdk-pixbuf to crash or worse."	367	could cause gdk-pixbuf to crash or worse."
180		368
181	=head1 BUGS/TODO	369	=head1 BUGS/TODO
182		370
		371	Lots of functionality is missing.
		372
183	Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names	373	Pixbuf doesn't always honor G_BROKEN_FILENAMES, so accessing files with
184	incompatible with utf-8 fails.	374	names incompatible with utf-8 might fail.
185		375
186	rotate on disk	376	rotate on disk
187	print
188	lots of ui issues	377	lots of ui issues
189	save(?)	378	save(?)
190	preferences	379	preferences
191	ctrl-u in schnauzer
192	shift-cursor in schnauzer
193		380
194	=head1 AUTHOR	381	=head1 AUTHOR
195		382
196	Marc Lehmann <cv@plan9.de>.	383	Marc Lehmann <cv@plan9.de>.
197		384

Diff Legend

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

Comparing CV/bin/cv (file contents): Revision 1.23 by root, Wed Nov 12 00:59:02 2003 UTC vs. Revision 1.56 by root, Mon Aug 22 03:33:33 2005 UTC

Diff Legend

Comparing CV/bin/cv (file contents):
Revision 1.23 by root, Wed Nov 12 00:59:02 2003 UTC vs.
Revision 1.56 by root, Mon Aug 22 03:33:33 2005 UTC