From 54961ac0f2294c70cbcfeff19dfc99e409c08ebf Mon Sep 17 00:00:00 2001 From: kgv Date: Thu, 22 Nov 2012 09:12:01 +0400 Subject: [PATCH] 0023568: Activate executable project in workspace generated for Code::Blocks --- src/WOKTclLib/OS.tcl | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/WOKTclLib/OS.tcl b/src/WOKTclLib/OS.tcl index a730bf6..1d8f08c 100644 --- a/src/WOKTclLib/OS.tcl +++ b/src/WOKTclLib/OS.tcl @@ -3109,6 +3109,7 @@ proc OS:MKCMK { theOutDir {theModules {}} {theAllSolution ""} } { proc OS:cworkspace { theSolName theModules theOutDir } { set aWsFilePath "${theOutDir}/${theSolName}.workspace" set aFile [open $aWsFilePath "w"] + set isActiveSet 0 puts $aFile "" puts $aFile "" puts $aFile "\t" @@ -3141,10 +3142,15 @@ proc OS:cworkspace { theSolName theModules theOutDir } { if {[wokinfo -x $aUnitLoc] != "0"} { set aDependencies [LibToLinkX $aUnitLoc [file rootname $aSrcFile]] } + set anActiveState "" + if { $isActiveSet == 0 } { + set anActiveState " active=\"1\"" + set isActiveSet 1 + } if { [llength $aDependencies] == 0 } { - puts $aFile "\t\t" + puts $aFile "\t\t" } else { - puts $aFile "\t\t" + puts $aFile "\t\t" foreach aDepTk $aDependencies { puts $aFile "\t\t\t" } -- 2.39.5