home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / propknowle.tcl < prev    next >
Text File  |  1997-05-27  |  2KB  |  86 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)propknowle.tcl    /main/titanic/15
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)propknowle.tcl    /main/titanic/15   27 May 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. require "propifelem.tcl"
  13. # End user added include file section
  14.  
  15.  
  16. Class PropKnowledge : {Object} {
  17.     constructor
  18.     method destructor
  19. }
  20.  
  21. global PropKnowledge::propKnowledgeDB
  22. set PropKnowledge::propKnowledgeDB ""
  23.  
  24.  
  25. constructor PropKnowledge {class this} {
  26.     set this [Object::constructor $class $this $name]
  27.     # Start constructor user section
  28.     # End constructor user section
  29.     return $this
  30. }
  31.  
  32. method PropKnowledge::destructor {this} {
  33.     # Start destructor user section
  34.     # End destructor user section
  35. }
  36.  
  37. proc PropKnowledge::updatePropKnowledge {} {
  38.     global PropKnowledge::propKnowledgeDB
  39.     if {${PropKnowledge::propKnowledgeDB} == ""} {
  40.         OTShRegister::propertyKnowledge
  41.         set moduleHandler [ModuleHandler new]
  42.         $moduleHandler setCurrentContext
  43.         set PropKnowledge::propKnowledgeDB \
  44.             [PropKnowledgeDB new ".propDefinition" $moduleHandler]
  45.     }
  46.     ${PropKnowledge::propKnowledgeDB} context \
  47.          [[ClientContext::global] currentLevelIdString]
  48. }
  49.  
  50. proc PropKnowledge::getLongName {name} {
  51.     global PropKnowledge::propKnowledgeDB
  52.     if {${PropKnowledge::propKnowledgeDB} == ""} {
  53.         PropKnowledge::updatePropKnowledge
  54.     }
  55.     set propDef [${PropKnowledge::propKnowledgeDB} definition $name]
  56.     if {$propDef != ""} {
  57.         return [$propDef longName]
  58.     }
  59.     return $name
  60. }
  61.  
  62. proc PropKnowledge::getDefaultValue {name} {
  63.     global hasEntrySet
  64.     global defIndex
  65.     global PropKnowledge::propKnowledgeDB
  66.     if {${PropKnowledge::propKnowledgeDB} == ""} {
  67.          PropKnowledge::updatePropKnowledge
  68.      }
  69.     set propDef [${PropKnowledge::propKnowledgeDB} definition $name]
  70.     set defaultValue ""
  71.     if {$propDef != ""} {
  72.         set className [$propDef ifClass]
  73.         set optList [$propDef ifOptions]
  74.         if {$className == "RWAccessRow"} {
  75.             set def [PropIfElement::defaultValue OptionMenu $optList]
  76.             set defaultValue "${def}-${def}"
  77.         } else {
  78.             set defaultValue [PropIfElement::defaultValue $className $optList]
  79.         }
  80.     }
  81.     return $defaultValue
  82. }
  83.  
  84. # Do not delete this line -- regeneration end marker
  85.  
  86.