 		cache (doto (MMImageCache. (TaggedImageStorageRam. summary-metadata))
 						(.setSummaryMetadata summary-metadata))]
 		(doto (VirtualAcquisitionDisplay. cache nil)
-                           (.promptToSave false))))
+                           (.promptToSave false)
+                           (initialize-display-ranges))))
 
 (defn create-basic-event []
   {:position-index 0, :position nil,

    image-tags
    ["Width" "Height" "PixelType"]))  

(defn create-image-window [first-image]
  (let [summary {:interval-ms 0.0, :custom-intervals-ms [] :use-autofocus false, :autofocus-skip 0,
                 :relative-slices true, :keep-shutter-open-slices false, :comment "",

  (let [myTaggedImage (make-TaggedImage tagged-img)
        cache (.getImageCache display)]
    (.putImage cache myTaggedImage)
    (.showImage display (. myTaggedImage tags) true false) 
    (when focus
      (.show display))))

