hpage 0.8.0 → 0.8.1

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

• hpage.cabal +1/−1
• src/HPage/GUI/FreeTextWindow.hs +4/−4

@@ -1,5 +1,5 @@ name: hpage-version: 0.8.0+version: 0.8.1 cabal-version: >=1.6 build-type: Custom license: BSD3

@@ -40,7 +40,7 @@                             "MacOS" ->                                 return $ dropFileName progPath </> "Resources" </> (takeFileName fp)                             _ ->-                                getDataFileName $ "res/images/" ++ fp+                                getDataFileName $ "res" </> "images" </> fp                 real <- doesFileExist path                 if real then return path                         else do@@ -55,7 +55,7 @@             "MacOS" ->                 return $ dropFileName progPath </> "Resources" </> "helpPage.hs"             _ ->-                getDataFileName "res/help/helpPage.hs"+                getDataFileName $ "res" </> "help" </> "helpPage.hs"                  aboutFile :: IO FilePath aboutFile =@@ -65,7 +65,7 @@             "MacOS" ->                 return $ dropFileName progPath </> "Resources" </> "about.html"             _ ->-                getDataFileName "res/help/about.html"+                getDataFileName $ "res" </> "help" </> "about.html"  data GUIBottom = GUIBtm { bottomDesc :: String,                           bottomSource :: String }@@ -98,7 +98,7 @@                  win <- frame [text := "\955Page",                       visible := False]-        imageFile "icon/hpage.tif" >>= topLevelWindowSetIconFromFile win +        imageFile ("icon" </> "hpage.tif") >>= topLevelWindowSetIconFromFile win                   set win [on closing := HPS.stop model >> propagateEvent]