Script Library: alert.r

Script Library: 1240 scripts

alert.r

REBOL [
    Title: "a simple alert example"
    Date: 28-Aug-2001
    Version: 1.0.0
    File: %alert.r
    Author: "Viktor Pavlu"
    Purpose: "introduces alert to the beginner"
    Email: %viktor_pavlu--hotmail--com
    Note: {
    alert [ 'string 'true 'false 'none ]
     -- pops up a message box with up to three buttons
  }
    library: [
        level: 'beginner 
        platform: none 
        type: 'How-to 
        domain: 'GUI 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
]

button: alert [ system/script/header/note 'true 'false 'none ]

either button [
  alert "clicked true"
][
  either button = false [
    alert "clicked false"
  ][
    alert "clicked none"
  ]
]

Notes

email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
(viktor_pavlu:hotmail:com)