diff --git a/hpage.cabal b/hpage.cabal --- a/hpage.cabal +++ b/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 diff --git a/src/HPage/GUI/Dialogs.hs b/src/HPage/GUI/Dialogs.hs --- a/src/HPage/GUI/Dialogs.hs +++ b/src/HPage/GUI/Dialogs.hs @@ -17,19 +17,7 @@ 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 $ "Waiting for Timo & Sebastian to integrate" ++ - " \955Page and Hayoo! :)" ++ - "" - 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 =