| … | |
… | |
| 18 | $w->add (my $s = new Gtk2::CV::Schnauzer); |
18 | $w->add (my $s = new Gtk2::CV::Schnauzer); |
| 19 | |
19 | |
| 20 | $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) }); |
20 | $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) }); |
| 21 | $s->signal_connect_after (key_press_event => \&std_keys); |
21 | $s->signal_connect_after (key_press_event => \&std_keys); |
| 22 | |
22 | |
| 23 | $s->set_dir ("."); |
|
|
| 24 | |
|
|
| 25 | $s; |
23 | $s; |
| 26 | } |
24 | } |
| 27 | |
25 | |
| 28 | $schnauzer = new_schnauzer; |
26 | $schnauzer = new_schnauzer; |
| 29 | |
27 | |
| … | |
… | |
| 36 | my $ctrl = grep $_ eq "control-mask", @$state; |
34 | my $ctrl = grep $_ eq "control-mask", @$state; |
| 37 | |
35 | |
| 38 | if ($key == $Gtk2::Gdk::Keysyms{q}) { |
36 | if ($key == $Gtk2::Gdk::Keysyms{q}) { |
| 39 | main_quit Gtk2; |
37 | main_quit Gtk2; |
| 40 | } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { |
38 | } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { |
|
|
39 | my $s = new_schnauzer; |
|
|
40 | $s->set_dir ("."); |
| 41 | new_schnauzer->get_toplevel->show_all; |
41 | $s->get_toplevel->show_all |
| 42 | } else { |
42 | } else { |
| 43 | $mainwin->show_all; |
43 | $mainwin->show_all; |
| 44 | $schnauzer->handle_key ($key, $state); |
44 | $schnauzer->handle_key ($key, $state); |
| 45 | } |
45 | } |
| 46 | |
46 | |
| … | |
… | |
| 64 | $viewer->load_image ($ARGV[0]); |
64 | $viewer->load_image ($ARGV[0]); |
| 65 | |
65 | |
| 66 | if (@ARGV > 1) { |
66 | if (@ARGV > 1) { |
| 67 | $schnauzer->set_paths (\@ARGV); |
67 | $schnauzer->set_paths (\@ARGV); |
| 68 | } |
68 | } |
|
|
69 | } else { |
|
|
70 | $schnauzer->set_dir ("."); |
| 69 | } |
71 | } |
| 70 | |
72 | |
| 71 | $viewer->show_all; |
73 | $viewer->show_all; |
| 72 | |
74 | |
| 73 | main Gtk2; |
75 | main Gtk2; |
