home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / usrldbobj.tcl < prev    next >
Text File  |  1996-05-29  |  2KB  |  93 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)usrldbobj.tcl    1.14
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)usrldbobj.tcl    1.14   23 Feb 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 UsrLDbObj : {BrowsDbObj UserRoleLink} {
  17.     method destructor
  18.     constructor
  19.     method browserType
  20.     method hasChildren
  21.     method initializeInfo
  22.     method linkStatus
  23.     method name
  24. }
  25.  
  26. method UsrLDbObj::destructor {this} {
  27.     # Start destructor user section
  28.     # End destructor user section
  29.     $this BrowsDbObj::destructor
  30. }
  31.  
  32. constructor UsrLDbObj {class this name} {
  33.     set this [UserRoleLink::constructor $class $this $name]
  34.     set this [BrowsDbObj::constructor $class $this $name]
  35.     return $this
  36. }
  37.  
  38. selfPromoter UserRoleLink {this} {
  39.     UsrLDbObj promote $this
  40. }
  41.  
  42. proc UsrLDbObj::associations {} {
  43.     return ""
  44. }
  45.  
  46. method UsrLDbObj::browserType {this} {
  47.     if {"[[$this info] set ParentType]" == "Role"} {
  48.     return "UserLink"
  49.     }
  50.     return "RoleLink"
  51. }
  52.  
  53. proc UsrLDbObj::childTypes {assoc} {
  54.     if {[lsearch -exact "[UsrLDbObj::associations]" "$assoc"] == -1} {
  55.     return ""
  56.     }
  57.     return [BrowserProcs::childTypes $assoc]
  58. }
  59.  
  60. proc UsrLDbObj::controlledLists {} {
  61.     return ""
  62. }
  63.  
  64. method UsrLDbObj::hasChildren {this} {
  65.     return 0
  66. }
  67.  
  68. proc UsrLDbObj::infoProperties {} {
  69.     return [concat \
  70.     [BrowserProcs::infoProperties] \
  71.     {Link} \
  72.     ]    
  73. }
  74.  
  75. method UsrLDbObj::initializeInfo {this parent} {
  76.     [$this info] contents ""
  77.     $this setInfo ParentType [$parent getInfo Type]
  78. }
  79.  
  80. method UsrLDbObj::linkStatus {this} {
  81.     return [$this use]
  82. }
  83.  
  84. method UsrLDbObj::name {this} {
  85.     if {"[[$this info] set ParentType]" == "Role"} {
  86.     return "[[$this user] name]"
  87.     }
  88.     return "[[$this role] name]"
  89. }
  90.  
  91. # Do not delete this line -- regeneration end marker
  92.  
  93.