reactive-banana reactimate 检索小部件 textCtrl 值，如 textCtrlGetValue

Question

我想检索小部件值。

在下面，按下按钮 b 检索 s_in 并在原生 wxhaskell 中打印它。

b <- button f [text:= "print text in console", 
               on command := textCtrlGetValue s_in >>= putStrLn]

我喜欢对 reactive-banana 做同样的事情，但在下面，我得到的是 "ff" 而不是 s_in2 的 textCtrlGetValue

s_in  <- textCtrl f  []
s_in2 <- textCtrl f  []

b <- button f [text:= "print text in console", 
               on command := textCtrlGetValue s_in >>= putStrLn]



let networkDescription :: forall t. Frameworks t => Moment t ()
    networkDescription = do

    b_in  <- behaviorText s_in "init"
    b_in2 <- behaviorText s_in2 "ff"
    e_butt <- event0 b command


    -- I need an event, triggered by the button, and filled by the b_in2, 

    sink s_in2 [text :== id <$> b_in]     

    reactimate $   (\x -> putStrLn x)  <$> b_in2 <@ e_butt

接收器在 s_in 之后会很好地更新 sin_2。 但下面的反应行没有让我得到我希望得到的 s_in/b_in 的 textCtrlGetValue。我怎么才能得到它 ？

Answer 1

使用behaviorText 函数获得的行为只会对用户 对编辑框所做的更改作出反应。它确实不包括程序化更改，例如使用sink 函数执行的更改。

区分用户事件和编程事件对于编写具有bidirectional data flow 的响应式 UI 元素至关重要。请参阅CurrencyConverter example 进行演示。

如果您想跟踪程序更改，我建议您留在“FRP 世界中”，即使用行为b_out = id <$> b_in 而不是尝试从小部件中读取文本。

（顺便说一句，id <$> x = x。）