restart:

# Invoke the Maplets Elements subpackage.
with(Maplets[Elements]):

# Define the question Maplet application.
maplet1 := Maplet( 'abnormalshutdown' = "false",
    QuestionDialog(

        # The text that appears in the Maplet application.
        "Is x > 0 ?",

        # The Maplet application title.
        'title' = "Warning:  Contradiction",

        # The value returned. Click "OK", true.
        # Click "Cancel", false.
        'onapprove' = Shutdown( "true" ),
        'ondecline' = Shutdown( "false" )
    )
):

# Assign result to the value returned by the Maplet application.
result := parse(Maplets[Display](maplet1));

with(Maplets[Elements]):

# Define abnormalshutdown and the "onstartup" option.
maplet2 := Maplet( 'abnormalshutdown' = "FAIL",
    'onstartup' = 'A0',
    QuestionDialog( 'reference' = 'QD1',
        'caption' = "Is x > 0 ?",
        'title' = "Warning:  Contradiction",
        'onapprove' = 'A1',
        'ondecline' = 'A2'
    ),
    
    # Start the QuestionDialog.
    Action( 'reference' = 'A0',
        RunDialog( 'dialog' = 'QD1' )
    ),

    # When "OK" is clicked, return true.
    Action( 'reference' = 'A1',
        Shutdown( 'value' = "true" )
    ),

    # When "Cancel" is clicked, return FAIL.
    Action( 'reference' = 'A2',
        Shutdown( 'value' = "FAIL" )
    )
):

result := parse(Maplets[Display](maplet2));

Maplets[Tools][Print](maplet1);

Maplets[Tools][Print](maplet2);

?Maplets[Examples][Question]

print( Maplets[Examples][Question] );