don't popup propagate keys to diagram

HyunjoonJeon · Feb 4, 2022 · a1a1139 · a1a1139
1 parent f5b81d2
commit a1a1139
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/src/Renderer/UI/Update.fs b/src/Renderer/UI/Update.fs
@@ -268,10 +268,13 @@ let update (msg : Msg) oldModel =
     (*| SetExitDialog status ->
         {model with ExitDialog = status}, Cmd.none*)
     | Sheet sMsg ->
-        match sMsg with 
-        | Sheet.ToggleNet canvas -> 
-            model, Cmd.ofMsg (Sheet (Sheet.SelectWires (getNetSelection canvas model)))
-        | _ -> sheetMsg sMsg model
+        match model.PopupViewFunc with
+        | None ->
+            match sMsg with 
+            | Sheet.ToggleNet canvas -> 
+                model, Cmd.ofMsg (Sheet (Sheet.SelectWires (getNetSelection canvas model)))
+            | _ -> sheetMsg sMsg model
+        | _ -> model, Cmd.none
     // special mesages for mouse control of screen vertical dividing bar, active when Wavesim is selected as rightTab
     | SetDragMode mode -> {model with DividerDragMode= mode}, Cmd.none
     | SetViewerWidth w -> {model with WaveSimViewerWidth = w}, Cmd.none