use Class::SubclassSet Groninger => qw(Wx::App Wx::Frame Wx::Menu);
package Class::SubclassSet;
sub import {
   my ($this,$into,@classes);
   for my $class (@classes) {
      eval "package ${into}::$class; use base '$class';";
   }
}