home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / proplocdia.tcl < prev    next >
Encoding:
Text File  |  1996-11-06  |  3.5 KB  |  146 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)proplocdia.tcl    /main/hindenburg/1
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)proplocdia.tcl    /main/hindenburg/1   6 Nov 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "locdialog.tcl"
  15.  
  16. Class PropLocDialog : {LocDialog} {
  17.     constructor
  18.     method destructor
  19.     method createInterface
  20.     method clearInterface
  21.     method fromInterface
  22.     method toInterface
  23.     method objName
  24.     method containerKindChanged
  25.     attribute cntCB
  26.     attribute cntTypeCB
  27.     attribute editorArea
  28. }
  29.  
  30. constructor PropLocDialog {class this name} {
  31.     set this [LocDialog::constructor $class $this $name]
  32.     # Start constructor user section
  33.  
  34.     $this helpPressed ".main helpOnName editProplocProperties"
  35.  
  36.     # End constructor user section
  37.     return $this
  38. }
  39.  
  40. method PropLocDialog::destructor {this} {
  41.     # Start destructor user section
  42.     # End destructor user section
  43.     $this LocDialog::destructor
  44. }
  45.  
  46. method PropLocDialog::createInterface {this} {
  47.  
  48.     interface NoteBkPage $this.locationNBP {
  49.         label Location
  50.         DlgColumn DC {
  51.             Label nameL { text ContainerKind: }
  52.             DropDwnComboBox cntCB {
  53.                 entrySet {}
  54.                 rowCount 5
  55.             }
  56.             Label nameL { text ContainerType: }
  57.             DropDwnComboBox cntTypeCB {
  58.                 entrySet {}
  59.                 rowCount 5
  60.             }
  61.             Label nameL { text PhaseType: }
  62.             DropDwnList phaseDDL {
  63.                 entrySet {}
  64.                 rowCount 5
  65.             }
  66.             Label fileL { text "Diagram Type:" }
  67.             DropDwnList fileDDL {
  68.                 entrySet {}
  69.                 rowCount 5
  70.             }
  71.             Label compL { text "Component Type:" }
  72.             DropDwnList compDDL {
  73.                 entrySet {}
  74.                 rowCount 5
  75.             }
  76.             Label labelL { text "Label Type:" }
  77.             DropDwnList labelDDL {
  78.                 entrySet {}
  79.                 rowCount 5
  80.             }
  81.             Label condL { text Condition: }
  82.             DropDwnList condDDL {
  83.                 entrySet {}
  84.                 rowCount 5
  85.             }
  86.         }
  87.     }
  88.     $this lPage $this.locationNBP.DC
  89.  
  90.     $this cntCB [$this lPage].cntCB
  91.     $this cntTypeCB [$this lPage].cntTypeCB
  92.  
  93.     $this phaseDDL [$this lPage].phaseDDL
  94.     $this fileDDL [$this lPage].fileDDL
  95.     $this compDDL [$this lPage].compDDL
  96.     $this labelDDL [$this lPage].labelDDL
  97.     $this condDDL [$this lPage].condDDL
  98.  
  99.     set kinds [lsort [[[.main editorArea] cntTypeSet] names]]
  100.     if {[lsearch $kinds Clear] < 0} {
  101.         set kinds "Clear $kinds"
  102.     }
  103.     [$this cntCB] entrySet $kinds
  104.     [$this cntCB] textModified "$this containerKindChanged"
  105.     $this init
  106. }
  107.  
  108. method PropLocDialog::clearInterface {this} {
  109.  
  110.     [$this cntCB] text ""
  111.     [$this cntTypeCB] text ""
  112.     $this LocDialog::clearInterface
  113.  
  114. }
  115.  
  116. method PropLocDialog::fromInterface {this} {
  117.     
  118.     [$this curObject] cnt [[$this cntCB] text]
  119.     [$this curObject] cntType [[$this cntTypeCB] text]
  120.     $this LocDialog::fromInterface
  121. }
  122.  
  123. method PropLocDialog::toInterface {this} {
  124.     
  125.     [$this cntCB] text [[$this curObject] cnt]
  126.     [$this cntTypeCB] text [[$this curObject] cntType]
  127.     $this LocDialog::toInterface
  128.     $this title "Usage of Property '[[$this curObject] longName]'"
  129. }
  130.  
  131. method PropLocDialog::objName {this args} {
  132.  
  133.     # return the objects name, it can not change in this dialog
  134.     return [[$this curObject] shortName]
  135. }
  136.  
  137. method PropLocDialog::containerKindChanged {this} {
  138.     
  139.     set kind [[$this cntCB] text]
  140.     set entrySet [[.main editorArea] getCntTypeSet $kind]
  141.     [$this cntTypeCB] entrySet "$entrySet"
  142. }
  143.  
  144. # Do not delete this line -- regeneration end marker
  145.  
  146.