home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / u_vcm.tcl < prev    next >
Text File  |  1997-11-19  |  1KB  |  41 lines
  1. method CCSystem::vsFileUserPath {this name type} {
  2.     set vobPath [$this vsFileVSPath $name $type]
  3.     return [CCSystem::viewPath $vobPath]
  4. }
  5.  
  6. method CCSystem::vsFileVSPath {this name type} {
  7.     set systemPath [CCSystem::vsObjectVSPath $this]
  8.     set filePath [path_name concat $systemPath [$this getFileName $name $type]]
  9.     return $filePath
  10. }
  11.  
  12. proc CCSystem::vsObjectUserPath {object} {
  13.     set vobPath [CCSystem::vsObjectVSPath $object]
  14.     return [CCSystem::viewPath $vobPath]
  15. }
  16.  
  17. proc CCSystem::vsObjectVSPath {object} {
  18.     if [$object isA SystemVersion] {
  19.     set vobPath [$object SystemVersion::path]
  20.     } else {
  21.     set vobPath [$object path]
  22.     }
  23.     return $vobPath
  24. }
  25.  
  26. proc CCSystem::viewPath {vobPath} {
  27.     set view [m4_var get M4_ccase_view]
  28.  
  29.     if { $view == "" } {
  30.     return $vobPath
  31.     }
  32.  
  33.     if $win95 {
  34.     set viewPath [path_name concat M:\\ $view]
  35.     } else {
  36.     set viewPath [path_name concat /view $view]
  37.     }
  38.     return "$viewPath$vobPath"
  39. }
  40.  
  41.