home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / opendc12.zip / od124os2.exe / od12osp1.exe / src / dynamicp / binit / iintpart.c < prev    next >
Text File  |  1997-04-02  |  2KB  |  56 lines
  1. /*====START_GENERATED_PROLOG======================================
  2.  */
  3. /*
  4.  *   COMPONENT_NAME: oddynamicpart
  5.  *
  6.  *   CLASSES: none
  7.  *
  8.  *   ORIGINS: 82,27
  9.  *
  10.  *
  11.  *   (C) COPYRIGHT International Business Machines Corp. 1995,1996
  12.  *   All Rights Reserved
  13.  *   Licensed Materials - Property of IBM
  14.  *   US Government Users Restricted Rights - Use, duplication or
  15.  *   disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
  16.  *       
  17.  *   IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
  18.  *   ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  19.  *   PURPOSE. IN NO EVENT SHALL IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  20.  *   CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
  21.  *   USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
  22.  *   OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE
  23.  *   OR PERFORMANCE OF THIS SOFTWARE.
  24.  */
  25. /*====END_GENERATED_PROLOG========================================
  26.  */
  27. /* @(#) 1.4 com/src/samples/dynamicp/binit/iintpart.c, oddynamicpart, od96os2, odos29712d 11/1/96 08:49:45 [3/21/97 17:44:46]
  28. *******************************************************************
  29. ** Name: void InitPart
  30. **
  31. ** Description:  Initialize a part when it is created dynamically
  32. **               (i.e. via new).  All values should be given
  33. **               default values.
  34. **
  35. *******************************************************************
  36. */
  37. try {
  38.  
  39.     if (_fIsInitialized)
  40.       // We have already done this -- don't go through it again.
  41.       return;
  42.  
  43.     _fIsInitialized = kODTrue;
  44.     // save a self-reference for later use
  45.     _fPartWrapper = partWrapper;
  46.  
  47.     if(!storageUnit->Exists(ev, kODPropContents, kKindTestDynamicPart, 0))
  48.     {
  49.         storageUnit->AddProperty(ev, kODPropContents)->AddValue(ev, kKindTestDynamicPart);
  50.     }
  51.  
  52. } catch (...) {
  53.    reportAnyException(ev);
  54. } /* end try */
  55. // end initpart.frg
  56.