home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / cccommentd.tcl < prev    next >
Text File  |  1997-04-17  |  2KB  |  73 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)cccommentd.tcl    /main/titanic/2
  6. #      Author:         <generated>
  7. #      Description:    VCM integration file
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)cccommentd.tcl    /main/titanic/2   17 Apr 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.  
  16. # This class provides functionality for a dialog in a clearcase
  17. # system with comments (checkin, out etc.) that performs an action 
  18. # on the selected files.
  19.  
  20. Class CCCommentDialog : {TemplateDialog VSSysDialog} {
  21.     method destructor
  22.     constructor
  23.     method setComment
  24.     method createInterface
  25. }
  26.  
  27. method CCCommentDialog::destructor {this} {
  28.     # Start destructor user section
  29.     # End destructor user section
  30.     $this VSSysDialog::destructor
  31. }
  32.  
  33. constructor CCCommentDialog {class this name} {
  34.     set this [TemplateDialog::constructor $class $this $name]
  35.     return $this
  36. }
  37.  
  38.  
  39. # Sets the default comment.
  40. #
  41. method CCCommentDialog::setComment {this} {
  42.     if { [llength [$this selectedFiles]] == 1 } {
  43.     set selectedFile [lindex [$this selectedFiles] 0]
  44.     set oldComment [$selectedFile getInfo Comments]
  45.     $this.col.comments text "$oldComment"
  46.     }
  47. }
  48.  
  49.  
  50. # Create the comment part and add the necessary
  51. # callbacks.
  52. #
  53. method CCCommentDialog::createInterface {this} {
  54.     # subclasses may have defined the column already
  55.     if { ![isCommand $this.col ] } {
  56.     DlgColumn new $this.col
  57.     }
  58.  
  59.     Label new $this.col.label 
  60.     MultiLineText new $this.col.comments \
  61.         -columnCount 80
  62.  
  63.     $this modal 1
  64.     $this delHelpButton
  65.     $this okPressed {
  66.     %this popDown
  67.     %this processFiles
  68.     }
  69. }
  70.  
  71. # Do not delete this line -- regeneration end marker
  72.  
  73.