home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / p_groupvdb.tcl < prev    next >
Text File  |  1997-08-29  |  789b  |  22 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1996
  4. #
  5. #      File:           @(#)p_groupvdb.tcl    /main/titanic/2
  6. #      Author:         Marcel Bancken
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)p_groupvdb.tcl    /main/titanic/2   29 Aug 1997 Copyright 1996 Cayenne Software Inc.
  10.  
  11. proc GroupVDbObj::corpmodelling_promoter {this} {
  12.     if {(! [isCommand .main]) || (! [.main isA CommonBrowser])} {
  13.     return
  14.     }
  15.  
  16.     set savedGroupVersionSet $this.${SvdGVUiObj::uiClass}:0
  17.     if {! [isCommand $savedGroupVersionSet]} {
  18.     SvdGVUiObj new $savedGroupVersionSet -parent $this
  19.     }
  20.     $this savedGroupVersionSet $savedGroupVersionSet
  21. }
  22.