setColsCb :: Ref Table -> Ref ValueSlider -> IO ()
setColsCb table' slider' = do
  v' <- getValue slider'
  setCols table' (Columns (truncate (v' + 1)))
  redraw table'
setColsCb :: Ref Table -> Ref ValueSlider -> IO ()
setColsCb table' slider' = do
  v' <- getValue slider'
  setCols table' (Columns (truncate (v' + 1)))
  redraw table'
setColsCb table' slider' = do
  v' <- getValue slider'
  setCols table' (Columns (truncate (v' + 1)))
  redraw table'