Commit 3ce5f792 authored by Mike Hibler's avatar Mike Hibler

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

Orange+elabinelab is still the same.
parent 9c8200c2
...@@ -10,12 +10,12 @@ if {${::GLOBALS::security_level} >= 1} { ...@@ -10,12 +10,12 @@ if {${::GLOBALS::security_level} >= 1} {
if {${::GLOBALS::security_level} == 1} { if {${::GLOBALS::security_level} == 1} {
$fw set-style open $fw set-style open
} elseif {${::GLOBALS::security_level} == 2} { } elseif {${::GLOBALS::security_level} == 2} {
$fw set-style basic
} elseif {${::GLOBALS::security_level} == 3} {
if {${::GLOBALS::elab_in_elab}} { if {${::GLOBALS::elab_in_elab}} {
$fw set-style emulab $fw set-style emulab
} else { } else {
$fw set-style basic $fw set-style closed
} }
} else {
$fw set-style closed
} }
} }
...@@ -1469,15 +1469,19 @@ proc tb-set-security-level {level} { ...@@ -1469,15 +1469,19 @@ proc tb-set-security-level {level} {
"Green" { "Green" {
set level 0 set level 0
} }
"Yellow" { "Blue" {
set level 1 set level 1
} }
"Orange" { "Yellow" {
set level 2 set level 2
} }
"Red" { "Orange" {
set level 3 set level 3
} }
"Red" {
perror "\[tb-set-security-level] Red security not implemented yet"
return
}
unknown { unknown {
perror "\[tb-set-security-level] $level is not a valid level" perror "\[tb-set-security-level] $level is not a valid level"
return return
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment