home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / vsbr_procs.tcl < prev    next >
Encoding:
Text File  |  1997-05-30  |  4.8 KB  |  119 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)vsbr_procs.tcl    /main/hindenburg/11
  6. #      Author:         Lex Warners
  7. #      Description:    VCM integration file
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)vsbr_procs.tcl    /main/hindenburg/11   30 May 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. require vcm_compat.tcl
  12.  
  13. # determine installed integrations
  14. set vcmList [[[ClientContext::global] \
  15.     currentCorporate] getPropertyValue vcmIntegrationList]
  16.  
  17. proc setInstalled {list prefix var} {
  18.     upvar $var installVar
  19.     if [regexp $prefix $list] {
  20.     set installVar 1
  21.     } else {
  22.     set installVar 0
  23.     }
  24. }
  25.  
  26. # set globals to indicate the integrations that are actually installed
  27. global clearCaseInstalled
  28. global continuusInstalled
  29. global razorInstalled
  30.  
  31. setInstalled $vcmList cc clearCaseInstalled
  32. setInstalled $vcmList cont continuusInstalled
  33.  
  34. # Razor only on Unix
  35. if $win95 {
  36.     set razorInstalled 0
  37. } else {
  38.     setInstalled $vcmList razor razorInstalled
  39. }
  40.  
  41. # read VCM integration additions
  42. require vstypemapp.tcl
  43. require browservsc.tcl
  44.  
  45. # set global vars
  46. if { ![isCommand vsCommandHandler] } {
  47.         BrowserVSCmdHandler new vsCommandHandler
  48. }
  49.  
  50. global systemCommand
  51. set systemCommand "systemNoCon"
  52.  
  53. if $clearCaseInstalled {
  54.     require ccsysvdbob.tcl
  55.     require cccommand.tcl
  56.     require ccfileuiob.tcl
  57.     require ccobjnamec.tcl
  58. }
  59.  
  60. if $razorInstalled {
  61.     require razorsysvd.tcl
  62.     require razorcomma.tcl
  63.     require razorfileu.tcl
  64.     require razorobjna.tcl
  65. }
  66.  
  67. if $continuusInstalled {
  68.     require contsysvdb.tcl
  69.     require contcomman.tcl
  70.     require contfileui.tcl
  71.     require contobjnam.tcl
  72. }
  73.  
  74. eval_encrypted .IyMzlsNl5FPEBLWUtROlt8LFJKP0RYNjhmSFJJV01ETW4kOSNcP0tTQ0dOXz8le2JPR1A9TlNpSTZ1Y1dETDdKT3FJOHZeUS9CLipXXFpCfWBWTVxKPkReUzghYVNSTWBGP1pwdWxaT05pTTtvZ3dUXEhmZVAzXnldUj8uX1wrN2JwKmBgTVFXMTBgdXxfYD5VYlcnYGooZlNAaV5HXD0_RyxEZUsqSlJeJD84Lk9cY2pWRmNgWVFAVzo0U1VFRWBMLUxLQE9OUmZYP2FaMT97MiEuQjUyJnwxLWMmcCYmXFFRYlxuYUhLPkxCTGBhYWNZQkRiS0NGPlhWX05pWEFvVVxQaFZXWmB_K2lTUkljamBUVEZgUklSS0hBTWNeIWFJU1hkVUlVUE02VV1OS0dQVTxcUGhWV1pgSEhNQi57O1pATV5WLVhEUlZQPV5SRl1hLTx8Ni8tOjN7RzY8NyVaTVZXWFRpPlVHVT9HaT5STzVUQGdOS0ZSTFxdUVdcQWBjYVtsTEZXZy0tWn1mZ3RpXlBZO1w4UUhVUUpKXmddUjUvamBLWlFVWE9iXVAhTVdVR05MUj1gXmdORk9sU1M9aTY0YkdAOlxWPk9EQU1dKFI6LmJcNTonNjsmTCssJjMtLzs3M0pzYExOWlxabUJNO14_TG9TXFhVTFVlRERETS5CQT1qWmdYVkhMYGpnWFdSSVVlUSxsaWBgI1pkR1ZKaT1SQEdbQUtUZmIA
  75.  
  76.  
  77. eval_encrypted .KJMzhaYExWQDpNU11HUTpbYkI5Wk81LiUiLjNqWFxTTFRsYGhnQDlSSWBBPWNhQUpWZ0tTSldMTU5HWktVTC1HWFNXWFVVNUsvSDFIYUBVNFFVVEhfSVFBTlI_ZUtObFRgXks_XlpoZlFGWT1FXFcgISRiW0xgXGItblJHSFJJV01ETW5ERCNcQUVjYWlFN2xUYFpVT0xSTllYQ1hCY3F6TEpVR3FUUFBeUShHSypqIFRQRFMyQmBNXEFNWEZNVEFhQlBRZydKPlJVXT9rdWNjPVFUTDpxdmBZeWk1OEA_XUtnaH1gMiRAYVAuI0YwSExfXUtQUFdPRlpwW1JDXVphb1NPNmNSZGNgV15TKVJHSGtgX1RReSRgamdYV0ZQUEhDTGwrLX1nREdabWo8JmlWY1dETDdKT3FYOHZeUylSTExdNGdmYlhcVVhfPkpNTU9NYWEwSFZPTFpPSmFmUT9eWkVvKj5PWFVxT09QRFE1NEAyWktnN0xEVE9gTV5yXldGWmFSRFhxfWdCTUpPSFZZT01WX0omQ09SLWVRUVNdQlYxO11MWjRRR15gaiNcSkRYVlhQX2pzYDVJVVBNQGBdMC49M1JCXEVbUl9VVUFebTc7NTxqWmdoYlxSUFtcWldaY0hSUUJORWBSNHVgRFNmal1ZJ2NrV0RBWEVTUmBLNiVCPDJIa2BXQmJcblhaXEhPQFZPT1BHbFokUl1HRVpbVl5ZUUBYbzlcd1hRZk9PUVRdQjw6PVBEWkxXSl5PbDRGO0RSVEtjemxMRldnSjhafWZndGlNSWRNT0NoYC1lJEtNXnVMP34vPzdNTWBfU1xVTExEY2RaSklgWF5iZVpe
  78.  
  79.  
  80. eval_encrypted .GBMjlhU1JFRzNaSk5KYUxcWUAuKllEQiRLTXFhVURIXUBSR0hOPltQYjxKZGFQRkteVFNVTEVQTT5iT0BVK19WWj9cT11GOUlKTmJoSU4lTV4oOj4qX0ZXWUBgWE9sY1xTQkdeZV1fVEVQRUlHYH05ImlDUFpnMyRcUGgmNSxKSEQ.LCIuM2pNWlpQUGNGbGtRQEhXYGNhXWxUU0RiSlNYbGJpQ1BaX29YYExSUSt6YFleZUI6ODhNPlRqNS0qYFZOXFsxMGBhYTJOU1BVLkRNQEJQOTxUWlRiR0pEXUhxaVVESF1CUEtGalpnZkZQXVVqZ1hXRlBQSENMbEgtfWdER1pwVjZZZVonX0ZRelJPVztKK0FUQkM_OFhMXFBiZGNJVltcVV5hYGNhXShYVEhUQTFNXFRZTk9NYz86RyNKUFcpST1NUSh2NSpXTE9qXlVXSmBlXFNeOjQ1REo7Ok5IK0NCSVRMLkNLR1NXV01HWFBhWkZbYl4rPD9IaAAA
  81.  
  82. # name change for VCM controlled files
  83.  
  84. proc BrowserProcs::changeVSFileName {} {
  85.     require "objnamecha.tcl"
  86.     ObjNameChangeDialog new $wmttoolObj.changeName $wmttoolObj \
  87.     -configV "" \
  88.     -keeper "" \
  89.     -item ""
  90.     $wmttoolObj.changeName popUp
  91. }
  92.  
  93. # extra function, used in Razor
  94.  
  95. proc BrowserProcs::ownerObjectsAre {owner} {
  96.     case "[$wmttoolObj getStatus $owner]" in {
  97.         {yes} {
  98.             return 1
  99.         }
  100.         {no} {
  101.             return 0
  102.         }
  103.         {default} {
  104.             foreach obj [$wmttoolObj selectedObjSet] {
  105.                 set objOwner [$obj getInfo Owner]
  106.                 if {"$objOwner" == ""} continue
  107.                 if { "$objOwner" != "$owner"} {
  108.                     $wmttoolObj setStatus "$owner" no
  109.                     return 0
  110.                 }
  111.             }
  112.             $wmttoolObj setStatus "$owner" yes
  113.             return 1
  114.         }
  115.     }
  116. }
  117.  
  118.  
  119.