     (height! screen height)
     (for [e entities]
       (case (:id e)
-        :menu (assoc e :y (- height (vertical! e :get-height) pad-space))
-        :menu-keys (assoc e :y (- height (vertical! e :get-height) pad-space))
+        :menu (assoc e :y (- height (vertical! e :get-height) pad-small))
+        :menu-keys (assoc e :y (- height (vertical! e :get-height) pad-small))
         :text (assoc e :width width :height (- height (* 2 (:y e))))
         e)))
   

                           (apply concat))]
        [(assoc (shape :filled) :id :background)
         (-> (concat (when (seq saved-games)
                       [[(label (nc-utils/get-string :load) ui-skin)
                         :colspan col-count]])
                     saved-games
                     [:row
                      [(label (nc-utils/get-string :new) ui-skin)
                       :colspan col-count]]
                     new-games)
             (table :align (align :center) :pad pad-space)
             (scroll-pane ui-skin
                          :set-fade-scroll-bars false
                          :set-fill-parent true))])))

     wrap-label!)
   :width tile-size
   :height tile-size
   :pad pad-small pad-small pad-small pad-small])

(defn set-visible!
  [entity show?]
