Example of using Processing.selectInput() from Quil.

README.md

Example of using Processing.selectInput() from Quil (https://groups.google.com/forum/#!topic/clojure/R61OvE4jYEc). How to run:

1. create project from the files below (| means /).
2. Run "lein compile" to compile FileCallback class.
3. Run src/example/core.clj to start sketch.

project.clj

(defproject test "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.8.0"]
                 [quil "2.6.0"]]
  :aot [example.file-callback])

src|example|core.clj

(ns example.core
  (:require [quil.core :as q]
            [quil.applet :as applet]
            [quil.middleware :as m]))

(def file (atom nil))

(defn draw []
  (q/background 255)
  (q/fill 0)
  (q/text (str "File: " (or @file "nil")) 20 20))

(defn file-selected [new-file]
  (reset! file new-file))

(defn setup []
  (.selectInput (applet/current-applet) "Choose a file" "onFileSelected" nil
                (example.FileCallback. file-selected)))

(q/defsketch my-sketch
  :draw draw
  :size [500 500]
  :setup setup)

src|example|file_callback.clj

(ns test.file-callback
  (:gen-class
   :name test.FileCallback
   :main false
   :state callback
   :init init
   :prefix "-"
   :constructors {[java.lang.Object] []}
   :methods [[onFileSelected [java.io.File] void]]))

(defn -init [callback]
  [[] callback])

(defn -onFileSelected [this file]
  ((.callback this) file))