hotfix boolean

jginternational · jginternational · commit d2ebd4a49f7e · 2022-02-10T14:25:38.000+01:00
diff --git a/kratos.gid/scripts/Writing/WriteProjectParameters.tcl b/kratos.gid/scripts/Writing/WriteProjectParameters.tcl
@@ -26,6 +26,8 @@ proc write::tcl2json { value } {
         string {
             if {$value eq "null"} {return null}
             if {$value eq "dictnull"} {return {{}}}
+            if {[isBooleanFalse $value]} {return [expr "false"]}
+            if {[isBooleanTrue $value]} {return [expr "true"]}
             return [json::write string $value]
         }
         dict {

Original file line number	Diff line number	Diff line change
`@@ -26,6 +26,8 @@ proc write::tcl2json { value } {`
`26`	`26`	`string {`
`27`	`27`	`if {$value eq "null"} {return null}`
`28`	`28`	`if {$value eq "dictnull"} {return {{}}}`
	`29`	`+ if {[isBooleanFalse $value]} {return [expr "false"]}`
	`30`	`+ if {[isBooleanTrue $value]} {return [expr "true"]}`
`29`	`31`	`return [json::write string $value]`
`30`	`32`	`}`
`31`	`33`	`dict {`