ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/bin/cv
(Generate patch)

Comparing CV/bin/cv (file contents):
Revision 1.10 by root, Tue Nov 4 02:48:09 2003 UTC vs.
Revision 1.46 by root, Sun Jul 17 05:01:30 2005 UTC

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

Diff Legend

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