Object: TblForm
use class::TblForm;
The file TblForm.pm is located in the subdirectory './class'
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''.
Coding: 5% done
Documentation: up-do-date
NOTE: Here all objects get correctly destroyed after closing the window --> !NO CIRCULAR REFERENCES!
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
$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
The standard automatically called PERL destructor for objects. Unfortionatly it is called very late (when the whole application terminates.)
$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.
$ref_docform
= $object->docform(); #gets a reference to the
associated DocForm object
$object
->docform($ref_docform); #sets a reference to the
associated DocForm object
$ref_tagman
= $object->tagman(); #gets a reference to the
associated TagMan object
$object
->tagman($ref_tagman); #sets a reference to the
associated TagMan object
$ref_tblobj
= $object->embobj(); #gets a reference to the
associated TblObj object
$object
->embobj($ref_tblobj); #sets a reference to the
associated TblObj object
$style
= $object->top(); #gets a reference to the Tolevel
window (READ-ONLY) of this object
Nothing here yet.
Nothing here yet.