#! ../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ß jr"
realize

action Johann override \
    "<Btn1Down>:   exec(rddSetDropData {bist du es?}) \
		   Arm() rddWafeStartAction($dragBitmap) \n\
     <Btn1Up>:	   Activate() Disarm() rddWafeDropAction() \n\
     <Btn1Motion>: rddWafeDragAction()"

rddAddDropHandler Johann {echo message <$DROP>}


