use Wx;
my $symbol_table = Symbol::Table->New(PACKAGE=>'main::Wx');
while(my $package = each %$symbol_table) {
  eval "package Groninger::Wx::$package; use base 'Wx::$package;";
}

##</code><code>##

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';";
   }
}