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

Comparing CV/bin/cv (file contents):
Revision 1.17 by root, Fri Nov 7 03:07:01 2003 UTC vs.
Revision 1.22 by root, Sat Nov 8 13:19:53 2003 UTC

… …
8 8
9use Gtk2::CV; 9use Gtk2::CV;
10 10
11Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc"); 11Gtk2::Rc->parse (Gtk2::CV::find_rcfile "gtkrc");
12 12
13use File::Spec;
14
15my $mainwin;
13my $viewer; 16my $viewer;
14my $schnauzer; 17my $schnauzer;
18my $info;
19my $help;
15 20
16sub new_schnauzer { 21sub new_schnauzer {
17 my $w = new Gtk2::Window;
18 $w->add (my $s = new Gtk2::CV::Schnauzer); 22 my $s = new Gtk2::CV::Schnauzer;
19 23
20 $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) });
21 $s->signal_connect_after (key_press_event => \&std_keys); 24 $s->signal_connect_after (key_press_event => \&std_keys);
25 $s->signal_connect (activate => sub {
26 my $label = sprintf "%s (%d)",
27 (File::Spec->splitpath ($_[1]))[2],
28 -s $_[1];
29 $info->set_label ($label);
30 $viewer->load_image ($_[1]);
31 });
22 32
23 $s; 33 $s;
24} 34}
25
26$schnauzer = new_schnauzer;
27
28my $mainwin = $schnauzer->get_toplevel;
29 35
30sub std_keys { 36sub std_keys {
31 my $key = $_[1]->keyval; 37 my $key = $_[1]->keyval;
32 my $state = $_[1]->state; 38 my $state = $_[1]->state;
33 39
34 my $ctrl = grep $_ eq "control-mask", @$state; 40 my $ctrl = $state * "control-mask";
35 41
36 if ($key == $Gtk2::Gdk::Keysyms{q}) { 42 if ($key == $Gtk2::Gdk::Keysyms{q}) {
37 main_quit Gtk2; 43 main_quit Gtk2;
38 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 44 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
45 my $w = new Gtk2::Window;
39 my $s = new_schnauzer; 46 $w->add (my $s = new_schnauzer);
40 $s->set_dir ("."); 47 $s->set_dir (File::Spec->curdir);
41 $s->get_toplevel->show_all 48 $w->show_all;
49 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
50 unless ($help) {
51 require Gtk2::PodViewer;
52
53 $help = new Gtk2::Window;
54 $help->set_title ("CV Help");
55 $help->set_default_size (500, 300);
56 $help->signal_connect (delete_event => sub { $help->hide; 1 });
57
58 $help->add (my $sw = new Gtk2::ScrolledWindow);
59 $sw->add (my $h = new Gtk2::PodViewer);
60
61 #binmode DATA, ":utf8";
62 $h->load_string (do { local $/; <DATA> });
63 }
64
65 $help->show_all;
42 } else { 66 } else {
43 $mainwin->show_all; 67 #$mainwin->show_all;
44 $schnauzer->handle_key ($key, $state); 68 $schnauzer->handle_key ($key, $state);
45 } 69 }
46 70
47 1; 71 1;
48} 72}
49 73
74{
50$viewer = new Gtk2::CV::ImageWindow; 75 $viewer = new Gtk2::CV::ImageWindow;
51 76
52$viewer->set_title ("CV"); 77 $viewer->set_title ("CV: Image");
53 78
54$viewer->signal_connect (key_press_event => \&std_keys); 79 $viewer->signal_connect (key_press_event => \&std_keys);
55$viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); 80 $viewer->signal_connect (delete_event => sub { main_quit Gtk2 });
56 81
57$viewer->signal_connect (button3_press_event => sub { 82 $viewer->signal_connect (button3_press_event => sub {
58 $mainwin->visible 83 $mainwin->visible
59 ? $mainwin->hide 84 ? $mainwin->hide
60 : $mainwin->show_all; 85 : $mainwin->show_all;
61}); 86 });
87
88 $schnauzer = new_schnauzer;
89
90 $mainwin = new Gtk2::Window;
91 $mainwin->set_title ("CV");
92 $mainwin->add (my $vbox = new Gtk2::VBox);
93
94 $vbox->add ($schnauzer);
95 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
96 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
97 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
98 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
99}
62 100
63if (@ARGV) { 101if (@ARGV) {
64 $viewer->load_image ($ARGV[0]);
65
66 if (@ARGV > 1) {
67 $schnauzer->set_paths (\@ARGV); 102 $schnauzer->set_paths (\@ARGV);
68 } 103 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);
69} else { 104} else {
70 $schnauzer->set_dir ("."); 105 $schnauzer->set_dir (File::Spec->curdir);
106 $mainwin->show_all;
71} 107}
72 108
73$viewer->show_all; 109$viewer->show_all;
74 110
75main Gtk2; 111main Gtk2;
112
113__DATA__
76 114
77=head1 NAME 115=head1 NAME
78 116
79cv - a fast gtk+ image viewer modeled after xv 117cv - a fast gtk+ image viewer modeled after xv
80 118

Diff Legend

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