home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)s_versiono.tcl /main/titanic/3
- # Author: voyager
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)s_versiono.tcl /main/titanic/3 29 Jul 1997 Copyright 1997 Cayenne Software Inc.
-
- require versionobj.tcl
-
- proc VersionObj::deselectVersion_docwriter {version} {
- if [$version isA Document] {
- if {"[$version getInfo Status]" != "frozen"} {
- $version freeze "Frozen for deactivation"
- }
- $version removeDocDir
- }
- }
-
- proc VersionObj::selectVersion_docwriter {parent version conf} {
-
- if [$version isA Document] {
- if {"$confV" == ""} {
- set confV [$parent getParent ConfigVersion]
- }
- $version initialize $confV
- $version parent $parent
- $version updateDocDir all 0
- }
- }
-