| Author |
Comment/Response |
Michael
|
 09/06/12 9:45pm
Is this the sort of thing you want?:
a = CreateDialog[{TextCell["Quante case ci sono?"],
DynamicModule[{},
Row[{RadioButtonBar[Dynamic[q], {1, "2", "3", "4"},
Appearance -> "Vertical"]}]], DefaultButton[NotebookClose[a];
b = CreateDialog[{TextCell[If[q == 1, "Correct", "False"]],
DefaultButton[]}]]}];
URL: , |
|
