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

#!/opt/bin/perl

use Gtk2 -init;
use Gtk2::Gdk::Keysyms;

use Gtk2::CV::ImageWindow;
use Gtk2::CV::Schnauzer;

use Gtk2::CV;

Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");

use File::Spec;

my $mainwin;
my $viewer;
my $schnauzer;
my $info;
my $help;

my $schnauzer_idx = 0;

sub new_schnauzer {
   my $s = new Gtk2::CV::Schnauzer;

   $s->signal_connect_after (key_press_event => \&std_keys);
   $s->signal_connect (activate => sub {
      my $label = sprintf "%s (%d)",
                  (File::Spec->splitpath ($_[1]))[2],
                  -s $_[1];
      $info->set_label ($label);
      $viewer->load_image ($_[1]);
   });

   $s;
}

sub std_keys {
   my $key = $_[1]->keyval;
   my $state = $_[1]->state;

   my $ctrl = $state * "control-mask";

   if ($key == $Gtk2::Gdk::Keysyms{q}) {
      main_quit Gtk2;
   } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
      my $w = new Gtk2::Window;

      $w->set_title ("CV: Schnauzer");
      $w->add (my $s = new_schnauzer);
      $s->set_dir (File::Spec->curdir);
      $s->set_geometry_hints;
      $w->show_all;

   } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
      unless ($help) {
         require Gtk2::PodViewer;

         $help = new Gtk2::Window;
         $help->set_title ("CV: Help");
         $help->set_default_size (500, 300);
         $help->signal_connect (delete_event => sub { $help->hide; 1 });

         $help->add (my $sw = new Gtk2::ScrolledWindow);
         $sw->add (my $h = new Gtk2::PodViewer);

         #binmode DATA, ":utf8";
         $h->load_string (do { local $/; <DATA> });
      }

      $help->show_all;
   } else {
      #$mainwin->show_all;
      $schnauzer->handle_key ($key, $state);
   }

   1;
}

{
   $viewer = new Gtk2::CV::ImageWindow;

   $viewer->set_title ("CV: Image");

   $viewer->signal_connect (key_press_event => \&std_keys);
   $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });

   $viewer->signal_connect (button3_press_event => sub {
      $mainwin->visible
         ? $mainwin->hide
         : $mainwin->show_all;
      1;
   });

   $schnauzer = new_schnauzer;

   $mainwin = new Gtk2::Window;
   $mainwin->set_title ("CV");
   $mainwin->add (my $vbox = new Gtk2::VBox);
   $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });

   $vbox->add ($schnauzer);
   $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
   $frame->add (my $hbox = new Gtk2::HBox 0, 0);
   $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
   $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);

   $schnauzer->set_geometry_hints;
}

if (@ARGV) {
   $_ = Glib::filename_to_unicode $_ for @ARGV;
   $schnauzer->set_paths (\@ARGV);
   $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);

   $viewer->load_image ($ARGV[0]);
} else {
   $schnauzer->set_dir (File::Spec->curdir);
   $mainwin->show_all;
}

$viewer->show_all;

main Gtk2;

__DATA__

=head1 NAME

cv - a fast gtk+ image viewer modeled after xv

=head1 SYNOPSIS

   cv [file...]

=head1 DESCRIPTION

None yet.

=head2 THE IMAGE WINDOW

You can use the following keys in the image window:

 q       quit the program
 <       half the image size
 >       double the image size
 ,       shrink the image by 10%
 .       enlarge the image by 10%
 n       reset to normal size
 m       maximize to screensize
 M       maxime to screensize, respecting image aspect
 ctrl-m  toggle maxpect-always mode
 u       uncrop
 r       set scaling mode to 'nearest' (fastest)
 s       set scaling mode to 'bilinear' (default)
 S       set scaling mode to 'hyper' (slowest)
 t       rotate clockwise 90°
 T       rotate counterclockwise°
 ctrl-v  open a new visual schnauzer window for the current dir
 ctrl-s  rescan visual schnauzer files for updates/deletes etc.

The following keys are redirected to the default visual schnauzer window:

 space     next image
 backspace last image

=head2 THE VISUAL SCHNAUZER

