Function Repository Resource:

CountdownDialog

Source Notebook

Show a countdown timer in a dialog window that returns True when time runs out, or $Canceled otherwise

Contributed by: Rick Hennigan

ResourceFunction["CountdownDialog"][label]

shows a countdown dialog which displays label.

ResourceFunction["CountdownDialog"][label,sec]

counts down from the given time specified in seconds.

Details and Options

ResourceFunction["CountdownDialog"] accepts the following options:

Background

GrayLevel[0.95]

the background color of the countdown timer

"Color"

Black

the starting color of the outer ring

FontSize

the size of the countdown number

ImageSize

100

the size of the countdown timer

Modal

True

whether to allow interaction with other notebooks while running

"WarningColor"

Red

the color that the outer ring gradually changes into as time runs out

If time is allowed to run out, ResourceFunction["CountdownDialog"] returns True.

If the window is closed or the cancel button is pressed before the timer runs out, ResourceFunction["CountdownDialog"] returns $Canceled.

Examples

Basic Examples (2)

Show a countdown timer:

In[1]:=

$ResourceFunction["CountdownDialog"]["Returning True in\[Ellipsis]"]$

Out[1]=

Specify the time limit:

In[2]:=

$ResourceFunction[ "CountdownDialog"]["Returning True in\[Ellipsis]", 20]$

Out[2]=

Scope (1)

Any expression can be used as the label:

In[3]:=

Out[3]=

Options (6)

Color (1)

Change the primary color:

In[4]:=

$ResourceFunction["CountdownDialog"]["Returning True in\[Ellipsis]", "Color" -> Green]$

Out[4]=

Background (1)

Change the background color:

In[5]:=

$ResourceFunction["CountdownDialog"]["Returning True in\[Ellipsis]", "Background" -> Purple]$

Out[5]=

WarningColor (1)

By default, the color of the progress indicator gradually turns red as time runs out. Specify a different color instead:

In[6]:=

$ResourceFunction["CountdownDialog"]["Returning True in\[Ellipsis]", "WarningColor" -> Blue]$

Out[6]=

ImageSize (1)

Specify the size of the progress indicator:

In[7]:=

$ResourceFunction["CountdownDialog"]["Returning True in\[Ellipsis]", ImageSize -> {500, 200}]$

Out[7]=

FontSize (1)

Change the font size of the timer:

In[8]:=

$ResourceFunction["CountdownDialog"]["Returning True in\[Ellipsis]", FontSize -> 80]$

Out[8]=

Modal (1)

By default, CountDownDialog is Modal. Set to False to enable interaction with other notebooks:

In[9]:=

$ResourceFunction["CountdownDialog"]["Returning True in\[Ellipsis]", Modal -> False]$

Out[9]=

Applications (3)

Launch a rocket using a countdown:

In[10]:=

