Hier sind: 
Inhalt inittakt idle trashjob neuerjob demo


Inhalt von JobTimer Init vom. 28.03.98

Übersicht
-- JobInit


on initTakt

on idle
-- wenn #TaktAktiv dann

on trashJob dObj

on neuerJob LpParam

on demo


Inhalt top Callers

on initTakt
global gLpObj,gLpFilmVars


setaprop gLpFilmVars,#TaktAktiv,TRUE
if not objectP(getObjekt(#TaktgeberObj)) then setaprop gLpObj,#TaktgeberObj,new (script "TaktgeberObj")

end


Inhalt top Callers

on idle
-- wenn #TaktAktiv dann
global gLpFilmVars

if getaprop(gLpFilmVars,#TaktAktiv) then Kick getObjekt(#TaktgeberObj)
end



Inhalt top Callers

on trashJob dObj
put "trash " & string(dObj)
end


Inhalt top Callers

on neuerJob LpParam
if not ilk(LpParam) = #propList then return FALSE
set j=new (script "JobObj",LpParam)
return TRUE
end


Inhalt top Callers

on demo
neuerJob([#task:#lila, #caller:new(script "blinkObj",1), #Frist:8, #Type:#period])
neuerJob([#task:#lila, #caller:new(script "blinkObj",1), #Frist:8, #Type:#period])
neuerJob([#task:#lila, #caller:new(script "blinkObj",1), #Frist:8, #Type:#period])

neuerJob([#task:"set the text of member 7 = the time", #caller:"", #Frist:3600, #Type:#period])

end




-- /IHV


 

 

 

 

 

 

 

 

HTML created by dp tiny script documenting xtra v0.2 28.03.98 pageID=JobTimerInit