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

Comparing CV/bin/cv (file contents):
Revision 1.61 by root, Sat Sep 24 00:51:28 2005 UTC vs.
Revision 1.71 by root, Thu Oct 4 10:30:12 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) {
132 @ARGV == 1 && -d $ARGV[0] 165 my $show_first = sub {
133 ? $schnauzer->set_dir (Glib::filename_to_unicode shift)
134 : $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV]);
135 $schnauzer->show_all; 166 $schnauzer->show_all;
136 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []); 167 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
168 $viewer->show_all;
169 };
170
171 if (@ARGV == 1 && $ARGV[0] eq "-0r") {
172 local $/;
173 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, split /\x00/, <STDIN>], 1, $show_first);
174 } elsif (@ARGV == 1 && -d $ARGV[0]) {
175 $schnauzer->set_dir (Glib::filename_to_unicode shift, $show_first);
176 } else {
177 $schnauzer->set_paths ([map Glib::filename_to_unicode $_, @ARGV], 1, $show_first);
178 }
137} else { 179} else {
138 $schnauzer->set_dir (File::Spec->curdir); 180 $schnauzer->set_dir (File::Spec->curdir, sub {
139 $mainwin->show_all; 181 $mainwin->show_all;
140}
141
142$viewer->show_all; 182 $viewer->show_all;
183 });
184}
143 185
144main Gtk2; 186main Gtk2;
187
188Gtk2::CV::flush_aio;
145 189
146__DATA__ 190__DATA__
147 191
148=encoding utf-8 192=encoding utf-8
149 193
… …
266 r set scaling mode to 'nearest' (fastest) 310 r set scaling mode to 'nearest' (fastest)
267 s set scaling mode to 'bilinear' (default) 311 s set scaling mode to 'bilinear' (default)
268 shift-s set scaling mode to 'hyper' (slowest) 312 shift-s set scaling mode to 'hyper' (slowest)
269 t rotate clockwise 90° 313 t rotate clockwise 90°
270 T rotate counterclockwise° 314 T rotate counterclockwise°
315 a apply all rotations loslessly to a jpeg file (using exiftran)
271 ctrl-v open a new visual schnauzer window for the current dir 316 ctrl-v open a new visual schnauzer window for the current dir
317 ctrl-c clone the current image window
272 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image 318 ctrl-e run an editor ($CV_EDITOR or "gimp") on the current image
273 ctrl-p fire up the print dialog 319 ctrl-p fire up the print dialog
274 escape cancel a crop action 320 escape cancel a crop action
275 321
276And when playing movies, these additional keys are active: 322And when playing movies, these additional keys are active:
… …
293Left-clicking into the image window will let you crop the image (usually 339Left-clicking into the image window will let you crop the image (usually
294to zoom into large images that CV scales down). 340to zoom into large images that CV scales down).
295 341
296=head2 THE VISUAL SCHNAUZER 342=head2 THE VISUAL SCHNAUZER
297 343
344Any image-loading action in a schnauzer window acts on the
345"last-recently-activated" imagewindow, which currently is simply the last
346image window that received a keypress.
347
298You can use the following keys in the schnauzer window: 348You can use the following keys in the schnauzer window:
299 349
300 ctrl-space, 350 ctrl-space,
301 space move to and display next image 351 space move to and display next image
302 ctrl-backspace, 352 ctrl-backspace,
… …
383=item CV_EDITOR 433=item CV_EDITOR
384 434
385The program that gets executed when the user presses C<CTRL-e> in the 435The program that gets executed when the user presses C<CTRL-e> in the
386Schnauzer or image window. The default is C<gimp>. 436Schnauzer or image window. The default is C<gimp>.
387 437
438=item CV_AUDIO_PLAYER
439
440Program used to play all sorts of audio (wav, aif, mp3, ogg...), default "play".
441Will be called like C<< $CV_AUDIO_PLAYER -- <path> >>.
442
388=item CV_PRINT_DESTINATION 443=item CV_PRINT_DESTINATION
389 444
390The default (perl-style) destination to use in the print dialog. 445The default (perl-style) destination to use in the print dialog.
391 446
392=item CV_TRASHCAN 447=item CV_TRASHCAN

Diff Legend

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