You can use the following keys in the schnauzer window:

 space       move to and display next image
 backspace   move to and display previous image
 return      display selected picture

 cursor keys move selection
 page-up     move one page up
 page-down   move one page down
 home        move to first file
 end         move to last file

 ctrl-d      delete selected files WITHOUT ASKING AGAIN
 ctrl-g      generate icons for the selected files
 ctrl-u      update selected (or all) icons if neccessary

=head1 ENVIRONMENT

=over 4

=item CV_PRINT_DESTINATION

The default (perl-style) destination to use in the print dialog.

=back

=head1 SECURITY CONSIDERATIONS

CV uses Pixbuf to load images. Pixbuf is not considered safe for this
purpose, though (from the gtk-2.2 release notes):

"While efforts have been made to make gdk-pixbuf robust against invalid
images, using gdk-pixbuf to load untrusted data is not recommended, due to
the likelyhood that there are additional problems where an invalid image
could cause gdk-pixbuf to crash or worse."

=head1 BUGS/TODO

 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
 incompatible with utf-8 fails.

 rotate on disk
 print
 lots of ui issues
 save(?)
 preferences
 ctrl-u in schnauzer
 shift-cursor in schnauzer

=head1 AUTHOR

Marc Lehmann <cv@plan9.de>.

=cut

