module Main where

import Internal.GridTabularList
import Brick.Widgets.TabularList.Grid

main :: IO ()
main = do
  let msgs = [ "Press Up arrow to go up one item"
             , "Press Down arrow to go down one item"
             , "Press PageUp to go up one page"
             , "Press PageDown to go down one page"
             , "Press Home to go to the beginning"
             , "Press End to go to the end" 
             , " "
             , "Press Left arrow to go left by one column"
             , "Press Right arrow to go right by one column"
             , "Press Ctrl+Home to go to the first column"
             , "Press Ctrl+End to go to the last column"
             , "Press Ctrl+PageUp to go left one page of columns"
             , "Press Ctrl+PageDown to go right one page of columns" ]
  runMain msgs handleGridListEvent