Select Code to Download

sub OnInit {
  my $self = shift;
...
    wxCAPTION | wxSYSTEM_MENU
  )->ShowModal;
}

  my $ret = Wx::_App::Start($this,$this->can('OnInit'));
  Wx::_croak( 'OnInit must return a true return value' )
    unless $ret || Wx::wxMAC(); # why does OnInit always return 0 on M
+ac?