From: inv <inv@opencascade.com>
Date: Tue, 31 Aug 2010 14:57:54 +0000 (+0000)
Subject: Bug OCC21929 Improvement of VC projects generation by WOK
X-Git-Tag: V6_7_1~125
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=856e48f197a51e16cb2e4ac9a7cfeba914b43f2e;p=occt-wok.git

Bug OCC21929 Improvement of VC projects generation by WOK
---

diff --git a/src/WOKTclLib/osutils.tcl b/src/WOKTclLib/osutils.tcl
index e8cb79e..23113ed 100755
--- a/src/WOKTclLib/osutils.tcl
+++ b/src/WOKTclLib/osutils.tcl
@@ -936,11 +936,15 @@ proc osutils:vcproj { vc plat dir tkloc _guids {tmplat {} } {fmtcpp {} } } {
 }
 
 # Generate Visual Studio project file for executable
-proc osutils:vcprojx { vc plat dir tkloc _guids {tmplat {} } {fmtcpp {} } } {
-    if { $tmplat == {} } {set tmplat [osutils:vcproj:readtemplate $vc $plat 1]}
+proc osutils:vcprojx { vc plat dir tkloc _guids {tmplat0 {} } {fmtcpp {} } } {
     if { $fmtcpp == {} } {set fmtcpp [osutils:vcproj:fmtcppx]}
     set fout {}
     foreach f [osutils:tk:files $tkloc osutils:compilable 0] {
+	if { $tmplat0 == {} } {
+	    set tmplat [osutils:vcproj:readtemplate $vc $plat 1]
+	} else {
+	    set tmplat $tmplat0
+	}
         set tf [file rootname [file tail $f]]   
         set l_compilable [osutils:compilable]
         regsub -all -- {__XQTNAM__} $tmplat $tf tmplat