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