sub init_admin {
  my $self = shift;
  my $id = shift || '3';

  # print STDERR Dumper(\$self);
  # my @trace = caller;
  # print STDERR $trace[0] . ' ' . $trace[1] . ' ' . $trace[2];
  my $admin = My::New::Module::Admin->new({ object => $self });

  my($pane_1_tab_0_0)  = $self->_home($id);
  my($pane_1_tab_0_1)  = $self->_this_form();
  my($pane_1_tab_0_1)  = $self->_that_form();

    .  .  .  

  return [$pane];
}