//***************************************************************************
//*
//* Class:        cWsForm
//* Package Name: cWsForm.pkg
//*
//***************************************************************************
// The class automatic converts date to 4 digit year (se description in
// cWsDateMixin.pkg)
// The class understands the ESC key.

Use DFAllEnt.pkg
Use cWsDateMixin.pkg

Class cWsForm Is A Form

    Import_Class_Protocol cWsDate_mixin

    // Construct_Object: Object constructor.
    Procedure Construct_object
        Forward Send Construct_Object

        // Define new Properties: Property {Type} {pxName} {initial_value}
        Send Define_cWsDate_Mixin

        // Create child objects

        // Set property values:
        On_Key key_escape Send request_cancel

    End_Procedure

    // Create and augment procedure and functions

End_Class // cWsForm