Rebol Programming/flash

USAGE:

FLASH val /with face /offset xy 

DESCRIPTION:

Flashes a message to the user and continues.

FLASH is a function value.

ARGUMENTS

• val -- (Type: any)

REFINEMENTS

• /with
  • face -- Center over this face (Type: any)
• /offset
  • xy -- (Type: any)

SOURCE CODE

flash: func [
    "Flashes a message to the user and continues." 
    val 
    /with face "Center over this face" 
    /offset xy
][
    val: layout [
        origin 10x10 
        image info.gif 
        origin 62x24 
        text bold form val 200x-1 
        origin 20x20
    ] 
    val/text: "Information" 
    either offset [val/offset: xy] [
        center-face val 
        if with [center-face/with val face]
    ] 
    view/new val 
    val
]