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} {
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
}
} else {
$fw set-style closed
}
}
}
......@@ -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
......
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