RosettaCodeData/Task/Simple-windowed-application/Mathematica/simple-windowed-application...

5 lines
138 B
Plaintext

DynamicModule[{n = 0},
CreateDialog[{Dynamic@
TextCell@If[n == 0, "There have been no clicks yet", n],
Button["click me", n++]}]]