… | |
… | |
195 | my ($self) = @_; |
195 | my ($self) = @_; |
196 | |
196 | |
197 | my $w = $self->{attr_edit_win} = Gtk2::Window->new; |
197 | my $w = $self->{attr_edit_win} = Gtk2::Window->new; |
198 | $w->set_title ("gce - edit attrs"); |
198 | $w->set_title ("gce - edit attrs"); |
199 | $w->add ($self->{attr_edit} = GCE::AttrEdit->new); |
199 | $w->add ($self->{attr_edit} = GCE::AttrEdit->new); |
200 | $w->signal_connect (destroy => sub { Gtk2->main_quit; 0 }); |
|
|
201 | |
200 | |
202 | main::set_pos_and_size ($w, $main::CFG->{attr_view}, 400, 300, 250, 0); |
201 | main::set_pos_and_size ($w, $main::CFG->{attr_view}, 400, 300, 250, 0); |
203 | |
202 | |
204 | $w->show_all; |
203 | $w->show_all; |
205 | } |
204 | } |