a possible workaround is to temporarily set the event handler to 'return ()'
dox2 bEn w = do
putStrLn "dox2 start"
i <- get w selection
p <- get bEn (on select)
set bEn [on select := return ()]
set bEn [items := ["xx"]]
set bEn [on select := p]
putStrLn $ "selection " ++ show i
putStrLn "dox2 end"
------------------------------------------------------------------------------
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensing option that enables unlimited
royalty-free distribution of the report engine for externally facing
server and web deployment.
http://p.sf.net/sfu/businessobjects
_______________________________________________
wxhaskell-users mailing list
wxhaskell-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wxhaskell-users
