   [shape dpoint]
   (case (:type shape)
     :icon (move-rect shape dpoint)
+    :icon-raw (move-rect shape dpoint)
     :rect (move-rect shape dpoint)
     :text (move-rect shape dpoint)
     :path (move-path shape dpoint)
-    ;; :path (move-rect shape dpoint)
     :circle (move-circle shape dpoint)
     :group (move-group shape dpoint)))
 

  (case (:type shape)
    :rect (resize-rect shape point)
    :icon (resize-rect shape point)
    :text (resize-rect shape point)
    :path (resize-rect shape point)
    :circle (resize-circle shape point)))

                 :rect (generic-outer-rect state shape)
                 :text (generic-outer-rect state shape)
                 :icon (generic-outer-rect state shape)
                 :icon-raw (generic-outer-rect state shape)
                 ;; :path (generic-outer-rect state shape)
                 :path (path-outer-rect state shape)
                 :circle (circle-outer-rect state shape)
