Hier sind: 
Inhalt new verpuppe werde nenn init demolish sleep wake cleanupthread doonwake define


Inhalt von BasisObj vom. 28.03.98

Übersicht
--BasisObj stellt als Ahn grundlegendes ObjektVerhalten
--
--
--
--

--set the ancestor of me=new (script "BasisObj")

property basisVersion,Autor,myRegulator,myplace,mySelf


on new me

on verpuppe me

on werde me,art

on nenn me

on init me

on demolish me

on sleep me

on wake me

on cleanupThread me

on doOnWake me

on define me


Inhalt top Callers

on new me

set BasisVersion="97/08/18"
set Autor="Daniel Plšnitz"

set mySelf="BasisObj"
return me
end new


Inhalt top Callers

on verpuppe me
set kanal to the mykanal of me
puppetsprite Kanal, true
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
end


Inhalt top Callers

on demolish me
sleep me
if the puppet of sprite the mykanal of me then
set the loc of sprite the myKanal of me to point(-2000,-2000)
puppetsprite myKanal,false
end if
end



Inhalt top Callers

on sleep me
set sleep=true
if getpos(the actorlist,me) >0 then ¨
deleteAt (the actorlist,getpos(the actorlist,me))
if not voidP(myRegulator) then threadDone myRegulator, me
end


Inhalt top Callers

on wake me
if not doOnWake(me) then exit
set sleep=false
add the actorlist,me
if not voidP(myRegulator) then ¨
newthread myRegulator,the mySelf of me, me
end


Inhalt top Callers

on cleanupThread me
nothing
end


Inhalt top Callers

on doOnWake me
return true
end


Inhalt top Callers

on define me
set erg=value(void)
if objectP(me) then
put me & RETURN into erg
repeat with i=1 to count(me)
set prop to getPropat (me,i)
set valu to getaprop(me, prop)
put prop && ":" && valu & RETURN after erg
end repeat
if objectP(getaprop(me, #ancestor)) then put define (the ancestor of me) after erg
return erg
end if
end




-- /IHV


 

 

 

 

 

 

 

 

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