 (morph-fn close-button [halo props submorphs]
           (halo props 
                 submorphs
-                (-> (image {:position {:x -15 :y -15} 
-                            :url "http://lively-web.org/core/media/halos/close.svg" 
-                            :extent {:x 15 :y 15}
-                            :id "closeButton"}))))
+                (ellipse {:fill "rgba(255,255,255,0.4)"
+                          :extent {:x 25 :y 25}
+                          :id "closeButton"
+                          :position {:x -25 :y -25}}
+                         (image {:id "closeImage"
+                                 :position {:x -5 :y -5} 
+                                 :url "http://lively-web.org/core/media/halos/close.svg" 
+                                 :extent {:x 15 :y 15}}))))
 
 (morph-fn inspect-button [halo props submorphs]
           (halo props 
                 submorphs
-                (-> (image {:position (add-points {:x ((props :extent) :x) :y 0} {:x 5 :y -15}) 
-                            :url "http://lively-web.org/core/media/halos/info.svg" 
-                            :extent {:x 15 :y 15}
-                            :id "infoButton"}))))+                (ellipse {:fill "rgba(255,255,255,0.4)"
+                          :extent {:x 25 :y 25}
+                          :id "infoButton"
+                          :position (add-points {:x ((props :extent) :x) :y 0} {:x 5 :y -15})}
+                         (image {:id "infoImage"
+                                 :position {:x -5 :y -5} 
+                                 :url "http://lively-web.org/core/media/halos/info.svg" 
+                                 :extent {:x 15 :y 15}}))))
            (close-button)
            (inspect-button)))))

(morph-fn resize-button [halo props submorphs target-id]
          (halo props 
                submorphs

                          :id "resizeButton"
                          :position (add-points (props :extent) {:x 0 :y 0})
                          :draggable? true 
                          :on-drag (fn [world id {dx :x dy :y}]
                                     (-> world
                                         (redefine ($morph target-id) 
                                                   (fn [target props submorphs]
                                                     (target (assoc props :extent (add-points (:extent props) {:x (- dx) :y (- dy)})) submorphs)))
                                        (redefine ($morph "halo") 
                                                  (fn [halo props buttons]
                                                    (let [new-extent (add-points (:extent props) {:x (- dx) :y (- dy)})]
                                                      (-> (halo (assoc props :extent new-extent) buttons)
                                                        (set-prop "infoButton" :position (add-points {:x (:x new-extent) :y 0} {:x 5 :y -15}))))))
                                       ))}
                         (image {:id "resizeImage"
                                 :position {:x -5 :y -5} 
                                 :url "http://lively-web.org/core/media/halos/resize.svg" 
