# -*- perl -*- # # Wizard - A Perl package for implementing system administration # applications in the style of Windows wizards. # # # This module is # # Copyright (C) 1999 Jochen Wiedmann # Am Eisteich 9 # 72555 Metzingen # Germany # # Email: joe@ispsoft.de # Phone: +49 7123 14887 # # and Amarendran R. Subramanian # Grundstr. 32 # 72810 Gomaringen # Germany # # Email: amar@ispsoft.de # Phone: +49 7072 920696 # # All Rights Reserved. # # You may distribute under the terms of either the GNU General Public # License or the Artistic License, as specified in the Perl README file. # # $Id$ # use strict; use Wizard::Elem::Shell (); package Wizard::Elem::BR::Shell; @Wizard::Elem::BR::Shell::ISA = qw(Wizard::Elem::Shell); $Wizard::Elem::BR::Shell::VERSION = '0.01'; sub Display { my($self, $wiz, $form, $state) = @_; $form->print("\n"); } 1;