From a982202a3a416f5d2006ce851387b6b6e059d5c7 Mon Sep 17 00:00:00 2001
From: ibs <ibs@opencascade.com>
Date: Tue, 20 Nov 2012 12:16:15 +0400
Subject: [PATCH] wgenproj creates the required "inc" folder in the [pwd]

---
 src/WOKsite/wok_tclshrc.tcl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/WOKsite/wok_tclshrc.tcl b/src/WOKsite/wok_tclshrc.tcl
index 542a90a..0deec6d 100644
--- a/src/WOKsite/wok_tclshrc.tcl
+++ b/src/WOKsite/wok_tclshrc.tcl
@@ -321,6 +321,11 @@ proc wgenproj { args } {
     set aProcArgs [lreplace $aProcArgs $anIndex $anIndex]
   }
 
+  # create the inc directory. The directory should be created by wprocess function.
+  wokcd -P Home
+  file mkdir [file join [pwd] inc]
+  #
+  
   if { "$aProcArgs" != "" } {
     wprocess $aProcArgs -DGroups=Src,Xcpp
   } else {
-- 
2.39.5