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

Comparing CV/bin/cv (file contents):
Revision 1.15 by root, Wed Nov 5 02:07:00 2003 UTC vs.
Revision 1.41 by root, Mon Jun 27 19:42:53 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 });
40 $s->signal_connect (chdir => sub {
41 my ($self, $dir) = @_;
18 42
19 $s->set_dir ("."); 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);
20 55
21 $s; 56 $s;
22} 57}
23 58
24sub std_keys { 59sub std_keys {
25 my $key = $_[1]->keyval; 60 my $key = $_[1]->keyval;
26 my $state = $_[1]->state; 61 my $state = $_[1]->state;
27 62
28 my $ctrl = grep $_ eq "control-mask", @$state; 63 my $ctrl = $state * "control-mask";
29 64
30 if ($key == $Gtk2::Gdk::Keysyms{q}) { 65 if ($key == $Gtk2::Gdk::Keysyms{q}) {
31 main_quit Gtk2; 66 main_quit Gtk2;
32 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 67 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
33 new_schnauzer->get_toplevel->show_all; 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;
34 } else { 93 } else {
35 $schnauzer->handle_key ($key, $state); 94 #$mainwin->show_all;
95 return $self->{schnauzer}->signal_emit (key_press_event => $_[1]);
36 } 96 }
37 97
38 1; 98 1;
39} 99}
40 100
101{
41$viewer = new Gtk2::CV::ImageWindow; 102 $viewer = new Gtk2::CV::ImageWindow;
42 103
43$viewer->set_title ("CV"); 104 $viewer->set_title ("CV: Image");
44 105
45$viewer->signal_connect (key_press_event => \&std_keys); 106 $viewer->signal_connect (key_press_event => \&std_keys);
46$viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); 107 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
47 108
48$schnauzer = new_schnauzer;
49
50my $mainwin = $schnauzer->get_toplevel;
51
52$viewer->signal_connect (button3_press_event => sub { 109 $viewer->signal_connect (button3_press_event => sub {
53 $mainwin->visible 110 $mainwin->visible
54 ? $mainwin->hide 111 ? $mainwin->hide
55 : $mainwin->show_all; 112 : $mainwin->show_all;
56}); 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}
57 134
58if (@ARGV) { 135if (@ARGV) {
59 $viewer->load_image ($ARGV[0]); 136 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
60 137 $schnauzer->show_all;
61 if (@ARGV > 1) { 138 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
62 $schnauzer->set_paths (\@ARGV); 139} else {
63 } 140 $schnauzer->set_dir (File::Spec->curdir);
141 $mainwin->show_all;
142 $viewer->show_all;
64} 143}
65 144
66$viewer->show_all; 145$viewer->show_all;
67 146
68main Gtk2; 147main Gtk2;
148
149__DATA__
69 150
70=head1 NAME 151=head1 NAME
71 152
72cv - a fast gtk+ image viewer modeled after xv 153cv - a fast gtk+ image viewer modeled after xv
73 154
… …
89 , shrink the image by 10% 170 , shrink the image by 10%
90 . enlarge the image by 10% 171 . enlarge the image by 10%
91 n reset to normal size 172 n reset to normal size
92 m maximize to screensize 173 m maximize to screensize
93 M maxime to screensize, respecting image aspect 174 M maxime to screensize, respecting image aspect
175 ctrl-m toggle maxpect-always mode
94 u uncrop 176 u uncrop
95 r set scaling mode to 'nearest' (fastest) 177 r set scaling mode to 'nearest' (fastest)
96 s set scaling mode to 'bilinear' (default) 178 s set scaling mode to 'bilinear' (default)
97 S set scaling mode to 'hyper' (slowest) 179 S set scaling mode to 'hyper' (slowest)
98 t rotate clockwise 90° 180 t rotate clockwise 90°
99 T rotate counterclockwise° 181 T rotate counterclockwise°
100 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
186And 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
101 199
102The following keys are redirected to the default visual schnauzer window: 200The following keys are redirected to the default visual schnauzer window:
103 201
104 space next image 202 space next image
105 backspace last image 203 backspace last image
… …
116 page-up move one page up 214 page-up move one page up
117 page-down move one page down 215 page-down move one page down
118 home move to first file 216 home move to first file
119 end move to last file 217 end move to last file
120 218
219 ctrl-d delete selected files WITHOUT ASKING AGAIN
121 ctrl-g generate icons for the selected files 220 ctrl-g generate icons for the selected files
122 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
230The program that gets executed when the user presses C<CTRL-e> in the
231Schnauzer or image window. The default is C<gimp>.
232
233=item CV_PRINT_DESTINATION
234
235The default (perl-style) destination to use in the print dialog.
236
237=item CV_TRASHCAN
238
239When set, must point to a directory where all files that are deleted are
240moved to. If unset, files that are deleted are really being deleted.
241
242=back
243
244=head1 SECURITY CONSIDERATIONS
245
246CV uses Pixbuf to load images. Pixbuf is not considered safe for this
247purpose, though (from the gtk-2.2 release notes):
248
249"While efforts have been made to make gdk-pixbuf robust against invalid
250images, using gdk-pixbuf to load untrusted data is not recommended, due to
251the likelyhood that there are additional problems where an invalid image
252could cause gdk-pixbuf to crash or worse."
123 253
124=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.
125 258
126 rotate on disk 259 rotate on disk
127 print 260 print
128 lots of ui issues 261 lots of ui issues
129 save(?) 262 save(?)

Diff Legend

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