| … | |
… | |
| 103 | if ($key == $Gtk2::Gdk::Keysyms{q}) { |
103 | if ($key == $Gtk2::Gdk::Keysyms{q}) { |
| 104 | $viewer->destroy; |
104 | $viewer->destroy; |
| 105 | } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { |
105 | } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{v}) { |
| 106 | my $w = new Gtk2::Window; |
106 | my $w = new Gtk2::Window; |
| 107 | |
107 | |
|
|
108 | $w->set_role ("schnauzer"); |
| 108 | $w->set_title ("CV: Schnauzer"); |
109 | $w->set_title ("CV: Schnauzer"); |
| 109 | $w->add (my $s = new_schnauzer); |
110 | $w->add (my $s = new_schnauzer); |
| 110 | $s->set_dir (File::Spec->curdir); |
111 | $s->set_dir (File::Spec->curdir); |
| 111 | $s->set_geometry_hints; |
112 | $s->set_geometry_hints; |
| 112 | $w->show_all; |
113 | $w->show_all; |
| … | |
… | |
| 114 | } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) { |
115 | } elsif ($ctrl && $key == $Gtk2::Gdk::Keysyms{h}) { |
| 115 | unless ($help) { |
116 | unless ($help) { |
| 116 | require Gtk2::PodViewer; |
117 | require Gtk2::PodViewer; |
| 117 | |
118 | |
| 118 | $help = new Gtk2::Window; |
119 | $help = new Gtk2::Window; |
|
|
120 | $w->set_role ("help"); |
| 119 | $help->set_title ("CV: Help"); |
121 | $help->set_title ("CV: Help"); |
| 120 | $help->set_default_size (500, 300); |
122 | $help->set_default_size (500, 300); |
| 121 | $help->signal_connect (delete_event => sub { $help->hide; 1 }); |
123 | $help->signal_connect (delete_event => sub { $help->hide; 1 }); |
| 122 | |
124 | |
| 123 | $help->add (my $sw = new Gtk2::ScrolledWindow); |
125 | $help->add (my $sw = new Gtk2::ScrolledWindow); |
| … | |
… | |
| 140 | $::cur_viewer = $viewer; |
142 | $::cur_viewer = $viewer; |
| 141 | |
143 | |
| 142 | $schnauzer = new_schnauzer; |
144 | $schnauzer = new_schnauzer; |
| 143 | |
145 | |
| 144 | $mainwin = new Gtk2::Window; |
146 | $mainwin = new Gtk2::Window; |
|
|
147 | $mainwin->set_role ("main"); |
| 145 | $mainwin->set_title ("CV"); |
148 | $mainwin->set_title ("CV"); |
| 146 | $mainwin->add (my $vbox = new Gtk2::VBox); |
149 | $mainwin->add (my $vbox = new Gtk2::VBox); |
| 147 | $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 }); |
150 | $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1 }); |
| 148 | |
151 | |
| 149 | $vbox->add ($schnauzer); |
152 | $vbox->add ($schnauzer); |
