module EWidgetDemo where
import Tcl

ewidgets = do
 w <- window []
 t <- edit w []
 insertEdit t TIndexEnd "My name is Joe"
 b <- button w [text "button",command (liftIO $ putStrLn "pressed")]

 ew <- embedded t b TIndexEnd []
 insertEdit t TIndexEnd "And so is yours"
 packAdd t [] 
 
