disable servers button if slist is empty

fruho · Aug 24, 2015 · d8fe54e · d8fe54e
1 parent 259ec8b
commit d8fe54e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/fruho/main.tcl b/fruho/main.tcl
@@ -1102,6 +1102,10 @@ proc slist-button-stand {} {
     if {[is-addprovider-tab-selected]} {
         return disabled
     }
+    set slist [current-slist [model now] [current-profile]]
+    if {$slist eq ""} {
+        return disabled
+    }
     return normal
 }