#! ../mofe --f
set FILESEARCHPATH /usr/include/X11/%T/%N:/usr/lib/X11/twm/%N
set dragBitmap ghostview.xpm

XmPushButton Johann topLevel labelString "ich heiße Johann Strauß sen."
realize
 
action Johann override \
  "<Btn1Down>:   exec(rddSetDropData {ja, ich bins!}) \
                 Arm() rddWafeStartAction($dragBitmap) \n\
   <Btn1Up>:	 Activate() Disarm() rddWafeDropAction() \n\
   <Btn1Motion>: rddWafeDragAction()"

rddAddDropHandler Johann {echo message <$DROP>}


