| … | |
… | |
| 131 | return if defined $self->{help_win}; |
131 | return if defined $self->{help_win}; |
| 132 | require Gtk2::Ex::PodViewer; |
132 | require Gtk2::Ex::PodViewer; |
| 133 | my $w = $self->{help_win} = Gtk2::Window->new; |
133 | my $w = $self->{help_win} = Gtk2::Window->new; |
| 134 | $w->set_title ("gce - help"); |
134 | $w->set_title ("gce - help"); |
| 135 | $w->set_default_size (500, 300); |
135 | $w->set_default_size (500, 300); |
| 136 | $w->signal_connect (delete_event => sub { |
136 | $w->signal_connect (destroy => sub { |
| 137 | $self->{help_win}->hide; $self->{help_win} = undef; |
137 | $self->{help_win}->hide; $self->{help_win} = undef; |
| 138 | 0 |
138 | 0 |
| 139 | }); |
139 | }); |
| 140 | $w->add (my $sw = Gtk2::ScrolledWindow->new); |
140 | $w->add (my $sw = Gtk2::ScrolledWindow->new); |
| 141 | $sw->add (my $h = Gtk2::Ex::PodViewer->new); |
141 | $sw->add (my $h = Gtk2::Ex::PodViewer->new); |
| … | |
… | |
| 148 | |
148 | |
| 149 | return if defined $self->{sv}; |
149 | return if defined $self->{sv}; |
| 150 | |
150 | |
| 151 | my $w = $self->{sv_win} = Gtk2::Window->new ('toplevel'); |
151 | my $w = $self->{sv_win} = Gtk2::Window->new ('toplevel'); |
| 152 | $w->set_title ('gce - stack view'); |
152 | $w->set_title ('gce - stack view'); |
| 153 | $w->signal_connect (delete_event => sub { delete $self->{sv}; 0 }); |
153 | $w->signal_connect (destroy => sub { delete $self->{sv}; 0 }); |
| 154 | $w->add ($self->{sv} = GCE::StackView->new); |
154 | $w->add ($self->{sv} = GCE::StackView->new); |
| 155 | |
155 | |
| 156 | main::set_pos_and_size ($w, $main::CFG->{stack_view}, 150, 250); |
156 | main::set_pos_and_size ($w, $main::CFG->{stack_view}, 150, 250); |
| 157 | |
157 | |
| 158 | $w->show_all; |
158 | $w->show_all; |
| … | |
… | |
| 183 | $w->destroy; |
183 | $w->destroy; |
| 184 | }); |
184 | }); |
| 185 | $t->attach_defaults (my $close = Gtk2::Button->new ('close'), 0, 2, 3, 4); |
185 | $t->attach_defaults (my $close = Gtk2::Button->new ('close'), 0, 2, 3, 4); |
| 186 | $close->signal_connect (clicked => sub { $w->destroy }); |
186 | $close->signal_connect (clicked => sub { $w->destroy }); |
| 187 | |
187 | |
| 188 | $w->signal_connect (delete_event => sub { delete $self->{prop_edit}; 0 }); |
188 | $w->signal_connect (destroy => sub { delete $self->{prop_edit}; 0 }); |
| 189 | |
189 | |
| 190 | main::set_pos_and_size ($w, $main::CFG->{prop_edit}, 200, 200); |
190 | main::set_pos_and_size ($w, $main::CFG->{prop_edit}, 200, 200); |
| 191 | |
191 | |
| 192 | $w->show_all; |
192 | $w->show_all; |
| 193 | } |
193 | } |
| … | |
… | |
| 198 | return if $self->{attr_edit}; |
198 | return if $self->{attr_edit}; |
| 199 | |
199 | |
| 200 | my $w = $self->{attr_edit_win} = Gtk2::Window->new; |
200 | my $w = $self->{attr_edit_win} = Gtk2::Window->new; |
| 201 | $w->set_title ("gce - edit attrs"); |
201 | $w->set_title ("gce - edit attrs"); |
| 202 | $w->add ($self->{attr_edit} = GCE::AttrEdit->new); |
202 | $w->add ($self->{attr_edit} = GCE::AttrEdit->new); |
| 203 | $w->signal_connect (delete_event => sub { delete $self->{attr_edit}; 0 }); |
203 | $w->signal_connect (destroy => sub { delete $self->{attr_edit}; 0 }); |
| 204 | |
204 | |
| 205 | main::set_pos_and_size ($w, $main::CFG->{attr_view}, 200, 200); |
205 | main::set_pos_and_size ($w, $main::CFG->{attr_view}, 200, 200); |
| 206 | |
206 | |
| 207 | $w->show_all; |
207 | $w->show_all; |
| 208 | } |
208 | } |
