From 3a89a1969fb87b732b75200c9690c50fa6f34321 Mon Sep 17 00:00:00 2001
From: Tom Clarke <tomcl@users.noreply.github.com>
Date: Mon, 11 Jan 2021 16:18:51 +0000
Subject: [PATCH] improve RAM viewer scrolling

---
 src/Renderer/UI/WaveformSimulationView.fs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Renderer/UI/WaveformSimulationView.fs b/src/Renderer/UI/WaveformSimulationView.fs
index 0bdcb6d8c..77a495e2e 100644
--- a/src/Renderer/UI/WaveformSimulationView.fs
+++ b/src/Renderer/UI/WaveformSimulationView.fs
@@ -476,6 +476,7 @@ let private allWaveformsTableElement model (wSModel: WaveSimModel) waveformSvgRo
 let waveSimViewerRamDisplay wSMod ramPath =
     makeRamReactCol wSMod ramPath
     |> Array.map (fun c -> tr [] [ td [ Class "cursValsCol" ] c ])
+    |> (fun r -> [|div [Style [Height "calc(100vh - 150px)"; OverflowY OverflowOptions.Auto]] r|])
   
 
 /// ReactElement of the bottom part of the waveform simulator when waveforms are being displayed