Skip to content

Instantly share code, notes, and snippets.

@iArnold

iArnold/alert.red

Created April 6, 2016 06:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save iArnold/fb64c0c27cef99675c0cdf87a495ab31 to your computer and use it in GitHub Desktop.
Save iArnold/fb64c0c27cef99675c0cdf87a495ab31 to your computer and use it in GitHub Desktop.
Download ZIP
Alert window example by Dockimbel
Raw
alert.red
alert: function [
"Displays an alert message"
msg [string!] "Message to display"
][
view/flags [
t: text msg center return
b: button "ok" [unview]
do [b/offset/x: t/offset/x + (t/size/x - b/size/x / 2)]
][modal popup]
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment