   (reify
     om/IRender
     (render [_]
-      (dom/div #js {:className (str "form-group " (input-css-string-has? app))}
-               (dom/label #js {:className label-class+ } label)
-               (dom/div #js {:className input-class+ :style #js {:padding 0}}
-                        (om/build select app {:opts spec-select})
-                        (om/build helper-p app {})
-                        )))))
+      (dom/div nil
+               (dom/div #js {:className (str "form-group " (input-css-string-has? app))}
+                        (dom/label #js {:className (str "control-label " label-class+) } label)
+                        (dom/div #js {:className input-class+ :style #js {:padding 0}}
+                                 (om/build select app {:opts spec-select})
+                                 (om/build helper-p app {})
+                                 ))))))
 
 
 ;; END input select

  (reify
    om/IRender
    (render [this]
      (dom/div #js {:className (str "form-group " (input-css-string-has? app))}
               (dom/label #js {:className label-class+ } label)
               (dom/div #js {:className input-class+ :style #js {:padding 0}}
                        (om/build toggle-button app {:opts spec-toggle-button})
                        (om/build helper-p app {}) )))))

;; END toggle batton
;;..................................................................................................

                          :has-success?
                          :has-warning?
                          :has-error?))))

(defn input-css-string-has?-clean-and-set!! [app k]
  (om/transact! app
                (fn [app]
                  (-> app
                      (dissoc :has-success?
                              :has-warning?
                              :has-error?)
                      (assoc k true)))))

;; END has
;;..................................................................................................