Revision:	1.30
Committed:	Mon Nov 17 04:04:49 2003 UTC (20 years, 7 months ago) by root
Branch:	MAIN
Changes since 1.29:	+1 -0 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/opt/bin/perl
2
3	root	1.12	use Gtk2 -init;
4			use Gtk2::Gdk::Keysyms;
5
6			use Gtk2::CV::ImageWindow;
7			use Gtk2::CV::Schnauzer;
8
9	root	1.16	use Gtk2::CV;
10
11			Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
12
13	root	1.20	use File::Spec;
14
15			my $mainwin;
16	root	1.12	my $viewer;
17			my $schnauzer;
18	root	1.20	my $info;
19	root	1.21	my $help;
20	root	1.12
21	root	1.25	my $schnauzer_idx = 0;
22
23	root	1.12	sub new_schnauzer {
24	root	1.20	my $s = new Gtk2::CV::Schnauzer;
25	root	1.12
26			$s->signal_connect_after (key_press_event => \&std_keys);
27	root	1.20	$s->signal_connect (activate => sub {
28			my $label = sprintf "%s (%d)",
29			(File::Spec->splitpath ($_[1]))[2],
30			-s $_[1];
31			$info->set_label ($label);
32			$viewer->load_image ($_[1]);
33			});
34	root	1.12
35			$s;
36			}
37
38			sub std_keys {
39			my $key = $_[1]->keyval;
40			my $state = $_[1]->state;
41
42	root	1.21	my $ctrl = $state * "control-mask";
43	root	1.12
44			if ($key == $Gtk2::Gdk::Keysyms{q}) {
45			main_quit Gtk2;
46			} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
47	root	1.20	my $w = new Gtk2::Window;
48	root	1.26
49			$w->set_title ("CV: Schnauzer");
50	root	1.20	$w->add (my $s = new_schnauzer);
51			$s->set_dir (File::Spec->curdir);
52	root	1.25	$s->set_geometry_hints;
53	root	1.21	$w->show_all;
54	root	1.25
55	root	1.21	} elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
56			unless ($help) {
57			require Gtk2::PodViewer;
58
59			$help = new Gtk2::Window;
60	root	1.26	$help->set_title ("CV: Help");
61	root	1.21	$help->set_default_size (500, 300);
62			$help->signal_connect (delete_event => sub { $help->hide; 1 });
63
64			$help->add (my $sw = new Gtk2::ScrolledWindow);
65			$sw->add (my $h = new Gtk2::PodViewer);
66
67			#binmode DATA, ":utf8";
68			$h->load_string (do { local $/; <DATA> });
69			}
70
71			$help->show_all;
72	root	1.12	} else {
73	root	1.19	#$mainwin->show_all;
74	root	1.12	$schnauzer->handle_key ($key, $state);
75			}
76
77			1;
78			}
79
80	root	1.20	{
81			$viewer = new Gtk2::CV::ImageWindow;
82	root	1.15
83	root	1.20	$viewer->set_title ("CV: Image");
84	root	1.15
85	root	1.20	$viewer->signal_connect (key_press_event => \&std_keys);
86			$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
87	root	1.13
88	root	1.20	$viewer->signal_connect (button3_press_event => sub {
89			$mainwin->visible
90			? $mainwin->hide
91			: $mainwin->show_all;
92	root	1.23	1;
93	root	1.20	});
94
95			$schnauzer = new_schnauzer;
96
97			$mainwin = new Gtk2::Window;
98			$mainwin->set_title ("CV");
99			$mainwin->add (my $vbox = new Gtk2::VBox);
100	root	1.23	$mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; });
101	root	1.20
102			$vbox->add ($schnauzer);
103	root	1.22	$vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
104	root	1.20	$frame->add (my $hbox = new Gtk2::HBox 0, 0);
105			$hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
106			$hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
107	root	1.25
108			$schnauzer->set_geometry_hints;
109	root	1.20	}
110	root	1.12
111			if (@ARGV) {
112	root	1.30	$_ = Glib::filename_to_unicode $_ for @ARGV;
113	root	1.18	$schnauzer->set_paths (\@ARGV);
114			$schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
115	root	1.29
116			$viewer->load_image ($ARGV[0]);
117	root	1.17	} else {
118	root	1.20	$schnauzer->set_dir (File::Spec->curdir);
119	root	1.19	$mainwin->show_all;
120	root	1.12	}
121
122			$viewer->show_all;
123
124			main Gtk2;
125	root	1.21
126			__DATA__
127	root	1.12
128	root	1.11	=head1 NAME
129
130			cv - a fast gtk+ image viewer modeled after xv
131
132			=head1 SYNOPSIS
133
134			cv [file...]
135
136			=head1 DESCRIPTION
137
138			None yet.
139
140			=head2 THE IMAGE WINDOW
141
142			You can use the following keys in the image window:
143
144			q quit the program
145			< half the image size
146			> double the image size
147			, shrink the image by 10%
148			. enlarge the image by 10%
149			n reset to normal size
150			m maximize to screensize
151			M maxime to screensize, respecting image aspect
152	root	1.26	ctrl-m toggle maxpect-always mode
153	root	1.11	u uncrop
154			r set scaling mode to 'nearest' (fastest)
155			s set scaling mode to 'bilinear' (default)
156			S set scaling mode to 'hyper' (slowest)
157			t rotate clockwise 90°
158			T rotate counterclockwise°
159			ctrl-v open a new visual schnauzer window for the current dir
160	root	1.28	ctrl-s rescan visual schnauzer files for updates/deletes etc.
161	root	1.11
162			The following keys are redirected to the default visual schnauzer window:
163
164			space next image
165			backspace last image
166
167			=head2 THE VISUAL SCHNAUZER
168
169			You can use the following keys in the schnauzer window:
170
171			space move to and display next image
172			backspace move to and display previous image
173			return display selected picture
174
175			cursor keys move selection
176			page-up move one page up
177			page-down move one page down
178			home move to first file
179			end move to last file
180
181	root	1.24	ctrl-d delete selected files WITHOUT ASKING AGAIN
182	root	1.11	ctrl-g generate icons for the selected files
183	root	1.24	ctrl-u update selected (or all) icons if neccessary
184	root	1.11
185	root	1.27	=head1 ENVIRONMENT
186
187			=over 4
188
189			=item CV_PRINT_DESTINATION
190
191			The default (perl-style) destination to use in the print dialog.
192
193			=back
194
195	root	1.23	=head1 SECURITY CONSIDERATIONS
196
197			CV uses Pixbuf to load images. Pixbuf is not considered safe for this
198			purpose, though (from the gtk-2.2 release notes):
199
200			"While efforts have been made to make gdk-pixbuf robust against invalid
201			images, using gdk-pixbuf to load untrusted data is not recommended, due to
202			the likelyhood that there are additional problems where an invalid image
203			could cause gdk-pixbuf to crash or worse."
204
205	root	1.11	=head1 BUGS/TODO
206	root	1.23
207			Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
208			incompatible with utf-8 fails.
209	root	1.11
210			rotate on disk
211			print
212			lots of ui issues
213			save(?)
214			preferences
215	root	1.12	ctrl-u in schnauzer
216			shift-cursor in schnauzer
217	root	1.11
218			=head1 AUTHOR
219
220			Marc Lehmann <cv@plan9.de>.
221
222			=cut
223	root	1.1