function interface problem

//FUNCTION INTERFACE FOR CONDITIONAL FUNCTIONS
function interface ConditionalFunction takes nothing returns nothing
...
function BasicBounce takes nothing returns nothing
    local integer Mi = OOMS_CurrentMotionObject
    local motion M = OOMS_MotionObjects[Mi]
    local particle p = M.Particle
    local unit P = p.Unit
    ....
endfunction
...
function something takes nothing returns nothing
    local ConditionalFunction F = ConditionalFunction.BasicBounce
endfunction

function interface Arealfunction takes real x returns real

function double takes real x returns real
    return x*2.0
endfunction

function triple takes real x returns real
    return x*2.0
endfunction

function Test1 takes real x, Arealfunction F returns real
    return F.evaluate(F.evaluate(x)*F.evaluate(x))
endfunction

function Test2 takes nothing returns nothing
 local Arealfunction fun = Arealfunction.double //syntax to get pointer to function

   call BJDebugMsg( R2S(  Test1(1.2, fun) ))

   call BJDebugMsg( R2S(  Test1(1.2, Arealfunction.triple ) )) //also possible...
endfunction