Hier sind: 
Inhalt new werde nenn init blink


Inhalt von BlinkObj vom. 28.03.98

Übersicht
-- Blink - Objekt
--

-- Aufruf:
--new (script "BlinkObj",myMode,["MemberName":rect(x,x,x,x)],LKanale)

-------------

property ancestor,myLKanale, myLpDarst, myMode, myState,mySelf

-- myMode: #Kipp, #Ampel
-- LpDarst: ["MemberName":rect(x,x,x,x)]
-- LKanale: [120,119,118]
-- blink me,Param


on new me, eins,zwei,drei

on werde me,art

on nenn me

on init me,LpDarst

on blink me,Param


Inhalt top Callers

on new me, eins,zwei,drei

set myMode=eins
set LpDarst=zwei
set myLKanale=drei

set mySelf="BlinkObj"
set ahn ="BasisObj"

if objectP(ahn) then set the ancestor of me to ahn
else werde me,ahn

init me,LpDarst
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,LpDarst

-- ist LpDarst eine Liste? Ja dann viele?
-- ist myLkanale Liste? Ja dann viele? Wenn weniger als in LDarst dann
-- besorg entsprechend oft freien Knl
-- bau myLpDarst als Kanal:Darst
-- verpuppe kanal mit Darst auf rect

-- ist LpDarst eine Liste? Ja dann viele?
if not listP(LpDarst) then return
set LpDarst.viel=Count(LpDarst)

-- ist myLkanale Liste? Ja dann viele?
if not listP(LKanale) then set LKanale=[]
set LKanale.viel=Count(LKanale)

-- Wenn weniger als in LpDarst dann
-- besorg entsprechend oft freien Knl

repeat while LpDarst.viel > LKanale.viel
append LKanale, getFreiKanal(#top)
set LKanale.viel=Count(LKanale)
end repeat

-- bau myLpDarst als Kanal:Darst
-- verpuppe
set myLpDarst=[:]
repeat with rum=1 to LpDarst.viel
set dProp=getat (LKanale,rum)
set dVal=getPropAt(LpDarst,rum)
set dRect=getat(LpDarst,rum)
setaProp(myLpDarst,dProp,dVal)

puppetsprite dProp,TRUE
set the member of sprite dProp = dVal
set the rect of Sprite dProp = dRect
end repeat

set myState=FALSE
end

------------------------


Inhalt top Callers

on blink me,Param
if voidP(Param) then set myState=not myState
else if ilk(param)=#integer then set myState=Param

set dKanal=getPropAt(myLpDarst,1)

if myState then
set the forecolor of sprite dkanal=5
else
set the forecolor of sprite dkanal=6
end if
end



--on rot me
-- set the forecolor of sprite mykanal=6
--end
--
--on gelb me
-- set the forecolor of sprite mykanal=4
--end
--
--on blau me
-- set the forecolor of sprite mykanal=3
--end
--
--on lila me
-- set the forecolor of sprite mykanal=2
--end







-- /IHV


 

 

 

 

 

 

 

 

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