ユーザー入力から値のリストを作成できるように、GUI アプリケーションの状態を保持しようとしています。しかし、私は State モナドを理解するのに苦労しているので...
ここに私が望むものを説明するためのいくつかのテストコードがあります(コンパイルしようとさえしていないことは明らかです):
-- // --
main :: IO ()
main = do
initGUI
build <- builderNew
builderAddFromFile build "test.glade"
mainWindow <- builderGetObject build castToWindow "mainWindow"
mainWindow `onDestroy` mainQuit
mQuit <- builderGetObject build castToButton "quit"
mQuit `onClicked` mainQuit
entry <- builderGetObject build castToEntry "entry"
mUpdate <- builderGetObject build castToButton "update"
mUpdate `onClicked` do
txt <- entryGetText entry
runState (addToList txt) []
return ()
widgetShowAll mainWindow
mainGUI
-- // --
addToList :: String -> State [String] ()
addToList ent = get >>= \x -> put $ x ++ [ent]
とにかく、State の代わりに StateT を使用する必要があると思いますが、頭の中が完全に混乱しています (非常に多くのチュートリアルを読んでいます...)。動いたとしても、ループごとに初期状態を [] にしているからダメ。問題は、更新ボタンが押されるたびにユーザー入力が何らかの状態 (以前の入力のリスト) に追加されるように、関数 addToList をどのように記述すればよいかということです。