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

Comparing CV/bin/cv (file contents):
Revision 1.18 by root, Fri Nov 7 04:01:28 2003 UTC vs.
Revision 1.41 by root, Mon Jun 27 19:42:53 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
6	use Gtk2::CV::ImageWindow;	9	use Gtk2::CV::ImageWindow;
8		11
9	use Gtk2::CV;	12	use Gtk2::CV;
10		13
11	Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");	14	Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
12		15
		16	use File::Spec;
		17
		18	require Gtk2::CV::Plugin;
		19	require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
		20
		21	my $mainwin;
13	my $viewer;	22	my $viewer;
14	my $schnauzer;	23	my $schnauzer;
		24	my $info;
		25	my $help;
		26
		27	my $schnauzer_idx = 0;
15		28
16	sub new_schnauzer {	29	sub new_schnauzer {
17	my $w = new Gtk2::Window;
18	$w->add (my $s = new Gtk2::CV::Schnauzer);	30	my $s = new Gtk2::CV::Schnauzer;
19		31
20	$s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
21	$s->signal_connect_after (key_press_event => \&std_keys);	32	$s->signal_connect_after (key_press_event => \&std_keys);
		33	$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	$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
		54	Gtk2::CV::Plugin->call (new_schnauzer => $s);
22		55
23	$s;	56	$s;
24	}	57	}
25
26	$schnauzer = new_schnauzer;
27
28	my $mainwin = $schnauzer->get_toplevel;
29		58
30	sub std_keys {	59	sub std_keys {
31	my $key = $_[1]->keyval;	60	my $key = $_[1]->keyval;
32	my $state = $_[1]->state;	61	my $state = $_[1]->state;
33		62
34	my $ctrl = grep $_ eq "control-mask", @$state;	63	my $ctrl = $state * "control-mask";
35		64
36	if ($key == $Gtk2::Gdk::Keysyms{q}) {	65	if ($key == $Gtk2::Gdk::Keysyms{q}) {
37	main_quit Gtk2;	66	main_quit Gtk2;
38	} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {	67	} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
		68	my $w = new Gtk2::Window;
		69
		70	$w->set_title ("CV: Schnauzer");
39	my $s = new_schnauzer;	71	$w->add (my $s = new_schnauzer);
40	$s->set_dir (".");	72	$s->set_dir (File::Spec->curdir);
41	$s->get_toplevel->show_all	73	$s->set_geometry_hints;
		74	$w->show_all;
		75
		76	} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
		77	unless ($help) {
		78	require Gtk2::PodViewer;
		79
		80	$help = new Gtk2::Window;
		81	$help->set_title ("CV: Help");
		82	$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;
42	} else {	93	} else {
43	$mainwin->show_all;	94	#$mainwin->show_all;
44	$schnauzer->handle_key ($key, $state);	95	return $self->{schnauzer}->signal_emit (key_press_event => $_[1]);
45	}	96	}
46		97
47	1;	98	1;
48	}	99	}
49		100
		101	{
50	$viewer = new Gtk2::CV::ImageWindow;	102	$viewer = new Gtk2::CV::ImageWindow;
51		103
52	$viewer->set_title ("CV");	104	$viewer->set_title ("CV: Image");
53		105
54	$viewer->signal_connect (key_press_event => \&std_keys);	106	$viewer->signal_connect (key_press_event => \&std_keys);
55	$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });	107	$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
56		108
57	$viewer->signal_connect (button3_press_event => sub {	109	$viewer->signal_connect (button3_press_event => sub {
58	$mainwin->visible	110	$mainwin->visible
59	? $mainwin->hide	111	? $mainwin->hide
60	: $mainwin->show_all;	112	: $mainwin->show_all;
61	});	113	1;
		114	});
		115
		116	Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
		117
		118	$schnauzer = new_schnauzer;
		119
		120	$mainwin = new Gtk2::Window;
		121	$mainwin->set_title ("CV");
		122	$mainwin->add (my $vbox = new Gtk2::VBox);
		123	$mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
		124
		125	$vbox->add ($schnauzer);
		126	$vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
		127	$frame->add (my $hbox = new Gtk2::HBox 0, 0);
		128	$hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
		129	$hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
		130	$info->set (wrap => 1);
		131
		132	$schnauzer->set_geometry_hints;
		133	}
62		134
63	if (@ARGV) {	135	if (@ARGV) {
64	$schnauzer->set_paths (\@ARGV);	136	$schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
		137	$schnauzer->show_all;
65	$schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);	138	$schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
66	} else {	139	} else {
67	$schnauzer->set_dir (".");	140	$schnauzer->set_dir (File::Spec->curdir);
68	$schnauzer->get_toplevel->show_all;	141	$mainwin->show_all;
		142	$viewer->show_all;
69	}	143	}
70		144
71	$viewer->show_all;	145	$viewer->show_all;
72		146
73	main Gtk2;	147	main Gtk2;
		148
		149	__DATA__
