Added some more empty-mapgroup-checks

lenosisnickerboa · Jan 31, 2021 · 2f3e136 · 2f3e136
1 parent cffe15a
commit 2f3e136
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/src/config_page.tcl b/src/config_page.tcl
@@ -599,6 +599,9 @@ proc GetSelectedMaps {lbMaps} {
 }
 
 proc GetMapsFromSelectedMapGroup {mapGroup} {
+    if { "$mapGroup" == "" } {
+        return ""
+    }
     global mapGroupsMapper
     return [dict get $mapGroupsMapper $mapGroup]
 }
@@ -794,8 +797,14 @@ proc ShowMapPreview {lbMaps} {
 
 proc ClickedMapsListBox {lbMapGroups lbMaps} {
     set selectedMapGroup [GetSelectedMapGroup $lbMapGroups]
+    if { "$selectedMapGroup" == "" } {
+        return 
+    }
     set selectedMapGroupIx [$lbMapGroups curselection]
     set mapsFromSelectedMapGroup [GetMapsFromSelectedMapGroup $selectedMapGroup]
+    if { "$mapsFromSelectedMapGroup" == "" } {
+        return
+    }
     set selectedMaps [GetSelectedMaps $lbMaps]
     if { $mapsFromSelectedMapGroup != $selectedMaps } {
         $lbMapGroups itemconfigure $selectedMapGroupIx -selectbackground red

diff --git a/src/version.tcl b/src/version.tcl
@@ -3,4 +3,4 @@
 # The next line is executed by /bin/sh, but not tcl \
 exec wish "$0" ${1+"$@"}
 
-set version "2.9.4"
+set version "2.9.5"