ウィジェットの値を取得したいのですが。
以下では、ボタンbを押してs_inを取得し、ネイティブwxhaskellで印刷します。
b <- button f [text:= "print text in console",
on command := textCtrlGetValue s_in >>= putStrLn]
私はreactive-bananaでも同じことをするのが好きですが、以下では、s_in2のtextCtrlGetValueではなく「ff」を取得します。
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が取得されません。どうすればそれを「取得」できますか?