- live browsing of Self object memory -

lobby traitsping

CopyDowns: vector

CreatorPath: traits ping

Module: ping

parent* = traits clonable
copyMessage:Interval:Selector: =
( | p |
    p: (copy mesg: m) interval: i.
    p stopping: false.
    p pingProcess:
       process copySend: message copy receiver: p Selector: sel.
    p pingProcess resume.
    p)
copyMessage:RepeatingInterval: = ( copyMessage: m Interval: i Selector: 'start')
copyMessage:SingleInterval: = ( copyMessage: m Interval: i Selector: 'once')
decreaseInterval: =
( | i |
    i: interval - d.
    i > 0 ifTrue: [ interval: i ].
    self)
increaseInterval: = ( interval: interval + d)
once =
( 
    times delay: interval.
    stopping ifFalse: [ mesg send ].
    self)
start =
( 
    [stopping] whileFalse: [ once ].
    self)
stop = ( stopping: true)