home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / opendefdia.tcl < prev    next >
Text File  |  1996-05-29  |  2KB  |  92 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)opendefdia.tcl    1.3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)opendefdia.tcl    1.3   04 Apr 1996 Copyright 1994 Westmount Technology
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "definedial.tcl"
  15.  
  16. Class OpenDefDialog : {DefineDialog} {
  17.     constructor
  18.     method destructor
  19.     method clearInterface
  20.     method load
  21.     method save
  22.     method objName
  23.     attribute dPage
  24. }
  25.  
  26. constructor OpenDefDialog {class this name} {
  27.     set this [DefineDialog::constructor $class $this $name]
  28.     # Start constructor user section
  29.  
  30.     $this helpPressed { .main helpOnName editOpendefProperties }
  31.  
  32.     # End constructor user section
  33.     return $this
  34. }
  35.  
  36. method OpenDefDialog::destructor {this} {
  37.     # Start destructor user section
  38.     # End destructor user section
  39.     $this DefineDialog::destructor
  40. }
  41.  
  42. method OpenDefDialog::clearInterface {this} {
  43.     [$this dPage].nameSLT text ""
  44. }
  45.  
  46. method OpenDefDialog::load {this object} {
  47.     $this clearInterface
  48.     $this curObject $object
  49.     $this objName [$object name]
  50.     $this title "[$object type]Strategy '[$object name]'"
  51.     $this toInterface
  52.     $this popUp
  53. }
  54.  
  55. method OpenDefDialog::save {this popDown} {
  56.     set newName [$this objName]
  57.     if {$newName == ""} {
  58.         wmtkerror "Strategy must have a name."
  59.         return 0
  60.     }
  61.     set oldName [[$this curObject] name]
  62.     if {$newName != $oldName} {
  63.         set area [.main editorArea]
  64.         if {[$area getStrategy $newName] != ""} {
  65.             wmtkerror "Strategy $newName already exists."
  66.             return 0
  67.         }
  68.         $area removeStrategy $oldName
  69.         $area setStrategy $newName [$this curObject]
  70.         [$this curObject] name $newName
  71.         [$this curObject] updateView
  72.     }
  73.  
  74.     $this fromInterface
  75.     [.main editorArea] isChanged 1
  76.     if {$popDown == 1} {
  77.         $this popDown
  78.     }
  79.     return 1
  80. }
  81.  
  82. method OpenDefDialog::objName {this args} {
  83.     if {$args == ""} {
  84.         return [[$this dPage].nameSLT text]
  85.     } else {
  86.         [$this dPage].nameSLT text [join $args]
  87.     }
  88. }
  89.  
  90. # Do not delete this line -- regeneration end marker
  91.  
  92.