 ; on screen.
 (def ^:dynamic *font-render-context*
   (.. GraphicsEnvironment getLocalGraphicsEnvironment
-      (createGraphics (BufferedImage. 1 1 BufferedImage/TYPE_3BYTE_BGR))))
+      (createGraphics (BufferedImage. 1 1 BufferedImage/TYPE_3BYTE_BGR))
+      getFontRenderContext))
 
 (def ^:dynamic *canvas-error*)
+
+(defn show [x]
+  (do (pr x)
+      x))
 
 (defn clip-value
   "Clips a value between min-value and max-value."

                            (draw-primitive g2d %))
           (denest (expand widgets))))))

(defn canvas
  "Create a blank JPanel \"canvas\" for automatic painting. The
  canvas is automatically updated with the graphics description

                 0 0 w h
                 (or arc-radius arc-width)
                 (or arc-radius arc-height))))

(defn font-object
  "Create a java font object with various properties."
