                                      :listen [:action melody-chooser])
                            ])))
 
+(config! control-frame :on-close :exit)
+
 (defn -main [& args]
   (-> control-frame pack! show!)
   ;;(make-melody-canvas "test-canvas")

                                           (transform-necklace
                                                   (transpose-names (get-e-val e))
                                                   id :pitches))])]
    (horizontal-panel :items [reflect-button translabel transbox])))

;;;;;;;;;;;;;; transforms end


(if (not (o/server-connected?))
  ;(o/boot-external-server 57110)
  (o/connect-external-server 57110)
)
(if (not (o/server-connected?))
  (o/connect-external-server 57121)
)

(require '[overtone.inst.synth :as syn])
