home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / config_vb.tcl < prev    next >
Text File  |  1997-11-07  |  2KB  |  65 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc. 1996
  4. #
  5. #      File:           @(#)config_vb.tcl    /main/titanic/7
  6. #      Author:         
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)config_vb.tcl    /main/titanic/7   7 Nov 1997 Copyright 1996 Cayenne Software Inc.
  10.  
  11. source [m4_path_name tcl cginit.tcl]
  12.  
  13. require wmt_util.tcl
  14. require machdep.tcl
  15.  
  16. proc m4copydir {dir} {
  17.         set save_dir [pwd]
  18.         set subdir [location config $dir]
  19.         if [catch {set cddir [m4_path_name $subdir ClassSet.cls]}] {
  20.                 return
  21.         }
  22.  
  23.         set tempdir [path_name directory $cddir]
  24.         cd $tempdir
  25.  
  26.         set files [glob -nocomplain *]
  27.         puts "Copying from $tempdir..."
  28.         foreach file $files {
  29.                 set toFile [fstorage::copyFile $file phase $dir $file]
  30.         if {$toFile != ""} {
  31.             puts "    $toFile"
  32.         } else {
  33.             puts "    $file *NOT COPIED*"
  34.         }
  35.         }
  36.         cd $save_dir
  37. }    
  38.  
  39. proc makeCfgSystem {} {
  40.     set cc [ClientContext::global]
  41.     set configV [$cc currentConfig]
  42.     set phaseV [$cc currentPhase]
  43.     set sys "vb_library"
  44.     set sysV [$phaseV findSystemVersion $sys "system"]
  45.  
  46.     if {[$sysV isNil]} {
  47.         puts "Creating System '$sys'."
  48.         set sysV [$phaseV createSystemVersion $sys "cl" "system" $configV]
  49.         $sysV freeze "Configure Visual Basic"
  50.     } else {
  51.     if {[$sysV status] == "working"} {
  52.             $sysV freeze "Configure Visual Basic"
  53.     }
  54.     }
  55. }
  56.  
  57. set cc [ClientContext::global]
  58. if {[[[$cc currentPhase] phase] type] != "ObjectDesign"} {
  59.    m4copydir src
  60.    makeCfgSystem
  61. } else {
  62.    require VisualBasicGUI.tcl
  63. }
  64.  
  65.