#!/bin/sh

. functions

output=${1:-opener}

clickInParent() {
cat <<EOF
def eventFunc (form) :
    form.opener.__events__.onclick()
    return ""
EOF
}

clickInChild() {
cat <<EOF
def eventFunc (form) :
    form.opener.__events__.onclick()
    return ""
EOF
}


$rekall $style --skipSplash RekallAutoTest.rkl 2>/dev/null &

     PID=$!
rekallID=$rekall-$PID
   retry=0

waitForRekall $rekallID

[ $output == 'opener' ] && {
	mkdir -p opener
	clean	 opener
}

echo "DCOP Opener test:"

$dcop $rekallID rekall-part-form  'openObject(QString,QString,int)' 'MySQL' "Opener_Parent" 1 > /dev/null
$dcop $rekallID rekall-form/Opener_Parent 'executeScript(QString)' "`cat object_walker`" > $output/Opener_Parent_1
$dcop $rekallID rekall-form/Opener_Parent 'executeScript(QString)' "`clickInParent`" > /dev/null
$dcop $rekallID rekall-form/Opener_Child  'executeScript(QString)' "`clickInChild`" > /dev/null
$dcop $rekallID rekall-form/Opener_Parent 'executeScript(QString)' "`cat object_walker`" > $output/Opener_Parent_2

kill	$PID
