     (let [child-count (- (.getChildCount this) 1)
           max (java.lang.Math/max 0 child-count)
           tab-overlap (get-state this :tab-overlap)]
-;      (.superSetMeasuredDimension this
-;                                  (- (.getMeasuredWidth this) (* max tab-overlap))
-;                                  (.getMeasuredHeight this))
+      (.superSetMeasuredDimension this
+                                  (- (.getMeasuredWidth this) (* max tab-overlap))
+                                  (.getMeasuredHeight this))
       ))
   (defn tab-layout-onLayout
     [this changed l t r b]

    (.superOnLayout this changed l t r b)
    (let []
      ))
  )

(do
  (gen-class
    :name "net.nightweb.tabs.TabView"
    :extends android.widget.LinearLayout
    :state "state"
    :init "init"
    :post-init "post-init"

(do
  (gen-class
    :name "net.nightweb.tabs.TabLayout"
    :extends net.nightweb.LinearLayout
    :state "state"
    :init "init"
    :post-init "post-init"
    :prefix "tab-layout-"
    :constructors {[android.content.Context net.nightweb.tabs.TabScrollView] [android.content.Context]}
    :methods []
    :exposes-methods {onMeasure superOnMeasure
                      onLayout superOnLayout})
  (defn tab-layout-create-state
    [context tabs]
    (let [res (.getResources context)
          tab-overlap (.getDimension res (get-resource :dimen :tab_overlap))]
      (atom {:tab-overlap tab-overlap
             :tabs tabs})))
  (defn tab-layout-init
    ([context tabs] [[context] (tab-layout-create-state context tabs)]))
  (defn tab-layout-post-init
    ([this context]
      (.superSetChildrenDrawingOrderEnabled this true)
      )
    ([this context attrs] (tab-layout-post-init this context))
    ([this context attrs def-style] (tab-layout-post-init this context)))
