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