home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / selectvers.tcl < prev    next >
Text File  |  1997-05-21  |  2KB  |  59 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)selectvers.tcl    /main/titanic/3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)selectvers.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.  
  15. # This is a dialog for selecting versions of a file.
  16. # It sets message, okPressed and deletes the Help Button.
  17. # After okPressed the method specified by command is called for file,
  18. # with the selected version and options (if non empty) as argument.
  19.  
  20. Class SelectVersionDialog : {ListDialog} {
  21.     constructor
  22.     method destructor
  23.     method createInterface
  24.     attribute file
  25.     attribute options
  26.     attribute command
  27. }
  28.  
  29. constructor SelectVersionDialog {class this name} {
  30.     set this [ListDialog::constructor $class $this $name]
  31.     # Start constructor user section
  32.     $this createInterface
  33.     # End constructor user section
  34.     return $this
  35. }
  36.  
  37. method SelectVersionDialog::destructor {this} {
  38.     # Start destructor user section
  39.     # End destructor user section
  40. }
  41.  
  42. method SelectVersionDialog::createInterface {this} {
  43.     $this message "Select version:"
  44.     $this delHelpButton
  45.     $this okPressed {
  46.     set version [lindex [%this selectedSet] 0]
  47.     set options [%this options]
  48.     if { $options == "" } {
  49.         [%this file] [%this command] $version
  50.     } else {
  51.         [%this file] [%this command] $version $options
  52.     }
  53.     %this delete
  54.     }
  55. }
  56.  
  57. # Do not delete this line -- regeneration end marker
  58.  
  59.