NAME:

Object: TblForm


SYNOPSIS:

use class::TblForm;


DIRECTORY/FILE:

The file TblForm.pm is located in the subdirectory './class'


DESCRIPTION:

The object TblForm encapsulates the TblObj property-editor window. It is now coded as a normal non-visual Perl class that creates an user interface in the $self->{'ui'} branch. It might be more clever to (later) transform it into a Toplevel-derived widget.

This object is in a _very_basic_ stage, it should just demonstrate how it could work.

Now the GUI buildup functions are stored in the package ``./ui/uiTblForm.pm''.


STATUS:

Coding: 5% done

Documentation: up-do-date

NOTE: Here all objects get correctly destroyed after closing the window --> !NO CIRCULAR REFERENCES!


ATTRIBUTES:

Do not set/read them directly, use the Get/Set methods instead.

$self->{'embobj'} #A reference to the TblObj the TblForm belongs to

$self->{'docform'} #A reference to the DocForm object that created the TagForm window

$self->{'tagman'} #A reference to the TagMan object of the DocForm object that created the TagForm window

$self->{'ui'}->{'_top'} #A referenece to the Toplevel

$self->{'ui'}->{...the rest of this branch...} #References to the widgets that build the user interface


METHODS:


Class Methods:


Constructors:


new

$object = tblForm->new($docform,$embobj);

This constructor creates a new object of the class TblForm.

This constructor calls 'class::ui::uiTblForm::build_ui($self)' to build up the GUI.

Parameters:

(+) $docform: A reference to the DocForm object the TblForm was created from

(+) $embobj: A reference to the TblObj derived widget the TblForm belongs to


Destructors:


DESTROY;

The standard automatically called PERL destructor for objects. Unfortionatly it is called very late (when the whole application terminates.)


do_destroy

$object ->do_destroy();

This destructor is binded to the protocol-message WM_DELETE_WINDOW and performs the 'unsaved changes'-check, destroys the Toplevel manually and then destroys the TblForm object manually too.


Public data methods (=Get/Set methods):


docform

$ref_docform = $object->docform(); #gets a reference to the associated DocForm object

$object ->docform($ref_docform); #sets a reference to the associated DocForm object


tagman

$ref_tagman = $object->tagman(); #gets a reference to the associated TagMan object

$object ->tagman($ref_tagman); #sets a reference to the associated TagMan object


embobj

$ref_tblobj = $object->embobj(); #gets a reference to the associated TblObj object

$object ->embobj($ref_tblobj); #sets a reference to the associated TblObj object


top

$style = $object->top(); #gets a reference to the Tolevel window (READ-ONLY) of this object


Other public methods:

Nothing here yet.


Private methods:

Nothing here yet.


KNOWN BUGS:


STILL MISSING: