0

ユーザー入力から値のリストを作成できるように、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 をどのように記述すればよいかということです。

4

1 に答える 1