State与gtk2hs

Question

我试图在GUI应用程序中保留一些状态，以便能够从用户输入中构造一个值列表。但我很难理解这个国家所以..。

这里有一些测试代码来说明我想要的东西(很明显，它不会编译，甚至还没有试过)：

-- // --

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]

无论如何，我认为我应该使用StateT而不是State，但这在我的头脑中完全混乱(读了这么多图托斯.)。即使它有效，它也不是很好，因为我给出了每个循环的初始状态[]。问题是如何编写函数addToList，以便每次按update按钮时，用户输入都会添加到某种状态(以前输入的列表)？

Answer 1

首先，State已经是StateT了

type State s = StateT s Identity

也许您需要使用StateT 1级别，如下所示：

runStateT $
put []
lift $ mUpdate `onClicked` do
   txt <- lift $ entryGetText entry
   listWas <- get  
   put $ txt : listWas   --in reverse order
   return ()