' ------------------------------------------------------------------------------------
'					TestNewTrace.vbs
'
' This script demonstrates the new parameters for the app.Trace method for MyAlbum 2.3
' Text color can be selected and an icon can be placed at the begining of each line.
' The script lists the available icons.
' ------------------------------------------------------------------------------------

app.ClearTrace

for i = 0 to 60
  if     i < 10 then
    app.Trace "Line " & i, 0, TRACE_NONE
  elseif i < 20 then
    app.Trace "Line " & i, 255, TRACE_INFORMATION
  elseif i < 30 then
    app.Trace "Line " & i, 255*256, TRACE_WARNING
  elseif i < 40 then
    app.Trace "Line " & i, 255*256*256, TRACE_ERROR
  elseif i < 50 then
    app.Trace "Line " & i, 255*256+255, TRACE_QUESTION
  elseif i < 60 then
    app.Trace "Line " & i, 255*256*256, TRACE_OK
  end if
next

app.Trace ""
app.Trace "Available icons:", 255
app.Trace "No icon", 0, TRACE_NONE
app.Trace "Information", 0, TRACE_INFORMATION
app.Trace "OK", 0, TRACE_OK
app.Trace "Warning", 0, TRACE_WARNING
app.Trace "Error", 0, TRACE_ERROR
app.Trace "Script error", 0, TRACE_SCRIPTERROR
app.Trace "Question", 0, TRACE_QUESTION
app.Trace "Red dot", 0, TRACE_REDDOT
app.Trace "Green dot", 0, TRACE_GREENDOT
app.Trace "Yellow dot", 0, TRACE_YELLOWDOT
app.Trace "Right Arrow", 0, TRACE_ARROW
app.Trace "Bomb", 0, TRACE_BOMB
app.Trace "Flag meaning complete", 0, TRACE_FLAGCOMPLETE
app.Trace "Faillure sign", 0, TRACE_FAILURE
app.Trace "Positive sign", 0, TRACE_POSITIVE
app.Trace "Negative sign", 0, TRACE_NEGATIVE
app.Trace "Lightbulb on", 0, TRACE_LIGHTON
app.Trace "Lghtbulb off", 0, TRACE_LIGHTOFF
app.Trace "Look at sign", 0, TRACE_LOOKAT
app.Trace "Red traffic light", 0, TRACE_TLRED
app.Trace "Yellow traffic light", 0, TRACE_TLYELLOW
app.Trace "Green traffic light", 0, TRACE_TLGREEN
app.Trace "Wait sign", 0, TRACE_WAIT
app.Trace "Unchecked", 0, TRACE_UNCHECKED
app.Trace "Checked", 0, TRACE_CHECKED