Progress
ADM 2 Guide


Custom Class Files

The container class has the following custom class files, located in the directory %DLC%\src\adm2\custom:

Following is the containrcustom.i custom primary include file:

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 

Following is the cntnpropcustom.i custom property file:

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 

Following is the containrcustom.p custom super procedure file:

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 

Following is the cntnprtocustom.i custom prototype file:

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 
 */ 

Following is the containrexclcustom.i custom exclude definition file:

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 
  ------------------------------------------------------------------------*/ 

Following is the containrdefscustom.i custom instance definition file:

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 © 2004 Progress Software Corporation
www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095