sub draw {
  my $self = shift;

  print "Notebook Page ", $self->{_nb};
  my $notebook = $self->{_nb}->parent();
  #$notebook->pageconfigure( 'page12', -raisecmd => sub { $self->_load_configs } );

  #notebook portion
  $self->{_subnb} = $self->{_nb}->NoteBook()->grid();

  $self->{subnb_p1} = $self->{_subnb}->add( 'page1', -label => 'Prepare email message' );
  $self->_draw_subnb_p1();
}