   (defn tab-bar-onConfigurationChanged
     [this new-config]
     (.superOnConfigurationChanged this new-config)
-    (let [context (get-state this :context)
-          res (.getResources context)
-          tab-width (get-resource :dimen :tab_width)]
-      (set-state! this :tab-width (.getDimension res tab-width))
-      (.updateLayout (get-state this :tabs))))
+    (.updateLayout (get-state this :tabs)))
   (defn tab-bar-onMeasure
     [this hspec vspec]
     (.superOnMeasure this hspec vspec)

    (let [context (get-state this :context)
          title (get-state this :title)
          icon-view (get-state this :icon-view)
          close (get-state this :close)]
      (.setTextAppearance title context (if selected (get-resource :style :TabTitleSelected) (get-resource :style :TabTitleUnselected)))
      (.setVisibility icon-view (if selected android.view.View/GONE android.view.View/VISIBLE))
      (.setVisibility close (if selected android.view.View/VISIBLE android.view.View/GONE))
      (.setHorizontalFadingEdgeEnabled this (not selected))
      (.superSetActivated this selected)
;      (.setLayoutParams this (android.view.ViewGroup$LayoutParams.
;                               (get-state this :tab-width)
;                               android.view.ViewGroup$LayoutParams/MATCH_PARENT))
      (.setFocusable this (not selected))
      (.postInvalidate this)))
  (defn tab-view-setTitle

(defn get-state
  [this mkey]
  (get @(.state this) mkey))

(do
  (gen-class
