From 4ce55c17ac2df47b0c52b375f038efc972eb1b8b Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Wed, 27 Jun 2007 10:59:52 +1000
Subject: [PATCH] Logic inversion from "if true" to "if not false"

r2030 | dcl | 2007-06-27 10:59:52 +1000 (Wed, 27 Jun 2007) | 2 lines
---
 site_ansto/instrument/gumxml.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/site_ansto/instrument/gumxml.tcl b/site_ansto/instrument/gumxml.tcl
index afc82bde..4cb047e8 100644
--- a/site_ansto/instrument/gumxml.tcl
+++ b/site_ansto/instrument/gumxml.tcl
@@ -7,11 +7,11 @@ set nodename [file tail $path];
 set type [getdataType $path]
 set prefix [string repeat " " $indent]
 set newIndent [expr $indent + 2]
-set control "false"
+set control "true"
   foreach {key value} [string map {= " "} [hlistprop $path]] {
     if {[string compare -nocase $key "control"] == 0} {
-      if {[string compare -nocase $value "true"] == 0} {
-	set control "true"
+      if {[string compare -nocase $value "false"] == 0} {
+	set control "false"
       }
     }
   }