my $mw = MainWindow->new;    #Gives me the main window object, but not the interpreter
my $interp = new Tcl::Tk;    #Gives me the interpreter, but not the main window