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