home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / repdumpmod.tcl < prev    next >
Encoding:
Text File  |  1997-11-28  |  2.8 KB  |  108 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)repdumpmod.tcl    /main/titanic/9
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)repdumpmod.tcl    /main/titanic/9   28 Nov 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. require "repmodelbr.tcl"
  13. # End user added include file section
  14.  
  15. require "repdumpobj.tcl"
  16.  
  17. Class RepDumpModelDialog : {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 RepDumpModelDialog {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 Model" \
  34.             -helpPressed "$view helpOnName dumpModel"
  35.  
  36.         [$this nameLabel] text "Model Name"
  37.  
  38.     # End constructor user section
  39.     return $this
  40. }
  41.  
  42. method RepDumpModelDialog::destructor {this} {
  43.     # Start destructor user section
  44.     # End destructor user section
  45.     $this RepDumpObjDialog::destructor
  46. }
  47.  
  48. method RepDumpModelDialog::browseObjects {this} {
  49.     set dlg [$this view].selectdumpmodelbrowser
  50.     if ![isCommand $dlg] {
  51.         RepModelBrowser new $dlg [$this view] \
  52.             -okPressed "$this setObject \[%this selectedObject]"
  53.     }
  54.     $dlg popUp
  55. }
  56.  
  57. method RepDumpModelDialog::setObject {this model} {
  58.     [$this nameField] text [$model name].[$model type]
  59.     $this checkOk
  60. }
  61.  
  62. method RepDumpModelDialog::objType {this} {
  63.     return "Model"
  64. }
  65.  
  66. method RepDumpModelDialog::objDescription {this} {
  67.     return "model '[[$this nameField] text]'"
  68. }
  69.  
  70. method RepDumpModelDialog::pressedOk {this} {
  71.     set rep [[$this view] rep]
  72.     set corp [$rep checkCorporate]
  73.  
  74.     set modelName [[$this nameField] text]
  75.     set nt [RepModelBrowser::splitModelName $modelName]
  76.     set name [lindex $nt 0]
  77.     set type [lindex $nt 1]
  78.  
  79.     set model [$corp findModel $name $type]
  80.     if [$model isNil] {
  81.         $this error "Model '$modelName' does not exist."
  82.         return
  83.     }
  84.  
  85.     # Save this for the archive dialog.
  86.     $this dumpDirectory [$rep currentObjDir $model]
  87.     $this dumpedObject $model
  88.  
  89.     $this RepDumpObjDialog::pressedOk
  90. }
  91.  
  92. method RepDumpModelDialog::dump {this dbInfo} {
  93.     upvar $dbInfo info
  94.     set rep [[$this view] rep]
  95.     set modelName [[$this nameField] text]
  96.  
  97.     return [$rep dumpObject "$this dumpFinished" info {} \
  98.                     "model" [quoteIf $modelName]]
  99. }
  100.  
  101. # Do not delete this line -- regeneration end marker
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.