 (ns overtone.gui.control
-  (:use overtone.libs.event
-        seesaw.core)
-  (:require [seesaw.bind :as bind]
-            [clojure.set :as set]))
+  (:use [seesaw core mig])
+  (:require [seesaw.bind :as bind]))
 
 (native!)
 

        scaled-init (* (/ (- init-val min-val)
                          (double (- max-val min-val)))
                       SLIDER-MAX)
        slider (slider :value scaled-init :min 0 :max SLIDER-MAX :orientation :vertical)
        label  (label name)
        pane   (vertical-panel :items [slider spinner label])]
    (bind/bind slider
               (bind/transform (fn [v]
                                 (let [val (+ min-val (* (- max-val min-val)

               slider)
    (bind/bind spinner val-atom)
    (bind/bind val-atom spinner)
    items))

(defn synth-controller
  "Create a GUI for the given synth or instrument.  Requires sufficient parameter metadata in the synthdef.
