home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / itemprdbob.tcl < prev    next >
Encoding:
Text File  |  1996-07-09  |  2.2 KB  |  98 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)itemprdbob.tcl    /main/2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)itemprdbob.tcl    /main/2   9 Jul 1996 Copyright 1996 Cadre Technologies 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 browserObjType
  20.     method browserType
  21.     method editFile
  22.     method hasChildren
  23.     method pathName
  24.     method previewFile
  25.     method showFile
  26. }
  27.  
  28. method ItemPRDbObj::destructor {this} {
  29.     # Start destructor user section
  30.     # End destructor user section
  31.     $this BrowsDbObj::destructor
  32. }
  33.  
  34. constructor ItemPRDbObj {class this name} {
  35.     set this [ItemPropertyReference::constructor $class $this $name]
  36.     set this [BrowsDbObj::constructor $class $this $name]
  37.     return $this
  38. }
  39.  
  40. selfPromoter ItemPropertyReference {this} {
  41.     ItemPRDbObj promote $this
  42. }
  43.  
  44. proc ItemPRDbObj::associations {} {
  45.     return {accessRuleSet}
  46. }
  47.  
  48. method ItemPRDbObj::browserObjType {this} {
  49.     return "ItemPRDbObj"
  50. }
  51.  
  52. method ItemPRDbObj::browserType {this} {
  53.     return [$this type]
  54. }
  55.  
  56. proc ItemPRDbObj::childTypes {assoc} {
  57.     if {[lsearch -exact "[ItemPRDbObj::associations]" "$assoc"] == -1} {
  58.     return ""
  59.     }
  60.     return "[BrowserProcs::childTypes $assoc]"
  61. }
  62.  
  63. proc ItemPRDbObj::controlledLists {} {
  64.     return ""
  65. }
  66.  
  67. method ItemPRDbObj::editFile {this} {
  68.     $this edit
  69. }
  70.  
  71. method ItemPRDbObj::hasChildren {this} {
  72.     return 1
  73. }
  74.  
  75. proc ItemPRDbObj::infoProperties {} {
  76.     return [concat \
  77.     [BrowserProcs::infoProperties] \
  78.     {Status "Controlled Actions" Path} \
  79.     ]
  80. }
  81.  
  82. method ItemPRDbObj::pathName {this} {
  83.     return "[path_name concat \
  84.     [[$this document] directory] [$this getPropertyValue fileSystemPath] \
  85.     ]"
  86. }
  87.  
  88. method ItemPRDbObj::previewFile {this} {
  89.     $this preview
  90. }
  91.  
  92. method ItemPRDbObj::showFile {this} {
  93.     $this show
  94. }
  95.  
  96. # Do not delete this line -- regeneration end marker
  97.  
  98.