home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / mtmergedia.tcl < prev    next >
Encoding:
Text File  |  1997-11-27  |  1.5 KB  |  61 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)mtmergedia.tcl    /main/titanic/5
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)mtmergedia.tcl    /main/titanic/5   27 Nov 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "mergedialo.tcl"
  15.  
  16. Class MTMergeDialog : {MergeDialog} {
  17.     constructor
  18.     method destructor
  19.     method handleOK
  20.     attribute mtVersion
  21.     attribute browsObject
  22. }
  23.  
  24. constructor MTMergeDialog {class this name} {
  25.     set this [MergeDialog::constructor $class $this $name]
  26.     # Start constructor user section
  27.     $this helpPressed {.main helpOnName createMergeLink}
  28.     # End constructor user section
  29.     return $this
  30. }
  31.  
  32. method MTMergeDialog::destructor {this} {
  33.     # Start destructor user section
  34.     # End destructor user section
  35.     $this MergeDialog::destructor
  36. }
  37.  
  38. method MTMergeDialog::handleOK {this} {
  39.     busy {
  40.     foreach mtVersion [$this mtVersion] {
  41.         MTProcs::createMergeLink $mtVersion [.main mergeLinkComment]
  42.         $mtVersion delete
  43.     }
  44.  
  45.     set reload 0
  46.     foreach browsObject [$this browsObject] {
  47.         if [isCommand $browsObject] {
  48.             $browsObject delete
  49.             set reload 1
  50.         }
  51.     }
  52.  
  53.     if {$reload == 1} {
  54.         MTFileMenuProcs::reload
  55.     }
  56.     }
  57. }
  58.  
  59. # Do not delete this line -- regeneration end marker
  60.  
  61.