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

Comparing CV/bin/cv (file contents):
Revision 1.24 by root, Wed Nov 12 18:10:47 2003 UTC vs.
Revision 1.25 by root, Wed Nov 12 19:36:06 2003 UTC

… …
15my $mainwin; 15my $mainwin;
16my $viewer; 16my $viewer;
17my $schnauzer; 17my $schnauzer;
18my $info; 18my $info;
19my $help; 19my $help;
20
21my $schnauzer_idx = 0;
20 22
21sub new_schnauzer { 23sub new_schnauzer {
22 my $s = new Gtk2::CV::Schnauzer; 24 my $s = new Gtk2::CV::Schnauzer;
23 25
24 $s->signal_connect_after (key_press_event => \&std_keys); 26 $s->signal_connect_after (key_press_event => \&std_keys);
… …
43 main_quit Gtk2; 45 main_quit Gtk2;
44 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { 46 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) {
45 my $w = new Gtk2::Window; 47 my $w = new Gtk2::Window;
46 $w->add (my $s = new_schnauzer); 48 $w->add (my $s = new_schnauzer);
47 $s->set_dir (File::Spec->curdir); 49 $s->set_dir (File::Spec->curdir);
50 $s->set_geometry_hints;
48 $w->show_all; 51 $w->show_all;
52
49 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) { 53 } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) {
50 unless ($help) { 54 unless ($help) {
51 require Gtk2::PodViewer; 55 require Gtk2::PodViewer;
52 56
53 $help = new Gtk2::Window; 57 $help = new Gtk2::Window;
… …
96 $vbox->add ($schnauzer); 100 $vbox->add ($schnauzer);
97 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); 101 $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0);
98 $frame->add (my $hbox = new Gtk2::HBox 0, 0); 102 $frame->add (my $hbox = new Gtk2::HBox 0, 0);
99 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0); 103 $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0);
100 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0); 104 $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0);
105
106 $schnauzer->set_geometry_hints;
101} 107}
102 108
103if (@ARGV) { 109if (@ARGV) {
104 $schnauzer->set_paths (\@ARGV); 110 $schnauzer->set_paths (\@ARGV);
105 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []); 111 $schnauzer->handle_key ($Gtk2::Gdk::Keysyms{space}, []);

Diff Legend

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