                          world-state) hand]
          [{:type :click-left
            :target-props props
-           :args {}}] [(if-let [mouse-click-right-cb (or (:click-left props) (:mouse-click props))]
-                         (mouse-click-right-cb world-state ($morph (:id props)))
+           :args {}}] [(if-let [mouse-click-left-cb (or (:click-left props) (:mouse-click props))]
+                         (mouse-click-left-cb world-state ($morph (:id props)))
                          world-state) hand]
          :else :zero))
 

(go
 (<! (init-compiler macro-info (fn [c] (prn "INIT RES" c))))
 (go-loop [] (rerender (<! view)) (recur))
 (pprint (meta (fetch (morph-eval '(ellipse {:id 42} (map (fn [x] (rectangle {:id x :fn (fn [x] 42)})) (range 3)))) [submorphs 0 submorphs 0])))
 (pprint (meta (fetch (ellipse {:id 42} (map (fn [x] (rectangle {:id x :fn (fn [x] 42)})) (range 3))) [submorphs 0 submorphs 0])))
 (run-tests 'cljs-morphic.test))

                                        without $morph it submorphs ast-type
                                        world-state set-prop add-morphs-to
                                        evolve redefinitions default-meta
                                        description properties observe add-morph =>]]
            [fresnel.lenses :refer [fetch putback]]
            [cljs-morphic.morph.editor :refer [ace-editor set-editor-value loop-mapping-button]]
            [cljs-morphic.morph.window :refer [window]]
            [cljs-morphic.morph.halo :refer [halo]]
            [cljs-morphic.event :refer [signals]]
