home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / s_versiono.tcl < prev    next >
Text File  |  1997-07-29  |  951b  |  33 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)s_versiono.tcl    /main/titanic/3
  6. #      Author:         voyager
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)s_versiono.tcl    /main/titanic/3   29 Jul 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. require versionobj.tcl
  12.  
  13. proc VersionObj::deselectVersion_docwriter {version} {
  14.     if [$version isA Document] {
  15.         if {"[$version getInfo Status]" != "frozen"} {
  16.         $version freeze "Frozen for deactivation"
  17.         }
  18.         $version removeDocDir
  19.     }
  20. }
  21.  
  22. proc VersionObj::selectVersion_docwriter {parent version conf} {
  23.  
  24.     if [$version isA Document] {
  25.     if {"$confV" == ""} {
  26.         set confV [$parent getParent ConfigVersion]
  27.     }
  28.     $version initialize $confV
  29.     $version parent $parent
  30.     $version updateDocDir all 0
  31.     }
  32. }
  33.