home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / s_psysvdbo.tcl < prev    next >
Text File  |  1997-06-16  |  835b  |  24 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1996
  4. #
  5. #      File:           @(#)s_psysvdbo.tcl    /main/titanic/2
  6. #      Author:         Marcel Bancken
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)s_psysvdbo.tcl    /main/titanic/2   16 Jun 1997 Copyright 1996 Cayenne Software Inc.
  10.  
  11. require psysvdbobj.tcl
  12.  
  13. global PSysVDbObj_associations_corpmodelling
  14. set PSysVDbObj_associations_corpmodelling [PSysVDbObj::associations]
  15.  
  16. proc PSysVDbObj::associations {} {
  17.     set associations \
  18.     [BrowserProcs::splitAssociations $PSysVDbObj_associations_corpmodelling]
  19.     return [concat \
  20.     [lindex $associations 0] {groupVersions} \
  21.     [lindex $associations 1] {savedGroupVersionSet} \
  22.     ]
  23. }
  24.