home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / userroleob.tcl < prev    next >
Text File  |  1997-10-17  |  3KB  |  105 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1996
  4. #
  5. #      File:           @(#)userroleob.tcl    /main/titanic/3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)userroleob.tcl    /main/titanic/3   17 Oct 1997 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 UserRoleObj : {BrowsDbObj} {
  17.     constructor
  18.     method destructor
  19.     method changeLinks
  20.     method customLevelVersion
  21.     method initializeInfo
  22.     method removeObjects
  23. }
  24.  
  25. constructor UserRoleObj {class this name} {
  26.     set this [BrowsDbObj::constructor $class $this $name]
  27.     # Start constructor user section
  28.     # End constructor user section
  29.     return $this
  30. }
  31.  
  32. method UserRoleObj::destructor {this} {
  33.     # Start destructor user section
  34.     # End destructor user section
  35.     $this BrowsDbObj::destructor
  36. }
  37.  
  38. method UserRoleObj::changeLinks {this} {
  39.     TemplateDialog new $wmttoolObj.changeLink \
  40.     -modal yes \
  41.     -title "Change Link Status" \
  42.     -helpPressed {.main helpOnName changeLink} \
  43.     -cancelPressed {%this delete} \
  44.     -okPressed {
  45.         set status [%this.top.status selected]
  46.         set script ""
  47.         foreach obj [$wmttoolObj selectedObjSet] {
  48.         if {"$script" != ""} {
  49.             append script " ;"
  50.         }
  51.         append script " $obj use $status"
  52.         }
  53.         $wmttoolObj startCommand tcl "$script" "" "" {1 0} 1
  54.         %this delete
  55.     }
  56.     interface DlgColumn $wmttoolObj.changeLink.top {
  57.     Label messageLab {
  58.         text "Status:"
  59.     }
  60.     VerRadioGroup status {
  61.         entrySet {defaultOff defaultOn alwaysOn}
  62.     }
  63.     }
  64.     if {[llength [$wmttoolObj selectedObjSet]] == 1} {
  65.     $wmttoolObj.changeLink.top.status selected \
  66.         [[lindex [$wmttoolObj selectedObjSet] 0] getInfo Link]
  67.     } else {
  68.     $wmttoolObj.changeLink.top.status selected defaultOff
  69.     }
  70.     $wmttoolObj.changeLink popUp
  71. }
  72.  
  73. method UserRoleObj::customLevelVersion {this} {
  74.     return [[$this info] set SecurityLevel]
  75. }
  76.  
  77. method UserRoleObj::initializeInfo {this securityLevel} {
  78.     [$this info] contents ""
  79.     $this setInfo SecurityLevel $securityLevel
  80. }
  81.  
  82. method UserRoleObj::removeObjects {this} {
  83.     set box $wmttoolObj.removeWarning
  84.     YesNoWarningDialog new $box \
  85.     -title "Confirm Object Delete" \
  86.     -message [BrowserProcs::removeMessage] \
  87.     -noPressed {%this delete} \
  88.     -yesPressed {
  89.         set script ""
  90.         foreach obj [$wmttoolObj selectedObjSet] {
  91.         if {"$script" != ""} {
  92.             append script " ;"
  93.         }
  94.         append script " $obj destroy"
  95.         }
  96.         $wmttoolObj startCommand tcl "$script" "" "" {1 0} 1
  97.         %this delete
  98.     }
  99.     $box delCancelButton
  100.     $box popUp
  101. }
  102.  
  103. # Do not delete this line -- regeneration end marker
  104.  
  105.