… | |
… | |
399 | sub INIT_INSTANCE { |
399 | sub INIT_INSTANCE { |
400 | my ($self) = @_; |
400 | my ($self) = @_; |
401 | |
401 | |
402 | $::MAINWIN = $self; |
402 | $::MAINWIN = $self; |
403 | |
403 | |
404 | $self->set_title ("gce - main window"); |
404 | $self->set_title ("gce - toolbox"); |
405 | |
405 | |
406 | $self->{edit_tool} = Gtk2::Label->new; |
406 | $self->{edit_tool} = Gtk2::Label->new; |
407 | $self->{edit_tool_cont} = Gtk2::VBox->new; |
407 | $self->{edit_tool_cont} = Gtk2::VBox->new; |
408 | |
408 | |
409 | $self->add (my $vb = Gtk2::VBox->new); |
409 | $self->add (my $vb = Gtk2::VBox->new); |