                                         "bpm"])
           seq-pane     (mig-panel :constraints [(str "wrap " (+ 2 steps)) "" ""]
                                   :items (concat
-                                           [["step" "gap 5px, gapright 10px"]]
+                                           [[(label :text "step") "growx, gap 5px, gapright 10px"]]
                                               (for [lbl step-lbls] [lbl "width 25:25:25"])
                                               [["" ""]]
                                            (mapcat #(step-row % steps state-atom) instruments)))

(ns overtone.gui.sequencer
  (:use [overtone.sc server]
        [overtone.music time]
        [seesaw core mig border])
  (:require [seesaw.bind :as bind]))

(defn- make-initial-state [metro steps instruments]

      (apply bind/funnel btns)
      (bind/b-swap! state-atom set-step-state ins))

    ; inst buttons open controls
    (listen ins-btn :action (fn [_] (synth-controller ins)))
    ; Clear button unselects the row
    (listen clear :action (fn [_] (config! btns :selected? false)))

    (concat [[ins-btn "growx, gap 5px, gapright 10px"]] 
            btns-constrained 
            [[clear "gapleft 10px"]])))

(defn step-sequencer
  [metro steps & instruments]
