                    [:initial-model :persist? :visible? :toggle-visibility-shortcut :signal-events :action-events]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;; View
-(def -menu-button-style {:font-weight   "bold"
+(def -menu-button-style {:font-size     "inherit"
+                         :font-family   "inherit"
+                         :font-weight   "bold"
+                         :color         "white"
                          :cursor        "pointer"
                          :padding       "4px"
                          :margin        "5px 3px"
-                         :border-radius "3px"})
+                         :border-radius "3px"
+                         :border        0
+                         :background    "none"})
 
 (defn -menu-button
   [caption on-click title]

           ; for bare app actions (e.g. when originating signal was cleared) create an "unknown signal" event
           :else
           (let [[signal-id _ :as unknown-signal-event] (-signal-event (-> model ::debugger :next-signal-id) ::unknown-signal)]
                (-> model
                    (update-in [::debugger :signal-events] concat [unknown-signal-event])
                    (update-in [::debugger :next-signal-id] inc)
                    (reconcile [::app-action signal-id action]))))))

;;;;;;;;;;;;;;;;;;;;;;;; View model
(defn -view-model

                            :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-smoothing         "antialiased"
                   :-moz-font-smoothing    "antialiased"
                   :-webkit-font-smoothing "antialiased"}}
     [-menu @persist? @toggle-visibility-shortcut dispatch]
     [-signals-view @signal-events @action-events dispatch]
     [-initial-model-view @initial-model]]]])
