       ; add prompt text to the fields
       (doseq [[id text] {:#find-field (utils/get-string :find)
                          :#replace-field (utils/get-string :replace)}]
-        (when-let [control (s/select text-group [id])]
-          (doto (TextPrompt. text control)
+        (when-let [widget (s/select text-group [id])]
+          (doto (TextPrompt. text widget)
             (.changeAlpha 0.5))))
       ; update buttons every time a key is typed
       (s/listen text-area

          extension (get-extension path)
          is-clojure? (contains? clojure-exts extension)
          completer (create-completer text-area extension)
          editor-controls (remove (fn [k]
                                    (-> (concat []
                                                (if-not is-clojure?
                                                  [:paredit :paredit-help])
                                                (if-not completer
                                                  [:doc]))
                                        set
                                        (contains? k)))
                                  editor-controls)
          ; create the buttons with their actions attached
          btn-group (ui/wrap-panel :items (map create-control editor-controls))
          ; create the main panel
          text-group (s/border-panel
                       :north btn-group
                       :center (RTextScrollPane. text-area))]
      ; create shortcuts
      (doto text-group

          toggle-btn (s/button :id :toggle-logcat-button
                               :text (utils/get-string :start))
          ; create the main panel
          widget-group (ui/wrap-panel :items [toggle-btn])
          ; create the toggle action
          parent-path (-> path io/file .getParentFile .getCanonicalPath)
          start! (fn []
