   [shape vid dpoint]
   (case (:type shape)
     :rect (move-rect-vertex shape vid dpoint)
+    :text (move-rect-vertex shape vid dpoint)
     :icon (move-rect-vertex shape vid dpoint)
     :circle (move-circle-vertex shape vid dpoint)))
 

  (case (:type shape)
    :icon (move-rect shape dpoint)
    :rect (move-rect shape dpoint)
    :line (move-rect shape dpoint)
    :circle (move-circle shape dpoint)
    :group (move-group shape dpoint)))

  "Calculate the size of the shape."
  [shape]
  (case (:type shape)
    :text (rect-size shape)
    :rect (rect-size shape)
    :icon (rect-size shape)
    :line (rect-size shape)))
