set_cmd_units
This commit is contained in:
parent
4c0225acc3
commit
7a89329549
|
|
@ -297,6 +297,11 @@ proc set_unit_values { unit key unit_name key_var } {
|
||||||
} else {
|
} else {
|
||||||
set prefix [string index $value 0]
|
set prefix [string index $value 0]
|
||||||
set suffix [string range $value 1 end]
|
set suffix [string range $value 1 end]
|
||||||
|
# unit includes "1" prefix
|
||||||
|
if { [string is digit $prefix] } {
|
||||||
|
set prefix [string index $value 1]
|
||||||
|
set suffix [string range $value 2 end]
|
||||||
|
}
|
||||||
if { [string equal -nocase $suffix $unit_name] } {
|
if { [string equal -nocase $suffix $unit_name] } {
|
||||||
set scale [unit_prefix_scale $unit $prefix]
|
set scale [unit_prefix_scale $unit $prefix]
|
||||||
set_cmd_unit_scale $unit $scale
|
set_cmd_unit_scale $unit $scale
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue