… | |
… | |
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); |