 (defn create-minute-pointer [radius]
   (rectangle {:id "MinutePointer"
               :position {:x 0 :y -2}
+              :fill "darkblue"
               :stroke-width 2
               :extent {:x (* .7 radius) :y 4}}))
 

              (add-morphs-to "world" editor)
              (focus-editor-on editor-id focused-morph-id))) 
          (partial inspection-protected focused-morph-id)]
         [:io _ _] [(do
                      (pprint (args :value))
                      world-state) 
                    (partial inspection-protected focused-morph-id)]
         ; redefine the morph the editor is editing by compiling the new description and hot swapping it
         [:mouse-down-left _ "closeButton"] [(-> world-state 

            [cljs-morphic.event :refer [signals]]
            [cljs-morphic.helper :refer [eucl-distance add-points morph?] :refer-macros [morph-fn]]
            [cljs-morphic.test :as t]
		      	[cljs.pprint :refer [pprint]]
            [cljs.core.async :as async :refer [>! <! chan close!]]
            [cljs.reader :refer [read-string]]
            [cljs.core.match :refer-macros [match]]
            [cljs.test :refer-macros [deftest testing is run-tests]]))

; EVENT HANDLING

