From f315255bf6f11b7e1dde76f86f0de23f49e0fd97 Mon Sep 17 00:00:00 2001 From: Roland Sadowski Date: Fri, 11 Sep 2009 19:40:14 +0200 Subject: [PATCH] renamed bind-applets to with-binding --- src/rosado/processing/applet.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/rosado/processing/applet.clj b/src/rosado/processing/applet.clj index 011fbfb..98ed039 100644 --- a/src/rosado/processing/applet.clj +++ b/src/rosado/processing/applet.clj @@ -2,7 +2,7 @@ (:use [rosado.processing :except (size)]) (:import (javax.swing JFrame))) -(defn- bind-applets +(defn- with-binding "Turn the method map into something one that update-proxy can use." [methods [method-name f]] (assoc methods (name method-name) @@ -15,7 +15,7 @@ [app-name & opts] (let [options (assoc (apply hash-map opts) :name (str app-name)) fns (dissoc options :name :title :size) - methods (reduce bind-applets {} fns)] + methods (reduce with-binding {} fns)] `(def ~app-name (let [frame# (atom nil) prx# (proxy [processing.core.PApplet