home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / p_projdbob.tcl < prev    next >
Text File  |  1997-04-24  |  289b  |  12 lines
  1. proc ProjDbObj::security_promoter {this} {
  2.     if {(! [isCommand .main]) || (! [.main isA CommonBrowser]) } {
  3.     return
  4.     }
  5.  
  6.     set roleSet $this.${RoleUiObj::uiClass}:0
  7.     if {! [isCommand $roleSet]} {
  8.     RoleUiObj new $roleSet -parent $this
  9.     }
  10.     $this roleSet $roleSet
  11. }
  12.