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