[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.42 by root, Tue Jun 28 02:42:47 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	require Gtk2::CV::Plugin;
		19	require "$ENV{HOME}/.cvrc" if -r "$ENV{HOME}/.cvrc";
		20
		21	my $mainwin;
		22	my $viewer;
		23	my $schnauzer;
		24	my $info;
		25	my $help;
		26
		27	my $schnauzer_idx = 0;
		28
		29	sub new_schnauzer {
		30	my $s = new Gtk2::CV::Schnauzer;
		31
		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);
		55
		56	$s;
		57	}
		58
		59	sub std_keys {
		60	my $key = $_[1]->keyval;
		61	my $state = $_[1]->state;
		62
		63	my $ctrl = $state * "control-mask";
		64
		65	if ($key == $Gtk2::Gdk::Keysyms{q}) {
		66	main_quit Gtk2;
		67	} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
		68	my $w = new Gtk2::Window;
		69
		70	$w->set_title ("CV: Schnauzer");
		71	$w->add (my $s = new_schnauzer);
		72	$s->set_dir (File::Spec->curdir);
		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;
		93	} else {
		94	#$mainwin->show_all;
		95	return $schnauzer->signal_emit (key_press_event => $_[1]);
		96	}
		97
		98	1;
		99	}
		100
		101	{
		102	$viewer = new Gtk2::CV::ImageWindow;
		103
		104	$viewer->set_title ("CV: Image");
		105
		106	$viewer->signal_connect (key_press_event => \&std_keys);
		107	$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
		108
		109	$viewer->signal_connect (button3_press_event => sub {
		110	$mainwin->visible
		111	? $mainwin->hide
		112	: $mainwin->show_all;
		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	}
		134
		135	if (@ARGV) {
		136	$schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
		137	$schnauzer->show_all;
		138	$schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
		139	} else {
		140	$schnauzer->set_dir (File::Spec->curdir);
		141	$mainwin->show_all;
		142	$viewer->show_all;
		143	}
		144
		145	$viewer->show_all;
		146
		147	main Gtk2;
		148
		149	__DATA__
2		150
3	=head1 NAME	151	=head1 NAME
4		152
5	cv - a fast gtk+ image viewer modeled after xv	153	cv - a fast gtk+ image viewer modeled after xv
6		154
22	, shrink the image by 10%	170	, shrink the image by 10%
23	. enlarge the image by 10%	171	. enlarge the image by 10%
24	n reset to normal size	172	n reset to normal size
25	m maximize to screensize	173	m maximize to screensize
26	M maxime to screensize, respecting image aspect	174	M maxime to screensize, respecting image aspect
		175	ctrl-m toggle maxpect-always mode
27	u uncrop	176	u uncrop
28	r set scaling mode to 'nearest' (fastest)	177	r set scaling mode to 'nearest' (fastest)
29	s set scaling mode to 'bilinear' (default)	178	s set scaling mode to 'bilinear' (default)
30	S set scaling mode to 'hyper' (slowest)	179	S set scaling mode to 'hyper' (slowest)
31	t rotate clockwise 90°	180	t rotate clockwise 90°
32	T rotate counterclockwise°	181	T rotate counterclockwise°
33	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
34		199
35	The following keys are redirected to the default visual schnauzer window:	200	The following keys are redirected to the default visual schnauzer window:
36		201
37	space next image	202	space next image
38	backspace last image	203	backspace last image
…		…
49	page-up move one page up	214	page-up move one page up
50	page-down move one page down	215	page-down move one page down
51	home move to first file	216	home move to first file
52	end move to last file	217	end move to last file
53		218
		219	ctrl-d delete selected files WITHOUT ASKING AGAIN
54	ctrl-g generate icons for the selected files	220	ctrl-g generate icons for the selected files
55	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."
56		253
57	=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.
58		258
59	rotate on disk	259	rotate on disk
60	print	260	print
61	lots of ui issues	261	lots of ui issues
62	save(?)	262	save(?)
63	preferences	263	preferences
		264	ctrl-u in schnauzer
		265	shift-cursor in schnauzer
64		266
65	=head1 AUTHOR	267	=head1 AUTHOR
66		268
67	Marc Lehmann <cv@plan9.de>.	269	Marc Lehmann <cv@plan9.de>.
68		270
69	=cut	271	=cut
70		272
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.42 by root, Tue Jun 28 02:42:47 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.42 by root, Tue Jun 28 02:42:47 2005 UTC