 	(.add canvas BorderLayout/CENTER)
 	(.add hscrollbar BorderLayout/SOUTH)
 	(.add vscrollbar BorderLayout/EAST))
-      (.installScrollHandler scn hscrollbar vscrollbar)
+      (add-scrollbars scn hscrollbar vscrollbar)
 
       ;; main panel
       (doto main-panel


;;; Drawing Routine for the REPL

(defn draw-lattice
  "Draws given lattice with given layout-function on a canvas. Uses
  *standard-layout-function* if no layout-function is given. Returns
  the panel of the lattice editor."
  ([lattice]
     (draw-lattice lattice *standard-layout-function*))
  ([lattice layout-function]
     (let [^JFrame frame (JFrame. "conexp-clj Lattice"),
           ^JPanel lattice-editor (make-lattice-editor frame (layout-function lattice))]
       (doto frame
	 (.add lattice-editor)
	 (.setSize (Dimension. 600 600))
	 (.setVisible true))
       lattice-editor)))

;;;


                get-zoom-factors,
                save-image,
                get-canvas-from-scene,
                show-labels,
                add-scrollbars)]
	[conexp.contrib.draw.scene-layouts
         :only (draw-on-scene,
                get-layout-from-scene,
