              (* y1 zoom-factor)
              (* (- x2 x1) zoom-factor)
              (* (- y2 y1) zoom-factor))
-          (blit-sub-image app (om/get-state owner :selection-image) blit-x blit-y)))))))
+          (blit-sub-image @app (om/get-state owner :selection-image) blit-x blit-y)))))))
 
 
 ;; =============================================================================

         (* (- x2 x1) zoom-factor)
         (* (- y2 y1) zoom-factor))
     (.stroke preview-context)))


;; =============================================================================


    om/IDidUpdate
      (did-update [_ _ _]
        (when (= (get-in app [:tools :paint-tool]) :selection)
          (draw-selection app owner)
          (draw-selection-outline app owner)))

    om/IWillMount
    (will-mount [_]
