nymphaea 0.1 → 0.2

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

nymphaea.cabal +1/−1
src/Nymphaea.hs +3/−1

nymphaea.cabal view

@@ -1,5 +1,5 @@ name:                nymphaea-version:             0.1+version:             0.2 synopsis:            An interactive GUI for manipulating L-systems description:         An L-system is a small grammar specifying fractal functions, famous                      for their uncanny resemblance to plants and other lifeforms.

src/Nymphaea.hs view

@@ -12,6 +12,8 @@ -- import Control.Concurrent -- import Control.Concurrent.MVar +import Paths_nymphaea (getDataFileName)+ import Graphics.UI.Gtk import Graphics.UI.Gtk.Glade import Graphics.UI.Gtk.Cairo@@ -30,7 +32,7 @@ main :: IO () main = do   initGUI-  dialogXml <- liftM fromJust $ xmlNew "nymphaea.glade"+  dialogXml <- liftM fromJust (getDataFileName "nymphaea.glade" >>= xmlNew)    let getWidget :: WidgetClass widget => (GObject -> widget) -> String -> IO widget       getWidget = xmlGetWidget dialogXml