home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / cadpanel.tcl < prev    next >
Text File  |  1996-06-05  |  2KB  |  74 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)cadpanel.tcl    /main/3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)cadpanel.tcl    /main/3   5 Jun 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12.  
  13. require edcontrolp.tcl
  14.  
  15. # End user added include file section
  16.  
  17.  
  18. Class CADPanel : {DlgColumn} {
  19.     constructor
  20.     method destructor
  21.     method area
  22.     attribute _area
  23.     attribute endPanel
  24.     attribute startPanel
  25.     attribute symbPanel
  26. }
  27.  
  28. constructor CADPanel {class this name} {
  29.     set this [DlgColumn::constructor $class $this $name]
  30.     # Start constructor user section
  31.  
  32.     $this symbPanel [EdControlPanel new $this.symb]
  33.     $this config -horStretchFactor 0 -horShrinkFactor 0
  34.     HorSeparator new $this.sep
  35.     DlgRow new $this.mult
  36.     $this startPanel [VerControlPanel new $this.mult.start \
  37.         -entrySet {start_one start_optional start_many} \
  38.         -selected start_one \
  39.         -selectionChanged "
  40.             \[$this area\] currentStartMultiplicity \
  41.                \[string range \[$this.mult.start selected\] 6 end\]
  42.         "]
  43.     $this endPanel [VerControlPanel new $this.mult.end \
  44.         -entrySet {end_one end_optional end_many} \
  45.         -selected end_one \
  46.         -selectionChanged "
  47.             \[$this area] currentEndMultiplicity \
  48.                  \[string range \[$this.mult.end selected\] 4 end\]
  49.         "]
  50.  
  51.     # End constructor user section
  52.     return $this
  53. }
  54.  
  55. method CADPanel::destructor {this} {
  56.     # Start destructor user section
  57.     # End destructor user section
  58. }
  59.  
  60. method CADPanel::area {this {ar -}} {
  61.     if {$ar == "-"} {
  62.         return [$this _area]
  63.     }
  64.     $this _area $ar
  65.     [$this symbPanel] area $ar
  66.     $ar currentStartMultiplicity \
  67.             [string range [$this.mult.start selected] 6 end]
  68.     $ar currentEndMultiplicity \
  69.             [string range [$this.mult.end selected] 4 end]
  70. }
  71.  
  72. # Do not delete this line -- regeneration end marker
  73.  
  74.