show rack list when _cc is present and rack is 'no'

tcl/seacom.tcl

@@ -2109,15 +2109,20 @@ proc ObjState {} {
     lappend list $obj
   }
   set canNotConnect 0
+  set showRackList 0
+  set rack [silent no result device rack]
   foreach obj $list {
     if {$obj eq "_cc"} {
       set canNotConnect [showStatus _cc 1]
+      if {$canNotConnect || $rack eq "no"} {
+         set showRackList 1
+      }
     } else {
       showStatus $obj 1
     }
   }
   if {[result device name] eq "none"} {
-    Group rack "choose rack"
+    set showRackList 1
   } elseif {$canNotConnect} {
     Style warning
     if {[silent no result device rack] eq "other"} {
@@ -2136,6 +2141,8 @@ proc ObjState {} {
       Style hotwarning
       Label "please select rack (rack number as labelled on the top of the rack)"
     }
+  }
+  if {$showRackList} {
     Group rack "choose rack"
   }
 }