CALL _ADVPL_set_property(< l_reference >,"STEP_EVENT", < l_step >, < l_event >)

#------------------------------------------------------------------------------#
FUNCTION LWIZARD_setSTEPEVENT()
#------------------------------------------------------------------------------#
    CALL _ADVPL_set_property(m_wiz_reference,"STEP_EVENT","WELCOME","LWIZARD_stepWelcomeEvent")
END FUNCTION
 
#------------------------------------------------------------------------------#
FUNCTION LWIZARD_stepWelcomeEvent()
#------------------------------------------------------------------------------#
    IF  mr_wizard.terms IS NULL THEN
        LET mr_wizard.terms = "Lorem ipsum dolor sit amet, id odio suscipit mel. ",
                              "Alii nominati cu eos, dolor congue postulant sed in. ",
                              "Qui primis voluptaria in. Option timeam conceptam et mea. ",
                              "Sit cu quas facilis, partem cotidieque nam ut, te sea commune antiopam.\n\n",
                              "Minim veritus an eos, vim ad viris persius consulatu. ",
                              "Vis eruditi concludaturque ex, fuisset mentitum expetenda eum in. ",
                              "Pro quas ridens no, ea iudico veritus consetetur usu, dicit suscipit elaboraret at per. ",
                              "Per ad rebum appellantur, pro ne graeco consequuntur, cu vim viris persequeris eloquentiam.\n\n",
                              "Quis audire aliquam ad nam, virtute dolorum pri in, liber tempor sea ne. ",
                              "Sit ei saepe petentium, et pro tempor reprimique mediocritatem, eirmod nostrud scriptorem vix id. ",
                              "Ex nec lorem fugit, sea et integre platonem, ei sit putant utamur. ",
                              "Duo prompta feugait menandri eu, ex nonumy ignota usu, et cum mazim affert utinam."
    END IF

    IF  mr_wizard.agree IS NULL THEN
        LET mr_wizard.agree = "N"
    END IF
END FUNCTION