home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)ccunchecko.tcl /main/titanic/3
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)ccunchecko.tcl /main/titanic/3 21 May 1997 Copyright 1997 Cayenne Software Inc.
-
- # Start user added include file section
- # End user added include file section
-
- require_module_file "vssysdialo.tcl" vcm
- require_module_file "yesnodialo.tcl" vcm
-
- Class CCUncheckOutDialog : {YesNoDialog VSSysDialog} {
- method destructor
- constructor
- method yesPressed
- method noPressed
- method popUp
- }
-
- method CCUncheckOutDialog::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this YesNoDialog::destructor
- $this VSSysDialog::destructor
- }
-
- constructor CCUncheckOutDialog {class this name} {
- set this [YesNoDialog::constructor $class $this $name]
- $this title "Uncheckout"
- return $this
- }
-
- method CCUncheckOutDialog::yesPressed {this} {
- $this vsMethod {
- $file unCheckOut 1
- }
- $this popDown
- $this processFiles
- }
-
- method CCUncheckOutDialog::noPressed {this} {
- $this vsMethod {
- $file unCheckOut 0
- }
- $this popDown
- $this processFiles
- }
-
- method CCUncheckOutDialog::popUp {this} {
- $this selectedFiles [.main selectedObjSet]
-
- # make message
- set plural ""
- if { [llength [$this selectedFiles]] > 1 } {
- set plural "s"
- }
-
- $this message "Keep private version$plural of selected file$plural ?"
-
- $this needsUpdate 1
- $this YesNoDialog::popUp
- }
-
- # Do not delete this line -- regeneration end marker
-
-