74		150
75	=head1 NAME	151	=head1 NAME
76		152
77	cv - a fast gtk+ image viewer modeled after xv	153	cv - a fast gtk+ image viewer modeled after xv
78		154
…		…
94	, shrink the image by 10%	170	, shrink the image by 10%
95	. enlarge the image by 10%	171	. enlarge the image by 10%
96	n reset to normal size	172	n reset to normal size
97	m maximize to screensize	173	m maximize to screensize
98	M maxime to screensize, respecting image aspect	174	M maxime to screensize, respecting image aspect
		175	ctrl-m toggle maxpect-always mode
99	u uncrop	176	u uncrop
100	r set scaling mode to 'nearest' (fastest)	177	r set scaling mode to 'nearest' (fastest)
101	s set scaling mode to 'bilinear' (default)	178	s set scaling mode to 'bilinear' (default)
102	S set scaling mode to 'hyper' (slowest)	179	S set scaling mode to 'hyper' (slowest)
103	t rotate clockwise 90°	180	t rotate clockwise 90°
104	T rotate counterclockwise°	181	T rotate counterclockwise°
105	ctrl-v open a new visual schnauzer window for the current dir	182	ctrl-v open a new visual schnauzer window for the current dir
		183	ctrl-s rescan visual schnauzer files for updates/deletes etc.
		184	ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image.
		185
		186	And when playing movies, these additional keys are active:
		187
		188	left rewind by 10 seconds
		189	right forward by 10 seconds
		190	down rewind by 60 seconds
		191	up forward by 60 seconds
		192	pg_up rewind by 600 seconds
		193	pg_down forward by 600 seconds
		194	o toggle on-screen display
		195	p pause/unpause
		196	escape stop playing
		197	9 turn volume down
		198	0 turn volume up
106		199
107	The following keys are redirected to the default visual schnauzer window:	200	The following keys are redirected to the default visual schnauzer window:
108		201
109	space next image	202	space next image
110	backspace last image	203	backspace last image
…		…
121	page-up move one page up	214	page-up move one page up
122	page-down move one page down	215	page-down move one page down
123	home move to first file	216	home move to first file
124	end move to last file	217	end move to last file
125		218
		219	ctrl-d delete selected files WITHOUT ASKING AGAIN
126	ctrl-g generate icons for the selected files	220	ctrl-g generate icons for the selected files
127	ctrl-d delete selected files WITHOUT ASKING AGAIN	221	ctrl-u update selected (or all) icons if neccessary
		222	ctrl-a select all files
		223
		224	=head1 ENVIRONMENT
		225
		226	=over 4
		227
		228	=item CV_EDITOR
		229
		230	The program that gets executed when the user presses C<CTRL-e> in the
		231	Schnauzer or image window. The default is C<gimp>.
		232
		233	=item CV_PRINT_DESTINATION
		234
		235	The default (perl-style) destination to use in the print dialog.
		236
		237	=item CV_TRASHCAN
		238
		239	When set, must point to a directory where all files that are deleted are
		240	moved to. If unset, files that are deleted are really being deleted.
		241
		242	=back
		243
		244	=head1 SECURITY CONSIDERATIONS
		245
		246	CV uses Pixbuf to load images. Pixbuf is not considered safe for this
		247	purpose, though (from the gtk-2.2 release notes):
		248
		249	"While efforts have been made to make gdk-pixbuf robust against invalid
		250	images, using gdk-pixbuf to load untrusted data is not recommended, due to
		251	the likelyhood that there are additional problems where an invalid image
		252	could cause gdk-pixbuf to crash or worse."
128		253
129	=head1 BUGS/TODO	254	=head1 BUGS/TODO
		255
		256	Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
		257	incompatible with utf-8 fails.
130		258
131	rotate on disk	259	rotate on disk
132	print	260	print
133	lots of ui issues	261	lots of ui issues
134	save(?)	262	save(?)

Diff Legend

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

Comparing CV/bin/cv (file contents): Revision 1.18 by root, Fri Nov 7 04:01:28 2003 UTC vs. Revision 1.41 by root, Mon Jun 27 19:42:53 2005 UTC

Diff Legend

Comparing CV/bin/cv (file contents):
Revision 1.18 by root, Fri Nov 7 04:01:28 2003 UTC vs.
Revision 1.41 by root, Mon Jun 27 19:42:53 2005 UTC