I am trying to create a DateTime
input dialog that will return a DateTimeObject
DateTimePopup[] :=
CreateDialog[
DynamicModule[{date = {0, 0, 0}, th, tm, ts}, Column[{Row[{
TextCell["Date:"], Spacer[5],
Developer`DateSetter[Dynamic[date]], Spacer[40],
TextCell["Time:"], Spacer[5],
PopupMenu[
Dynamic[th], # -> "H:" <> ToString[#] & /@ Range[0, 24]],
PopupMenu[
Dynamic[tm], # -> "M:" <> ToString[#] & /@ Range[0, 59]],
PopupMenu[
Dynamic[ts], # -> "S:" <> ToString[#] & /@ Range[0, 59]]
}],
Row[{
Dynamic[
DateObject[Sequence@Flatten@Append[date, {th, tm, ts}]]],
Spacer[10],
DefaultButton[
DialogReturn[
Dynamic[DateObject[
Sequence@Flatten@Append[date, {th, tm, ts}]]]]]
}]
}]], WindowSize -> {400, 200}];
When I try to use that function I get a popup but I expected the expression to evaluate after I DialogReturn
dt = DateTimePopup[]
NotebookObject[FrontEndObject[LinkObject["dtt6m_shm", 3, 1]], 46]
But I get a return immediately. How can I get the date time object returned from the dialog ?
DialogInput
and dropDynamic
fromDialogReturn
. $\endgroup$ – Kuba♦ Apr 28 '17 at 12:25