setRowsCb :: Ref Table -> Ref ValueSlider -> IO ()
setRowsCb table' slider' = do
  v' <- getValue slider'
  setRows table' (Rows (truncate (v' + 1)))
  redraw table'
setRowsCb :: Ref Table -> Ref ValueSlider -> IO ()
setRowsCb table' slider' = do
  v' <- getValue slider'
  setRows table' (Rows (truncate (v' + 1)))
  redraw table'
setRowsCb table' slider' = do
  v' <- getValue slider'
  setRows table' (Rows (truncate (v' + 1)))
  redraw table'