GUI-SDL2 – GUI написанный на Haskell. Часть 3. Кнопки. Функциональное событийное программирование

  3.Buttons:
    source-dirs:      3.Buttons
    main:             Main.hs

{-# 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.Button
 
main :: IO ()
main = runGUI defSkin  -- Запуск GUI с оформлением по умолчанию
 
        -- Список предзагруженных шрифтов : ключ, имя файла, размер шрифта, опции
        [GuiFontDef "label"       "PTN57F.ttf" 15 def -- label
        ] 
        def $ \gui -> do
    win <- newWindow gui "Buttons" SDL.defaultWindow{SDL.windowInitialSize  = V2 400 250}
    vL <- win $+ vLayout def
    lbStatus <- vL $+ label  def{ labelSize=V2 (-1) (-1)
                                , labelAlignment=AlignCenter
                                , labelText="Сюда будут выводится сообщения"}
    hL <- vL $+ hLayout def
    btn1 <- hL $+ button     def{ btnSize = V2 150 150
                                , btnPicture = ButtonLeftPicture "Messagebox_warning.png"
                                , btnTextWrapMode = TextWrap 0 Nothing
                                , btnText = "Сделать правую кнопку недоступной"
                                }
    btn2 <- hL $+ button     def{ btnSize = V2 100 150
                                , btnPicture = ButtonBottomPicture "Messagebox_lambda.png"
                                , btnTextWrapMode = TextWrap 0 Nothing
                                , btnText = "Сделать правую кнопку снова доступной"
                                }
    btn3 <- hL $+ button     def{ btnSize = V2 100 150
                                , btnPicture = ButtonBottomPicture "Messagebox_question.png"
                                , btnTextWrapMode = TextWrap 0 Nothing
                                , btnText = "Эту кнопку сделаем недоступной после нажатия левой"
                                }
 
    -- Реакции на события
 
    onClick btn1 $ do
        enableWidget btn3 False
        setText lbStatus "Перевели 3-ю кнопку в disable"
        
    onClick btn2 $ do
        enableWidget btn3 True
        setText lbStatus "Перевели 3-ю кнопку в enable"
        
    onClick btn3 $ 
        setText lbStatus "Просто нажали третью кнопку"

SDL.defaultWindow{SDL.windowInitialSize  = V2 400 250}

setFocus btn1