home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / d_procs.tcl < prev    next >
Encoding:
Text File  |  1996-12-19  |  1018 b   |  24 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1996
  4. #
  5. #      File:           @(#)d_procs.tcl    /main/titanic/2
  6. #      Author:         Marcel Bancken
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)d_procs.tcl    /main/titanic/2   19 Dec 1996 Copyright 1996 Cayenne Software Inc.
  10.  
  11. global initRepObj2UiObjTable_corpmodelling
  12. set initRepObj2UiObjTable_corpmodelling [initRepObj2UiObjTable]
  13.  
  14. # Initialize table for conversion from repository object to browser object
  15. proc initRepObj2UiObjTable {} {
  16.     set table $initRepObj2UiObjTable_corpmodelling
  17.     regsub "CorporateGroupVersion CorpGVDbObj" $table "" table
  18.     regsub "CorporateGroupVersions CorpGVUiObj" $table "" table
  19.     regsub "GroupVersion GroupVDbObj" $table "" table
  20.     regsub "SavedGroupVersion SvdGVDbObj" $table "" table
  21.     regsub "SavedGroupVersions SvdGVUiObj" $table "" table
  22.     return $table
  23. }
  24.