diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,30 @@
+Copyright (c)2011, Heinrich Apfelmus
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Heinrich Apfelmus nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/Makefile b/Makefile
new file mode 100644
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,14 @@
+.PHONY: all clean
+
+OBJ=dist/build
+COMPILE=ghc --make -outputdir $(OBJ) -i$(OBJ) -L$(OBJ) -isrc
+
+Counter : src/Counter.hs src/Reactive/WX.hs
+	$(COMPILE) -o $@ $<
+	macosx-app $@	
+
+
+all: Counter
+
+clean:
+	rm -rf $(APPS) obj/*.o obj/*.hi *.app *.exe *.manifest
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/reactive-banana-wx.cabal b/reactive-banana-wx.cabal
new file mode 100644
--- /dev/null
+++ b/reactive-banana-wx.cabal
@@ -0,0 +1,36 @@
+Name:                reactive-banana-wx
+Version:             0.1.0.0
+Synopsis:            Examples for the reactive-banana library, using wxHaskell.
+Description:
+    This library provides some examples for the @reactive-banana@ library,
+    using wxHaskell.
+
+Homepage:            https://github.com/HeinrichApfelmus/Haskell-BlackBoard
+License:             BSD3
+License-file:        LICENSE
+Author:              Heinrich Apfelmus
+Maintainer:          Heinrich Apfelmus <apfelmus quantentunnel de>
+Category:            FRP, GUI
+
+Build-type:          Simple
+
+Extra-source-files:  Makefile
+
+-- Constraint on the version of Cabal needed to build this package.
+Cabal-version:       >=1.6
+
+
+Library
+    hs-source-dirs:  src
+    build-depends:   base==4.2.*, reactive-banana==0.1.*,
+                     wx==0.12.*, wxcore==0.12.*
+    extensions:      ExistentialQuantification
+    exposed-modules: Reactive.WX
+
+Executable Counter
+    hs-source-dirs:  src
+    main-is:         Counter.hs
+    build-depends:   base==4.2.*, reactive-banana==0.1.*,
+                     wx==0.12.*, wxcore==0.12.*
+    extensions:      ExistentialQuantification
+
diff --git a/src/Counter.hs b/src/Counter.hs
new file mode 100644
--- /dev/null
+++ b/src/Counter.hs
@@ -0,0 +1,33 @@
+{-----------------------------------------------------------------------------
+    reactive-banan-wx
+    
+    Example: Counter
+------------------------------------------------------------------------------}
+module Counter where
+
+import Reactive
+import Reactive.WX
+import Graphics.UI.WX hiding (Event)
+
+{-----------------------------------------------------------------------------
+    Main
+------------------------------------------------------------------------------}
+main = start $ do
+    f       <- frame [text := "Counter"]
+    bup     <- button f [text := "Up"]
+    bdown   <- button f [text := "Down"]
+    output  <- staticText f []
+        
+    set f [layout := margin 10 $
+            column 5 [widget bup, widget bdown, widget output]]
+    
+    let
+        eup, edown :: Event ()
+        eup   = event0 bup   command
+        edown = event0 bdown command
+        
+        counter :: Behavior Int
+        counter = accumulate ($) 0 $
+            ((+1) <$ eup) `union` (subtract 1 <$ edown)
+    
+    sink output [text :== (show <$> counter)]
diff --git a/src/Reactive/WX.hs b/src/Reactive/WX.hs
new file mode 100644
--- /dev/null
+++ b/src/Reactive/WX.hs
@@ -0,0 +1,42 @@
+{-# LANGUAGE ExistentialQuantification #-}
+{-----------------------------------------------------------------------------
+    reactive-banan-wx
+    
+    Utility functions for interfacing with wxHaskell
+------------------------------------------------------------------------------}
+
+module Reactive.WX where
+
+import Reactive.Core
+import qualified Graphics.UI.WX as WX
+
+{-----------------------------------------------------------------------------
+    Wx
+    
+    Utilities for representing stuff from Wx as events and behaviors
+------------------------------------------------------------------------------}
+
+-- | Event with exactly one parameter.
+event1 :: w -> WX.Event w (a -> IO ()) -> Event a
+event1 widget e = fromEventSource $ EventSource
+    { getEventHandler = WX.get widget (WX.on e)
+    , setEventHandler = \h -> WX.set widget [WX.on e WX.:= h] }
+
+-- | Event without parameters.
+event0 :: w -> WX.Event w (IO ()) -> Event ()
+event0 widget e = fromEventSource $ EventSource
+    { getEventHandler = (\m -> \() -> m) `fmap` WX.get widget (WX.on e)
+    , setEventHandler = \h -> WX.set widget [WX.on e WX.:= h ()] }
+
+data Prop' w = forall a. (WX.Attr w a) :== Behavior a
+
+-- | "Animate" a property with a behavior
+sink :: w -> [Prop' w] -> Prepare ()
+sink widget props = mapM_ sink1 props
+    where
+    sink1 (attr :== b) = do
+        WX.set widget [attr  WX.:=  initial b]
+        reactimate $ (\a -> WX.set widget [attr WX.:= a]) `fmap` changes b
+
+
+