Skip to content
Browse files

Hayoo! integrated - thanks to Timo B. Hübel

  • Loading branch information...
1 parent d671701 commit 12d929bc37a3bd3b956b801c2691cc9d611e438f Fernando Benavides committed Dec 13, 2009
Showing with 2 additions and 14 deletions.
  1. +1 −1 hpage.cabal
  2. +1 −13 src/HPage/GUI/Dialogs.hs
View
2 hpage.cabal
@@ -1,5 +1,5 @@
name: hpage
-version: 0.5.1
+version: 0.5.2
cabal-version: >=1.6
build-type: Custom
license: BSD3
View
14 src/HPage/GUI/Dialogs.hs
@@ -17,19 +17,7 @@ data Preferences = Prefs {languageExtensions :: [HP.Extension],
hayooDialog :: Window a -> String -> IO ()
hayooDialog win query =
- do
- dlg <- dialog win [text := "Hayoo! - work in progress"]
- htmlw <- htmlWindowCreate dlg idAny (rect (point 0 0) (sz 640 480)) 0 ""
- htmlWindowSetPage htmlw $ "<body>Waiting for Timo & Sebastian to integrate" ++
- " \955Page and <a target=\"_blank\"" ++
- " href=\"http://holumbus.fh-wedel.de/hayoo/hayoo.html\">Hayoo!</a> :)" ++
- "</body>"
- set dlg [layout := fill $ widget htmlw,
- visible := True,
- clientSize := sz 640 480]
- return ()
---TODO: Use this or something similar:
--- htmlDialog win "Hayoo!" $ "http://holumbus.fh-wedel.de/hayoo/hayoo.html#0:" ++ query
+ htmlDialog win "Hayoo!" $ "http://holumbus.fh-wedel.de/hayoo/hayoo.html?query=" ++ query
htmlDialog :: Window a -> String -> String -> IO ()
htmlDialog win caption url =

0 comments on commit 12d929b

Please sign in to comment.
Something went wrong with that request. Please try again.