$wizard->addPage( sub { $wiz->MyTextFrame; } );

sub Tk::Wizard::MyTextFrame { ...