| definition: |
getAnswer :: String -> String -> (String -> IO ()) -> IO ()
getAnswer question initial processinput = do
runInitGUI "" (Col []
[Label [Text question],
Entry [Text initial, WRef entry, Cmd getinput, FillX,
Background "white", Width 50],
Button getinput [Text "Ok"]])
(\gp -> focusInput entry gp >> return [])
where
entry free
getinput wp = do inp <- getValue entry wp
processinput inp
exitGUI wp
|
| demand: |
no demanded arguments |
| deterministic: |
possibly non-deterministic operation |
| documentation: |
--------------------------------------------------------------------- -- Get a string in a GUI box and process this input: |
| indeterministic: |
might be indeterministic |
| infix: |
no fixity defined |
| iotype: |
{(_,_,_) |-> _}
|
| name: |
getAnswer |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
String -> String -> (String -> Prelude.IO ()) -> Prelude.IO () |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |