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

Comparing CV/bin/cv (file contents):
Revision 1.11 by root, Wed Nov 5 01:29:47 2003 UTC vs.
Revision 1.19 by root, Fri Nov 7 04:03:03 2003 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2
3use Gtk2 -init;
4use Gtk2::Gdk::Keysyms;
5
6use Gtk2::CV::ImageWindow;
7use Gtk2::CV::Schnauzer;
8
9use Gtk2::CV;
10
11Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
12
13my $viewer;
14my $schnauzer;
15
16sub new_schnauzer {
17 my $w = new Gtk2::Window;
18 $w->add (my $s = new Gtk2::CV::Schnauzer);
19
20 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
21 $s->signal_connect_after (key_press_event => \&std_keys);
22
23 $s;
24}
25
26$schnauzer = new_schnauzer;
27
28my $mainwin = $schnauzer->get_toplevel;
29
30sub std_keys {
31 my $key = $_[1]->keyval;
32 my $state = $_[1]->state;
33
34 my $ctrl = grep $_ eq "control-mask", @$state;
35
36 if ($key == $Gtk2::Gdk::Keysyms{q}) {
37 main_quit Gtk2;
38 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
39 my $s = new_schnauzer;
40 $s->set_dir (".");
41 $s->get_toplevel->show_all
42 } else {
43 #$mainwin->show_all;
44 $schnauzer->handle_key ($key, $state);
45 }
46
47 1;
48}
49
50$viewer = new Gtk2::CV::ImageWindow;
51
52$viewer->set_title ("CV");
53
54$viewer->signal_connect (key_press_event => \&std_keys);
55$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
56
57$viewer->signal_connect (button3_press_event => sub {
58 $mainwin->visible
59 ? $mainwin->hide
60 : $mainwin->show_all;
61});
62
63if (@ARGV) {
64 $schnauzer->set_paths (\@ARGV);
65 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
66} else {
67 $schnauzer->set_dir (".");
68 $mainwin->show_all;
69}
70
71$viewer->show_all;
72
73main Gtk2;
2 74
3=head1 NAME 75=head1 NAME
4 76
5cv - a fast gtk+ image viewer modeled after xv 77cv - a fast gtk+ image viewer modeled after xv
6 78
… …
59 rotate on disk 131 rotate on disk
60 print 132 print
61 lots of ui issues 133 lots of ui issues
62 save(?) 134 save(?)
63 preferences 135 preferences
136 ctrl-u in schnauzer
137 shift-cursor in schnauzer
64 138
65=head1 AUTHOR 139=head1 AUTHOR
66 140
67Marc Lehmann <cv@plan9.de>. 141Marc Lehmann <cv@plan9.de>.
68 142
69=cut 143=cut
70 144
71use Gtk2 -init;
72use Gtk2::Gdk::Keysyms;
73
74use Gtk2::CV::ImageWindow;
75use Gtk2::CV::Schnauzer;
76
77my $viewer;
78my $schnauzer;
79
80sub new_schnauzer {
81 my $w = new Gtk2::Window;
82 $w->add (my $s = new Gtk2::CV::Schnauzer);
83
84 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
85 $s->signal_connect_after (key_press_event => \&std_keys);
86
87 $s->set_dir (".");
88 $w->show_all;
89
90 $s;
91}
92
93sub std_keys {
94 my $key = $_[1]->keyval;
95 my $state = $_[1]->state;
96
97 my $ctrl = grep $_ eq "control-mask", @$state;
98
99 if ($key == $Gtk2::Gdk::Keysyms{q}) {
100 main_quit Gtk2;
101 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
102 new_schnauzer;
103 } else {
104 $schnauzer->handle_key ($key, $state);
105 }
106
107 1;
108}
109
110$viewer = new Gtk2::CV::ImageWindow;
111$viewer->signal_connect (key_press_event => \&std_keys);
112$viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
113
114$schnauzer = new_schnauzer;
115
116if (@ARGV) {
117 $viewer->load_image ($ARGV[0]);
118
119 if (@ARGV > 1) {
120 $schnauzer->set_paths (\@ARGV);
121 }
122}
123
124$viewer->show_all;
125
126main Gtk2;
127
128

Diff Legend

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