home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / ccdircheck.tcl < prev    next >
Text File  |  1997-05-21  |  2KB  |  79 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)ccdircheck.tcl    /main/titanic/1
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)ccdircheck.tcl    /main/titanic/1   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.  
  15. # This dialog takes a lists of clearCase directories,
  16. # shows them, and checks them in if ok is pressed.
  17.  
  18. Class CCDirCheckInDialog : {QuestionDialog} {
  19.     constructor
  20.     method destructor
  21.     method popUp
  22.     method checkInDirectories
  23.     attribute directories
  24. }
  25.  
  26. constructor CCDirCheckInDialog {class this name} {
  27.     set this [QuestionDialog::constructor $class $this $name]
  28.     # Start constructor user section
  29.     # End constructor user section
  30.     return $this
  31. }
  32.  
  33. method CCDirCheckInDialog::destructor {this} {
  34.     # Start destructor user section
  35.     # End destructor user section
  36. }
  37.  
  38. method CCDirCheckInDialog::popUp {this} {
  39.     set message "Check in Directories:\n"
  40.     foreach directory [$this directories] {
  41.     append message "\n$directory"
  42.     }
  43.  
  44.     $this title "Checkin Directories"
  45.     $this message $message
  46.     $this delHelpButton
  47.     $this okPressed "$this checkInDirectories"
  48.     $this QuestionDialog::popUp
  49. }
  50.  
  51.  
  52. # Ok callback action: check in directories in list.
  53. #
  54. method CCDirCheckInDialog::checkInDirectories {this} {
  55.     busy {
  56.     vsCommandHandler suspendOutput
  57.     set someOk 0
  58.     foreach directory [$this directories] {
  59.         set checkInCommand [CCCommand::checkIn $directory 1 ""]
  60.         if { ![vsCommandHandler execute $checkInCommand] } {
  61.         break
  62.         }
  63.         set someOk 1
  64.     }
  65.  
  66.     vsCommandHandler showOutput
  67.     #if  $someOk {
  68.     #    .main updateView
  69.     #}
  70.     wmtkmessage ""
  71.  
  72.     $this delete
  73.     }
  74.  
  75. }
  76.  
  77. # Do not delete this line -- regeneration end marker
  78.  
  79.