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

Comparing CV/bin/cv (file contents):
Revision 1.60 by root, Sat Sep 24 00:43:52 2005 UTC vs.
Revision 1.70 by root, Sat Sep 8 08:20:02 2007 UTC

… …
23 23
24use File::Spec; 24use File::Spec;
25 25
26my $mainwin; 26my $mainwin;
27my $viewer; 27my $viewer;
28my $viewer_count;
28my $schnauzer; 29my $schnauzer;
29my $info; 30my $info;
30my $help; 31my $help;
31 32
32my $schnauzer_idx = 0; 33my $schnauzer_idx = 0;
… …
38 $s->signal_connect (activate => sub { 39 $s->signal_connect (activate => sub {
39 my $label = sprintf "%s (%d)", 40 my $label = sprintf "%s (%d)",
40 (File::Spec->splitpath ($_[1]))[2], 41 (File::Spec->splitpath ($_[1]))[2],
41 -s $_[1]; 42 -s $_[1];
42 $info->set_label ($label); 43 $info->set_label ($label);
43 $viewer->load_image ($_[1]); 44 $viewer->load_image ($_[1]) if $viewer; # TODO: error, or chose ANY viewer
44 }); 45 });
45 46
46 Gtk2::CV::Plugin->call (new_schnauzer => $s); 47 Gtk2::CV::Plugin->call (new_schnauzer => $s);
47 48
48 $s 49 $s
50}
51
52sub new_viewer {
53 my $self = new Gtk2::CV::ImageWindow;
54
55 $viewer_count++;
56
57 $self->set_title ("CV: Image");
58
59 $self->signal_connect (key_press_event => sub {
60 $viewer = $_[0];
61
62 my $key = $_[1]->keyval;
63 my $state = $_[1]->state;
64
65 if ($state * "control-mask" && $key == $Gtk2::Gdk::Keysyms{c}) {
66 my $viewer = new_viewer ();
67 $viewer->set_image ($_[0]->{image});
68 $viewer->show_all;
69 1
70 } else {
71 &std_keys
72 or $schnauzer->signal_emit (key_press_event => $_[1])
73 }
74 });
75 $self->signal_connect (delete_event => sub { $_[0]->destroy; 0 });
76 $self->signal_connect (destroy => sub {
77 $viewer = undef if $viewer == $_[0];
78
79 main_quit Gtk2 unless --$viewer_count;
80
81 0
82 });
83
84 $self->signal_connect (button3_press_event => sub {
85 $mainwin->visible
86 ? $mainwin->hide
87 : $mainwin->show_all;
88
89 1
90 });
91
92 Gtk2::CV::Plugin->call (new_imagewindow => $self);
93
94 $self
49} 95}
50 96
51sub std_keys { 97sub std_keys {
52 my $key = $_[1]->keyval; 98 my $key = $_[1]->keyval;
53 my $state = $_[1]->state; 99 my $state = $_[1]->state;
54 100
55 my $ctrl = $state * "control-mask"; 101 my $ctrl = $state * "control-mask";
56 102
57 if ($key == $Gtk2::Gdk::Keysyms{q}) { 103 if ($key == $Gtk2::Gdk::Keysyms{q}) {
58 main_quit Gtk2; 104 $viewer->destroy;
59 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 105 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
60 my $w = new Gtk2::Window; 106 my $w = new Gtk2::Window;
61 107
108 $w->set_role ("schnauzer");
62 $w->set_title ("CV: Schnauzer"); 109 $w->set_title ("CV: Schnauzer");
63 $w->add (my $s = new_schnauzer); 110 $w->add (my $s = new_schnauzer);
64 $s->set_dir (File::Spec->curdir); 111 $s->set_dir (File::Spec->curdir);
65 $s->set_geometry_hints; 112 $s->set_geometry_hints;
66 $w->show_all; 113 $w->show_all;
… …
68 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) { 115 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
69 unless ($help) { 116 unless ($help) {
70 require Gtk2::PodViewer; 117 require Gtk2::PodViewer;
71 118
72 $help = new Gtk2::Window; 119 $help = new Gtk2::Window;
120 $help->set_role ("help");
73 $help->set_title ("CV: Help"); 121 $help->set_title ("CV: Help");
74 $help->set_default_size (500, 300); 122 $help->set_default_size (500, 300);
75 $help->signal_connect (delete_event => sub { $help->hide; 1 }); 123 $help->signal_connect (delete_event => sub { $help->hide; 1 });
76 124
77 $help->add (my $sw = new Gtk2::ScrolledWindow); 125 $help->add (my $sw = new Gtk2::ScrolledWindow);
… …
88 136
89 1 137 1
90} 138}
91 139
92{ 140{
93 $viewer = new Gtk2::CV::ImageWindow; 141 $viewer = new_viewer;
94 142 $::cur_viewer = $viewer;
95 $viewer->set_title ("CV: Image");
96
97 $viewer->signal_connect (key_press_event => sub {
98 &std_keys
99 or $schnauzer->signal_emit (key_press_event => $_[1])
100 });
101 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
102
103 $viewer->signal_connect (button3_press_event => sub {
104 $mainwin->visible
105 ? $mainwin->hide
106 : $mainwin->show_all;
107 1
108 });
109
110 Gtk2::CV::Plugin->call (new_imagewindow => $viewer);
111 143
112 $schnauzer = new_schnauzer; 144 $schnauzer = new_schnauzer;
113 145
114 $mainwin = new Gtk2::Window; 146 $mainwin = new Gtk2::Window;
147 $mainwin->set_role ("main");
115 $mainwin->set_title ("CV"); 148 $mainwin->set_title ("CV");
116 $mainwin->add (my $vbox = new Gtk2::VBox); 149 $mainwin->add (my $vbox = new Gtk2::VBox);
117 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 }); 150 $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 });
118 151
119 $vbox->add ($schnauzer); 152 $vbox->add ($schnauzer);
… …
127 160
128 $schnauzer->set_geometry_hints; 161 $schnauzer->set_geometry_hints;
129} 162}
130 163
131if (@ARGV) { 164if (@ARGV) {
165 my $show_first = sub {
166 $schnauzer->show_all;
167 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
168 $viewer->show_all;
169 };
170
132 @ARGV == 1 && -d $ARGV[0] 171 @ARGV == 1 && -d $ARGV[0]
133 ? $schnauzer->set_dir (Glib::filename_to_unicode shift) 172 ? $schnauzer->set_dir (Glib::filename_to_unicode shift, $show_first)
134 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]); 173 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV], 1, $show_first);
135 $schnauzer->show_all;
136 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
137} else { 174} else {
138 $schnauzer->set_dir (File::Spec->curdir); 175 $schnauzer->set_dir (File::Spec->curdir, sub {
139 $mainwin->show_all; 176 $mainwin->show_all;
140}
141
142$viewer->show_all; 177 $viewer->show_all;
178 });
179}
143 180
144main Gtk2; 181main Gtk2;
182
183Gtk2::CV::flush_aio;
145 184
146__DATA__ 185__DATA__
147 186
148=encoding utf-8 187=encoding utf-8
149 188
… …
266 r set scaling mode to 'nearest' (fastest) 305 r set scaling mode to 'nearest' (fastest)
267 s set scaling mode to 'bilinear' (default) 306 s set scaling mode to 'bilinear' (default)
268 shift-s set scaling mode to 'hyper' (slowest) 307 shift-s set scaling mode to 'hyper' (slowest)
269 t rotate clockwise 90° 308 t rotate clockwise 90°
270 T rotate counterclockwise° 309 T rotate counterclockwise°
310 a apply all rotations loslessly to a jpeg file (using exiftran)
271 ctrl-v open a new visual schnauzer window for the current dir 311 ctrl-v open a new visual schnauzer window for the current dir
312 ctrl-c clone the current image window
272 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image 313 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
273 ctrl-p fire up the print dialog 314 ctrl-p fire up the print dialog
274 escape cancel a crop action 315 escape cancel a crop action
275 316
276And when playing movies, these additional keys are active: 317And when playing movies, these additional keys are active:
… …
293Left-clicking into the image window will let you crop the image (usually 334Left-clicking into the image window will let you crop the image (usually
294to zoom into large images that CV scales down). 335to zoom into large images that CV scales down).
295 336
296=head2 THE VISUAL SCHNAUZER 337=head2 THE VISUAL SCHNAUZER
297 338
339Any image-loading action in a schnauzer window acts on the
340"last-recently-activated" imagewindow, which currently is simply the last
341image window that received a keypress.
342
298You can use the following keys in the schnauzer window: 343You can use the following keys in the schnauzer window:
299 344
300 ctrl-space, 345 ctrl-space,
301 space move to and display next image 346 space move to and display next image
302 ctrl-backspace, 347 ctrl-backspace,
… …
335=item Keyboard 380=item Keyboard
336 381
337Moving the cursor with the keyboard will first deselect all files and then 382Moving the cursor with the keyboard will first deselect all files and then
338select the file you moved to. 383select the file you moved to.
339 384
340=item Clicking and Shift-Clicking 385=item Clicking
341 386
342Clicking on an entry will select the one you clicked and (unless Shift is 387Clicking on an entry will select the one you clicked and deselect all
343pressed) deselect all others. 388others.
344 389
345=item Dragging and Shift-Dragging 390=item Shift-Clicking
391
392Shift-clicking will toggle the selection on the entry under the mouse.
393
394=item Dragging
346 395
347Dragging will select all entries between the one selected when pushing the 396Dragging will select all entries between the one selected when pushing the
348button and the one selected when releasing the button. If you move above 397button and the one selected when releasing the button. If you move above
349or below the schnauzer area while drag-selecting, the schnauzer will move 398or below the schnauzer area while drag-selecting, the schnauzer will move
350up/down one row twice per second. In addition, horizontal mouse movement 399up/down one row twice per second. In addition, horizontal mouse movement
… …
379=item CV_EDITOR 428=item CV_EDITOR
380 429
381The program that gets executed when the user presses C<CTRL-e> in the 430The program that gets executed when the user presses C<CTRL-e> in the
382Schnauzer or image window. The default is C<gimp>. 431Schnauzer or image window. The default is C<gimp>.
383 432
433=item CV_AUDIO_PLAYER
434
435Program used to play all sorts of audio (wav, aif, mp3, ogg...), default "play".
436Will be called like C<< $CV_AUDIO_PLAYER -- <path> >>.
437
384=item CV_PRINT_DESTINATION 438=item CV_PRINT_DESTINATION
385 439
386The default (perl-style) destination to use in the print dialog. 440The default (perl-style) destination to use in the print dialog.
387 441
388=item CV_TRASHCAN 442=item CV_TRASHCAN

Diff Legend

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