#! ../wafe --f
scriptNeeds rddSetDropData "This Script needs wafe compiled with RDD!"

append FILESEARCHPATH :%N:/usr/include/X11/%T/%N:/usr/lib/X11/twm/%N
### use pixmap from ctwm distribution
set dragBitmap ghostview.xpm

Command Johann topLevel label "ich heie Johann Strau sen."
realize

action Johann override \
    "<Btn1Down>:   exec(rddSetDropData {ja, ich bin's.}) \
	           set() rddWafeStartAction($dragBitmap) \n\
     <Btn1Up>:	   notify() unset() rddWafeDropAction() \n\
     <Btn1Motion>: rddWafeDragAction()"

rddAddDropHandler Johann {echo message <$DROP>}

