home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / vss_otsh.tcl < prev    next >
Text File  |  1997-05-30  |  1KB  |  45 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)vss_otsh.tcl    /main/hindenburg/4
  6. #      Author:         Lex Warners
  7. #      Description:    VCM integration file
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)vss_otsh.tcl    /main/hindenburg/4   30 May 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. OTShRegister::codeGeneration
  12.  
  13. require_module_file vstypemapp.tcl
  14. require_module_file otshvscmdh.tcl
  15.  
  16. OtshVSCmdHandler new vsCommandHandler
  17.  
  18. global systemCommand
  19. set systemCommand "system"
  20.  
  21. # make subclass of ConfigVersion to give it different path name
  22. # needed to fool Configure Environment scripts
  23. # create the path if it did not exist
  24. # that's all we can do...
  25.  
  26. Class VSConfigVersion : {ConfigVersion} {
  27.     method path
  28. }
  29.  
  30. method VSConfigVersion::path {this} {
  31.     set path [fstorage::get_uenv_object_path $this]
  32.     if { ![file isdirectory $path] } {
  33.     global VSSystem
  34.     if { ![$VSSystem::createUserPath $path] } {
  35.         exit
  36.     }
  37.     }
  38.  
  39.     return $path
  40. }
  41.  
  42. selfPromoter ConfigVersion {this} {
  43.     VSConfigVersion promote $this
  44. }
  45.