Release 10.1A: OpenEdge Development:
ADM and SmartObjects

> ## Custom class files

> The container class has the following custom class files, located in the `%DLC%\src\adm2\custom` (Windows) or `$DLC/src/adm2/custom` (UNIX) directory:

> - containrcustom.i: custom primary include file.

> - cntnpropcustom.i: custom property file.

> - containrcustom.p: custom super procedure file.

> - cntnprtocustom.i: custom prototype file.

> - containrexclcustom.i: custom exclude definition file.

> - containrexclcustom.i: custom instance definition file.

> The containrcustom.i custom primary include file follows:

> containrcustom.i
>     &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include
>     /*------------------------------------------------------------------------
>         File        : containrcustom.i
>         Purpose     : References the start of the custom super procedure.
>                       Allows properties initialization.

>         Syntax      : {src/adm2/custom/containrcustom.i}

>         Description :

>         Created     : 06/03/1999
>         Notes       : Referenced in {src/adm2/containr.i}
>       ----------------------------------------------------------------------*/
>     /*          This .W file was created with the Progress AppBuilder.      */
>     /*----------------------------------------------------------------------*/
>     /* ***************************  Definitions  ************************** */
>     /* _UIB-CODE-BLOCK-END */
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
>     /* ********************  Preprocessor Definitions  ******************** */
>     /* _UIB-PREPROCESSOR-BLOCK-END */
>     &ANALYZE-RESUME
>     /* *********************** Procedure Settings ************************ */
>     &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
>     /* Settings for THIS-PROCEDURE
>        Type: Include
>        Allow:
>        Frames: 0
>        Add Fields to: Neither
>        Other Settings: INCLUDE-ONLY
>      */&ANALYZE-RESUME _END-PROCEDURE-SETTINGS
>     /* *************************  Create Window  ************************** */
>     &ANALYZE-SUSPEND _CREATE-WINDOW
>     /* DESIGN Window definition (used by the UIB)
>       CREATE WINDOW Include ASSIGN
>              HEIGHT             = 15
>              WIDTH              = 60.
>     /* END WINDOW DEFINITION */
>     */
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include
>     /* ***************************  Main Block  *************************** */
>     /* Starts here the custom super procedure
>        Uncomment to run it */
>     /*RUN start-super-proc ("adm2/custom/containrcustom.p":U).*/
>     /* _UIB-CODE-BLOCK-END */
>     &ANALYZE-RESUME

> The cntnpropcustom.i custom property file follows:

> cntnpropcustom.i
>     &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include
>     /*-------------------------------------------------------------------------
>         File        : cntnpropcustom.i
>         Purpose     : Defines basic properties.
>         Syntax      : {src/adm2/custom/cntnpropcustom.i}

>         Description :

>         Modified    : 06/03/1999
>         Notes       : Referenced in {src/adm2/cntnprop.i}
>       ------------------------------------------------------------------------*/
>     /*          This .W file was created with the Progress UIB.             */
>     /*----------------------------------------------------------------------*/
>     /* ***************************  Definitions  ************************** */
>     /* _UIB-CODE-BLOCK-END */
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
>     /* ********************  Preprocessor Definitions  ******************** */
>     /* _UIB-PREPROCESSOR-BLOCK-END */
>     &ANALYZE-RESUME
>     /* *********************** Procedure Settings ************************ */
>     &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
>     /* Settings for THIS-PROCEDURE
>        Type: Include
>        Allow:
>        Frames: 0
>        Add Fields to: Neither
>        Other Settings: INCLUDE-ONLY
>      */
>     &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
>     /* ********************  Preprocessor Definitions  ******************** */
>     /* _UIB-PREPROCESSOR-BLOCK-END */
>     &ANALYZE-RESUME
>     /* *********************** Procedure Settings ************************ */
>     &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
>     /* Settings for THIS-PROCEDURE
>        Type: Include
>        Allow:
>        Frames: 0
>        Add Fields to: Neither
>        Other Settings: INCLUDE-ONLY
>      */&ANALYZE-RESUME _END-PROCEDURE-SETTINGS
>     /* *************************  Create Window  ************************** */
>     &ANALYZE-SUSPEND _CREATE-WINDOW
>     /* DESIGN Window definition (used by the UIB)
>       CREATE WINDOW Include ASSIGN
>              HEIGHT             = 15
>              WIDTH              = 60.
>     /* END WINDOW DEFINITION */
>     */
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include
>     /* ***************************  Main Block  *************************** */
>     /* Starts here the custom super procedure
>        Uncomment to run it */
>     /*RUN start-super-proc ("adm2/custom/containrcustom.p":U).*/
>     /* _UIB-CODE-BLOCK-END */
>     &ANALYZE-RESUME

