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

    :rect (move-rect-vertex shape vid dpoint)
    :text (move-rect-vertex shape vid dpoint)
    :icon (move-rect-vertex shape vid dpoint)
    :path (move-rect-vertex shape vid dpoint)
    :circle (move-circle-vertex shape vid dpoint)))


  [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)
    :circle (move-circle shape dpoint)
    :group (move-group shape dpoint)))

