[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.39 by root, Sun May 1 05:53:40 2005 UTC

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