-- a simple counter demo for the Tcl/Tk library

import Tk
import Read

counter_widget =
 TkCol [] [
   TkLabel [TkText "A simple counter:"],
   TkEntry [TkRef val, TkText "0", TkBackground "yellow"],
   TkRow [] [TkButton (tkUpdate incrText val) [TkText "Increment"],
             TkButton (tkSetValue val "0")    [TkText "Reset"],
             TkButton tkExit                  [TkText "Stop"]]]
     where val free

           incrText s = show (readInt s + 1)

main = runWidget "Counter Demo" counter_widget