Ticket #1114: Test.hs

import Graphics.UI.Gtk
import qualified Graphics.UI.Gtk.ModelView as New
import Data.Char (toLower)
import Data.List (isPrefixOf)

main =
    do
      initGUI
      window <- windowNew
      store <- New.listStoreNew ["red","green","magenta"]
      entry <- entryNew
      completion <- New.entryCompletionNew
      New.entryCompletionSetModel completion (Just store)
      cell <- New.cellRendererTextNew
      New.cellLayoutPackStart completion cell True
      New.cellLayoutSetAttributes completion cell store (\str -> [New.cellText := str])
      New.entryCompletionSetMatchFunc completion (matchFunc store)

      entrySetCompletion entry completion
      set window [containerChild := entry]
      widgetShowAll window
      onDestroy window mainQuit
      mainGUI

matchFunc :: New.ListStore String -> String -> New.TreeIter -> IO Bool
matchFunc model str iter = do
  tp <- New.treeModelGetPath model iter
  r <- case tp of
         (i:_) -> do row <- New.listStoreGetValue model i
                     return $ isPrefixOf (map toLower str) (map toLower row)
         otherwise -> return False
  return r