Progress
ADM 2 Reference


createObjects (containr.p)

Standard code for running the objects in a Container. It runs the AppBuilder-generated procedure named adm–create–objects for compatibility with Version 8.

Parameters: None

Returns: Nothing (procedure)

Notes:

Examples:

PROCEDURE createObjects: 
/* Purpose: Add some extra objects to key pages. Note that because these 
   objects are being created by custom code, they will not appear in the 
   AppBuilder at design time. */ 
   DEFINE VARIABLE hWin AS HANDLE NO-UNDO. 
   RUN SUPER.  /* Get the other objects on this page created. */ 
   /* Now create a child window which appears when page 100 is selected. */ 
   IF DYNAMIC-FUNCTION(‘getCurrentPage’:U) = 100 THEN 
   DO: 
   RUN constructObject (INPUT ‘wChild.w’:U,    /* Master file to run */ 
                        INPUT {&WINDOW-NAME},  /* parent handle      */ 
                        INPUT ‘’:U,  /* No special Instance Properties */ 
                        OUTPUT hWin).          /* New object handle */ 
    /* Add a custom link; note that the Container link is always created 
       automatically. */ 
   RUN addLink (THIS-PROCEDURE, ‘Custom’:U, hWin). 
  END. 
  RETURN. 
END PROCEDURE. 


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