               ;; It's a grid pad. Set the color based on the selected note, unless it's the preview pad.
               (when-not (= note 43)
                 (let [chosen-color (aget color-picker-grid (- note 36))]
-                  (cues/set-cue-variable! cue cue-var chosen-color :show (:show controller) :when-id effect-id)))))
+                  (cues/set-cue-variable! cue v chosen-color :show (:show controller) :when-id effect-id)))))
           true)
         (handle-note-off [this message]
           (swap! anchors disj (:note message))

      (let [effect (get fx index)
            info (get fx-meta index)
            cue (:cue info)
            cue-var (case (count (:variables cue))
                      0 nil ; No variables to adjust
                      1 (first (:variables cue))
                      (get (:variables cue) var-index))]
        (when cue-var
          (let [cur-val (cues/get-cue-variable cue cue-var :show (:show controller) :when-id (:id info))]
            (cond
              (or (number? cur-val) (#{:integer :float} (:type cue-var :float)))
              (controllers/add-overlay (:overlays controller)
                                       (build-numeric-adjustment-overlay controller note cue effect info))

              (or (= (type cur-val) :com.evocomputing.colors/color) (= (:type cue-var) :color))
              (controllers/add-overlay (:overlays controller)
                                       (build-color-adjustment-overlay controller note cue effect info))

              (or (= (type cur-val) Boolean) (= (:type cue-var) :boolean))
              (controllers/add-overlay (:overlays controller)
                                       (build-boolean-adjustment-overlay controller note cue effect info))

              :else  ; Something we don't know how to adjust
              nil)))))))

      ;; suppress the other one.
      (let [paired-note (if (odd? note) (dec note) (inc note))]
        (reify controllers/IOverlay
          (captured-controls [this] #{(control-for-top-encoder-note note) (+ 21 (* 2 x))})
          (captured-notes [this] #{note paired-note})
          (adjust-interface [this _]
            (when (same-effect-active controller cue (:id info))
              (draw-boolean-gauge controller x 17 0 cue v (:id info)))
            (aset (:next-top-pads controller) (inc (* 2 x)) (top-pad-state :off))
            true)
          (handle-control-change [this message]
            (when (= (:note message) (control-for-top-encoder-note note))
              (adjust-boolean-value controller message cue v (:id info)))
            true)
          (handle-note-on [this message]
            true)
          (handle-note-off [this message]
