home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)cdmscopech.tcl /main/titanic/1
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)cdmscopech.tcl /main/titanic/1 27 Mar 1997 Copyright 1997 Cayenne Software Inc.
-
- # Start user added include file section
- # End user added include file section
-
- require "scopechang.tcl"
-
- # This dialog is the scope change dialog for Cdms in the browser.
-
- Class CdmScopeChangeDialog : {ScopeChangeDialog} {
- constructor
- method destructor
- method popUp
- }
-
- constructor CdmScopeChangeDialog {class this name} {
- set this [ScopeChangeDialog::constructor $class $this $name]
- # Start constructor user section
- # End constructor user section
- return $this
- }
-
- method CdmScopeChangeDialog::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this ScopeChangeDialog::destructor
- }
-
-
- # Set allowedscopes and initial scope and popUp.
- #
- method CdmScopeChangeDialog::popUp {this} {
- set item [$this item]
- set workItem [$this workItem]
- if [$workItem isNil] {
- wmtkerror "There is no work item for item '[$item name]'\nScope Change is not possible."
- $this delete
- return
- }
- set scope [$workItem scope]
- if {$scope == "scopePhaseRef" || $scope == "scopePhaseDef"} {
- set scope scopePhase
- }
- $this allowedScopes "scopePhase scopeSystem"
- set selected ""
- foreach newScope [$this allowedScopes] {
- if {$newScope == $scope} {
- set selected \
- "Current scope is [string range $scope 5 end]"
- $this addOption $selected
- $this addAction ""
- } else {
- $this ${scope}_${newScope}
- }
- }
- $this.c.group entrySet [[$this optionSet] contents]
- $this.c.group selected $selected
- $this TemplateDialog::popUp
- }
-
- # Do not delete this line -- regeneration end marker
-
-