Extended Counter

counter n = ask $

standardPage "Counter" $

makeForm $

do text "Current counter value "

activeInputField counter (fieldVALUE (show n))

submitField (counter (n+1)) (fieldVALUE "++")

submitField (counter (n-1)) (fieldVALUE "--")

Föregående bild

Nästa bild

Tillbaka till första bilden

Visa grafisk version