@@ -362,7 +362,6 @@ tableDynAttr klass cols dRows rowAttrs = elAttr "div" (Map.singleton "style" "zo
362 dAttrs <- rowAttrs k
362 dAttrs <- rowAttrs k
363 elDynAttr' "tr" dAttrs $ mapM (\x -> el "td" $ snd x k r) cols)
363 elDynAttr' "tr" dAttrs $ mapM (\x -> el "td" $ snd x k r) cols)
365−--TODO preselect a tab on open
366-- | A widget to construct a tabbed view that shows only one of its child widgets at a time.
365-- | A widget to construct a tabbed view that shows only one of its child widgets at a time.
367-- Creates a header bar containing a <ul> with one <li> per child; clicking a <li> displays
366-- Creates a header bar containing a <ul> with one <li> per child; clicking a <li> displays
368-- the corresponding child and hides all others.
367-- the corresponding child and hides all others.