home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / repbackupd.tcl < prev    next >
Encoding:
Text File  |  1997-09-04  |  3.6 KB  |  128 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)repbackupd.tcl    /main/titanic/8
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)repbackupd.tcl    /main/titanic/8   4 Sep 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. require "stepcolumn.tcl"
  13. require "repdumpcor.tcl"
  14. require "repdumppro.tcl"
  15. require "repdumpmod.tcl"
  16. require "reparchcor.tcl"
  17. require "reparchpro.tcl"
  18. require "reparchmod.tcl"
  19. # End user added include file section
  20.  
  21. require "reptooldia.tcl"
  22.  
  23. Class RepBackupDialog : {RepToolDialog} {
  24.     constructor
  25.     method destructor
  26.     method dumpObject
  27.     method archiveObject
  28.     method getDumpDlg
  29.     method setDumpDlg
  30.     method removeDumpDlg
  31.     method getArchiveDlg
  32.     method setArchiveDlg
  33.     method removeArchiveDlg
  34.     attribute object
  35.     attribute dumpDlg
  36.     attribute archiveDlg
  37. }
  38.  
  39. constructor RepBackupDialog {class this name view i_object} {
  40.     set this [RepToolDialog::constructor $class $this $name $view]
  41.     $this object $i_object
  42.     $this dumpDlg [Dictionary new]
  43.     $this archiveDlg [Dictionary new]
  44.     # Start constructor user section
  45.  
  46.         $this delCancelButton
  47.  
  48.         set object $i_object
  49.         switch -- $object {
  50.             Corporate   { set title "Backup Entire Corporate" }
  51.             Project    { set title "Backup Single Project" }
  52.             Model    { set title "Backup Single Model" }
  53.         }
  54.  
  55.         $this config \
  56.             -title $title \
  57.         -helpPressed { [%this view] helpOnName backupRepository }
  58.  
  59.         StepColumn new $this.steps
  60.  
  61.     $this.steps addStep Dump. Dump... \
  62.         "Dumps the $object tables into the $object's\
  63.         \nDBDUMP directory in the repository directory." \
  64.         "$this dumpObject $object"
  65.  
  66.     $this.steps addStep Archive. Archive... \
  67.         "Creates an archive file from the $object directory.\
  68.             \nTo get a consistent dump, it is required to archive\
  69.             \nthe directory directly after dumping it." \
  70.         "$this archiveObject $object"
  71.  
  72.     # End constructor user section
  73.     return $this
  74. }
  75.  
  76. method RepBackupDialog::destructor {this} {
  77.     # Start destructor user section
  78.     # End destructor user section
  79.     $this RepToolDialog::destructor
  80. }
  81.  
  82. method RepBackupDialog::dumpObject {this object} {
  83.     set dlg [$this getDumpDlg $object]
  84.     if {$dlg == ""} {
  85.         set dlgName RepDump${object}Dialog
  86.         set dlg [$dlgName new [$this view].$dlgName [$this view]]
  87.         $this setDumpDlg $object $dlg
  88.     }
  89.     $dlg popUp
  90. }
  91.  
  92. method RepBackupDialog::archiveObject {this object} {
  93.     set dlg [$this getArchiveDlg $object]
  94.     if {$dlg == ""} {
  95.         set dlgName RepArch${object}Dialog
  96.         set dlg [$dlgName new [$this view].$dlgName [$this view]]
  97.         $this setArchiveDlg $object $dlg
  98.     }
  99.     $dlg popUp
  100. }
  101.  
  102. # Do not delete this line -- regeneration end marker
  103.  
  104. method RepBackupDialog::getDumpDlg {this object} {
  105.     return [[$this dumpDlg] set $object]
  106. }
  107.  
  108. method RepBackupDialog::setDumpDlg {this object newDumpDlg} {
  109.     [$this dumpDlg] set $object $newDumpDlg
  110. }
  111.  
  112. method RepBackupDialog::removeDumpDlg {this object} {
  113.     [$this dumpDlg] unset $object
  114. }
  115.  
  116. method RepBackupDialog::getArchiveDlg {this object} {
  117.     return [[$this archiveDlg] set $object]
  118. }
  119.  
  120. method RepBackupDialog::setArchiveDlg {this object newArchiveDlg} {
  121.     [$this archiveDlg] set $object $newArchiveDlg
  122. }
  123.  
  124. method RepBackupDialog::removeArchiveDlg {this object} {
  125.     [$this archiveDlg] unset $object
  126. }
  127.  
  128.