#!/usr/bin/X11/mofe --f

mPushButton Johann topLevel labelString "ich heie Johann Strau sen."
realize
 
action Johann override \
  "<Btn1Down>:   exec(rddSetDropData {ja, ich bins!}) Arm() wStartAction() \n\
   <Btn1Up>:	 Activate() Disarm() rddDropAction() \n\
   <Btn1Motion>: rddDragAction()"

rddAddDropHandler Johann {echo message <$DROP>}


