MX-Tracer 6 6 444 bytes 682 bytes 2003-09-29 00:00:00 2005-10-07 16:54:24 Oldes (oliva.david@seznam.cz) Just to see what's going on...

(mx-tracer.rswf)

background 153.165.139
fnt_Courier: Font [name "_typewriter" bold]
txt_trace: EditText v_trace 320x40 [
    ReadOnly WordWrap Font [fnt_Courier 12]
    border layout [indent: 10 leading: -2]
]
place txt_trace
doAction [
    constantPool [trace msg _v_trace scroll maxscroll]
    _global.trace: func[msg][
        v_trace: rejoin [v_trace msg newline]
        v_trace.scroll: v_trace.maxscroll
    ]
    trace("Tracer loaded")
    trace("Next trace message")
]
showFrame
end