fix: zoom does not update waveforms

tomcl · Aug 15, 2024 · f2eb097 · f2eb097
1 parent c1aa348
commit f2eb097
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/Renderer/UI/Update.fs b/src/Renderer/UI/Update.fs
@@ -82,7 +82,9 @@ let update (msg : Msg) oldModel =
                 |> Optic.map waveSim_ (fun ws ->
                     let wsModel = ws[sheet]
                     Map.add sheet (WaveSimNavigation.changeMultiplier (table[key]) wsModel) ws)
-                |> (fun m -> m, Cmd.none)
+                |> (fun model -> WaveSim.refreshWaveSim true (getWSModel model) model)
+
+
     | CheckMemory ->
         if JSHelpers.loggingMemory then
             let heapInBytes = JSHelpers.usedHeap()

diff --git a/src/Renderer/UI/WaveSim/WaveSim.fs b/src/Renderer/UI/WaveSim/WaveSim.fs
@@ -106,7 +106,8 @@ let rec refreshWaveSim (newSimulation: bool) (wsModel: WaveSimModel) (model: Mod
                         // Only generate waveforms for selected waves.
                         // Regenerate waveforms whenever they have changed
                         let hasChanged = not <| WaveSimWaves.waveformIsUptodate wsModel wave
-                        //if List.contains index ws.SelectedWaves then 
+                        //if List.contains index ws.SelectedWaves then
+                        printfn $"Checking redraw: {wave.CompLabel} hasChanged={hasChanged} uptodate={simulationIsUptodate}"
                         List.exists (fun wi' -> isSameWave wi wi') wsModel.SelectedWaves && hasChanged && simulationIsUptodate)
                     |> Map.toList                   
                     |> List.map fst