> The containrcustom.p custom super procedure file follows:

> containrcustom.p
>     &ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
>     /*-------------------------------------------------------------------------
>         File        : containrcustom.p
>         Purpose     : Super procedure to extend containr class.

>         Syntax      : containrcustom.p

>         Modified    : 06/03/1999
>       ------------------------------------------------------------------------*/
>     /*          This .W file was created with the Progress UIB.             */
>     /*----------------------------------------------------------------------*/
>     /* ***************************  Definitions  ************************** */
>     &SCOPED-DEFINE ADMSuper containrcustom.p
>     /* _UIB-CODE-BLOCK-END */
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
>     /* ********************  Preprocessor Definitions  ******************** */
>     &Scoped-define PROCEDURE-TYPE Procedure
>     &Scoped-define DB-AWARE no
>     /* _UIB-PREPROCESSOR-BLOCK-END */
>     &ANALYZE-RESUME
>     /* *********************** Procedure Settings ************************ */
>     &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
>     /* Settings for THIS-PROCEDURE
>        Type: Procedure
>        Allow:
>        Frames: 0
>        Add Fields to: Neither
>      Other Settings: CODE-ONLY COMPILE
>      */
>     &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
>     /* *************************  Create Window  ************************** */
>     &ANALYZE-SUSPEND _CREATE-WINDOW
>     /* DESIGN Window definition (used by the UIB)
>       CREATE WINDOW Procedure ASSIGN
>              HEIGHT             = 15
>              WIDTH              = 60.
>     /* END WINDOW DEFINITION */
>     */
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Procedure
>     /* ************************* Included-Libraries *********************** */
>     {src/adm2/cntnprop.i}
>     /* _UIB-CODE-BLOCK-END */
>     &ANALYZE-RESUME
>     &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
>     /* ***************************  Main Block  *************************** */
>     /* _UIB-CODE-BLOCK-END */
>     &ANALYZE-RESUME

> The cntnprtocustom.i custom prototype file follows:

> cntnprtocustom.i
>     /*
>      * Prototype include file: src/adm2/custom/cntnprtocustom.i
>      * Created from procedure: src/adm2/custom/containrcustom.p at 20:11:24 on
>     06/03/1999
>      * by the PROGRESS PRO*Tools Prototype Include File Generator
>      */

> The containrexclcustom.i custom exclude definition file follows:

> containrexclcustom.i
>     /*-----------------------------------------------------------------------
>         File        : containrexclcustom.i
>         Purpose     : Defines EXCLUDE-xxx preprocessor variables to exclude
>                       functions or internal procedures in the super procedure
>                       where it is referenced.
>         Syntax      : {src/adm2/custom/containrexclcustom.i}

>         Modified    : 06/03/1999

>         Notes       : Referenced in src/adm2/containr.p
>       ----------------------------------------------------------------------*/

> The containrdefscustom.i custom instance definition file follows:

> containrdefscustom.i
>     /*-----------------------------------------------------------------------
>         File        : containrdefscustom.i
>         Purpose     : Entry point to define:
>                         New definitions
>                         {&xcInstanceProperties}
>                         {&ADM-PROPERTY-DLG}
>         Syntax      : {src/adm2/custom/containrdefscustom.i}

>         Modified    : 06/03/1999

>         Notes       : Referenced in {src/adm2/cntnprop.i}
>       ----------------------------------------------------------------------*/

Copyright © 2005 Progress Software Corporation www.progress.com Voice: (781) 280-4000 Fax: (781) 280-4095