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.37 by root, Fri Mar 18 03:45:29 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
18my $mainwin;
9my $viewer; 19my $viewer;
10my $schnauzer; 20my $schnauzer;
21my $info;
22my $help;
23
24my $schnauzer_idx = 0;
11 25
12sub new_schnauzer { 26sub new_schnauzer {
13 my $w = new Gtk2::Window;
14 $w->add (my $s = new Gtk2::CV::Schnauzer); 27 my $s = new Gtk2::CV::Schnauzer;
15 28
16 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
17 $s->signal_connect_after (key_press_event => \&std_keys); 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) = @_;
18 39
19 $s->set_dir ("."); 40 my $path = Cwd::abs_path $dir;
20 $w->show_all; 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 });
21 50
22 $s; 51 $s;
23} 52}
24 53
25sub std_keys { 54sub std_keys {
26 my $key = $_[1]->keyval; 55 my $key = $_[1]->keyval;
27 my $state = $_[1]->state; 56 my $state = $_[1]->state;
28 57
29 my $ctrl = grep $_ eq "control-mask", @$state; 58 my $ctrl = $state * "control-mask";
30 59
31 if ($key == $Gtk2::Gdk::Keysyms{q}) { 60 if ($key == $Gtk2::Gdk::Keysyms{q}) {
32 main_quit Gtk2; 61 main_quit Gtk2;
33 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 62 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
34 new_schnauzer; 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;
35 } else { 88 } else {
89 #$mainwin->show_all;
36 $schnauzer->handle_key ($key, $state); 90 $schnauzer->handle_key ($key, $state);
37 } 91 }
38 92
39 1; 93 1;
40} 94}
41 95
96{
42$viewer = new Gtk2::CV::ImageWindow; 97 $viewer = new Gtk2::CV::ImageWindow;
98
99 $viewer->set_title ("CV: Image");
100
43$viewer->signal_connect (key_press_event => \&std_keys); 101 $viewer->signal_connect (key_press_event => \&std_keys);
44$viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); 102 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
45 103
104 $viewer->signal_connect (button3_press_event => sub {
105 $mainwin->visible
106 ? $mainwin->hide
107 : $mainwin->show_all;
108 1;
109 });
110
46$schnauzer = new_schnauzer; 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
124 $schnauzer->set_geometry_hints;
125}
47 126
48if (@ARGV) { 127if (@ARGV) {
49 $viewer->load_image ($ARGV[0]); 128 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
50 129 $schnauzer->show_all;
51 if (@ARGV > 1) { 130 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
52 $schnauzer->set_paths (\@ARGV); 131} else {
53 } 132 $schnauzer->set_dir (File::Spec->curdir);
133 $mainwin->show_all;
134 $viewer->show_all;
54} 135}
55 136
56$viewer->show_all; 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_PRINT_DESTINATION
221
222The default (perl-style) destination to use in the print dialog.
223
224=back
225
226=head1 SECURITY CONSIDERATIONS
227
228CV uses Pixbuf to load images. Pixbuf is not considered safe for this
229purpose, though (from the gtk-2.2 release notes):
230
231"While efforts have been made to make gdk-pixbuf robust against invalid
232images, using gdk-pixbuf to load untrusted data is not recommended, due to
233the likelyhood that there are additional problems where an invalid image
234could cause gdk-pixbuf to crash or worse."
235
236=head1 BUGS/TODO
237
238 Pixbuf doesn't honor G_BROKEN_FILENAMES, so accessing files with names
239 incompatible with utf-8 fails.
240
241 rotate on disk
242 print
243 lots of ui issues
244 save(?)
245 preferences
246 ctrl-u in schnauzer
247 shift-cursor in schnauzer
248
249=head1 AUTHOR
250
251Marc Lehmann <cv@plan9.de>.
252
253=cut
254

Diff Legend

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