Menu
▾
▴
[wxhaskell-users] Can't get HtmlLinkClicked event in WxcHtmlWindow
|
From: Piotr W. <p.w...@pf...> - 2004-07-12 22:45:51
|
In the following example:
---
main = do run example
example = do
f <- frameCreateTopFrame "example"
hw <- wxcHtmlWindowCreate f idAny rectNull wxHW_SCROLLBAR_AUTO ""
htmlWindowSetPage hw "<html><head></head><body><a
href=\"link.htm\">Link</a></body></html>"
htmlWindowOnHtmlEvent hw False onClick
windowShow f
windowRaise f
where
onClick event =
case event of
HtmlLinkClicked link _ _ _ -> do
putStrLn "Link clicked"
_ -> do
putStrLn (show event)
---
when I click on the "Link" link, I get printed on the console:
Html Cell "" clicked: Left down at (23, 10)
or something like this instead of "Link clicked" message, which I expected.
Can you tell me what's wrong with it?
Piotr Wieczorek
|
