GUI-SDL2 – GUI написанный на Haskell. Часть 4. Поле ввода текста

  4.editBox:
    source-dirs:      4.editBox
    main:             Main.hs
    ghc-options:
    - -rtsopts
    - -threaded
    - -with-rtsopts=-N

{-# LANGUAGE OverloadedStrings #-}
module Main where
 
import Control.Monad
import Data.Default
import qualified SDL
import GUI
import GUI.Skin.DefaultSkin
import GUI.Widget.Label
import GUI.Widget.Layout.LinearLayout
import SDL.Vect
import GUI.Widget.EditBox
 
main :: IO ()
main = runGUI defSkin  -- Запуск GUI с оформлением по умолчанию
 
        -- Список предзагруженных шрифтов : ключ, имя файла, размер шрифта, опции
        [GuiFontDef "label"       "PTN57F.ttf" 15 def
        ,GuiFontDef "edit"        "PTN57F.ttf" 14 def
        ] 
        def $ \gui -> do
    win <- newWindow gui "editBox" SDL.defaultWindow{SDL.windowInitialSize  = V2 400 80}
    vL <- win $+ vLayout def
    lbStatus <- vL $+ label  def{ labelSize=V2 (-1) 20
                                , labelAlignment=AlignCenter
                                , labelText="Сюда будут выводится сообщения"}
    hL <- vL $+ hLayout def
    
    edLeft <- hL $+ editBox def {   editBoxText="Занятие"
                                ,   editBoxMaxChar=20
                                }
 
    edRight <- hL $+ editBox def{  editBoxText="4"
                                ,  editBoxMaxChar=20
                                }
 
    setFocus edLeft
    
    -- Реакции на события
 
    onChanged edLeft $ \ t -> do -- При изменении текста в левом поле
        setText lbStatus t
        setTextColor lbStatus $ rgb 0 0 255
        
    onEnd edLeft $ \ t -> do -- При потери фокуса левым полем (переход к другому виджету)
        setText lbStatus t
        setTextColor lbStatus $ rgb 255 0 0 
        
    onChanged edRight $ \ t -> do -- При изменении текста в правом поле
        setText lbStatus t
        setTextColor lbStatus $ rgb 0 200 0
        
    onEnd edRight $ \ t -> do -- При потери фокуса правым полем (переход к другому виджету)
        setText lbStatus t
        setTextColor lbStatus $ rgb 127 127 0

    setVerifier edLeft $ \ t ->
        return $ (T.length $ T.filter isSpace t) < 2

                                ,  editBoxCharFilter = isDigit

import Data.Char
import qualified Data.Text as T

  4.editBox:
    source-dirs:      4.editBox
    main:             Main.hs
    ghc-options:
    - -rtsopts
    - -threaded
    - -with-rtsopts=-N     
    dependencies:
    - text