home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / ccunchecko.tcl < prev    next >
Text File  |  1997-05-21  |  2KB  |  71 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)ccunchecko.tcl    /main/titanic/3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)ccunchecko.tcl    /main/titanic/3   21 May 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require_module_file "vssysdialo.tcl" vcm
  15. require_module_file "yesnodialo.tcl" vcm
  16.  
  17. Class CCUncheckOutDialog : {YesNoDialog VSSysDialog} {
  18.     method destructor
  19.     constructor
  20.     method yesPressed
  21.     method noPressed
  22.     method popUp
  23. }
  24.  
  25. method CCUncheckOutDialog::destructor {this} {
  26.     # Start destructor user section
  27.     # End destructor user section
  28.     $this YesNoDialog::destructor
  29.     $this VSSysDialog::destructor
  30. }
  31.  
  32. constructor CCUncheckOutDialog {class this name} {
  33.     set this [YesNoDialog::constructor $class $this $name]
  34.     $this title "Uncheckout"
  35.     return $this
  36. }
  37.  
  38. method CCUncheckOutDialog::yesPressed {this} {
  39.     $this vsMethod {
  40.     $file unCheckOut 1
  41.     }
  42.     $this popDown
  43.     $this processFiles
  44. }
  45.  
  46. method CCUncheckOutDialog::noPressed {this} {
  47.     $this vsMethod {
  48.     $file unCheckOut 0
  49.     }
  50.     $this popDown
  51.     $this processFiles
  52. }
  53.  
  54. method CCUncheckOutDialog::popUp {this} {
  55.     $this selectedFiles [.main selectedObjSet]
  56.  
  57.     # make message
  58.     set plural ""
  59.     if { [llength [$this selectedFiles]] > 1 } {
  60.     set plural "s"
  61.     }
  62.  
  63.     $this message "Keep private version$plural of selected file$plural ?"
  64.  
  65.     $this needsUpdate 1
  66.     $this YesNoDialog::popUp
  67. }
  68.  
  69. # Do not delete this line -- regeneration end marker
  70.  
  71.