home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / itemprdbob.tcl < prev    next >
Text File  |  1997-10-16  |  3KB  |  116 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)itemprdbob.tcl    /main/titanic/6
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)itemprdbob.tcl    /main/titanic/6   16 Oct 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "browsdbobj.tcl"
  15.  
  16. Class ItemPRDbObj : {BrowsDbObj ItemPropertyReference} {
  17.     method destructor
  18.     constructor
  19.     method promoter
  20.     method browserObjType
  21.     method browserType
  22.     method customLevelVersion
  23.     method editFile
  24.     method hasChildren
  25.     method makeUpToDate
  26.     method pathName
  27.     method previewFile
  28.     method showFile
  29. }
  30.  
  31. method ItemPRDbObj::destructor {this} {
  32.     # Start destructor user section
  33.     # End destructor user section
  34.     $this BrowsDbObj::destructor
  35. }
  36.  
  37. constructor ItemPRDbObj {class this name} {
  38.     set this [ItemPropertyReference::constructor $class $this $name]
  39.     set this [BrowsDbObj::constructor $class $this $name]
  40.     return $this
  41. }
  42.  
  43. method ItemPRDbObj::promoter {this} {
  44.     $this BrowsDbObj::promoter
  45.  
  46.     module_promoter ItemPRDbObj $this
  47. }
  48.  
  49. selfPromoter ItemPropertyReference {this} {
  50.     ItemPRDbObj promote $this
  51. }
  52.  
  53. proc ItemPRDbObj::associations {} {
  54.     return {}
  55. }
  56.  
  57. method ItemPRDbObj::browserObjType {this} {
  58.     return "ItemPRDbObj"
  59. }
  60.  
  61. method ItemPRDbObj::browserType {this} {
  62.     return [$this type]
  63. }
  64.  
  65. proc ItemPRDbObj::childTypes {assoc} {
  66.     if {[lsearch -exact "[ItemPRDbObj::associations]" "$assoc"] == -1} {
  67.     return ""
  68.     }
  69.     return "[BrowserProcs::childTypes $assoc]"
  70. }
  71.  
  72. proc ItemPRDbObj::controlledLists {} {
  73.     return ""
  74. }
  75.  
  76. method ItemPRDbObj::customLevelVersion {this} {
  77.     return [$this systemVersion]
  78. }
  79.  
  80. method ItemPRDbObj::editFile {this} {
  81.     $this edit
  82. }
  83.  
  84. method ItemPRDbObj::hasChildren {this} {
  85.     return 0
  86. }
  87.  
  88. proc ItemPRDbObj::infoProperties {} {
  89.     return [concat \
  90.     [BrowserProcs::infoProperties] \
  91.     {Status "Controlled Actions" Path} \
  92.     ]
  93. }
  94.  
  95. method ItemPRDbObj::makeUpToDate {this} {
  96.     # dummy call to server
  97.     $this referredItemKeeper [$this getParent ConfigVersion]
  98. }
  99.  
  100. method ItemPRDbObj::pathName {this} {
  101.     return "[path_name concat \
  102.     [[$this document] directory] [$this getPropertyValue fileSystemPath] \
  103.     ]"
  104. }
  105.  
  106. method ItemPRDbObj::previewFile {this} {
  107.     $this preview
  108. }
  109.  
  110. method ItemPRDbObj::showFile {this} {
  111.     $this show
  112. }
  113.  
  114. # Do not delete this line -- regeneration end marker
  115.  
  116.