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

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

Command Johann topLevel label "ich heie Johann Strau jr"
realize

TransientShell dragShell topLevel {
  overrideRedirect true
  allowShellResize true
  mappedWhenManaged false
}

Label dragLabel dragShell leftBitmap xlogo16

action Johann override \
   "<Btn1Down>:  exec(rddSetDropData {bist du es 1?}) \
	         set() rddWafeStartAction($dragBitmap)"
action Johann override {\
    <BtnUp>:	 notify() unset() rddWafeDropAction()
    <BtnMotion>: rddWafeDragAction()
    <Btn2Down>:  exec(rddSetDropData {bist du es 2?}) \
                 exec(sV dragLabel label {der Mittlere}) \
                 set() rddWafeStartAction(shell dragShell)
    <Btn3Down>:  exec(rddSetDropData {bist du es 3?}) \
	         exec(sV dragLabel label {die rechte Maustaste}) \
                 set() rddWafeStartAction(shell dragShell)
}

rddAddDropHandler Johann {echo message <$DROP>}

