home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / represtore.tcl < prev    next >
Text File  |  1997-09-04  |  4KB  |  128 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)represtore.tcl    /main/titanic/11
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)represtore.tcl    /main/titanic/11   4 Sep 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. require "stepcolumn.tcl"
  13. require "repunarcor.tcl"
  14. require "repunarpro.tcl"
  15. require "repunarmod.tcl"
  16. require "represtcor.tcl"
  17. require "represtpro.tcl"
  18. require "represtmod.tcl"
  19. # End user added include file section
  20.  
  21. require "reptooldia.tcl"
  22.  
  23. Class RepRestoreDialog : {RepToolDialog} {
  24.     constructor
  25.     method destructor
  26.     method unarchiveObject
  27.     method restoreObject
  28.     method getUnarchiveDlg
  29.     method setUnarchiveDlg
  30.     method removeUnarchiveDlg
  31.     method getRestoreDlg
  32.     method setRestoreDlg
  33.     method removeRestoreDlg
  34.     attribute object
  35.     attribute unarchiveDlg
  36.     attribute restoreDlg
  37. }
  38.  
  39. constructor RepRestoreDialog {class this name view i_object} {
  40.     set this [RepToolDialog::constructor $class $this $name $view]
  41.     $this object $i_object
  42.     $this unarchiveDlg [Dictionary new]
  43.     $this restoreDlg [Dictionary new]
  44.     # Start constructor user section
  45.  
  46.         $this delCancelButton
  47.  
  48.         set object $i_object
  49.         switch -- $object {
  50.             Corporate   { set title "Restore Entire Corporate" }
  51.             Project    { set title "Restore Single Project" }
  52.             Model    { set title "Restore Single Model" }
  53.         }
  54.  
  55.         $this config \
  56.             -title $title \
  57.         -helpPressed { [%this view] helpOnName restoreRepository }
  58.  
  59.         StepColumn new $this.steps
  60.  
  61.     $this.steps addStep Unarchive. Unarchive... \
  62.         "Unarchives a $object archive file into\
  63.          \na $object subdirectory of the repository\
  64.              \ndirectory." \
  65.         "$this unarchiveObject $object"
  66.  
  67.     $this.steps addStep Restore. Restore... \
  68.         "Restores the $object tables from the $object's\
  69.          \nDBDUMP directory in the repository directory." \
  70.         "$this restoreObject $object"
  71.  
  72.     # End constructor user section
  73.     return $this
  74. }
  75.  
  76. method RepRestoreDialog::destructor {this} {
  77.     # Start destructor user section
  78.     # End destructor user section
  79.     $this RepToolDialog::destructor
  80. }
  81.  
  82. method RepRestoreDialog::unarchiveObject {this object} {
  83.     set dlg [$this getUnarchiveDlg $object]
  84.     if {$dlg == ""} {
  85.         set dlgName RepUnar${object}Dialog
  86.         set dlg [$dlgName new [$this view].$dlgName [$this view]]
  87.         $this setUnarchiveDlg $object $dlg
  88.     }
  89.     $dlg popUp
  90. }
  91.  
  92. method RepRestoreDialog::restoreObject {this object} {
  93.     set dlg [$this getRestoreDlg $object]
  94.     if {$dlg == ""} {
  95.         set dlgName RepRest${object}Dialog
  96.         set dlg [$dlgName new [$this view].$dlgName [$this view]]
  97.         $this setRestoreDlg $object $dlg
  98.     }
  99.     $dlg popUp
  100. }
  101.  
  102. # Do not delete this line -- regeneration end marker
  103.  
  104. method RepRestoreDialog::getUnarchiveDlg {this object} {
  105.     return [[$this unarchiveDlg] set $object]
  106. }
  107.  
  108. method RepRestoreDialog::setUnarchiveDlg {this object newUnarchiveDlg} {
  109.     [$this unarchiveDlg] set $object $newUnarchiveDlg
  110. }
  111.  
  112. method RepRestoreDialog::removeUnarchiveDlg {this object} {
  113.     [$this unarchiveDlg] unset $object
  114. }
  115.  
  116. method RepRestoreDialog::getRestoreDlg {this object} {
  117.     return [[$this restoreDlg] set $object]
  118. }
  119.  
  120. method RepRestoreDialog::setRestoreDlg {this object newRestoreDlg} {
  121.     [$this restoreDlg] set $object $newRestoreDlg
  122. }
  123.  
  124. method RepRestoreDialog::removeRestoreDlg {this object} {
  125.     [$this restoreDlg] unset $object
  126. }
  127.  
  128.