(include "sci.sh")
(use "Class_255_0")
(use "Cycle")
(script 967)



(class DCIcon of DIcon
    (properties
        type 4
        state 0
        nsTop 0
        nsLeft 0
        nsBottom 0
        nsRight 0
        key 0
        said 0
        value 0
        view 0
        loop 0
        cel 0
        cycler 0
        cycleSpeed 6
        signal 0
    )

    (method (init)
        (send (= cycler (Fwd:new())):init(self))
    )


    (method (dispose)
        (if (cycler)
            (send cycler:dispose())
        )
        (super:dispose())
    )


    (method (cycle)
        (var theCel)
        (if (cycler)
            = theCel cel
            (send cycler:doit())
            (if (<> cel theCel)
                (self:draw())
            )
        )
    )


    (method (lastCel)
        return - NumCels(self) 1
    )

)
