Use DFClient.pkg
Use cSigCJPushButton.pkg

Object oTestDialog is a dbModalPanel
    Set Label to "Change this 'Label' property..."
    Set Size to 89 211
    Set piMinSize to 89 211
    Set Location to 2 2
    Set Border_Style to Border_Normal
    
    Object oOK_btn is a Button
        Set Label    to "&OK"
        Set Location to 71 102
        Set peAnchors to anBottomRight

        Procedure OnClick
            Integer iRetval
            Get YesNo_Box "Was this demonstration any good?" to iRetval           
            Send Close_Panel
        End_Procedure

    End_Object

    Object oCancel_btn is a cSigCJPushButton
        Set Size to 14 50
        Set Label    to "&Cancel"
        Set Location to 71 157
        Set peAnchors to anBottomRight

        Procedure OnClick
           Integer iRetval 
           Get sigYesNo_Box "Was this demonstration any good?" to iRetval
           Send Close_Panel
        End_Procedure

    End_Object

    On_Key Key_Alt+Key_O Send KeyAction of oOk_btn
    On_Key Key_Alt+Key_C Send KeyAction of oCancel_btn
End_Object