Hier sind:
Inhalt new werde nenn init verpuppe demolish melde timekick payload
Inhalt von JobObj vom. 28.03.98
Übersicht
-- Job - Objekt
--
-- Aufruf:
--new (script "JobObj",[#task:"doAble oder #sendAble", #caller:"ObjRef", #Frist:100, #Type:#single/#period/Integer]
-------------
property ancestor,myLpParam
on new me, LpParam
on werde me,art
on nenn me
on init me,LpParam
on verpuppe me
--
on demolish me
on melde me
on timeKick me
on payLoad me
Inhalt top Callers
on new me, LpParam
set mySelf="JobObj"
set ahn ="BasisObj"
if objectP(ahn) then set the ancestor of me to ahn
else werde me,ahn
init me,LpParam
return me
end
Inhalt top Callers
on werde me,art
set the ancestor of me to new (script art)
end
Inhalt top Callers
on nenn me
return mySelf
end
Inhalt top Callers
on init me,LpParam
set myLpParam=LpParam
melde me
end
Inhalt top Callers
on verpuppe me
--
end
Inhalt top Callers
on demolish me
end
------------------------
Inhalt top Callers
on melde me
set dFrist=the frist of myLpParam
set dTaktgeber=getObjekt(#TaktgeberObj)
set dMoment=the timer + dFrist
addKick dTaktgeber,dMoment,me
end
Inhalt top Callers
on timeKick me
set dType=the type of myLpParam
-- NeuEintrag
if dType <> #single then
if IntegerP(dType) and dType>0 then setaProp myLpParam,#Type,dType-1
if dType <> 0 then melde me
end if
-- PayLoad
payLoad me
-- Recyclen
if dType=#single or dType=0 then TrashJob me
end
Inhalt top Callers
on payLoad me
set dTask=the task of myLpParam
set dCaller=the caller of myLpParam
if stringP(dTask) then
do dTask
else
if symbolP(dTask) and objectP(dCaller) then
call (dTask,dCaller)
end if
end if
end
--------------------
-- /IHV
HTML created by dp tiny script documenting xtra v0.2 28.03.98 pageID=JobObj