GUI component interaction: Difference between revisions
Content deleted Content added
Add R code example |
Mathematica |
||
Line 979:
end if
wait</lang>
=={{header|Mathematica}}==
<lang>DynamicModule[{n = 0},
Column@{InputField[Dynamic[n], Number],
Row@{Button["increment", n++],
Button["random",
If[DialogInput[
Column@{"Are you sure?",
Row@{Button["Yes", DialogReturn[True]],
Button["No", DialogReturn[False]]}}],
n = RandomInteger@10000], Method -> "Queued"]}}]</lang>
=={{header|Oz}}==
| |||