home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / repdumppro.tcl < prev    next >
Text File  |  1997-11-28  |  3KB  |  100 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)repdumppro.tcl    /main/titanic/8
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)repdumppro.tcl    /main/titanic/8   28 Nov 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. require "repprojbro.tcl"
  13. # End user added include file section
  14.  
  15. require "repdumpobj.tcl"
  16.  
  17. Class RepDumpProjectDialog : {RepDumpObjDialog} {
  18.     constructor
  19.     method destructor
  20.     method browseObjects
  21.     method setObject
  22.     method pressedOk
  23.     method dump
  24.         method objType
  25.     method objDescription
  26. }
  27.  
  28. constructor RepDumpProjectDialog {class this name view} {
  29.     set this [RepDumpObjDialog::constructor $class $this $name $view]
  30.     # Start constructor user section
  31.  
  32.         $this config \
  33.             -title "Dump Single Project" \
  34.             -helpPressed "$view helpOnName dumpProject"
  35.  
  36.         [$this nameLabel] text "Project Name"
  37.  
  38.     # End constructor user section
  39.     return $this
  40. }
  41.  
  42. method RepDumpProjectDialog::destructor {this} {
  43.     # Start destructor user section
  44.     # End destructor user section
  45.     $this RepDumpObjDialog::destructor
  46. }
  47.  
  48. method RepDumpProjectDialog::browseObjects {this} {
  49.     set dlg [$this view].selectdumpprojectbrowser
  50.     if ![isCommand $dlg] {
  51.         RepProjBrowser new $dlg [$this view] \
  52.             -okPressed "$this setObject \[\[%this selected] label]"
  53.     }
  54.     $dlg popUp
  55. }
  56.  
  57. method RepDumpProjectDialog::setObject {this name} {
  58.     [$this nameField] text $name
  59.     $this checkOk
  60. }
  61.  
  62. method RepDumpProjectDialog::pressedOk {this} {
  63.     set rep [[$this view] rep]
  64.     set corp [$rep checkCorporate]
  65.  
  66.     set projectName [[$this nameField] text]
  67.  
  68.     set proj [$corp findProject $projectName]
  69.     if [$proj isNil] {
  70.         $this error "Project '$projectName' does not exist."
  71.         return
  72.     }
  73.  
  74.     # Save this for the archive dialog.
  75.     $this dumpDirectory [$rep currentObjDir $proj]
  76.     $this dumpedObject $proj
  77.  
  78.     $this RepDumpObjDialog::pressedOk
  79. }
  80.  
  81. method RepDumpProjectDialog::dump {this dbInfo} {
  82.     upvar $dbInfo info
  83.     set rep [[$this view] rep]
  84.     set projectName [[$this nameField] text]
  85.  
  86.     return [$rep dumpObject "$this dumpFinished" info {} \
  87.                     "project" [list $projectName]]
  88. }
  89.  
  90. method RepDumpProjectDialog::objType {this} {
  91.     return "Project"
  92. }
  93.  
  94. method RepDumpProjectDialog::objDescription {this} {
  95.     return "project '[[$this nameField] text]'"
  96. }
  97.  
  98. # Do not delete this line -- regeneration end marker
  99.  
  100.