 (defn -view
   [{:keys [visible? toggle-visibility-shortcut persist? initial-model signal-events action-events] :as _view-model} dispatch]
   [-overlay
-   [-resizable-div {:style {:display        (if @visible? "block" "none") ; using CSS instead of React in order to persist resized frame on toggling visibility
-                            :left           "70%"
-                            :width          "30%"
-                            :height         "100%"
-                            :pointer-events "all"}}
-    [:div {:style {:height           "100%"
-                   :overflow         "auto"
-                   :background-color "#2A2F3A"
-                   :color            "white"
-                   :font-size        14
-                   :font-family      "sans-serif"
-                   :line-height      "1.4em"
-                   :font-weight      "300"}}
-     [-menu @persist? @toggle-visibility-shortcut dispatch]
-     [-signals-view @signal-events @action-events dispatch]
-     [-initial-model-view @initial-model]]]])
+   [-resizable-div {:style {:display          (if @visible? "block" "none") ; using CSS instead of React in order to persist resized frame on toggling visibility
+                            :left             "70%"
+                            :width            "30%"
+                            :height           "100%"
+                            :pointer-events   "all"
+
+                            :background-color "#2A2F3A"
+                            :color            "white"
+                            :font-size        14
+                            :font-family      "sans-serif"
+                            :line-height      "1.4em"
+                            :font-weight      "300"}}
+    [-menu @persist? @toggle-visibility-shortcut dispatch]
+
+    [-autoscrollable-div
+     {:style {:position "absolute"
+              :top      "2.5em"
+              :bottom   0
+              :left     0
+              :right    0
+              :overflow "auto"}}
+     [:hr]
+     [-initial-model-view @initial-model]
+     [:hr]
+     [-signals-view @signal-events @action-events dispatch]]]])
 
 ;;;;;;;;;;;;;;;;;;;;;;;; Middleware
 (defn -wrap-load-from-storage


(defn -menu
  [persist? toggle-visibility-shortcut dispatch]
  [:div {:style {:text-align          "center"
                 :border-bottom-width 1
                 :border-bottom-style "solid"
                 :border-color        "#4F5A65"}}
   [-menu-button {} "Clear" #(dispatch ::on-clear) "Clears debugger history"]
   [-menu-button {} "Vacuum" #(dispatch ::on-vacuum) "Removes disabled actions and signals with no actions from history"]
   [-menu-button {} "Reset" #(dispatch ::on-reset) "Removes all actions and signals resetting the model to initial state"]

(defn -initial-model-view
  [initial-model]
  [:div
   [:strong "Initial model:"]
   [:div (pr-str initial-model)]])