$launch[rocket_] := Module[{cloud, p, spacer, cSpacer, img, cell, box}, cloud = Image[NumericArray[CompressedData[" 1:eJyVVmlMVFcUHmYQsSpUQQWrNY0GrYmtmjSx1rXpEvunFmvcGuu+VIuKGotS QEBQLIrGNlZDS61ao7WKuAEq+74M+yAMjOy77CLMvHd6vgsPp4q1vcnl8d7c c75zvvOd895b63Y4b1KrVKrd1vzHee2+ha6ua92WvM43S112b93ssnHDIpc9 GzdvdJ21TsMPHXm/ydtS9fJlYWGBLZZarbbAM3t7O8slS79Y7evnFRV4PKCT d7vPIa/Ixc6fLx85coQ4g7Nm618QXsDDQkjmRhZOTk72jBF/++5NMjwyUFt7 GzW3NJOuUEehYdfI29cjcuKkibbP28HXqwIw/33YsGEqB0cHm9GjRw0fP26c haeX+/3Y+GiSZbmbiCTe1N3dTe3tbVJ9Q313eOQdcjuwL9TR0UE1ZsxoG9gO HTp0QN8DYY4b94b1ylXLXD0Puied+ulE3clTQdXuHm5ZFy6eI5PJJDEudXV1 UUtLC9XV11F5eRnpS4qpurpKCv71LHl4HdCeOHmsJuhkYK2Hl3v8ipXLtjs4 jhk0EDZKiOs7704b73fYOz3yXjhVVlWw72ax8/Jzqbi4SEZ+T548oZbWXsxS QwnlF+RSekYqlZTqSavNkOMTYqmo+CEVPtRRamoyXbl6iQ75H4yfPMVpdB+0 2iwG9dixjtaH/L0zMzLTBIU9PT0SY8q1tTUyXyVgGo1G8EySJDHHT0VMpYZS SkpOoAJdPlVUlNHjx01Sa2urzFe5tq7GxFx0h90K5fp7xtmPskfeaqFZtdCQ atnyL7dHcI2A2dnZQU1NTZxzJT0qMxDulQXMp0+foq7U3PyYGhsbqIzP6PXF goPWtlZqaKgH7/z8ERXri5iTvJ5Lly+Q85LFXwOLNQ9M9ZAhQ1Rcw4SKynKJ 8zQ1NjVSVXUl67ZUaEdZyBc8cz6EMzW11eIMfBcVFVJ9Qx3V1dVSWfkjwftD fpabl41tioq+L323f2+4lZUVoNHOqpF2I187FnS0Glrh3pARazHXCPlgybJE HI/IG9winyo+Y2COq2uqqK2tTfCOGDs6Oqie82Y9UFZ2pqh9alqylJySyHX2 1tva2ihjw4J7RnMkwO8h/HG8EjgDLjh9xms71+6x4LKyskJgAs+c/66uZ1wg 9nzWY1x8DKWkJklxrDdvH88sa2trNDg0ZTF16tv2/kd8ylmfMttJmdp0oVUs 8NrGNWtiX6wx1k656BvE0cuFzCJEnhwX8wOeuV7CHrpOS0+hjIw0+d79CCkg 8HDdgoXz30Oy6O397vtu8XP0pwm+4B+aUjTbwNoBn+hV1BG5PK8xJa5y1nQJ x6UrLKDsnCxggmfGT5Vu37lJPA9qJ0yYMGLegrlzzl/8jTo6O0yKL9QS8aO+ qFUVdM2zEfrJy88RdUbNezXWIjTdq1+Dol9RW+AlJMZRYlK86DXu554//7pM 69ev2bN7785fmH+5V67Qayd6UOD9gzOhzRyxkSPONTc3i3OYMag39Iu4MrUZ lJySRJgh2Ao2byki8q7sd9gn2f+Ir6Gca8Z5ygpfNTXVom/Rf+iHQuYMeOnM mTYrQ/CK2HguiHorZ3JyswlzB7kpmOab8eXo2Ad00MejLOAH/3bkBe5EfzCn yA/1wXzUCX9Z/f4QN86jlohLz7xiVmXnaIWG8PtAmNA1/2YKj7gjcz/FHjnq pytjvXCeEjQBrRZwfbRZmYSeS+EZy3WguIQYYR8bFy10irPgHr0CDnAGfL4M E3bsrxvz+qvVK7dtd9kWmJGZDm0YdboCMedxb85VaWkJ60Qr/PbZi7mPWYSz uB8IT9nIMyk5sTv0xjXi91QZv/OGz5gxfcrFS7+jpkb2JYMnJW7ECXxop5a5 hXaUWvfWO7WfV5wdgFc5JjZKYm7p8pU/iGdi8ewP3p+G/rW0tFRt2brJF98M rBET18rIWBLbSmxr4lxk1BF9VFKiF9yinjncm6ingsM2MscLO3FlOyPPZDob fJq+99wft2btardJkyaOMHvvamxsbVRbvtnkd+5CCKWlpQi/0FR+X515bsr9 eKwx9Akwmbt+3Bth1ykq5r74PzrmAYXdvC4w121Ys8/W1vaFd33fJ4B60CBL 1Zy5s2dt3bb5Z7yHj58I1Psf9o1n3VXBF89rCZrmudNfT+YQ/4ueZJsG7smC k6eON7KN3nXPjvPzF8ybrdFo+l596he+s/puNcr98OHDVHb2dlaDBw9WffzJ R/ODQ86KOnJ/GnkGyX3zR+b/jawzOeRcMC367NMP8U3JmrFj20GMo7jTvOq7 Ut172Pzz1hLxrli1bM3pMz8ar167QpH37jKPUfQg6h7dun2DgkPOmFauWr5e ycvMVqM2A/8vy+zbGVfhcObM6U47dn0bxFyW8u5hLg07d7mcmDFz+mQ+Jc79 nw/nvwFEkkdF "],"UnsignedInteger8"], "Byte", ColorSpace -> "RGB", Interleaving -> True]; ClearAttributes[ spacer, Temporary]; spacer = ""; Replace[rocket, DynamicWrapper[ Blank[], HoldPattern[Pattern[sym, Blank[]] = EvaluationBox[]], BlankNullSequence[]] :> (box = sym)]; img = FirstCase[rocket, Blank[Image], "", Infinity]; cell = MathLink`CallFrontEnd[ FrontEnd`AttachCell[box, Cell[ BoxData[ ToBoxes[ Column[{img, Dynamic[spacer]}, Alignment -> Center]]]], { Offset[{0, -20}, 0], {Left, Top}}, {Left, Bottom}, "ClosingActions" -> { "ParentChanged", "EvaluatorQuit"}]]; CurrentValue[ ParentCell[box], {TaggingRules, "Launched"}] = True; p = 0.25; Do[ Pause[ TimesBy[p, 0.95]]; spacer = Column[cSpacer = Table[ Magnify[cloud, 0.2 + (m/16)^2], {m, h}], Spacings -> 0, Alignment -> Center], {h, 20}]; Do[Pause[p]; spacer = Column[ Join[cSpacer, ConstantArray[ Invisible[ Magnify[cloud, 0.2 + (20/16)^2]], h]], Spacings -> 0, Alignment -> Center], {h, 40}]; CurrentValue[ ParentCell[box], {TaggingRules, "Launched"}] = False; NotebookDelete[ cell]; Remove[spacer]];$

In[11]:=