#! ../mofe --f

sV topLevel \
    deleteResponse DO_NOTHING \
    translations {#override  
       <Message>WM_PROTOCOLS: exec(sV l labelString {The protocol is <%p>!})
    }

XmRowColumn rc topLevel
XmLabel l rc labelString "Close this Window using your Window Manager!"
XmPushButton quit rc activateCallback quit
realize


