Redefined color mapping slightly. Add "Blue", note that "Red" is unimplemented.

Orange+elabinelab is still the same.

tbsetup/ns2ir/fw.ns

@@ -10,12 +10,12 @@ if {${::GLOBALS::security_level} >= 1} {
     if {${::GLOBALS::security_level} == 1} {
 	$fw set-style open
     } elseif {${::GLOBALS::security_level} == 2} {
+	$fw set-style basic	
+    } elseif {${::GLOBALS::security_level} == 3} {
 	if {${::GLOBALS::elab_in_elab}} {
 	    $fw set-style emulab
 	} else {
-	    $fw set-style basic
+	    $fw set-style closed
 	}
-    } else {
-	$fw set-style closed
     }
 }

tbsetup/ns2ir/tb_compat.tcl.in

@@ -1469,15 +1469,19 @@ proc tb-set-security-level {level} {
 	"Green" {
 	    set level 0
 	}
-	"Yellow" {
+	"Blue" {
 	    set level 1
 	}
-	"Orange" {
+	"Yellow" {
 	    set level 2
 	}
-	"Red" {
+	"Orange" {
 	    set level 3
 	}
+	"Red" {
+	    perror "\[tb-set-security-level] Red security not implemented yet"
+	    return
+	}
 	unknown {
 	    perror "\[tb-set-security-level] $level is not a valid level"
 	    return