Select Code to Download

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

...
    return $frame;
}

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

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

  $t->configure( -state => "disabled" );