adjust loading Mask files

whelanh · whelanh · commit 0588d5f81e52 · 2026-03-24T18:01:37.000-04:00
diff --git a/tcl/windows/tree.tcl b/tcl/windows/tree.tcl
@@ -1139,8 +1139,9 @@ proc ::tree::mask::safeReadMaskFile {filename} {
   }
 
   # All validations passed, set the data
-  # Keep the original listData format (with outer braces) for compatibility
-  set ::tree::mask::maskSerialized $listData
+  # Use innerData (without the extra outer braces from [list ...]) for compatibility
+  # with the existing code that does: array set mask $maskSerialized
+  set ::tree::mask::maskSerialized $innerData
   return 1
 }
 

Original file line number	Diff line number	Diff line change
`@@ -1139,8 +1139,9 @@ proc ::tree::mask::safeReadMaskFile {filename} {`
`1139`	`1139`	`}`
`1140`	`1140`
`1141`	`1141`	`# All validations passed, set the data`
`1142`		`- # Keep the original listData format (with outer braces) for compatibility`
`1143`		`- set ::tree::mask::maskSerialized $listData`
	`1142`	`+ # Use innerData (without the extra outer braces from [list ...]) for compatibility`
	`1143`	`+ # with the existing code that does: array set mask $maskSerialized`
	`1144`	`+ set ::tree::mask::maskSerialized $innerData`
`1144`	`1145`	`return 1`
`1145`	`1146`	`}`
`1146`	`1147`