home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / copydefdia.tcl < prev    next >
Encoding:
Text File  |  1997-10-23  |  3.0 KB  |  115 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)copydefdia.tcl    /main/titanic/2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)copydefdia.tcl    /main/titanic/2   23 Oct 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14.  
  15. Class CopyDefDialog : {TemplateDialog} {
  16.     constructor
  17.     method destructor
  18.     method load
  19.     method clearInterface
  20.     method fromInterface
  21.     method toInterface
  22.     method save
  23.         method typeTextModified
  24.     attribute currentObject
  25. }
  26.  
  27. constructor CopyDefDialog {class this name} {
  28.     set this [TemplateDialog::constructor $class $this $name]
  29.     # Start constructor user section
  30.     interface DlgColumn $this.col {
  31.     Label typeLabel {
  32.         text "Select gdr file:"
  33.     }
  34.     ComboBox gdrFiles {
  35.     }
  36.     HorSeparator line {
  37.     }
  38.     Label levelLabel {
  39.         text "Level:"
  40.     }
  41.     SingleLineText level {
  42.         sensitive 0
  43.     }
  44.     Label descLabel {
  45.         text "Description:"
  46.     }
  47.     SingleLineText descText {
  48.         columnCount 80
  49.         sensitive 0
  50.     }
  51.     }
  52.  
  53.     PushButton new $this.applynow -label "Apply now" -activated "$this save 0"
  54.     $this okPressed "$this save 1"
  55.     $this helpPressed {.main helpOnName editCopyspecsProperties}
  56.     $this.col.gdrFiles textModified "$this typeTextModified"
  57.     # End constructor user section
  58.     return $this
  59. }
  60.  
  61. method CopyDefDialog::destructor {this} {
  62.     # Start destructor user section
  63.     # End destructor user section
  64. }
  65.  
  66. method CopyDefDialog::load {this object} {
  67.     $this clearInterface
  68.     $this currentObject $object
  69.     $this title "Copy Specification [$object type]"
  70.  
  71.     $this toInterface
  72.     $this popUp
  73. }
  74.  
  75. method CopyDefDialog::clearInterface {this} {
  76.     $this.col.descText text ""
  77. }
  78.  
  79. method CopyDefDialog::fromInterface {this} {
  80.     set gdrName [$this.col.gdrFiles text]
  81.     [$this currentObject] gdrName $gdrName
  82.     [$this currentObject] level [[.main editorArea] getGdrLevel $gdrName]
  83.     [$this currentObject] description [[.main editorArea] getGdrDescription $gdrName]
  84. }
  85.  
  86. method CopyDefDialog::toInterface {this} {
  87.     set editorArea [.main editorArea]
  88.     set infoDict [[.main editorArea] gdrToInfo]
  89.     regsub -all {\.gdr} [$infoDict names] "" gdrNames
  90.     $this.col.gdrFiles entrySet $gdrNames
  91.     set gdrName [[$this currentObject] gdrName]
  92.     $this.col.gdrFiles text $gdrName
  93.     $this typeTextModified
  94. }
  95.  
  96. method CopyDefDialog::save {this popDown} {
  97.     $this fromInterface
  98.     [.main editorArea] isChanged 1
  99.     if {$popDown == 1} {
  100.     $this popDown
  101.     }
  102.  
  103.     [$this currentObject] updateView
  104.     return 1
  105. }
  106.  
  107. method CopyDefDialog::typeTextModified {this} {
  108.     set gdrName [$this.col.gdrFiles text]
  109.     $this.col.descText text [[.main editorArea] getGdrDescription $gdrName]
  110.     $this.col.level text [[.main editorArea] getGdrLevel $gdrName]
  111. }
  112.  
  113. # Do not delete this line -- regeneration end marker
  114.  
  115.