 
 (defn edit-controls [world editor]
   (sab/html [:div
+             [:div {:style {:position        "absolute"
+                            :top             26 :left (+ (:view-width @world) 32)
+                            :width           200 :height 400
+                            :backgroundColor "red"
+                            :fontSize        "12px"}}
+              [:p {:style {:margin 0}} "Toolbox"]
+              (segmented-control "Create:"
+                                 [{:name      "Wall"
+                                   :type      :wall
+                                   :prototype {:x 0 :y 0 :w 16 :h 16}}
+                                  {:name      "Goomba"
+                                   :type      :ha
+                                   :prototype {:type  :goomba
+                                               :state :right
+                                               :x     0 :y 0 :w 16 :h 16}}
+                                  {:name      "Mario"
+                                   :type      :ha
+                                   :prototype {:type  :mario
+                                               :state :idle-right
+                                               :x     0 :y 0 :w 16 :h 16}}]
+                                 (:create-mode @editor)
+                                 (fn [new-val]
+                                   (swap! editor (fn [e] (assoc e :create-mode new-val)))))]
              (num-changer world "World Width" :width world-update-desc-key!)
              (num-changer world "World Height" :height world-update-desc-key!)
              [:br {:key 0}]

                              [t (ha/extrapolate ha-def ha t)]))
                          os)))))

(def world-widget
  (let [props (fn [this] (aget (.-props this) "args"))
        ; world -> view: scale up and flip

                                                                                 (selection-add (selection-init ed)
                                                                                                wld
                                                                                                new-sel)
                                                                                 ;regular clicked on nothing while in HA-placing mode --> place ha
                                                                                 (and (not new-sel)
                                                                                      (not shift?)
                                                                                      (= (:type (:create-mode ed))
                                                                                         :ha))
                                                                                 (editor-start-new-thing ed wx wy wx wy)
                                                                                 ; regular-clicked on nothing while in walls or select mode --> clear selection
                                                                                 (and (not new-sel)
                                                                                      (not shift?))
                                                                                 (selection-init ed)
