Merge pull request #602 from Micheus/mv/v2.4-fix-geom-graph-window-crash

Preventing Wings3D hard crash on issue related to Geometry Graph window
dgud · Jan 2, 2025 · 8059bae · 8059bae
2 parents c17b3d9 + 3f9df66
commit 8059bae
Showing 1 changed file with 12 additions and 8 deletions.
diff --git a/src/wings_geom_win.erl b/src/wings_geom_win.erl
@@ -566,14 +566,18 @@ handle_event(#wx{event=#wxList{type=Op, itemIndex=Indx, col=Col}},
 
 handle_event(#wx{event=#wxTree{type=command_tree_sel_changed, item=Indx}},
 	     #state{name=Name, tree=Tree} = State) ->
-    {_, Folder} = lists:keyfind(Indx, 1, Tree),
-    Apply = fun(#st{pst=Pst0} = St) ->
-		    {_,Fld} = gb_trees:get(?FOLDERS, Pst0),
-		    Pst = gb_trees:enter(?FOLDERS, {Folder,Fld}, Pst0),
-		    send_client({update_state,St#st{pst=Pst}}),
-		    keep
-	    end,
-    wings_wm:psend(Name, {apply, false, Apply}),
+    case lists:keyfind(Indx, 1, Tree) of
+        {_, Folder} ->
+            Apply = fun(#st{pst=Pst0} = St) ->
+                    {_,Fld} = gb_trees:get(?FOLDERS, Pst0),
+                    Pst = gb_trees:enter(?FOLDERS, {Folder,Fld}, Pst0),
+                    send_client({update_state,St#st{pst=Pst}}),
+                    keep
+                end,
+            wings_wm:psend(Name, {apply, false, Apply});
+        _ ->
+            ignore
+    end,
     {noreply, State};
 
 handle_event(#wx{event=#wxTree{type=command_tree_item_menu, item=Indx, pointDrag=Pos0}},