GUI component interaction: Difference between revisions
Content deleted Content added
Add R code example |
Mathematica |
||
Line 979: | Line 979: | ||
end if |
end if |
||
wait</lang> |
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}}== |
=={{header|Oz}}== |