diff --git a/Demos/demos.hs b/Demos/demos.hs
--- a/Demos/demos.hs
+++ b/Demos/demos.hs
@@ -21,9 +21,8 @@
    forkIO $ run 80 waiMessageFlow
    adminLoop
 
-
-
 stdheader c= p << "you can press the back button to go to the menu"+++ c
+
 mainf=   do
        setHeader stdheader
        r <- ask $   wlink Ints (bold << "increase an Int")
@@ -34,7 +33,7 @@
                <++ (br +++ linkShop) -- this is an ordinary XHtml link
 
        case r of
-         Ints ->  clickn 0
+         Ints    ->  clickn 0
          Strings ->  clicks "1"
          Actions ->  actions 1
          Ajax    ->  ajaxsample
@@ -72,8 +71,8 @@
 
 ajaxsample= do
    setHeader ajaxheader
-   ajaxc <- ajaxCommand    "document.getElementById('text1').value"
-                           (\n ->  return $ "document.getElementById('text1').value='"++show(read  n +1)++"'")
+   ajaxc <- ajaxCommand "document.getElementById('text1').value"
+                        (\n ->  return $ "document.getElementById('text1').value='"++show(read  n +1)++"'")
    ask $ (getInt (Just 0) <! [("id","text1"),("onclick", ajaxc)])
    breturn()
 
diff --git a/MFlow.cabal b/MFlow.cabal
--- a/MFlow.cabal
+++ b/MFlow.cabal
@@ -1,5 +1,5 @@
 name: MFlow
-version: 0.1.5.2
+version: 0.1.5.3
 cabal-version: >= 1.6
 build-type: Simple
 license: BSD3
diff --git a/src/MFlow/Forms.hs b/src/MFlow/Forms.hs
--- a/src/MFlow/Forms.hs
+++ b/src/MFlow/Forms.hs
@@ -124,10 +124,7 @@
 > import qualified Data.Vector as V
 > import Data.Maybe
 >
->
->
-> data Ops= Ints | Strings | Actions | Ajax | Shop deriving(Typeable,Read, Show)
->
+> data Ops= Ints | Strings | Actions | Ajax | Opt deriving(Typeable,Read, Show)
 > main= do
 >    setFilesPath ""
 >    addFileServerWF
@@ -136,27 +133,35 @@
 >    forkIO $ run 80 waiMessageFlow
 >    adminLoop
 >
->
->
 > stdheader c= p << "you can press the back button to go to the menu"+++ c
+>
 > mainf=   do
 >        setHeader stdheader
 >        r <- ask $   wlink Ints (bold << "increase an Int")
 >                <|>  br ++> wlink Strings (bold << "increase a String")
 >                <|>  br ++> wlink Actions (bold << "Example of a string widget with an action")
 >                <|>  br ++> wlink Ajax (bold << "Simple AJAX example")
+>                <|>  br ++> wlink Opt (bold << "select options")
 >                <++ (br +++ linkShop) -- this is an ordinary XHtml link
 >
 >        case r of
->          Ints ->  clickn 0
+>          Ints    ->  clickn 0
 >          Strings ->  clicks "1"
 >          Actions ->  actions 1
 >          Ajax    ->  ajaxsample
->
+>          Opt     ->  options
 >        mainf
 >     where
 >     linkShop= toHtml $ hotlink  "shop" << "shopping"
 >
+> options= do
+>    r <- ask $ getSelect (setOption "blue" (bold << "blue")   <|>
+>                          setSelectedOption "Red"  (bold << "red")  ) <! dosummit
+>    ask $ p << (r ++ " selected") ++> wlink () (p<< " menu")
+>    breturn()
+>    where
+>    dosummit= [("onchange","this.form.submit()")]
+>
 > clickn (n :: Int)= do
 >    setHeader stdheader
 >    r <- ask $  wlink "menu" (p << "menu")
@@ -178,8 +183,8 @@
 >
 > ajaxsample= do
 >    setHeader ajaxheader
->    ajaxc <- ajaxCommand    "document.getElementById('text1').value"
->                            (\n ->  return $ "document.getElementById('text1').value='"++show(read  n +1)++"'")
+>    ajaxc <- ajaxCommand "document.getElementById('text1').value"
+>                         (\n ->  return $ "document.getElementById('text1').value='"++show(read  n +1)++"'")
 >    ask $ (getInt (Just 0) <! [("id","text1"),("onclick", ajaxc)])
 >    breturn()
 >
@@ -212,7 +217,6 @@
 >      shopCart1 newCart
 >     where
 >     linkHome= (toHtml $ hotlink  noScript << bold << "home")
-
 
 -}
 
@@ -570,9 +574,10 @@
 --, permanently or for a certain time. this is very useful for complex widgets that present information. Specially it they must access to databases.
 --
 -- @
--- import Mflow.Wai.XHtm.All
+-- import MFlow.Wai.XHtm.All
 -- import Some.Time.Library
--- main= run 80 waiMessageFlow [(noscript, time)]
+-- addMessageFlows [(noscript, time)]
+-- main= run 80 waiMessageFlow
 -- time=do  ask $ cachedWidget \"time\" 5
 --            $ wlink () bold << \"the time is \" ++ show (execute giveTheTime) ++ \" click here\"
 --          time
@@ -631,7 +636,8 @@
 `waiMessageFlow` or `addMessageFlows`
 
 @main= do
-   forkIO $ run 80 $ waiMessageFlow  [(\"noscript\",transient $ runFlow mainf)]
+   addMessageFlows [(\"noscript\",transient $ runFlow mainf)]
+   forkIO . run 80 $ waiMessageFlow
    adminLoop
 @
 -}