| … | |
… | |
| 210 | } |
210 | } |
| 211 | |
211 | |
| 212 | sub show_attr_editor { |
212 | sub show_attr_editor { |
| 213 | my ($self) = @_; |
213 | my ($self) = @_; |
| 214 | |
214 | |
|
|
215 | return if $self->{attr_edit_win}; |
|
|
216 | |
| 215 | my $w = $self->{attr_edit_win} = Gtk2::Window->new; |
217 | my $w = $self->{attr_edit_win} = Gtk2::Window->new; |
| 216 | $w->set_title ("gcrossedit - edit attrs"); |
218 | $w->set_title ("gcrossedit - edit attrs"); |
| 217 | $w->add ($self->{attr_edit} = GCE::AttrEdit->new); |
219 | $w->add ($self->{attr_edit} = GCE::AttrEdit->new); |
|
|
220 | $w->signal_connect (destroy => sub { delete $self->{attr_edit_win}; 0 }); |
| 218 | |
221 | |
| 219 | main::set_pos_and_size ($w, $main::CFG->{attr_view}, 400, 300, 250, 0); |
222 | main::set_pos_and_size ($w, $main::CFG->{attr_view}, 400, 300, 250, 0); |
| 220 | |
223 | |
| 221 | $w->show_all; |
224 | $w->show_all; |
| 222 | } |
225 | } |
| … | |
… | |
| 311 | accelerator => "<ctrl>P" |
314 | accelerator => "<ctrl>P" |
| 312 | }, |
315 | }, |
| 313 | "_Stack View" => { |
316 | "_Stack View" => { |
| 314 | callback => sub { $self->show_stack_view }, |
317 | callback => sub { $self->show_stack_view }, |
| 315 | accelerator => "<ctrl>V" |
318 | accelerator => "<ctrl>V" |
|
|
319 | }, |
|
|
320 | "_Attributes" => { |
|
|
321 | callback => sub { $self->show_attr_editor }, |
|
|
322 | accelerator => "<ctrl>A" |
| 316 | }, |
323 | }, |
| 317 | ] |
324 | ] |
| 318 | }, |
325 | }, |
| 319 | _Help => { |
326 | _Help => { |
| 320 | item_type => '<Branch>', |
327 | item_type => '<Branch>', |
